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More and more hardware and communications services are allowing speeds up to 1200 baud. Soon, some may be going 
faster than that, Toda/s terminal software simply can't keep up, But now there is an alternative, Micro-Systems Software in- 
troduces MicroTerm, the high speed terminal. 

Model III MicroTerm will communicate, without insertion of null characters, at 4800 baud. Guaranteed. No cop-outs, 
no question, MicroTerm is so fast that you can exit from the terminal to the main menu, adjust video width, open the buffer, 
turn on the printer, or any one of dozens of other functions, and return to the terminal mode! without missing a thing! 

MicroTerm continues to input from the RS232, even while dt the main menu, This is the only terminal capable of such 
an astounding feat. MicroTerm offers you most of the features that "Brand X" smart terminals hove, plus it gives you: • Ultra high 
baud rote operation [up to 9600 in certain cases).* Inputwhileatmenu. •Easy to use translation tables. • Easy to use phone 
number listings. • Maximum autodial support — most major brands. • Direct file transfer companion program included at no 
exta cost {compatible with DFT). • DOS commonds from menu without exiting program. • Over 34K of capture buffer (in a 48K 
TRS-80). • Can be set to automatically dial telephone and transmit buffer at preset time without any operator intervention. 

And many, many more great features, MicroTerm is so fast you must see it to believe It. The various menus are displayed 
so fast, they seem to jump out at you. Status of various functions can be displayed and altered in split seconr''?. 

For the computerist who wonts the ultimate, state-of-the-art terminal software, there Is no other choice. 

MicroTerm retails for $79.95, but registered DOSPLUS owners can purchase it for only $59,95. $20.00 off ttie retail price! 
MicroTerm comes complete with the terminal program, the direct file tronsfer progg 
documentation. 

Don't delay, order yours today! Specify when ordering; Model I or 111 and whe' 
Requires a 16K TRS-80 with one disk drive. We recommend 48K for serious communicattUfW WUfM. IW&oTerm will be available 
beginning Jur^e 30, 1982. 
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So Far, So Good... 




Your Model III is a fine computer. 

So why settle for less than 

a fine disk storage system? 

A fast, reliable disk storage system — no other 

device is so vital to the satisfactory performance of 

your computer. At Percom we build quality, fiigh- 

performance disk drive systems. From gold-plated 

connector contacts to goldcad metal chassis 

structures. From proven design through 100% 

reliability testing. Percom disk systems are the 

standard by which others are judged — the industry's 

"gold standard," in a sense. And since Percom is the 

largest independent manufacturer of disk systems 

for microcomputers, you get Percom quality 

at very competitive prices. Add-on drives for 

TRS-80* computers start as low as $399. 

Complete first-drive systems for the Model III 

start at only $599, Put a quality Percom mini-disk 

storage system in your Model III. And save. 



#1 For Your IVIodel III 

Percom TFD drives for your TRS-SO" Model III computer are available in 
40- and 80-track versions with single or dual heads. Single-head 40-track 
drives store 180 Kbytes; dual-head 40-track drives store 360 Kbytes. 
Eighty-track drives store slightly over twice these amounts. Of course 
these are formatted capacities. The Percom Model III controller handles 
up to four drives so it's possible to access almost three million bytes of 
on-line program and data files. You get Percom's OS-80/III Basic 
language DOS with each first-drive system, and your first drive may be 
either internal (add-in) or external (add-on). Percom TFD drives work with 
Model III TRSDOS and other Model III disk-operating systems. First-drive 
systems are pre-assembled. Installation is accomplished with simple tools. 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80" Model I computer are 
available with the same features and the same quality control measures 
as TFD Mode! Ill drives. As for Model III drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interface and upgrade your Model 1 to provide the 
same storage capacity as the Model III. 

Watch for Announcement of Percom's Low-Cost 
Hard Disk System for the Model III! 

To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 





PERCOM DATA COMPANY. INC. 

1 1 220 Pagemill Road ■ Dallas, Texas 75243 
(214| 340-7081 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 

■TRS-80 is a trademark of Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company, Inc. 

PERCOM, DOUBLER II and OS-80/III are trademarks of Percom Data Company, Inc. 



Yes ... I'd like to know more about 
the best for my TRS-80 computer. 
Send me free literature about 
quality Percom products. 

D MODEL 1 D MODEL III 

Send to 

PERCOM DATA COMPANY, INC. Depl. 8-M 

1 1 220 Pagemill Road, Dallas. TX. 75243 
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Features 



74. Micros in Medicine 

Even micros can have a bedside 
manner. Read how the medical pro- 
fession uses micros to diagnose, ed- 
ucate, and gather information. 
G. Michael Vose 

148. Heat Stress Index 

l^^y Does your job get you hot under the 
collar? This program determines 
whether the heat from your work- 
place is harmful to your health. 
Donald B. Heckenlively, et al 

174. Micros in the Lab 

Microcomputers are not used exten- 
sively yet in scientific exploration, 
but some pioneering scientists are 
leading a micro revolution. 
Tom Hager 



188. Nike Sporl Research Lab 

Scientific research benefits from us- 
ing microcomputers for data collec- 
tion and analysis. 
J. L. Larsen 

197. TRS-80 Laboratory 

Trying to convince the boss you need 
a computer in the lab? This article 
will help you. 
Wynne Keller 

205. Astrodyn amies for Beginners 

Gravity got you down? This program 
shows you its effects on orbits of 
heavenly bodies. 
John D. Fowler, Jr. 



Articles 
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Covet by William Giese 

'TRS-SO, Scrlpsit and TRSDOS are trade- 
marlts of Tandy Corp. 



! lie Color Compuler on I'amdv^ 

In this segment, author Barden ex- 
plains the Line, Circle, Draw, Point, 
Get and Put commands, as well as 
how to Change your video display 
graphics. 
William Barden, Jr. 

Medical Family History 

Computerize your family medical 
histories and make life a little easier 
by keeping health records. 
Miguel Diaz 



92. 



Bit Smitten— Part IV 

Save memory space v\/ith 
Read... Data function. It's 
difficult as you think. 
Jay Chidsey 



Basic's 
not as 



96. 



Practical Regression Analysis 

Regression analysis lets you get the 
most from a set of data. Author Hin- 
richs m\\ take you step by step 
through this useful technique. 
Delmar D. Hinrichs 



112. Hardware Hacker— Part II 

In this episode, add 32K of RAM to 
your Model I. 
Philip M. Van Praag 

130. The Calculating Genius — Part I 

Charles Babbage invented the 
speedometer, railway cowcatcher, 
and occulting lighthouse — as well 
as the first digital computer. 
Rick Cook 



142. CC EDTASM + 

This Editor/Assembler for cassette- 
based Color Computer owners al- 
most has it all. 
William Barden, Jr. 

. Color ConviTsiim- 

When the Air Force took Jimmy's 
hobby— ham radio— away, he found 
a new way to while away the hours 
. . .converting Model I programs to 
Color Computer ones. 
Jimmy L. Freeman 

182. Curse You, Cursor! 

Poke out your Model ll's blinker. 
Joseph L. Frese 

190. Trick Your ROM 

LPRINTing CHR$s and 10. 
Bob Boot he 

2\^. Color lAvsembler 

A way to speed up your Color Com- 
puter programs, 
John Heusinkveld 

222. Relativity and the TRS-80 

[^^g^] Let your micro strip the veils from 
relativity theory and ignite your own 
intuitive files. 
Sidney Levin 

230. Epson Airfoils 

Design model airplane wings or mod- 
ify this program to plot points for 
other applications. 
Bob Soothe 

lAI. Plant a Binary Tree 

Unlock the door to fast searches us- 
ing key data. 
Ken Knecht 

246. Casino Draw Poker 

li^TT^I Who has the better poker face, you or 
your 80? 
Ron Balewski 

260. Make Those Headlines Fit 

Making heads of a different column 
fit together. 
Richard Ramella 



264. Cybernetics— Part II 

All about sensors, decision 
and actuators. 
Stephen Davids 



bases 



You need some additional knowl- 
edge if you want to display numbers 
and graphics on your Color Com- 
puter, 
Frederick F. Battista 
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282. Cassbox 

ll^;^^! Tired of fumbling through unlabeled 
cassette boxes or trying to read 
chicken tracks passing for handwrit- 
ing? Your 80 can give you a helping 
hand, 
Charles E. Gillen 

287. CABLEBREW 

Why buy an MX-80 cable when you 
can make your own? 
James H. DeFrancis 

IKH. • I'liliT I'm 

Combine programs and save memo- 
ry with this know-how. 
E. O. Gilliland, Jr. 

292. Model II Maih Skills 

Mike wanted his kids to dissect math 
problems but found they'd rather dis- 
sect his Basic programs instead. 
Mike Kilroy 

300. Model III Microchess 

You need more than CONVERT for 
this one, 
Mohan Embar 

Now you don't have to wait until the 
wee hours to see late-night fare on 
your tv, 
Richard L. Kilmon 

306. The Sieve of Erathosthenes 

It may be Greek to you but not to your 

80. 

D. R. Cecil 




30X. Mii^i» M;ir\(t 

It helps mentally retarded persons 
play music on the Color Computer. 
Steve Blyn 

318. Kwikmaze 

l^y For fast mazes you need machine 
language, 
Dan Rollins 



357. The Evolution nf a Language 

Understanding the magic of binary 
and hardware. 
Ken Waltjen 

364. Pixel Printer 

]j^io| Model I graphics screen dump. 
Charles E. Gillen 

372. Computer Assisted Electronics 
Design 

The ultimate do-it-yourself project- 
designing your own computer. 
John Harper 

386. PRINPUT 

How to get enhanced printouts from 
a limited system. 
Stephen Mills 

390. ON BREAK GOTO 

Disabled but not forgotten. 
SFC Roger E. Donais 

392. Analysis of Variance 

What happens when IBM Fortran 
meets Microsoft Basic? 
George L Gille 

396. We Interrupt This Program . . . 

...for a word that will make your 
Model I more versatile. 
Dennis Workman 

398. The Family Tree 

li^iisl Genealogies for home computers. 
Richard W. Castor 

404. To Baffle a Pirate 

By making your Basic programs look 
like machine language, you can 
deter many copy cats. 
Randy Hawkins 

406. Clean Up Your TRON/TROFF 

lii^ l Debug your Basic programs with a 
trace table. 
Arne Rohde 

410. Checksum 

Debugging long listings made easy. 
Howard F. Batie 

414. Quicksort 

liiiFiol The fastest sort in the West . . . and 
elsewhere. 
Don C. Brumm 

420. Relocated ULCBAS 

This simple patch protects high 

memory. 

Samuel D. Pincus 

All. Sound OFF! 

Use a second cassette recorder to 



add sound to your programs, 
Bertram A. Thiel 

424. TDRELO 

Write machine language patches, 
load your main program, and save as 
one file. 
Barry Kornfeld 

426. Algebraic Archery 

Hit a bullseye with this polynomial 
factoring program. 
Michael A. Duffin 

436. Homebrew Librarian 

|[^^| Use your 80 to keep track of your 
books. 
Larry R. Hamilton 

440. Find a Number's Roots 

Getting to the roots of some prob- 
lems. 
David R. Cecil 

444. Things Still Crawl in the 
Level II ROM 

Explaining a sometimes persistent 
SYSTEM-load error. 
Gregg E. Marshall 

450. Invader 

\ii^ Computer warfare beyond three 
dimensions. 
Jeffrey Fisher 

456. Scripsit Makes It Easy 

Mail-merge on a shoestring. 
Peter C. Bennett 



Departments 



8. Remarks 

Education in the future— now there's 
a subject that should be good for a 
whole book. 
Wayne Green 

12. Proof Notes 

Micros can help people tune in to 
technology and explore it, 

16. Input 

The pain of protected disks. Profile 
update. Error in Individual Retire- 
ment Account program. A program 
to calculate inflation forever. More 
on disk directory for the Model ill. 
Concerns of a first-generation 
hacker. Error in "For the Novice." 
Model I expansion without Radio 
Shack support. Color Computer 
voice synthesizer. More. 



80 Micro, November 1982 • 5 



PUBLISHER/EDITOR 

Wayne Green 

EXECUTIVE VICE PRESIDENT 

Sherry Smythe 

ASSISTANT TO PRESIDENT 

Mall Smilh 

GENERAL MANAGER 

Debra Wei her bee 

ASSISTANT PUBLISHER 

Jelf DcTray 

FINANCIAL COORDINATOR 

Roger Murphy 

CIRCULATION COORDINATOR 

603-924-9471 

Patricia Per ran te 

BULK & NEWSSTAND SALES MANAGER 

Gintiie Boudrieait 

ADVERTISING, 603-S24-7I38 

David Schissler: Adverii'iing Manager; 

Penny Broolc, Mary Hariwell; Salif;; Bi'tiy 

Butler: Ad Coordinaior. 

New England Advcrliiing Represenlaiive: 

John A. Garland. Garland Associales, Inc., 

Btw3l4.SHS, Du.'<bury,MA0333: 

617-934-6464 

PRODUCTION 

Nancy Salmon, Manager; Michael Murphy. 

As^bianL FranLt^, Benion, Phil deraci. 

Theresa V'ervillc, Scoti Philhrick. Anne 

RoL'chio, Diannc Rilson, Dcborali Stoni?, 

Irene Vail, Karen Wozmak; Ad Coord inalors: 

David Wozrnak, Mary Seaver; Advertising 

Production; Steve Baldwin, Fiona Davies. 

Bruce Hedin, Jane Preston 

PHOrOGRAPHY 

Sandra Dukelle. Bryan Hastings, Elizabeth 

Libby, John R. Schweigeri. Thomas 

Vilieneuve. Ruben M. Villcneuvc 

TYPESETTING 

Melody Bedell. Sara Bedell. Miehele 

DcsRochcrs, Jennifer Fay, Lynn Haine".. 

Linda Locke, Debbie Nulling, 

Ellen Schwann. Karen Stewart 

DESIGN 

Denzel Dyer, Howard Happ, Dion LeGros, 

Laurie MacMillan, Joyce Pillarclla, Susan 

Stevens. Donna Wohlfarth 



The left bracket, [, replaces the up arrow 
used by Radio Shack to indicate exponen- 
tiation on our printouts. When entering 
programs published in 80 Micro, you 
should make this change. 

80 formats its program listings to run 
64 characters wide, the way they look on 
your video screen. This accounts for the 
occasional vi/rap-around you will notice in 
our program listings. Don't let it throw 
you, particularly when entering assembly 
listings. 

Article submissions from our readers 
are welcomed and encouraged. Inquiries 
should be addressed to: Submissions 
Editor, 80 Pine Street, Peterborough, NH 
03458. Include an SASE for a copy of our 
writers' guidelines. Payment for accepted 
articles is made at a rate of approximately 
$50 per printed page; all rights are pur- 
chased. Authors of reviews should con- 
tact the Revievi' Editor, 80 Pine Street, 
Peterborough, NH 03458. 



26. Aid 

Bug in baud rate. Tic-tac error. Miss- 
ing parts for bare bones communi- 
cator. 

28. Debug 

Request for Model III card reader. 
The rest of "Tee for Six.'^ Form feed 
for the MX-80. 

32. Gamers Cafe 

Rodney Gambicus and his friend 
Winthrop set up shop in 80 Micro to 
talk with you about games. 
Rodney Gambicus 




34. Soft Bits 

One of the most powerful features of 
Level II Basic is tfie Print Using state- 
ment. 
Roger Fuller 

38. Kitchen Table Inc. 

Kitchen Table Inc. breaks new 
ground by introducing user-hostile 
software. 
David Busch 

40. Reviews 

Extended muMATH. Color Forth. 
Sole, double density for the Model I. 
Spectaculator, Color Computer 
spreadsheet. Sprinter 11, Z80 in the 
fast lane. Micro Mainframe disk con- 
troller for Model III. Smith-Corona 
TP-1. Colorterm, terminal program 
for CC. Master Reversi. Spell 'N Fix, 
CC spelling checker. 

71. Review Digest 

Color Logo. Electric Webster. The 
UPI-3 Serial Interface. Space War. 
Basic Handbook, 2nd edition. Ver- 
satile. 

455. Index to Advertisers 

458. News 

Tandy distributes Color Computer 
outside Radio Sfiack stores. End of 
Tandy customer service hotline riles 
some users. Associated Press- 
CompuServe end electronic news- 
paper experiment. Public education 
rapped at conference. Network Na- 



tion authors meet in Electronic 
Agora. 

474. Copernica Mathematica 

Statistics 101. 
Bruce Douglass 

482. Feedback Loop 

Disk back-up problems. Mailing list 
of Tandy owners. Epson emphasized 
mode. Color merge. RFI problems. 
Corona discharge. DEC to TRS-80. 
Scrinput. Power supply hum. Irwin 
hard disk drives. 
Terry Kepner 

488. Fun House 

Gather round boys and girls as the 
old Saturday serial is revived and we 
take a trip through the dangerous 
world of Subterra. 
Richard Ramella 

497. Notes from Beneath the Keyboard 

Farewell to a friend. TRS-80s run a 
liquor store and sell used cars. Sec- 
ond-hand software. 
Paul Wiener 

500. Calendar 

502. MONEY DOS 

More on Keynes's never-fall com- 
modity system. 
J. M. Keynes 

504. Medical Opinion 

RX for word processing. 
Philip R. Mills, M.D. 

508. RELOAD 80 

Color Load 80 announced. Load 80 
takes it on the chin. Wonder why 
some August games didn't work? 
Art Huston 

510. New Products 

Lead CRT screen. Meet the Com- 
puter, a book for children. MTI MOD 
III PLUS B series. VisiCalc sur- 
rogates. Model III hard disk. 
DOSPLUS for the Model II. Football 
Compu-Stat. Hayes Stack Smart- 
modem 1200. CP/M File Indexer. 
Auto Run allows your Color Com- 
puter programs to run automatically. 
Bowling League Secretary, Real 
estate software. MERGIT-GLII lets 
you merge Scripsit and Radio 
Shack's general ledger package. 
Municipal billing system for munici- 
palities with an 80, Spreadsheet for 
the Pocket Computer. Sea Dragon, 
arcade-style underwater adventure. 
Copyart II word-processing system, 
ComRiter daisy-wheel printer. Color 
Computer assembler/disassembler. 
More. 
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THE 
SWITCH 

SWITCH TQS'^s" DOUBLE DENSITY 

IXDtmbterS/s 



FEATURES 



5- and 8-inch* disk drives 

Single- & double-density 

Anv size and density in any mix 

Read Model I, II* and III disks 

5- or 8-inch* system disk 

Single & double sided disk drives 

DOS+ 3.3.9 included, with Disk 

BASIC. 

6 month warranty 

Up to 3.75 megabytes online 

Easy installation - plug-in & run 

Analog phase lock loop data 

separation 

Precision write precompensation 

Regulated power supply 

Guaranteed operation at 4MHz 

All contacts gold plated 

Solder masked & silk screened 

Runs under DOS+ 3.3.9, TRSDOS 

2.3, NEWDOS 2.1, NEWDOS/80 

1.0, LDOS,NEWDOS/80 2.0, 

and ULTRADOS 

Reads 40- and 35-track disks on 
80 -track drives 

FD1791 controller + your FD1771 

Fits Model I expansion interfaces 

Fits LNW expansion interfaces 

Track configurations to SO-tracks 

5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 

322,560 bytes - 35-track DS/DD 

184,320 bytes - 40-track SS/DD 

368,640 bytes - 40-track DS/DD 

368,640 bytes - 80-track SS/DD 

737,280 bytes - 80-track DS/DD 

8 inch disk storage increased to: 



591,360 bytes ~ 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD; single-density DD: double- density 

COMPLETE - The LNDoubler 5/8, 
switches your Model 1 or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double -density disk 
operating system (DOS-I- 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double -density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
{formatted storage) - that's an 80% 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double -density 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that ip 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 

'219.95 

DEALERS - You too can 
make The Switch, 




UMf^RESEARCH CORPORA TION 



2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

■S" drive operation retiuires spmal cable, 8'' di.ublE-denaity requires ;i.5f>MHz CFU speed-up nw^riilicatioii or I.NW-BO 4MHz cumpui«r. TRS-8U is a uudemark of Tandy Corpiiraliun. 
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by Wayne Green 



Education in tlie future — now 

there's a subject that should be good 
for a whole book. Golly, could I get in- 
to the things that are wrong with edu- 
cation today and should be changed. . . 
such as the laws on compulsory educa- 
tion that are packing our high schools 
with kids who hale being there and are 
determined to make it impossible for 
anyone else similarly trapped. Or I 
could gel into a chapter or two on what 
happened to education in America 
when the government took control, an 
object lesson in what happens when the 
socialist ethic takes over a field. 

Let me be blunt — education in Amer- 
ica today is a disaster. It's expensive, 
it's not doing the job. It's a fine exam- 
ple of what happens when one gets the 
government into a business. 

Well, with the computer "revolu- 
tion" we may have an edge toward get- 
ting government out of the education 
business. If you're interested in the 
field of education you've read plenty 
about problems compulsory education 
has caused . . . and you already know 
what feeding at the public trough has 
done to the quality (dare 1 use the 
word?) of education. 

Since none of you knows any better 
than I what to do about these situa- 
tions, let's go on to some sorting out of 
the situation, looking for ways in 
which computers may bring some 
relief. 

I happen to think the future is excep- 
tionally bright for everyone. I beUeve 
that computers are eventually going to 
help us provide a far more effective ed- 
ucation for people than anything we 
have today. Kids will learn because 
they want to learn, not because they 
are seni off like slaves to schools and 
are regimented into the three Rs. 

Let's tackle one of the major prob- 
lems of education: making the material 
interesting enough to the student so he 
or she learns out of sclf-intcresl instead 
of being a prisoner of the system. Sup- 
pose we used a medium such as the 
Nova series on Public Broadcasting 
and presented all of the material now be- 
ing taught in school in this manner. We 
would use whatever props or locations 
were needed, with expense being irrele- 
vant. We would have the best of teach- 
er/actors. There have been a number 
of such series on PBS such as Connec- 
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can help 



tions, Discovery and so on. With that 
quality of presentation we might find 
people learning because it is fun. 

Sure, that's an expensive way to go. 
Each hour of material could well cost 
several million dollars. But if we were 
able to make these courses available to 
millions, tens of millions, or perhaps 
with some translation into other lan- 
guages, hundreds of millions of peo- 
ple, the cost per person would be 
miniscule. 

This is where the video tape — or, 
even better, the video disk — comes in. 
This quality of leaching could be made 
available to the poorest parts of the 
world via such a medium. Many third- 
world countries have so few teachers 
and so little money for education 
that nothing even remotely compar- 
able to our U.S. educational system is 
available. 

Okay, then we have one more major 
hurdle to solve. In the ever-growing 
classes, there is no way for a teacher to 
gear the material to the learning speed 
of any student, much less all students. I 
don't know about you, but in many 
classes I was bored to tears and in 
others 1 had a tough time keeping up. 
Neither was any fun and neither in- 
clined me to appreciate education or to 
particularly cooperaic. 

Now let'ssuppose that weareablelo 
build in an interactive computer pro- 
gram into our video disk program, one 
that will stop every so often and sec 
how I'm doing. This system could be 
programmed to go into much greater 
depth for slow students and skim light- 
ly over things for those who get it the 
first time. This approach could go even 
further toward making education fun. 

Of course once we got started with 
such a system we would find that edu- 
cation was no longer limited to kids, 
but of interest to and desired by 
all age groups. And education would 
expand to cover all aspects of our 
world, including training for just 



about every type of professional and 
business work. 

Yes, I hear the fear in your trembling 
voices and see the terror in your 
eyes — if we have this Utopian educa- 
tional system, who will need teachers? 
Well, you just aren't silting there with 
your thinking caps on, that's all. Calm 
down for a moment and remember 
that not all of education can be 
brought to students via superannuated 
television, even with a computer in the 
act. No, there are a lot of skills people 
will need — and want. And these are go- 
ing to take teachers. 

Kids of the future may be far better 
skilled than kids today because they 
will not have to spend as much time 
(perhaps waste is a better word) on 
academic subjects and rote learning. 
They will be able to develop high 
degrees of skill at things such as wood- 
working, sculpting, metal working, 
glass blowing, foundry, electronic ser- 
vicing, skating, skiing, driving, flying, 
riding, musical instruments, juggl- 
ing. . . oh, the hst is a long one. Add to 
that work in labs of all kinds^me- 
chanical, chemical, cooking, physics, 
radio, electrical — and so on. The world 
is getting increasingly complex and the 
kids of the future are going to have to 
have a far more efficient educational 
system to successfully cope with it. 

With these sorts of approaches to 
education I expect that we would be 
able to generate high degrees of interest 
in students in many subjects. I think wc 
would find kids getting deeply involved 
in computer programming, computer 
design, communications equipment 
design, astronomy, and so on. 
Students who get involved emotionally 
in these things early in life are the ones 
who go on to make the most valuable 
contributions to the world with new in- 
ventions, new ideas and pioneering. 

Will future students do their video- 
based learning at school or at home? 
Reason would seem to dictate that 
most of this could well be done at 
home, just as computers and the ad- 
vanced communications they are going 
to bring us will also allow far more 
people to do a large part of their 
"work" at home. Who knows — we 
might just be heading for a rebuilding 
of famihes. When parents can be at 
home, there is less need for the baby- 
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Introducing . . . SCOREPAC™ 

Get a SCORE of diskettes in-a sturdy, new PAC and SAVE! MTC's innovative, uni- 
que pacl<aging concept for diskettes offers the best value in magnetic media to- 
day. You get 20 Paragon fvlagnetics''" 5'/* -inch diskettes, complete wit hi envelopes, 
labels and write-protect tabs, packaged in an extra-heavy duty, reusable, storage 
box/shipping carton. The convenient, thumb-notched, top-closure design of the 
SCOREPAC™ box provides convenient, temporary storage . . . and saves you 
money. Isn't it time that you scored . . . with SCOREPAC^". 

SCOREPAC™w/20 Paragon PlainJane'" Diskettes $39.95 

SCOREPAC™ w/20 Paragon Gold Diskettes $46.95 



MODEL l/lll SOFTWARE ACCESSORIES 

APPARAT'SNEWDOS/80-V2+ MTCQUECARD™ $ 129.95 

PRACTICALPERIPHERALSMICROBUFFER™ $ 149.95 



Michael Slirayer's 

ELECTRIC PENCIL 
VERSION II 

for 
Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII tile for 
edjting (including BASIC tiles), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2 key commands 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Jape Versi on S69.95 

"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

riflore than 300 pages of practical hardware and 
software modilications and projects. Discover 
the mysteries of "THE CUSTOM TRSeO ■■■"■! 
THECUSTOMTRS-aO™ $28.95 

"OTHER MYSTERIES" 
VOLUME IV 

BASIC FASTER 
AND BETTER 

Timelested and proven techniques and 
roitlines that can be used in hundreds of ways 
to make your programs smaller, taster and 
better. 

BASIC FASTER & BETTER $26.95 

I, BFBLIB subroutines diskette $19.95 

BFBDEM demonstration diskette $19.95 



APPLE® OWNERS 

Your first mystery is here! 

THE CUSTOM APPLE® 
&OTHERMYSTERIES $24.95 

by Hofacker & Floegel 

Make your Apple^ Computer perform 
tasks you never thought possible. In- 
terface to stepping motors, fans, drive 
motors, etc. Remotely control and 
automatically monitor virtually any 
machine previously controlled by 
mechanical means. If you want to 
lower your heating costs or are just 
wondering how to hook that "new" 
printer to your Apple'^' you need this 
book! Volume 1 of IJG's Apple Infor- 
mation Series contains more than 180 
pages of practical information and 
tested software. 



"TRS-80^" DISK AND 
OTHER MYSTERIES" 

by Harvard C. Pennington 

132 pages written m PLAIN ENGLISH packed 
witfi HOW TO inlormation with details. e«amples 
and m-depth enplanations Recover lost tiles and 
directories, remove lile protection, make BASIC 
programs unlistable How to use SUPERZAP 
recover from DOS errors and MORE' 

TRS-SQTMDISK S19.95 

"OTHER MYSTERIES" 
VOLUME II 

by James Farvour 

■■MICROSOFT^" BASIC DECODED & OTHER 
MYSTERIES for the TRS-eoTM- js a primer for 
ttie internal workings of cassette and disk 
BASIC. More than 300 pages of explanations, 
examples and comments about the Level II 
ROM. 

microsoft™ BASIC DECODED $26.95, 
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DISKETTES 



MTC's 



premium Single-Sided, Soft-Sectored 
DOUBLE-DENSITY, S'A-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PARAGON MAGNETICSGOLD S24.95 



Scotch 

Soft-Sectored Diskettes 



5-l/4"1S/SDen (744-0) 


- . £28.95 


5-i;4"'2SmDen(745-0) 

8" laSDen (740-0) 

8" 1S;D Den (741-0) - 

8" 2SroDen(743-0) 

Hard-Sectored Diskettes 

5-1/4"' 1S/DDen10-sector(744-10) . . . 
5-1/4"1S/DDen10-sector(744D>10) 
5-1/4" 2S/DDenlO-sector (745-10) . . 
5-1/4" 1S/SDen16-sector(744-16) 
5-1/4" 1S/DDen16-sector(744D-16) 
5-1/4" 2S/DDen16sector(745-16) 
8" 1 S/SDen 32-sector (740-32) 
8" 1S/DDen32-sector(741-32) . . . 
8" 2S/DDen 32-sector(743-32) ... 

Supplies 

5-1/4" Head cleaning kit , 


- S39.95 
. . 529.95 

- , S37.95 

. S49,95 

. . . S28.95 
$32.95 
S39.95 
S28.95 
S32.95 
S39.95 
S33.95 
S39.95 
, S49.95 

, . . $29.95 
S29.95 
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VERBATIM 

Soft-Sectored Diskettes 

5-1/4" 1S/DDen(MD525-01) $26.95 

5-1/4"2S/DDen(MD550-01) S39.95 

5-1/4" 2S/4Den(MD557-01) S51.50 

8" 1S/DDen(FD34-8000) S43.95 

Hard-Sectored Diskettes 

5-1/4" 1S/DDen 10-sector (MD525-10) ... $26.95 

5-1/4" 2S/DDen10-sector(MD550-10) $39.95 

5-1/4"2S/4Den10-sector(MD557-10) ... $51.50 

'RINGS' & THINGS 

HUB RING KIT for 5' 4" disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5' 4' drives $24.95 

5'/4-inch diskette case $3.50 

8-inch diskette case $3.95 

5% inch File Box for 

50 diskettes S24.95 

8-inch File Box for 

SOdiskettes S29.95 
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REMARKS 



sitting function of schools — which is 

an important function today, since 
most homes have two working parents. 

Colleges Stink 

Hold tight — I have another big one 
for you. This has to do with our col- 
leges. They stink. The sooner we can 
start getting our educational system 
geared to providing fun ways to learn, 
the sooner we may be able to trash 
liberal-arts courses. I sal recently at a 
Chamber of Commerce breakfast and 
listened to an "educator" try to ex- 
plain that students should spend four 
damned years of their lives with liberal 
arts so they will be able to appreciate 
the beauty of trees. Sure, and then they 
can come to work for me emptying 
wastebaskets. 1 wish 1 was exaggerat- 
ing, but I've had several such people 
doing just that. 

Education should, in my estimation, 
gear a person to do what he wants in 
the way of being a productive member 
of society. If he wants to be an 
engineer, fine. If he wants to write 
music, no problem. If he wants to 
spend his life making hand-made sil- 
ver services, I have no objection — 
providing there is a market for the 
silver services and the chap is not going 
to come pleading to me for a handout 
because he is making something no one 
wants. 

Okay. We have several problems that 
I think 1 can solve with a new type of 
college. Our country is in desperate 
need of more technical people. Here we 



arc in the middle of a computer revolu- 
tion—and on the verge of a communi- 
cations revolution — and we have virtu- 
ally no technicians or engineers. By not 
infecting our teenagers with technical 
hobbies, we have cut off the tlow of 
these career people into college. 

The college 1 envision would be 
geared to the enthusiastic high school 
student who is anxious to pursue a 
technological career. It would be set up 
with almost total concentration on 
gearing that student for business. The 



''Our country is 
in desperate need 

of more 
technical people. " 



education would include the funda- 
mentals of the technology, such as 
electricity for the computer buff. The 
student would go on to electronics, in- 
tegrated circuits, gates, microprocess- 
ors, computer design, memory sys- 
tems, programming, operating sys- 
tems, applications software, and so on. 
But that would be only half of it. 
America is built on the strengths of en- 
trepreneurs, so my college would also 
teach all of the business courses the 
person is going to need either to start or 
run a business. There would be courses 
in reading, writing, talking, selling, 
purchasing, finance, accounting. 



taxes, advertising, printing, typeset- 
ting, pricing, marketing, personnel 
management, and so on. 

The concept is simple — a campus 
with an industrial park on it where stu- 
dents would be able to spend half of 
their day in school and the other half 
working for on-campus businesses. 
They would be trainees working in 
development labs, doing routine ac- 
counting (computerized), selling, 
marketing, advertising, and so on. Be- 
ing career-interested kids, they would 
be fantastic workers. I've found that 
the very best computer programmers 
and technicians I can get are teenagers. 
They will work night and day at a pro- 
ject and get it done. They usually work 
rings around older technicians. Thus 
kids would have the benefits of both 
professional work and the school at the 
same time. Problems in business could 
be brought into class. Solutions in class 
could be brought to business. Synergis- 
tic, with everyone winning. Teachers 
would be helping students cope with 
practical business problems, thus 
stretching their skills. Students would 
get the best of both the academic and 
business worlds. But what about the 
trees? Let's get into poetry, music and 
the arts via video disks for the time be- 
ing. Or, if kids want to pursue art 
careers, fine — let's set them up with 
an appropriate college where they sell 
their art and music... or silver ser- 
vice sets. 

There, that's enough for one 
sitting. ■ 
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NEW! MTCAIDS-III" NEW! 

VERSION 2,0 



$79.95 



Specify Model I or Model III 

** CALL REGARDING UPGRADE POLICY ** 

The BEST data management system just got BETTER! Inlroducing MTC AIDS-in'"/Version 2.0 
Faster, easier lo use, bettef documentation than the original favorite of thousands of users. Jointly 
deveioped by Sof Trends, Inc. and the author of the AIDS series. VfslCalC^' -compatible when used 
with optional interface module, 

• Up to 20 USER-DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER-type fields may be any length (total: up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation, 

• Full feature EDITING when adding or changing records: 

- ENTER FIELD (can't type-in more characters than specified). 

- BACKSPACE (delete last character typed). 

- DELETE FIELD contents. 

- RESTORE FIELD contents. 

■ RIGHT-JUSTIFY FIELD contents, 

- SKIP FIELD (to next or previous field). 

■ SKIP RECORD (to next or previous record). 

• SORTING of records is MACHINE CODE assisted. 

■ 200 RECORDS (40 characters) in about 1.5 SECONDS. 

- ANY COMBINATION of fields (including numerics) with each field in ascending or 
descending order. 

• SELECTION Of records for Loading, Updating, Deleting, Printing and Saving is MACHINE 
CODE assisted. 

- Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 

- LOAD or SAVE selected records using MULTIPLE FILES, 

- Example: Select records representing those people who live in the state of Colorado, 

but not in the city of Denver, whose last names begin with "F " and whose in- 
comes exceed $9000.00. 

- Example: Select records representing those sales made lo XYZ COMPANY that exceed 

$25.00, between the dates 03/15 and 04/10. 
CALCS-I1I (CALCULATION SUBSYSTEM), included at no charge, has the following features: 

" Prints user-specified fields in tilled, columnar REPORT FORMAT, ajtomatically generating 
column headings, paging and (optionally) indentation, 

• Can create a single report from MULTIPLE FILES, 

• Computes user-specified COLUMNAR TOTALS and BALANCE FORWARD values. 

• Computes columnar values using CONSTANTS and/or COLUMN VALUES, 
MAPS-III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features; 

• Full AiDS-lll SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE, 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically generating 
column headings, paging, and (optionally) indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

MERGE-IN (FILE MERGE/PURGE SUBSYSTEM), included at no charge, has the following features: 

• Merges up to 14 AIDS-created data files into a single, large file. 

■ Optionally PURGES duplicate entries while performing merge operation, including single file 
operation. 

■ Machine-code assisted for HIGH-SPEED performance. 



CALCS-IV (ADVANCED CALCULATION SUBSYSTEM) has the 
following features: 

• All the capabilities of CALCS-III. 

• SAVE REPORT FORMATS on disk for EDITING, as required. 

• More than TWICE the COMPUTATIONAL POWER of CALCS-III. 

• Non-interpretive report execution for FASTER EXECUTION. 

• Reports can be run by a NOVICE. 

ONLY $20 when purchased with AIDS-lll/Version 2.0! 
Specify Model I or Model III S39.95 
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NEW AIDS SUBSYSTEMS 

by SofTrends, Inc. 

VISAPLEX™ 

Interfaces AIDS-III and VJstCalcV Use AIDS-MI 
for data entry, sorting and selection. Then load 
ttie data into VisiCalc", perform computa- 
tions, summations, etc. Like wtiat you see? 
Change the data back into AIDS-II! format for 
future processing. Remarkably easy to use. 
Comprehensive documentation complete with 
examples. 

Specify Model I or Model III $39.95 



ADEPT 



TM 



This module is ideal forentermg large batches 
of data into AIDS-III. Features include pre- 
defined field values, definition and expansion 
of abbreviations, transposition of entries, 
range checking, entry of data from previous 
record.expandedvalidation and more! Type as 
fast as you can ... no problem! Use with 
VISAPLEX™(above) to provide a comprehen- 
sive data entry facility for VisiCalc". Complete 
documentation with examples. 

SpecityModellorModellll S29.95 



If you own Apparatus 

NEWDOS/80-Version2.0 

you need 

BREVI-T™ 

by SofTrends, Inc. 

If you have trouble remembering command tor- 
mats, want to simplify use of DOS, do a lot of 
program development or just want to be more 
effective with your TRS-80™. then BREVI-T is 
for you. Abbreviations can be defined for both 
DOS and BASIC. These are automatically ex- 
panded as part of the command line pro- 
cessor. OptionaMy. parameters may be defined 
as part of an abbreviation. For example, "F 1" 
might be used to FORMAT drive 1. Change the 
1 to a 2 and FORMAT drive 2. It's that simple. 
Complete with easy-to-follow instructions, ex- 
amples and a sample abbreviation file. 

Specify Model I or Model III $19.95 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup tor your MODEL I or 
MODEL III. THE FLOPPY DOCTOR-Version 3 
completely checks every sector ol single or 
double density 35-, 40-, 77-. or SO-track disk 
drives. Tests motor speed, head positioning, 
contfoller functions, status bits and provides 
complete error logging, THE MEMORY 
DIAGNOSTIC checks lor proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS , $24.95 
ForMODELIII $29.95 
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Science, medicine, and microcom- 
puters — is there a connection? This 
issue of 80 Micro may reveal an unan- 
ticipated one. 

The need to perform scientific calcu- 
lations faster with accuracy was the im- 
petus for the invention of the electronic 
computer. Technological advances in 
miniaturization spurred by America's 
space program made semiconductor 
devices like microprocessors possible. 
Microcomputers, then, owe a debt to 
science, but is the reverse ever likely to 
occur? 

Science, and society, could owe a fu- 
ture debt to the development of micro- 
computers. These marvels of silicon 
just may provide the hnk between the 
process of scientific discovery and the 
masses of people who are increasingly 
aware that science does not exist in a 
vacuum — that its discoveries affect so- 
ciety in a myriad of ways. 

But first, our culture needs to tune 
back into science, to make an effort to 
understand rudimentary scientific con- 
cepts and the process of science — the 
scientific method. Microcomputers 
can play a vital role in this endeavor. 

In a 1962 issue of American Behav- 
ioral Scientist, Alan T. Waterman, 
then director of the National Science 
Foundation, asserted, "Science, in its 
pure form, is not concerned with where 
discoveries may lead; its disciples are 
interested only in discovering the 
truth." Philosophers also search for 
the truth, as do judges, private eyes, 
and comic book heroes. But do any of 
these people who struggle so valorous- 
ly ever find what they seek? Do they 
even know where they are going? 

Or is the struggle the real challenge? 
Is the journey, with all of its thrills and 
spills, more important than any possi- 
ble destination? 

It is an interesting quirk of the scien- 
tific method that, in the cyclical pro- 
cess of forming hypotheses, testing 
them experimentally and forming new 
ones, it is easiest to come up with the 
hypotheses. Each idea that a scientist 
formulates gives birth to a plethora of 
new ideas. For most gifted scientists, a 
lifetime provides the time to test only 
the tiniest fraction of the ideas that the 
man can easily formulate. 



What micros 

can give 

to science 



One could argue that, because it pro- 
duces a never-ending stream of expla- 
nations for why things are as they are, 
science contributes to the chaos and 
instability of society rather than pro- 
viding any solutions to important 
problems. This gives credence to the 
notion that most scientists are along 
for the ride rather than concerned with 
the destination. 

The answer to this dilemma may ul- 
timately be to involve society more ful- 
ly in the search for scientific truths. It 
is obvious that there are moral and so- 
cial ideas that must be accommodated 
in the search. How can we raise the 
consciousness of the mass culture to 
tune everyone in to the processes of sci- 
ence? Maybe this is the connection be- 
tween science and microcomputers. 

Micros can teach people about sci- 
ence — electronics, chemistry, astron- 
omy, and more — and can help them do 
the research that yields scientific 
truths. Micros, because they are com- 
plex technological tools, which are 
accessible enough to be understood 
by most anyone, can help people 
overcome their fear of science and 
technology. These miniature electronic 
marvels can help people tune in to tech- 
nology and explore it. 

Most of us who have been exposed 
to microcomputers have experienced 
the joy, the thrill, that comes from get- 
ting that Basic sort routine to work 
after hours of trial-and-error program- 
ming. Many of us have known the tri- 
umph of creating a better algorithm or 
finding an undocumented feature of 
our machines. These experiences are 
tuning us in to science. After all, they 
call it computer science! 
9f ■^ ^ ■^ ■^ 

On the following pages, you'll read 
about a genius of the last century, a 
man named Charles Babbage and his 

COiilinuci on poee 500 
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Intioducing 

*^lmo6t wholesale?' 
prices: 



PRINTERS 

COMREX CR-1 PARALLEL 839.00 

CDMREX Cfl-1 SERIAL. . ... 859 00 

C-ITOH F-10 -10 CPS PARALLEL . 1390 00 
C-ITOH 8510 PROWRITER PARALLEL 480 00 
CITOH 8510 PROWRITER SERIAL.. 590 00 
EPSON m-BQ III W/GRAFTRAX + . .$CALL 
EPSON MX-BO III F/T W/GRAFTfiAX +$CALL 
EPSON MX-100 III W/GRAFTRAX +. SCALL 
IDS PRISM 80 W/COLOR 1599 00 

NEC 8023A 485 00 

NEC SPINWRITEH 353Q P.flO 1995.00 

NEC SPINWfllTER 7710 S RO 2595.00 

NEC SPtNWRITEfl 7730 P.flO 2595 00 

OKIDATA MICROLINE 80.,,- 389 00 

OKIDATA MICROLINE aZA 469 00 

OKIDATA MICROLINE 83A 720 00 

OKIDATA MICROLINE 84 1199,00 

OKIGRAPH 82 33 95 

OKIGRAPH 83 33,95 



TRS-80 HARDWARE 

PEHCDM DATA SEPARATOR 27.00 

PERCDM DOUBLER II ,159,00 

TANDON 80 THK DISK DRIVE W/ P/S 345 00 
TANDON 40 TRK DISK DRIVE W/ P/S 289.00 
LNW DOUBLER WITH DOSPLUS 3.3... 138.00 
LNW DOUBLER 5/8 WITH DOSPLUS 3 4171.00 



ISOLATORS 

iSD-1 3-SOCKET 53,95 

ISO-? 6-SOCKET 53.95 



MODEMS 



NOVATION CAT ACOUSTIC 135.00 

NOVATION D-CAT DIRECT CONNECT , 156.00 
NOVATION AUTO-CAT AUTO ANSWER, 219 00 
HAVES SMART MODEM (300 BAUD) 227 00 



MODEL III DISK DRIVE KITS 

CONTROLLER Kit INCLUDES ALL BOARDS ASSEMBLED AND TESTED, INTERNAL CONTROLLER. 
MOUNTING BflACKETS. SWITCHING POWER SUPPLV. AfJO INSTALUTIDN INSTRUCTIONS 
HANDLES 4 DRIVES. . ,360.00 



KIT HI: CONTROLLER KIT ANO 2 TM100-3 
SINGLED-SIDED. 80 TRACK DRIVES 875,00 
KIT «■ CONTROLLER KIT AND 2 TM100-4 
DOUBLE-SIDED. 60 TRACK DRIVES. 1060.00 



KIT n: CONTROLLER KIT AND 2 TM100-1 
SIMGLED-SIDED. 40 TRACK DRIVES, 720 00 
KIT (M: CONTROLLER KIT AND Z TM100-2 
DOUBLE-SIDED, 40 TRACK DRIVES, 850 00 



MODEL I, III 
SOFTWARE 

LAZY WRITER MOD I. Ill , 165 00 

MICROPROOF SPELLING CHECK . . . 84 95 
PROSDFTNEWSCRIPT/LABELSMODMII 115 00 
OMNITERM SMART TERMINAL MOD i. III 89 95 

MAXI-MANAGER MOD I, 111 89 95 

DOS PLUS 3,4 MOD I, III. . .89 00 

LDOS 5,1 MOD I, III . 119 00 

MICROSOFT EDITOR ASSEMBLER 

+ MOD I (DISK] ..., 44 95 

MICROSOFT FORTRAN MOD I 80.00 

DISKETTES 

ALPHA DISKS 21.95 

Smgiesidefl, ceriitied Double Densily 40 Tracks, 

wpih Hub- Ring Box ol 10 GjaranlEed one year 

VERBATIM 

MD 525-01. 10. 15 26,50 
MD 55001. 10. 16, , , 44 50 

MD 557-01. 10. 15 45 60 

FD 32 ot 34-9000 . 3G 00 

FD 32 or 34-8000 45 60 

FD 34-4001 48 60 

DISKETTES STORAGE 

bV." PLASTIC LIBRARV CASE 2 50 

8 PLASTIC LIBRARV CASE 3 50 

PLASTIC STORAGE BINDER W/ INSERTS 9 95 
PROTECTOR 5'/." 21 95 

PROTECTOR 8 24 95 



HAVES SMART MODEM (1200 BAUD) ,540 00 
LEXICON L£X-n 109.00 



SUPPLIES 

AVERY TABULABLES 

1,000 aV; X 15/16 8 49 

3.000 3'A X 15/16 . . .14,95 
5 000 3'/! X 15/16, 19 95 

FAN FOLD PAPER (Prices 

F.O.B. S.P.) 

9'/! X 11 IBIb WHITE 3,000 cl 29 00 

14 7/Bx 11 1810 WHITE 3,000 cl 39,00 

SPECIALS 

SPECIAL N0.1 

TRS-80 DISK AND OTHER MVSTERIES, BOX OF 

VERBATIM DISKS, PLASTIC LIBHAfiV CASE , 

, . ,.44,50 

SPECIAL N0.3 

NEWDOS/80 2 0, BOX OF VERBATIM DISKS, 
PLASTIC LIBRARV CASE 149,00 

SPECIAL N0,4 

MICROSOFT BASIC COMPILER, BOX OF VER- 
BATIM DISKS PLASTIC LIBRAflV CASE 

179 00 

SPECIAL N0.5 

MICROSOFT BASIC DECODED AND OTHER 



MYSTERIES, BOX OF VERBATIM DISKS, PLASTIC 
LIBRARY CASE 49.95 

DOUBLE DENSITY SPECIAL 

PERCOM OOUBLER II, NEWDOS/80, BOX OF VER- 
BATIM DISKS, PLASTIC LIBRARY CASE 

279,00 

COMMUNICATION SPECIAL 
MOD l&ll 

NOVATION MODEM, OMNITERM TERMINAL 
SOFTWARE, 

ACOUSTIC SPECIAL (CAT) 219.00 

DIRECT CONNECT SPECIAL (D-CAT) . 239 00 

SERIAL CABLE 25.00 

DISK LIBRARY SPECIAL 

RACET DISKCAT CATALOGING PROGRAM, FLIP 
SORT |50 DISK CAPACITY), 50 STICK-ON DISK 
LABELS 59.95 

EPSON ACCESSORIES 

MICROBUFFER:t MBS-SK 159 00 

MICROBUFFERt MBP-16K 159.00 

GRAFTRAX PIUS 60.00 

MX-eO RIBBONS 13 00 

MX-80 PRINTHEAD 40.00 

MX-100 RIBBONS 24.00 

MX-100 PRINTHEAD 49.00 

EPSON SERVICE MANUAL 20.00 

16KRAMSPECIAL13.95 

Set ot a NEC 4116 200fis Guaranteed ofie full 



TWO NEW 'OTHER 
MYSTERIES' BOOKS 

THE CUSTOM TRS-80 24.95 

MICROSOFT BASIC FASTER S BETTER.. .24. 95 

TRS-80 GAMES 

All games are disk versions Cassetie versions 
may nol be available 

TEMPLE OF APSHAI 31 35 

HELLFIRE WARRIOR 31 35 

STAR WARRIDfl 31.35 



RESCUE AT RIGEL 

CRUSH. CRUMBLE AND CHOMP.. . 

INVADERS FROM SPACE 

PINBALL. ... 

MISSILE ATTACK 

STAR FIGHTER 

Z-CHESS III 

ADVENTURE NO, 1, 2, & 3 

ADVENTURE NO. 4, 5, & 6 

ADVENTURE NO. 7, 8. & 9 

DUEL-N-DROIOS 

STARFLEET ORION 

INVASION ORION 

OLVMPiC DECATHLON 

MONTY PLAVS MONOPOLY 

SARGON II 

BLACKJACK MASTER . , . . 

ROBOT AHACK 

GALAXY INVASION, 

SUPER NOVA 

TUESDAY MORNING QUARTERBACK, 

LUNER LANDER 

THE MEAN CHECKER MACHINE 

SPACE ROCKS 

PIGSKIN 

20SSED IN SPACE 

AflCADE-80 

COMBAT 

SPACE INTRUDERS 

SILVER FLASH 

MORTON S FORK, 

PROJECT OMEGA 

SCARFMAN 



...23.36 
...23.36 
.. 17.95 
. ,17.95 
. 18.95 

24 95 

,24 95 
, ,34 95 
.,,34.95 
.,,34,95 
...17.95 
.,,21,95 
.,,21,95 
..,24,95 

31,95 
. .31.95 
. 27 95 
.. 17.95 

17.95 
. .17.95 
, 26.95 
...18-95 
..,21.95 
.,,18.95 
,..17-95 
...18.95 
-.21.95 
.. 18,95 
.. 17.95 
., 17-95 
,26 95 
. 21 95 
. 1795 




_ IPUTER 
PROCXJCTS 

To order or for information call 

(213)706-0333 

Modem order line: (213)883-8976 

We guarantee everything we sell for 30 days — no returns after 30 days. Defective software 
will be replaced free, but all other software returns are subject to 1 5% restocking fee and must 
Ik accompanied by RMA slip No returns on game software, unless defective 
We accepi VISA and (vlaslerCard on all orders, COD orders, up to $300, 
Shipping charges: $3 for ail prepaid orders, actual shipping charges for non- prepaids; $3 
for COD orders under 25lt)s ($6 for over) plus a $4 surcharge; add 1 5% lor foreign, FPO and 
APO orders Calif add 6% sales ta>, L.A, County add 6'/?% 
Prices quoted are for stock on hand and are subject to change without notice 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 



V- See List of Advertisers on Page 455 
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SCARFMAIM ARMORED PATROL REAR GUARD STRIKE FORCE 



This incredibly popular game craze 
now runs on your TRS-80! It's eat or 
be eaten. You run Scrartman around 
the maze, gobbling up everyttiing in 
your path. Try to eat it all before nasty 
monsters devour you Excellent high 
speed machme language action game 
from the Comsoft Group With sound 
Price: A 




O' 



A realistic tank battle simulation. 
Your view is a 3--D perspective of an 
alien landscape. Maneuver your T-36 
tank to locate and destroy enemy 
tanks and robots that lay hidden, 
ready fo assault you Clever graphics 
create the illusion of movement and 
dimension. From Adventure Inter- 
national, With sound. Price: B 

BOUNCEOIDS 

Huge boulders careen off the walls 
You're in the middle, in danger of 
being flattened. Keep your wits about 
you as you blast these "bounceoids" 
from the screen. Large ones break into 
many small ones. Clear a screen, and 
enter a fast-paced challenge stage, 
with a chance for big bonus points,' 
From the Cornsoft Group. Price: A 

CATERPILLAR 

An arcade favorite! Stop these multi-l 
sectioned crawlers before they creepl 
down through the mushrooms Zap' 
one and it splits into two smaller bugs.' 
each with its own sense of direction. 
There are moths and tumble bugs too 
It all adds up to lots of fun for kids and 
adults alike. From Soft Sector Market- 
ing, With sound. Price code: A 

DEFENSE COMMAND 

The invaders are back! Alone, you 
defend the all important nuclear fuel 
canisters from the repeated attacks ot 
thieving aliens, repeatedly. An alien 
passes your guard, snatches a 
canister and flys straight off. Quick! 
You have one last chance to blast himi 
from the sky! With sound and voice. 
Price: A 

CRAZY PAINTER 

You have to paint the floor white. We 
give you the paint and brush. Sounds 
easy? Hah! You'll be confounded by 
stray dogs, snakes, sloshing buckets 
of turpentine, even a ravenous "paint 
eater." A crazy, imaginative new 
game with ten selectable levels of skill 
for new or seasoned game players. 
Lot's of laughs. Price: A 

SUPER NOVA 

Asteroids float ominousiy around the 
screen. You must destroy the 
asteroids before they destroy you! (Big 
asteroids break into little ones). Your 
ship will respond to thrust, rotate, 
hyperspace and fire. Watch out for 
that saucer with the laser! As 
reviewed in May 1981 Byte Magazine, 
Price: A 



Deadly waves of enemy Cyborg craft 
attack your fleet from the rear. You are 
the Mothership's sole defender. You 
have unlimited firepower but the 
Cyborgs are swift, nimble attackers. 
Your abilities are tested hard in this 
game or lightening fast action and 
lively sound from Adventure Inter- 
national, Price B 



As the primary defender of a world of 
cities under deadly alien attack, your 
weaponry is the latest: rapid tire 
missiles, long range radar, and 
incendiary "star shells," Your force 
field can absorb only a limited number 
of Impacts, A complex game ot 
strategy, skill and reflexes from 
Melbourne House, Price: A 



"If you purchase Alpha% 
Joystick you get the ex- 
quisite pleasure of enjoy 
ing (action games) to the 
limit of arcade-style 
realism." 

S -80 Microcomputing 
80 Reviews, Jan '82 



POWER 



THE 

ALPHA 

JOYSTICK 



ONLY 



+ Features the tamou-. Atari Joystick 
+■ Wofks with dtl Model I or III systems 
+ Ci)inpatit)le ivith any otiiet accessories 
-f Saves your keyboard trom dtiuse 
+ Experiment in BASIC UseA^INP(0| 
-f Complete, ready lo plug ui and use 
+ IVIodel I, plugs into KB oi E,'l 
+ IVIodel III plugs into 50 gin \,Q biii 

.Price includes Joystick + Alpha Interlace 
+ Instructions + Demo Program listing. 
Please specify Model ) or III, 
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METEOR MISSION II 

As you look down on your view, 
astronauts cry out for rescue. You 
must maneuver through the asteroids 
and meteors. (Can you get back to the 
space station?) Fire lasers to destroy 
the asteroids, but watch out, there 
could be an alien Flagship lurking 
Includes sound effects! Price: A 



OUTHOUSE 

You are the mighty protector of this 
small (but important) wooden 

structure. For reasons unknown, a 
bizarre gang of miscreants wish to 
vandalize, loot and otherwise destroy 
the litlie "half moon house '" Your 
patrol craft has lasers and smart 
bombs to deal with this terror, 
From SSM with sound Price' A 



Toll Free Order Line 
800'221'0916 

OrdersOnly, NY & Info call (212) 296-5916. Hours: 9-5 E.S.T. 



TAPE: For Model I + III, 16K Level II 
DISK: For Model I + III, 32K, 1 Disk 
All games are joystick compatabie 
or may be played using the arrow 
keys. 



GAME PRICES 

A: TAPE: S15.95« DISK: $19.95 
B: TAPE: $19.95- DISK: S24.95 
C: TAPE: $24.95 • DISK: S24.95 



■.'.'.■.■.'.'.■.V.'.W.V.'.'/.V, QIJ .'.'.■.■,',',','.',V/,iv m J 
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PANIK 



Trapped al an enemy building site, 
your fate seems certain. Your laser is 
empty and evil Mzors are closing in. 
You'll have to climb ladders and think 
one step ahead of the various 
monsters. A challenging game tor 
agile minds. From Fantastic Software 
with voice (Disk has larger vocabulan/). 
Price: B 



SEA DRAGON 

Your submarine, the U.S.S. Sea 
Dragon, penetrates a mined enemy 
channel. Armed with, missiles and 
torpedos, you engage the enemy while 
navigating unknown waters. Succeed 
or come to a salty end in this game, 29 
screens of horizontally scrolling sea- 
scrape and sound from Adventure 
International. Price: B 



As you can see, all the best games from the top 
producers are joystick compatible. These 
games are fun without the joystick but we hope 
that you are one of the many thousands who 
enjoy the advantage of. real joystick action. 

Now you can deduct up to 20% on the price of 
games, buy any 2 games deduct 10%, buy any 3 
games deduct 15%. buy any 4 games deduct 
20% from game prices. 

' TOP TEN —— > 

1.SCARFMAN^//(ime/avon(e ■ 

2. ARMORED PATROL super. 3D mapttkis ■ 

3. PENETRATOR Rave reviews 

A. STELLAR ESCORT Fast and Challenging 

5. CRAZY PAINTER L/nique game concepi 

6. PANIK-Remar*(ab/eVo/ces 

7. DEFENSE COMMAND Tough strugg/e 

8. CATERPILLAR Good rendilion 

9. ROBOT ATTACK WK/ivoJce 

10. SEA DRAGON Amazing Seascape" 
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GALAXY INVASION LASER DEFENSE 



The sound of the klaxon is calling you! 
Invaders have been spotted warping 
toward Earth. You shift right and left 
as you fire your lasers. A few break 
tormation and fly straight at you! You 
place your finger on the fire button 
knowing that this shot must connect' 
With sound effects! Price: A 



In this game of ICBM's, high-energy 
lasers and particle beams, you control 
the U.S. strategic defense satellite 
system. From your viewpoint high 
above the globe, you intercept Soviet 
nuclear missiles in flight and attempt 
to destroy their scattered missile 
silos. With sound from MEO Systems. 
Price: B 




STELLAR ESCORT 

The latest super action game from Big 
Five, As the Federation's top space 
fighter you've been chosen to escort 
what is possibly the most important 
shipment in Federation history. The 
enemy will send many squadrons of 
their best fighters to intercept. With 
sound. Disk version has voices. 
Price: A 

ROBOT ATTACK 

lalks without a voice synthesizer, 
mrough the cassette port. With just a 
hand laser in a remote space station, 
you encounter armed robots. Some 
march towards you, more wait around 
corners. Careful, the walls are 
electrified. Zap as many robots as you 
dare before escaping to a new section, 
, More robots await you. Price: A 

'lunar lander 

As a vast panoramic moonscape 
scrolls by, select one oi many landing 
sights. The more perilous the spot, the 

imore points scored -- it you land 
safely. You control LEM main engines 

'and side thrusters. One of the best 
uses of TRS-80 graphics we have ever 
seen. From Adventure International, 
With sound. Price: A 




CHICKEN 

Will the chicken cross !he road' 
Thai's up to you Can you guide these 

tielpiess little chicks across the 
perilous 10 lane super highway to 
safety? Or will you bumble, littering 
the blacktop with a storm of chicken 
feathers'^ A humourous yet chal- 
lenging game of nerves from SSM with 
sound. Price: A 



PENETRATOR 

Soar swiftly over jagged landscape, 
swooping high and low to avoid 
obstacles and enemy missiles attacks. 
With miles of wild terrain and tunnels 
to penetrate, you're well armed with 
bombs and multiple forward missile 
capability. From Melbourne House. 
Features sound, trainer mode and 
customizing program. Price: C 
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ALPHA 

79-04 Jamaica Ave., Woodhaven, NY 11421 
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ADD S^.00 PER ORDER FOR SHIPPING AND HANDLING. 

WE ACCEPT VISA, MASTERCARD, CHECKS, M 0. 

CO.D. ADD $3.00 EXTRA. 

NY RESIDENTS ADD SALES TAX. [_ yoA 

OVERSEAS, FPO, APO: ADD 10%. 

DEALER DISCOUNTSAVAILABLE. ^17 




To Copy Or Not To Copy 

Whenever I receive my mail-order 
software and I find it is on a protected 
disk, I feel like I would if I had just 
bought a book but was told I could on- 
ly keep it in a particular bookcase. 
Utilities are a special pain, since I like 
to spread them around in handy places 
on several disks. 

A protected disk is only an aggrava- 
tion until the company producing it 
turns beliy-up and you can no longer 
buy a backup. Then it is a fraud. 

One such product is the particularly 
sophisticated and excellent Super-Util- 
ity Plus from Powersoft Inc. It comes 
on one of the most locked-up of all 
locked disks, but its author has the 
audacity to include an unlocking rou- 
tine for disks other than his own. 

In the event that Powersoft Inc. 
should go the way of Braniff Airlines, I 
have devised a copying procedure for 
this valuable work that I will make 
available free for a stamped, self-ad- 
dressed envelope. However, not wish- 
ing to rain on Powersoft's parade, I 
will not do so until they can no longer 
make available their $5 copy. In the 
meantime, to all the persevering among 
you, rest assured that copying this 
baby is indeed possible. Just stick with 
it and in less time than you think you'll 
have lots of copies, just like I have. 

If you've passed up purchasing this 
product because you too hate the pros- 
pect of eventually being stuck with a 
worn out disk and no way to get 
another, be concerned no longer. 

This letter caused us a lot of conster- 
nation. To print or not to print? Those 
of us with a zest for the fray voted to 
side with the lunch-bucket computerist 
and publish, despite negative feedback 
from anti-piraters. Those of us with 
more conservative inclinations felt that 
to publish would be to condone and 
promote an illegal (and perhaps im- 
moral) act. 

So we compromised (some might 
say, chickened out). We decided to 
print the letter without the name, and 
let you readers tell us what we should 
do. We've also contacted several soft- 
ware manufacturers to get their views. 

What do you think? Do you agree 
with the letter-writer about protected 
disks? Should the person offer to tell 
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Please do not submit any letters 
longer than 300 words for the Input, 
Aid, and Debug columns. 80 Micro 
reserves the right to edit any letters 
submitted. — Eds. 



other people how to break the lock? 
And should 80 Micro be the forum? 
Let us know; we'll publish a sampling 
of responses in a later issue. — Eds. 

Profile Update 

We are the authors of the Profile II 

and Profile + programs, distributed by 
Radio Shack, which Craig Hilton re- 
viewed in the April issue (' '80 Reviews," 
pp. 48-50). We greatly appreciate his 
review. However, we noticed a few 
mistakes that we think may confuse 
readers. 

First, the Profile + program is not 
$220 more than Profile II, just $120. In 
fact, readers with Profile II who want 
the Plus features can buy a Plus en- 
hancement package for $120; Profile II 
users can upgrade their systems as their 
needs become more sophisticated, 
rather than be forced to buy new soft- 
ware and lose the data (and work) 
they'd put into their old systems. 

Also, Profile + is simply an en- 
hanced Profile II, not a wholly new 
and different program. The review im- 
plied this by comparing them to each 
other instead of to other data base 
management programs. 

Second, in the chart starling on page 
48, the maximum number of 500-byte 
records on a four-drive system in Pro- 
file II is 1875, not 1800; the corre- 
sponding Profile-t- number is 3000. 
There are five, not four, screen for- 
mats per file, and seven sort compari- 
son criteria (add EQ and NE) for both 
programs. On page 50, Profile II has 
1-6 line labels, not 6-99; and both sys- 
tems can be expanded onto hard 
(fixed) disks. Also, page totals (sub- 
totals) can be generated in both pro- 



grams; however, grand totals are then 
not generated. Under Speed, Profile + 
has an indexing function which speeds 
up selection during inquire or update 
operations even more. 

We have a few questions. What, for 
instance, does Mr. Hilton mean by 
"layered sort capability?" Does he 
mean sorting by multiple fields? Or 
does he mean disk-based sorting — do- 
ing sorts that are larger than memory? 
Both functions are available in our new 
Model II Profile extension program 
Prosort, available directly from us. 
(Prosort also allows 16-field selection 
and report and label-printing indexes.) 
Also, both Profiles can write to and be 
read by Basic programs. 

We did not write the original Model 
I or III Profile programs, and neither is 
compatible with our Profile III-i- . 

We agree that the documentation on 
Profile + has been poor, but Radio 
Shack's new user's manual should 
solve that problem. 

Howard Wolowitz, 

President 

The small Computer Company 

New York, NY 

Craig Hilton Replies 

Thanks for the clarification, I'm 
glad to hear a new user manual is on 
the way. A system with these capabili- 
ties deserves broad-based documenta- 
tion. In preparing the review, I used 
the first public release of Profile 11+ 
(August), which did not include refer- 
ences to many of the benchmark stan- 
dards used in the comparison. 

A layered sort capability is disk- 
based sorting on nested multiple fields 
using standard Boolean comparisons. 
As this is a very useful option in power- 
ful data base management systems, I 
am glad to learn you have added the 
capability in your Prosort enhance- 
ment. Although Profile 11+ can read 
and write Basic programs, which is a 
very significant improvement over 
Profile II, it still cannot directly access 
non-Profile data files. However, from 
what I have seen of the fielding algo- 
rithms, there is no reason this feature 
cannot be added. — Craig Hilton 

IRA Error 

The Program Listing for Mr. 
Ryder's "Make a Fortune" letter (80 
Input, June/July 1982, p. 17) certainiy 



NONA/ MODEL I AND MODEL III • 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
.MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
: our ANALOG-30, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39,95. 




Printers': 



PRINTSWITCH 

Have 2 pnnlers on line a! all times ard select printer 1 or 
2 tjy means of a conveniertly locaied switcli End llie problem 
of constantly pfugging ard unplugging prinier caOfes. PRINT- 
SWITCH is a compact module that plugs onto tlie parellel printer 
port of your TRS-80 and ptovldes an edge connector for each 
ol your two printers, it works w^th any two types ol printers' 
dot malfi*. daisy wheel, plolters, TRS-80 converted selectncs, 
etc AssemDied, tested, ready to use with connector and In- 
structions. For l^odellor III (please specify). ON LV .159.00 
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SUPERIOR aUAUTY REPLACEMENT & EXTENSION CABLES 

Higliesi quality cable and high force, gold plated contacts 
ensure the utmost In connection reliability. 

O KEYBOARD TO EXPANSION INTERFACE S21 . 

© DISK ORIVE CABLE FORI OR 2 DRIVES $32 

© DISK DRIVE CABLE FOR 3 OR 4 DRIVES , , $45 

O DISK DRIVE CABLE EXTENDER $22 

© PRINTER CABLE EXTENDER I2<1 

ffi 40 PIN BUS EXTENDER -2 ft, ,$22 4ft.. .$24 

Custom caPle configurations are also available. Call us. 
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YOU ASKEO FOR IT: "EXPANDflBUS" XI. X2, X3 AND X4 

CONNECT ALL YOUR TfiS-SO DEVICES SIMULTArjEOUSLY 
on the 40 pin TRS-8(] bus. Any device that normally plugs 
into ihe keylioard edge connector will also plug mto liie 
"EXPANDABUS' . Ttie "X4'" fS shewn with proleclive 
covers lincludedl The TRS-SO keyboard contains Ihe Bus 
drivers (74LS367) tor up to 20 devices, more than you wHI 
ever need. Using the E/l. H plugs eiftier between KB and £/i 
or in Ihe Screen Printer port Professional quality, gold 
plated contacts. Computer grade 40 conduclor ribOon caWe 
X3. ,S29, X3.,$44 X4, S59. X5 , S74 

Cuslom configuralions are also avaiiaOle call us 




ANflLOG-80: A WORLD OF NEW APPtlCATIONE POSSIBLE, 

a dighal multimeters plugged into your TRs-ao"' 

Measure Temperaluie Wollage. CurrenI, Light, Pressure, etc 
Very easy louse: lor example lel's reafl mpul channel #4. 10 
OUT 0,4 'Selects input »4 and also slarrs the conuersien 20 
A = INP101 'Puts Ihe lesoll m variable '"A Voila' 
Soecilicalions input range. 0-5V to 0-500V Eacn channel 
can be set la a liferent scale 

Resoluimn 20mVlon5V range) Accuracy Bbilsi 57=) Port 
Address lumpB' seletlalile Plugs into keyboard bus or E/l 
r-—'' —'"'■" ■)""' A;semt]iBfl and iBsted 90 day warranty 
.C A t A'rsupply connector manual 1139, 




TIMEDATE 80: REAL-TIME CLOCK/CALENOAH IWODULE 

Keeps quartz accurate time tor 3 years on 2 replaceable 
AAA Galteries (not included! Gives MO/DATE'YFt, DAY of 
WEEK, HR fJllfJ-SFC and AM/PM Features INTELLIGENT 
CALENDAR and even provides for Leap Year This compact 
module simply plugs into rear of Keyboard or siae of 
Expansion Interface {may be slipped inside E/il Includes 
cassette software (or selting clock and patching lo any DOS 
Onciuding NEWDOS80 2.01 Optional ''Y"' connector allows 
lor lurfher expansion For l^odel i EuHy assembled and 
tested Compleie with instructions and cassetle ONLY 
1)1 



SEISE^i 



SPECIAL THIS MONTH r^ 



relays undel 

your' 

C 
O 




DISK DRIVE EXTENDER CABLE, FREE YOUR MINI-DRIVES. 

End the daisy-chain mess once and for all. Fits all mmi- 
drives Percom Aerocomp. Shugart, Micropolls. fviTl. Vista, 
Pertec, Siemens, BASF East lo mslall- jus! remove the drive 
cover, plug in Ihe EXTENDER CABLE and replace the cover 

Now you can change and move your drives without dis- 
assembly. Keep the cover on and the dust out High reliability 
gold plated contacts, computer grade 34 conductor cable. 
Tested and guaranteed 

Get one tor each drive. ,., ONLY .. .S8,95 



INTERFACER-aO: The mosl powerlul Sense.'Coniral moOule 

• fi industrial grade relays, single pole double Ihrow isolated 
contacts. 2 Amp @ 125 Volts, TIL latched outputs are also 
accessible to drive external solid stale relays 

• B convenient LEDs constantly display the relay states 
Simple' OUT "conimands{inbasic)control fheSrelays 

• S optically- isolated inputs for easy direct interfacing lo 
external switches photocells, keypads sensors etc 
Simple ■TfiiP" commands read the status of the 8 inputs 
Selectable port address. Clean, compact enclosed design 
Assembled, tested, 90 days warranty Price includes power 
suooiy cable connector, superb user's manual $159 



GREEN SCREEN 

XA/ARIMIMQ 

IBM and all the ' biggies aie using green screen momiors 

Its advanlages ate now wioely advertised We leel that every 

TRS-30 user should en|oy the benefits it provides Bui 

WARNING: all Green Screens are not created equal Here is 

what welouhC 

•Several are ]usi a flat piece ol sianQard colored Lucile The 

green tint was not made tor this purpose and is judged Oy 

many to be loo dark increasing the brightness control wil! 

result in a fuzzy display 

•Some are simply a piece of thin plastic film taped onto a 

cardboard Irame The color is satisfactory but the wobbly Mm 

gives It a poo' appearance. 

•One "optical liller" is In fact plam acrylic sheeting 

•False claim' A few pretend to "reduce glare". In laci Iher- 

flat and shiny surfaces [both film and Lucile lypel ADD Iheir 

own tellectlons to itie screen. 

•fl few laughs One ad claims to "reduce screen contrast ' 

Sorry gentleman hut it's lust the opposite One ol the Green 

Screen's ma]or benefits is to increase the contrast between 

the text and the background. 

•Drawbacks: Most are using adhesive strips to fasten their 

screen to the monitor This method makes it awkward to 

remove lor necessary periodical cleaning All (except oursi 

are flat Light pens will not worl( reliably because of the big 

gap between the screen and ihe tube 

Many companies have been manufacturing video filters for 

years We are not itie firsi (some think they arel. bul we nive 

done our homework and we think we manufacture the best 

Green Screen Here is why 

tit fits right onto the picture tube like a skin because tl is the 

only CURVED screen MOLDED exactly to the picture tube 

curvature It is Cut precisely lo cover ihe exposed area of the 

picture tube The fit is such ihat the sialic electricity is 

sufficient to keep ii in place' We also include some invisible 

reusable tape for a more secure fastening 

•The filter material ihat we use is |ust right, not too dark nor 

too light The result is a really eye pleasmg display 

We are so sure that you will never lake your Green screen oti 

that we ofler an unconditional money -back guaramy try our 

Green Screen for 14 days if foi any reason you are noi 

delighted wilfi It, return it for a prompt refund, 

A last word We think Ihat companies like ours who are 

selling mainly by mail should •lisl their street address»have a 

phone number (for questions and orders^accept CODs. not 

every one likes ic send checks to a PO boiwafler the 

con'.'enicnce of charging their purchase lo major credit cards 

How come we are the only green screen people doing i1' 

Order your ALPHA GREEN SCREEN today $1 2 50 



L^a ALPHA Products 



ADO S2 50 PER ORDER FOR SHIPPING AND HANDLING 

ALL OftOERS SHIPPED FIRST CLASS MAIL. 

WE ACCEPT l/ISA, r^ASTEP CHARGE CHECKS t^ 

COD ADDS? DO EXTRA 

QUANTITY OISCQUNTS AVAILABLE "j 

NY RESIQENTSAODSALESTAX H 



79-04JamacaAve.,Woodhaven,N.Y. 11421 S tnfo and order: (212)296*5916 



INPUT 



Erro 



rroR 



The Series 2000 UPS (from Exide 

Electronics), a small uninterruptible 
power supply system, which we listed 
in our August 1982 New Products 
section is not intended for home use 
or with personal microcomputers. It 
is intended for use with minicom- 
puter systems.— Eds. 



The Readers' Choice Awards in 
our August issue lists se\'eral pro- 
grams for the Color Computer by 
MPP Graphics. This company is ac- 
tually Superior Graphic Software, 
who publish a program called MPP 
Graphics (Motion Picture Program- 
ming). We apologize for any confu- 
sion this may have caused any of our 
readers. — Eds. 



10 CLS;FORI=0TO127 :SET(I ,1) :NEXTI 

20 PRIKT010, "IRA/SAVINGS/INVESTMENT ACCOUNT CALCULATOR ":PRIKT:P 

RINT:PHINT 

3 'FOR MOD III ONLY 

40 CLS:L=0: INPUT "MONTHLY INVESTMEKT $";A 

50 INPUT "ANNUAL INTEREST RATE PERCENTAGE" ; B 

60 INPUT "NUMBER OF YEARS TO BE CALCULATED" ;C 

75 G-C*12:H=((1+(B/100) ) [ (1/12) ) -1:L=A* (l-HH) * ( ( ( (l + H) IG]-1)/[1} 

S!0 PRINT"YOUR ACCOUNT BALANCE WILL BE 5";L:PHINT 

100 P-A*G:K-L-P:PRINT"YOUR TOTAL INVESTMENT WAS $";P 

110 PRINT"INTEREST YOU EARNED WAS $" ;K: PRINT: PRINT 

120 INPUT"HIT 'ENTER' FOR ANOTHER CALCULATION" ; AS 

13 IFAS-""T!iENGOTO4 0ELSECLS:END 

Pruf^ram Liiling la 



10 CLS:FORI-0TO127:SET{I,1) :NEXTI 

20 PRINT^al0,"IRA/SAVINGS/I^]VE5THENT ACCOUNT CALCULATOR ":PRINT:P 

R1NT:PRINT 

30 'FOR MOD III ONLY 

40 CLS:L=0:INPUT "ANNUAL LUMPSUM DEPOSIT $";E 
50 INPUT "ANNUAL INTEREST RATE PERCENTAGE" ; B 
50 INPUT "NUMBER OF YEARS TO BE CALCULATED" ; C 
70 F-B/100+1:FORX=1TOC 
80 L={E*F+(L*F) ) :NEXTX:PRINT 

90 PRINT"YOUR ACCOUNT BALANCE V.'ILL BE 5";L;PRINT 
100 P=E*C:K^L-P:PRINT"YOUR TOTAL INVESTMENT WAS S";P 
■110 PRINT"INTEREST YOU EARNED WAS S" ; K : PRINT : PRINT 
120 INPuT"HIT 'ENTER' FOR ANOTHER CALCULATION" ; A? 
13 IFA$=""THENGOTO40ELSECLS:END 

Program Listing lb 



RYDER JR.'S LETTER IN THE JU 



IRA CALCULATOR": PRINT 



'THE ANNUAL INTEREST RATE HAS HISTORICALLY BEEN ABOUT 3% GREAT 
ER THAN THE INFLATION RATE 

1 'THIS PROGRAM SHOWS THE EFFECT OP INFLATION ON SAVINGS 

2 'USE THE TYPICAL ANNUAL SALARY AS AN INDICATOR OF THE VALUE OF 
YOUR SAVINGS 

3 'THIS IS IN RESPONSE TO HOWARD D. 
NE/JULY ISSUE OF 80 MICRO 

4 'ANDREW SHORTER 

5 '2578 SYLVAN RD. 

6 'CUYAHOGA FALLS, OH 44221 
10 CLS:DS = "$S###,###,###.##":PRINTia5, 
40 BB=0: INPUT"MONTHLY INVESTMENT S";M 
50 INPUT''ANNUAL INFLATION RATE (%)";R 
55 INPUT"TYPICAL ANNUAL INCOME S";AI 

60 INPUt"NUMBER of YEARS TO BE CALCULATED" ; NY 

70 A=M*12:PRINT"ASSUMED INTEREST RATE -" ; R+3 : F= ( R+3 ) /100+1 : FORY= 

ITONY 

80 BB=A*F+BB*F:AI=AI*C1+R/100) :NEXTY:PRINT 

90 PRINT"YOUR BANK BALANCE WILL BE" : PRIRTUSINGDS ; BB 

i00 T==A*NY:I=BB-T:PRINT''YOUR TOTAL INVESTMENT WAS " : PRINTUSINGDS ; 

T 

110 PRINT" INTEREST EARNED WAS " : PRINTUSINGD§; I 

120 PRINT"TYPICAL ANNUAL INCOME AT END OF "NY" YEARS IS";:PRINTU 

SINGD$;AI:PRINT: INPUT"HIT ENTER FOR ANOTHER CALCULATION" ; AS 

130 CLS:RUN 

Program Listing 2 



will make a fortune. Unfortunately, 
the banks won't pay what it calculates. 

The calculation method is in error 
and as a result the program overstates 
the value of IRA. 

Mr. Ryder's program shows a $100 
per month, 15 percent, 20 year IRA to 
be worth $141 ,372. 14. The actual value 

is somewhat less, $132,707.34. People 
selling IRAs must, by law, be as accur- 
ate as possible. 

Make the changes shown in Pro- 
gram Listing la; these changes cause 
the program to be accurate only for the 
following case: Investments where 
monthly deposits are made to an ac- 
count that pays interest compounded 
annually and credited at least monthly. 
(Beginning of period payment is 
assumed.) 

Some additional revisions of the in- 
put format and the formula make this 
program apphcable to all IRAs. 

G. Peter Czok 

Depi, 'C Software, Inc. 

212 S. Oak St. 

Owatonna, MN 55060 



Ryder Replies 

I received Mr. Czok's letter concern- 
ing the inaccuracy in my "Make a For- 
tune" program; and to him I say "I 
stand corrected." 

My original program assumed that 
all monthly inputs would have the 
same interest. That's wrong; only 
deposits that have been invested one 
year will receive the annual interest 
percentage. 

See Program Listing lb for the cor- 
rections. 

Howard D. Ryder, Jr. 

6241 5 hi Terrace North 
St. Petersburg, FL 33709 



Infinite Inflation 

I've written a program for the Color 
Computer that shows the effect of in- 
flation on the value of your savings by 
also calculating a typical annual salary 
as the years go by {see Program Listing 
2). This program is based on and 
prompted by Howard D. Ryder, Jr.'s 
program in the June/July 1982 80 In- 
put column, page 17. 

Andrew Shorter 

2578 Sylvan Road 

Cuyahoga Falls, OH 44221 
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HAPPINESS IS...NEWSCRIPT 

THE WORD PROCESSOR FOR 
BUSINESSMEN AND PROFESSIONALS 

We offer you ongoing support by answering 
your questions and providing reasonably 
priced enhancements. 

A FEW OF NEWSCRIPT'S STANDARD FEATURES: 

*Form Letters with merging oi names and addresses 
*Gives superb appearance to your final documents 
*Comprehensive manual with hundreds of examples 
•Centering, top/bottom titles, indents, pagination 
•Underlining, boldlace, double-width, italics* 
*Sub-scripts. super -scripts, proportional pitch ■ 
•Generates Table of Contents, sorted Index 
•Allows block graphics, special symbols t 

•Search and replace globally or within a range 
•Block move, copy, delete, insert from other file 
•AUTOSAVE, WHOOPS. DIRECTORY, KILL. REPEAT 

•Based on IBM's "EDGAR- and "SCRIPT" systems 
•Supplied ready-to-run on "tiny" DOSPLUS 

•Easily transferred to NEWDOS. NEWDOS/80, LDOS. TRSDOS 
•Includes handy Quick Reference Card 

NEWSCRIPT CONTROLS THESE PRINTERS: 

•EPSON MX-80. MXIOO: all 12 fonts, plus underlining 
and block graphics; italics with GRAFTRAX 

•Centronics 737. 739; Radio Shack L.P. IV, L.P. VIII. Prowriter, 
Daisy Wheel II. NEC PC-8023A, TEC 8500R, C.ITOH 8510: 
Right-justified true proportional printing 

*Good support tor: Diablo, Spinwriter. Starwriter. QUME, Microline 
Anadex, modified SeJectric, standard line printers 



' NOW AVAILABLE: right-justified true proportional support for 
Diablo, Spinwriter, Starwriter, and Qume (Da'isy Wheel Option)** 




TYPICAL USER AND REVIEWER COMMENTS: 

"There is a new word processor on the market that will change the way people think about the capabilities of the TRS-80. Imagine a 
powerful mainframe text editor running on a THS-80, with virtual compatibility between the twc versions. . .on-going support second to 
none, wifh superb documentafion." dim Klaproth, 80-U.S. JOURNAL February, 1982) 
the manual: 

"It definitely rates the first '10' given to any documentation reviewed in this column," (A. A, Wicks, COMPUTBONICS. October, 1981) 

the software: "An excellent Word Processor" (D.H.): "Absolutely fantastic" IS.E.SJ; "You have features that I cannot duplicate 
on my SI4.000 system" (J.B.I 

the support: 'Tour phone in/ormafion system and the prompt and courteous staff that you provide to help your ciients.-.are worth 
the cost of the system." (V.H.H.i 



REQUIRED CONFIGURATION: 48K TRS-80 with 
one disk drive. Specify Model 1 or Model III. 

+ Some (ealures work only it youi printer has the mechanical capability. 
Daisy Wheel proportional is extra-cost option. 

TO ORDER, CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

CALIF; (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 

Order from your Software dealer, or from: 



^91 



PROSMf 



TM 



NEWSCRIPT 7.0: $124.95 

MAILING LABELS OPTION: 29.95 

Special: NEWSCRIPT + LABELS: 139.95 

Daisywheel Proportional Option: 49.95 

*TENCIL"/"SCRIPSIT" FUe Convertor: 14.95 

Manual Only (180 pages): 30.00 

Reference Card Only: 2.50 

Electric Webster + Correction Feature: 149.50 

Graphics Editor and Programmer 2.1: 49.95 

GEAP & Dotwriter (Hi-Res. letters) 1.5: 99.95 

DOSPLUS 3.4: 149.95 



DEPT. C, BOX 560 • NO. HOLLYWOOD, CA 91603 



TERM&VIe accept VISA. Mastercard, checks. Money Orders, C.O.D. and 
even cash, We pay shipping via surface UPS mside U.S.A. Please add 
S3. 00 (or Blue Label, 6% lax in Caliiornia, and 15% outside Notlh Amer- 
ica (air shipmenl). 



INPUT 



A Timely Directory 




3425 LPRINT ":DIRECTORY PRINTED "; 


Novices Turned Off 


I welcomed with interest the article 


LEFT${TIME$,8): LPRINT 


1 applaud your new column "For the 


"Lost and Found" {80 Micro, June/ 
July 1982) by Robert Athanasiou on a 
disk directory for the Model III. I've 
added two lines to the program to 
make it more useful. 


In this manner each printout is auto- 
matically dated with the current date 
(if it is put in correctly at the start of 
the day). 


Novice" (80 Micro, June/July 1982). 
Unfortunately, if the first one is any in- 
dication, more novices will be turned 
off by them than will learn anything 
useful. Mr. Lemley's merge routine 










Alan P. Brockway 


sounds extremely useful and would fill 


3215 LPRINT "DIRECTORY PRINTED "; 






7146 Inca Way 


a need which everyone, novice or not, 


LEFT$(TIME$,8):LPRINT 








Denver, CO 80221 


has from time to time. 




As printed, however, the program 
does not work! After typing in the 16K 










We have received many letters from readers and advertisers telling us that 


routine, CSAVEing and verifying it. 


we forgot to include this program or that program in 


the Readers' Choice 


the Run command got only an "?0D 


Awards (August 1982), so we have corapilec 


an addendum to fill in some 


. ERROR IN 20" message. Counting 


of the blanks. 








the data items yielded 115 numbers. 


A final addendum 


will be published with the results in the January 


Subtracting 32595 from 32712 yields 


1983 issue.— Eds. 








117. This means the loop needs 118 
numbers. Further checking revealed 


Program 


Company 


Machine 


Categor>' 


the same figures in the 32K and 48K 


ACCT-3 


Micro Architect 


l/lll 


Accounting 


routines. Changing the loop to read 


AR {Accounts Receivable) 


Micro Architect 


l/lll 


Accounting 


only 115 items allowed me to run the 


Autofile 


Snappware 


in 


Utility 


program but attempts to use it via the 


Automap 


Snappware 


in 


Utility 


USR( ) call bombed out. When I tried 


Billing System 


Computer Shack 


i/ni 


Accounting 


to delete the garbage resulting from the 


Boss 111 


Soft Sector Marketing 


in 


Utility 


unsuccessful USR call, the entire sys- 


CCA Data Management 


F/S Associates 


II 


Business 


tem crashed all the way to "MEM 


Check writer 


Computer Shack 


i/iii 


Accounting 


SIZE?". 


Color Accountant 


Programmer'^ Institute 


CC 


Accounting 


Color Wordclone 


1MB 


CO 


Word Processor 


You owe your readers something 


COLORCOM/E 


Eigen Systems 


CC 


Data Communications 


better than this. Some of us may be 


Colorzap 


Software Options 


CC 


Utility 


capable of correcting minor errors in a 


COPSYS 


Computronics 


I/III 


Utility 


Basic listing, but for a machine-lan- 


Copy-Tape 


Modtcc 


I/III 


Utility 


guage listing, errors of this magnitude 


Data Ace 


Computer Software Design 


II 


Word Processor 


are inexcusable. 


Data Wiltcr 


Software Options 


I/III 


Data Base Manager 


Bud Myers 

2 Church Si. 

Box 498 


DSM 
DSMBLR 


Racet Computes 
Misosys 


1, II, in 
i/iii 


Utility 

Utility 


Flex 


Frank Hogg Laboratory 


CC 


Utility 


Forthwrite 


MMSFORTH 


i/iii 


Word Processor 


Washburn, ME 04786 


GL (General Ledger) 


Micro Architect 


i/in 


Accounting 




I DM 


Micro Architect 


I/III 


Data Base Manager 




in\'entory Control System 


Micro Architect 


i/in 


Business 


Bruised Routine 


Invoice System 
KFS-80 

Microproof 


Computer Shack 
Racet Computes 
Cornucopia 


i/in 
I, n, III 
i/iii 


Accoimting 

Utility 

Spelling Checker 


In reference to Jay Chidsey's article 
"For the Novice" {80 Micro, June/ 


Money Manager 


Acorn Software 


i/iii 


Business 


July 1982, p. 148), I've discovered an 


Pa>Toll 


Micro Architect 


I/III 


Accounting 


error. Line 20 reads: READ Y:POKE 


Personal Finance 


Radio Shack 


CC 


Business 


X,Y. For a 32K or 48K machine this 


Piiot 


Barker Software. 


i/ni 


Utility 


line should be READ Y:POKE 


Postman Mass Mailing 


Soft Sector Marketing 


I/III 


Buisiness 


X-65536,Y. 


Programmer's Program 


Programmer's institute 


CC 


Education 


William C. Hardin, Jr. 


Remodel + Proload 


Racet Computes 


I/III 


Utility 


6613 Summerline Place 


RSTERM 


Radio Shack 


I/III 


Data Communications 




Small Business Accounting 


Howe Software 


i/ni 


Accounting 


Charlotte, NC 28211 


Smart Terminal Program 


Mumford Micro Systems 


I/III 


Data Communications 




Stockeharl-l 


Micro Investment Software 


I/III 


Business 




Super Directory 


Computer Shack 


i/ni 


Utility 




Superscript 
System Three 


Acorn Software 

Contract Services Associates 


I/III 

I/IU 


Utility 
Business 


Jay Chidsey Replies 


Taxplan 


Contract Services Associates 


I, II, III 


Business 


Mr. Myers and others who have 


The Stripper 


Eigen Systems 


CC 


Utility 


written me directly are right. Only 115 


Versa Payroll 


Computronics 


I, II, III 


Accounting 


items appear in the merge program as 


VisiCalc 


VisiCorp 


I/III 


Business 


printed, and there should have been 
118. Line 60 as printed occupies two 
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Convert to CP/M 
and Save. 

Unprecedented Sale for Model III Customers. Call for Details. 



The Trouble with TRS-DOS. 

Although TRS-DOS is an excellent operating system, it 
has one major disadvantage. When compared with CP/M, 
TRS-DOS locks you into a limited and possibly dead-end 
course. When you are ready to upgrade to a new computer, 
it is likely that none of your present software will run on 
the new machine. All of the time and money you have 
invested in TRS-DOS software will be lost. 

CP/M for the TRS-80. 

Converting to CP/M offers the TRS-80 owner many advan- 
tages. The TRS-80 immediately becomes capable of run- 
ning twice the software of any other computer on the 
market. Perhaps more importantly, CP/M permits soft- 
ware portability. Unlike TRS-DOS programs, CP/M pro- 
frams can be directly transfeired to your next computer, 
'he savings in time and software costs can be quite sig- 
nificant. CP/M conversion can easily pay for itself with the 
money saved on one or two software purchases. The sooner 
you convert to CP/M, the more you stand to save. 

CP/M Acquires Unprecedented Support. 

Over the past year, a number ut powerful competitors 
have introduced new microcomputers. Most people will 
instantly recognize the names of Xerox, IBM, Hewlett- 
Packard, Digital Et^umment and Zenith, The Japanese 
companies, Sony. NEC. Sanyo. Toshiba and Sharp, are 
equally well-known. Together, these companies have com- 
mitted over a billion dollars to compete effectively in the 
micro market, TRS-80 owners should be aware that every 
one of these companies has chosen CP/M for their stan- 
dard operating system. Over the next few years, these 
companies will sell millions of CP/M computers. Consid- 
ering these facts, it is clear that CP/M is the operating 
system of the future. 

Apple and Commodore Offer CP/M. 

In a recent press conference, the Apple Computer 
Company stated, "The largest installed base CP/M system 
in the world today is the Apple II with the Z80 card from 
Microsoft!' In a recent full page ad in the Wall Street 
Journal, Apple announced CP/M for the Apple 111, 
Commodtjre, refusing to be left behind, has recently 
announced their "Emulator" series of computers that sup- 
port CP/M. There are even rumors that the new Tandy 16 
will support a version of CP/M. 



Plan Ahead. 

The Omikron "Mapper" offers the ideal step to upgrading 
to a newer, more powerful computer. With the "Mapper, 
your TRS-80 can run both CP/M programs and TRS-DOS. 
With CP/M, you can build a software library that's fully 
compatible with the newest CP/M business computers. 
All of the time and money you spend on selecting, pur- 
chasing, and learning CP/Nl software can be considered 
an investment in the future, in addition, your old TRS-80 
can gain a new lease on life as a fully compatible back-up 
unit. Ccmsider all these points carefully. The Omikron 
"Works" package offers the best solution for protecting 
your investment in the TRS-80. By choosing the "Works? 
you can purchase a "Mapper" and also receive over$l,000 
worth of top-quality CP/M software. Value, Utility, per- 
formance — Omikron offers you more than ever before. 



COUGAR . . . Omikron's Users Group. 

CP/M has always been the standard for business and pro- 
fessional use. This market has always demanded high 
quality and high performance. The high prices for CP/M 
programs reflect the additional effort required to develop 
top-quality software products. To help our customers afford 
CP/M software, Omikron has formed Cougar, our official 
users group. Through Cougar. Omikron can purchase 
software products in large volume. This allows us to offer 
our customers some of the best CP/M software in the 
industry at greatly reduced prices. 



Omikron Puts It All logether. 

Omikron has sold more CP/M conversions than all of our 
competitors combined. Omikron w^as the first in the mar- 
ket with a CP/M conversion. Omikron has continued to 
lead the market for one simple reason — our total commit- 
ment to our customers. Only Omikron offers a "Works" 
type introductory package. Only Omikron has a "Cougar" 
type users gnjup for long term savings. Our hardware has 
always been designed with reliability first. Our software 
is well designed, complete, and bug free. Our technical 
hot line assists those with problems. Finally, our exchange 
policy has enabled our customers to upgrade to our new 
designs for much less than the cost to new customers. 
When you buy from Omikron, you buy from a company 
with a proven record of dedication and success. 



OMIKRON 



Products that set Precedents 

1127 Hearst Street, Berkeley, CA 94702 (415) 845-8013 



TRS-80™ Radio Shack/Tandy Corporofion 



^50 Wordstar™ Micro Pro 



CBASICII, CP/M™ Digital Research 



INPUT 



MEM 


SIZE 


FORX = 


16K 


32649 


32650 


32K 


49033 


- 16502 


48K 


65417 


-118 



TO 


POKE 


DATA 


32767 


138 


127 


- 16385 


138 


191 


-1 


138 


255 



Table I 



lines of type. The last three entries of 
the top line are I, 174, 124. Insert the 
missing entries, 181, 40, 13 following 
these. The three entries following the 
missing ones are 175, 25, 229, on the 
second printed line of line 60. 

James L. Friddle of Van Buren, AR, 
writes to protest that he is the original 
author of this program. It appeared in 
the May 1981 issue of Popular Elec- 
tronics on pages 82-83 under his name. 
Thanks and prof ound apologies to Mr. 
Friddle. Apologies also (a Ziff Davis, 
publishers o/ Popular Electronics. 

Mr. Friddle has these tips for using 
the program. When you use the routine 
on a Model III change the last data 
item in line 50 from 66 to 67. He adds 
"Cassette tapes made under Disk Basic 
will not work unless you first CLOAD 
them and then CSA VE them again; 
this allows the TRS-80 to correct the 
addresses on the tape. ' ' 

The problems with using the merge 
routine on 32K or 48K machines can be 
solved by reference to Table 1. MEM is 
the amount of RAM (Random Access 
Memory) in your computer. SIZE is 
the figure to be entered for MEMOR Y 
SIZE. FOR X = isthe start number in 
line 10, and TO is the end number. For 
a 48K machine line 10 would read FOR 
X = -118TO -1. 

If you change the POKE addresses 
in line 80 from 16526 and 16527 to 
16780 and 16781 you can use the Disk 
Basic Merge command, even though 
you do not have disks, instead of the 
USR command specified in my col- 
umn. Just lee up your second, to-be- 
merged tape, depress the play key on 
the cassette recorder, and enter 
MERGE. 

Jay Chidsey 

205 East Adams St. 

Green Springs, OH 44836 



In a Loop 

I purchased my TRS-80 (4K, Level I) 
when it had just hit the market. I chose 
the TRS-80 because I wanted to be able 
to expand and upgrade it for a future 
22 • 80 Micro, Novemben 982 



small business. When I purchased the 
machine I was promised that any fur- 
ther hardware and software modifica- 
tions would always be compatible with 
the Model I and that upgrading would 
be no problem. 

After reading the open letter from 
Mr. Stein ("Expansion Interface Wor- 
ries," 80 Input, June/July 1982) and 
the response from Mr. Juge, you can 
imagine my fix! 

I would appreciate any information 
from you or readers regarding the pros 
and cons of expansion of my Model I 
system without Radio Shack's sup- 
port. Should 1 take some microelec- 
tronics classes? How can I tell if a used 
expansion interface is good? 

Carnella Gordon 

1 71 Caine A ve. 

San Francisco, CA 94112 

We'll be looking in detail at hard- 
ware modifications for your TRS--80 in 
a future issue. — Eds. 

CC Speaks? 

1 have heard, and know for a fact, 
that the Color Computer (with 16K 
and Extended Basic) has an internal 
program for voice synthesizing. I have 
heard this on Radio Shack's Slalom 
cartridge and I'm sure it uses machine 
language. How can I access this hidden 
voice and use it in my programs? Spec- 
tral Associates makes Compuvoice, but 
paying $45 to access something that's 
already in the computer is a little steep. 

Michael A. Hesser 

21101 W. 71st Street 

Shawnee, KS 66218 



No, Michael, the Color Computer 
has no on-board voice synthesizer. Ex- 
tended Color Basic does have sound 
and music commands, however, which 
can be used to simulate voice-like 
sounds. Obviously, this sound capabil- 
ity is built into the CC and can be ac- 
cessed by machine-language routines 
in addition to the EC Basic commands. 



But to obtain true voice synthesis, you 
will have to buy some additional hard- 
ware. By the way, look for an article 
on how to simulate voice with the CC 
in an up-coming issue. — Eds. 



Faster Loc-Editor 

Since there was an unexpected re- 
sponse to my program Loc-Editor 
{80 Micro, April 1982, p. 206) I wish to 
pass along a small fix to enhance ex- 
ecution speed. 

Change the DIM in line 31000 to 
read DIM GJ%, L!, JU%, XP!, YP!, 
KU%, ZW!, BZ$, UU$, B$(145). 

If you wish to renumber the pro- 
gram so you can use Loc-Editor with 
program lines higher than 32767 
change the following: ZW to ZW! XP 
toXP! YPtoYP! LtoL! 

Jon Mark O'Connor 

56 Eustis Parkway 

Waterville, ME 04901 



Lazy Fingers 

To use my program "Telephone 
Dialer" (80 Micro, June/July 1982, p. 
161) on the Model III simply change 
OUT 255,4 to OUT 236,2 and OUT 
255,0 to OUT 236,0. 

Jim Hickey 
P.O. Box 3123 

Clearlake, CA 95422 

Adding Lines 

The article "Lost and Found," a 
disk directory for the Model III (80 
Micro, June/July 1982, p. 294) needs 
two lines added to the program to 
achieve the desired results. These lines 
are 3215 POKE 16427,78 and 3425 
POKE 16427,78 

The default value for paper width 
will result in printing on the roller if 
8'/2-inch paper is in the printer. The 
columns will not line up under the 
headings without these additions. 

Charles C. Wright 

P.O. Box 1151 

San Ysidro, CA 92073 



Speed-up kit for Mod III 

Since you have recently published 
some other correspondence about a 
4MHz speed-up kit sold by Archbold 
Electronics for the Model I (80 Micro, 
June/July 1982), I would hke to offer a 



From Computer Plus to YOU . . . 
PLUS .». PLUS after PLUS 




BUY DIRECT 



Here are just a few of our fine offers . 
calf TOLL FREE for full information. 



MODEMS 

Lynx Direct Connect Ml/Mltl 
Hayes Smart Modem II 
Telephone Interface II 
R.S. Modem I D.C. 
R.S. Modem II D.C. 
PRINTERS 
Daisy Wheel II 
DWP-410 

Smith CoronaTPIDaisyWheel 
Epson MX80 
Epson MX80 FT 
Epson MX100 
CGP-115 
DMP-100 
DMP-200 
DMP-400 
DMP-500 
MicrolineSO 
Microline82A 
Microline83A 
Microline 84 Parallel 
P. C. Plotter Printer 

We have ttie lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



Prices subject to change without notice. 
Not responsible tor typographical errors. 
TRS-80 is a registered trademaric of Tandy Corp. 



COMPUTERS 

Model III 4K LEV I 
MODEL liM6K 
MODEL III 32K 

•MODEL III 32K 
MODEL III 48K 

•MODEL III 48K 
Model III 48K 
2 Disk & RS232 c 
Color Computer 16K 
Color Computer 16K 
w/extended basic 
Color Computer 32K 
w/extended basic 

JColor Computer 32K-64K 
w/extended basic 
Pocket Computer 2 
Model 16 1DRi28K 
ModeM6 2DR128K 
DT-1 Data Terminal 



S599 

799 

856.50 

831.50 

914 

864 

1899 
249 

335 

449 

510 

230 

4199 

4799 

599 




235 
235 
169 
130 

210 

1715 

1335 

599 

599 

549 

735 

-199 

315 

599 

1029 

1569 

325 

425 

679 

1029 

199 



DISK DRIVES 

R.S, Model III IST-Drive 
Tandon40TrackMl 
Color Computer Drive 1 
Color Computer Drive 
Primary Hard Disk Mil 
Primary Hard Disk Mill 
ETC. 
CCP-81 recorder 
C.C Joysticks 

16K RAM N.E.C. 200 N.S. chips 
64K Ram Chips 
Color Computer Flex D.O.S, 
Brand Name Software • 

Send for listing. 
R.S. Software 10% off list 

"Computer Plus New Equipment, 

wittiNECRAMinstaiied. 

180 Day Computer Plus Warranty. 

tColor Computer 64K requires 
Disk and Fiex D.O.S, 



679 
289 
315 
470 
3999 
1999 

52 
22 

25 
75 
99 



TOLL 
1-800-143-8124 



(^18 





com 



P.O. Box 926 

480 King Street 
Littleton, MA 01460 
617-486-3193 



plus 

I Write for your 
free catalog 



y^See List of Advertisers on Page 455 
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comment about speeding up the Model 
III. I've made a few inquiries about 
speed-up kits from various sources and 
found that some of them do not offer 
the ability to switch clock speed from 
the normal (approximately 2MHz) 
speed supplied by Tandy to the high 
speed supplied by the modification. 
Failure to provide this switch-con- 
trolled speed option apparently means 
that the user has to avoid using some of 
the popular disk operating systems that 
are not compatible with 4MHz. 

J.E.S. Graphics, of Tulsa, OK, of- 
fers a 4MHz modification for the 
Model III that has this switch feature. 
Their three-position switch offers nor- 
mal 2MHz operation, high-speed oper- 
ation at all times, or high-speed opera- 
tion except for during disk I/O. I have 
used one of these modifications sup- 
plied by J.E.S. Graphics for several 
months now. It has been very satisfac- 
tory, so much so that I would hate to 
have to go back to 2MHz operation. In 
fact, now that the warranty has run out 
on my second Model III, I have or- 
dered a second 4MHz modification 
from J.E.S. Graphics for my other 
computer. 

Thomas H. Ledford 

2322 West Highmeadow Court 

Baton Rouge, LA 70816 



Cheater 

The article "Cheater's Poker" by 
Richard Davies {80 Micro, December 
1 98 1 , p. 356) is a very nice program to 
automatically generate data state- 
ments. I've added a small segment for 
those who don't own disassemblers yet. 

Converting decimal memory values 
to hex code (so that you can do a man- 
ual disassembly) is, at best, boring and 
at worst, prone to error. My addition 
(Program Listing 3) does this task and 
sends the output to a line printer. 

Lines 12 and 15 select the DATA 
MAKE segment (the original program) 
or the hex-equivalent add-on. In lines 
20 and 30 I have added the "IF 
ASC(S$)>70" test to eliminate hex ad- 
dresses beginning with G-Z. I added 
line 35. Line 65 selects the program 
sequence. 

Line 240, GOSUB 10000, is where 
the PEEKed contents are converted to 
a four-character hex code. In lines 
250-280 the two leading zeros are 
stripped and the resultant two- 
character code is printed, 20 to a 
printer line. 

Nate Salsbury 

608 Madam Moore 's Lane 

New Bern, NC 28560 



1 REM Supplement to "Cheater's Poker" 
80 Micro, December 1981 

Nate Saisbury 

608 Madam Moore's Lane 

New Bern, NC 28560 

"(1) MAKE DATA STATEMENTS FROM MEMORY (2) PRINT HEX EQU 

INPUT XI: IF XlOl AND X102 THEN 12 
20 LINEINPUT "START ADDRESS (DECIMAL OR HEX) = ";S5; IFASC(SS)>7 
0THEN 35 ELSE IF RIGHTS(SS,1) = "H" THEN INS = LEFT$ ( SS , (LEN ( SS) 
)-l)! GOSUB 20000: SD-D: SH$=S5: ELSE D = VAL(S$): GOSUB 10000: 
SHS=BS+"H": SD=D 

DECIMAL OR HEX) = ";E$: IF ASC(ES)>70 
IF RIGHT$(ESrl) = "H" THEN INS = LEFT 
0: ED=D: EHS=E$ ELSE D = VAL(ES): GOS 



2 


REM 


3 


REM 


4 


REM 


5 


REM 


6 


REM 


7 


REM 


i; 


PRINT 


IVALENTS" 


1 = 


PRINT: 



30 LINEINPUt "end ADDRESS 

THEN 35 ELSE E = VAL(ES) : 
S(ES,LEN{ES)-1) : GOSUB 200 
UB 10000: EHS=BS+"H": ED-D 
35 PRINT "ERROR - INVALID ADDRESS ( ES) " : GOTO 20 
65 IF Xl=2 THEN 200 
200 INPUT "TURN ON PRINTER. HIT ENTER TO CONTINUE, " ;XS 



210 LPRINT "STARTING ADDRESS =" SD 



SHS 



ENDING ADDRESS =" 



ED 



: LPRINT: LPRINT 



EH$ 
220 PA=SD 

230 FOR Cl=l TO 20 
240 D = PEEK{PA): GOSUB 10000 
250 LPRINT " " RIGHTS(B$,2) " " ; 

260 PA=PA+1: IF PA>ED THEN Cl=20: NEXT Cl: GOTO 290 
270 NEXT Cl 
280 LPRINT: LPRINT: GOTO 230 

1) MORE TO DO (2) FINISHED" 
IF X=l THEN 12 ELSE IF X02 THEN 290 



290 PRINT "i 
300 INPUT X; 
310 END 



Program Listing 3 



Pcrcom Disk Storage 

Quality Parcom products are available from the 
following authorized Percoin retailers. If a retailer 
is not listed for your area, call Percom toll free at 
1-800-527-1222 for the address of a nearby 
retailer, or to order directly from Percom, 

AKKANSAS 
MICF^OCOMPUTER SYSTEMS, INC. HolSprings (501)623-5209 

ARIZONA 
SIMUTEK Tucson (602) 323-9391 

CALIFORNIA 
ALPHA BYTE STORES Calabasas (2131 883-8594 

BERKELEYMICRO COMPUTERS Beikeley (415) S48-7122 

COMPUTER INFORMATION EXCHANGE 

San Luis Rey (7141 757-4849 
HOBBYWORLD Northridge (213) 886-9200 

RAY'S AND DON'S COMPUTERS WhitUer (2131 695-3248 

DISTRICT OF COLUMBIA 
( 1 (E PROGRAM STORE VVash:nt!ton (202) 363-9797 

FLORIDA 
EN-TRON, [NC. Largo (813) 536-5012 

HAWAII 
COMPUTER CENTER Honolulu (808)488-2171 

IDAHO 
OFFICE MAGIC COMPUTERS Boise 12081 376-4613 

[[)AHO MICROCOMPUTER Buhl 12081 543-6292 

KANSAS 
BESCO B.ECTRON1CS Shawnee 1913) 268-7633 

SALES DATA Hutchinson (800) 835-0071 

DATASERVICES.INC. Wichita (3161838-9021 

MASSACHUSETTS 
I Hh lil [ liUCKL I West Newton KiU) 964-3080 

MARYLAND 
DAMASCUSC.B. Damascus [3011253-2101 

MICHIGAN 
ALfERNATE SOURCE Lansing (517) 482-8270 

MINNESOTA 
THE CODE ROOM Eden Prairie (6121934-1826 

MISSOURI 
LLMBLRGCr-tCO Vienna (314)422-3353 

NEBRASKA 
CURTROMCS Lincoln 1402) 423-7771 

NEW HAMPSHIRF, 
THiNKTANK Portsmouih (603)431-1077 

TSE I lARDSICJE Miliord (603) 673-5144 

NLW JERSEY 
CHANNEL 1 RADIO SHACK Medfoid (6091 654-7454 

DA & D SALES Bloomfi^ (201 ) 751-8444 

NEW YORK 
H & E COMPUTRONICS Spring Valley (9141 425-1535 

PROGRAMS UNUMITKD Jericho (8001645-6038 

STONY CLOVE New York City (212) 675-1046 

DATASCAN COMPUTER SYSTEMS INC, 

Farmingville (516) 698-6285 

NORTH CAROLINA 
HOLLiDAYMFC Greensboro (919)274-6346 

OHIO 
FELDMAN ENTERPRISF.S Akron (216) 724-5583 

OKLAHOMA 
ONLINE COMPUTER CENTHR Oklahoma City (405) 751-2796 

OREGON 
PIONEER ELECTRONICS .. Sandy (503)668-8666 

PENNSYLVANIA 
COMPUTER ANALYSTS NevuBrighton (412)846-9323 

TEXAS 
PERCOMCOMPUTERCENTER Richardson (214)690-0207 

COMPUTER TO GO Austin (512) 472-8926 

UTAH 
MICRO MNEMONICS Sunset (801) 825-9317 

VIRGINIA 
BURCO DISTRIBUTORS Richmond (804)222-1481 

WASHINGTON 
COMPUTER SERVICES Kennewick (5091 582-9759 

NORTHWEST COMPUTER SERVICE Belluue (206) 454-4979 

WEST VIRGINIA 
BURCO DISTRIBUTORS Huntmgion (3041 453-6387 

WISCONSIN 

BYTE SHOP MILWAUKEE Greenfield (414)281-7004 

FOREIGN DEALERS 

AUSTRAUA 

DICK SMITH ELECTRONICS P.O. Box 321 North Ryde NSW2113 

CANADA 
ALPHA ONE Edmonton (403) 454-8409 

VALERIOTE AND ASSOC, Guelph Ontario [416) 624-4899 

DRV COMPUTERS, UrO, SutieyB.C. (604)576-8535 

COTS MICROSYSTEMS, LTD, Ottawa (6131741-7937 

MICRO-COMP ENTERPRISES. INC, Pickering (416) 839^1561 

MICRO MART Montreal (514) 731-9486 

MEXICO 
COMPUTADORAS Y A5ESORAMIENTO 

RloPanvcoM Mexico 5 DF. 

DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo (8091 565-9121 
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Percom^s DOUBLER 11 tolerates wide variations in media, drives 



GARLAND, TEXAS — May 22, 1981 — 
Harold Mauch, president of Percom Data 
Company, announced here today that an im- 
proved version of rhe Company's innovative 
DOUBLER® adapter, a double-density plug-in 
module for TRS-80' Model 1 computers, is 
now available. 

Reflecting design refinements based on both 
theoretical analyses and field testing, the 
DOUBLER II , so named, permits even great- 
er tolerance in variations among media and 
drives than the previous design. 

Like the original DOUBLER, the DOU- 
BLER II plugs into the drive controller IC 
socket of a TRS-80 Model I Expansion Inter- 
face and permits a user to run either single- or 
double -density diskettes on a Model I. 

With a DOUBLER II installed, over four 
times more formatted data — as much as 364 
Kbytes — can be stored on one side of a five- 
inch diskette than can be stored using a stan- 
dard Tandy Model I drive system. 

Moreover, a DOUBLER II equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note; See "OS-80®: Bridging the TRS- 
80* software compatibility gap" elsewhere on 
this page. ) 

The critical clock-data separation circuitry 
of the DOUBLER II is a proprietary design 
called a ROM-programmed digital phase-lock 
loop data separator. ~^ 

According to Mauch, this design is more 
tolerant o{ differences from diskette to diskette 
and drive to drive, and also provides immunitx 
to performance degradation caused by circuit 
component aging. 




Percom DOUBLER IP 



Mauch said "A DOUBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase-lock loop also eliminates 
the need for trimmer adjustments typical of 
anaioi^ phase-lock loop circuits. 

"You plug in a Percom DOUBLER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
effectively minimizes the phenomena of bit- 
and peak- shifting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER II, which is fully software 
compatible with the previous DOUBLER, is 
supplied with DBLDOS''\ a TRSDOS'- 
compatible disk operating systqni. 

The DOUBLER II sells for $?J^5, includ- 



mg the DBLDOS diskette. 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



GARLAND, TEXAS — The Percom 
SEPARATOR'' does very well for the Radio 
Shack TRS-80' Model 1 computer what the 
Tandy disk controller does poorly at best: reli- 
ably separates clock and data signals during 
disk-read operations. 

Unreliable data-clock separation causes for- 
mat verification failures and repeated read 
retries. 

CRC ERROR-TRACK LOCKED OUT 

The problem is most severe on high-number 
(high-density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separator of the 1771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a high- 
resolution digital data separator circuit, one 
which operates at 16 megahertz, for the low- 
resolution one-megahertz circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — for example, two- or four- 



megahertz — were found by Percom to provide 
only marginally improved performance over 
the original Tandy circuit. 

The Percom solurion is a simple adapter that 
plugs into the drive controller of the Expansion 
Interface (EI). 

Not a kit — some vendors supply an un- 
tested separator kit of resistors, ICs and other 
paraphernalia that may be installed by mod- 
ifying the computer — the Percom 
SEPARATOR is a fully assembled, fully tested 
plug-in module. 

Installation involves merely plugging the 
SEPARATOR into the Model I El disk con- 
troller chip socket, and plugging the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95, may be purchased from authorized Per- 
com retailers or ordered directly from the fac- 
tory. The factory toll-ftee order number is 
1-800-527-1222. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. , 



The Percom DOUBLER II is available from 
authoriied Percom retailers, or may be ordered 
direct from the factory. The factory toll-free 
order number is 1-800-527-1222. 



Ed. note: Opening the TRS-80 Expansion In- 
tprfafF- mav void the Tandy limited 90-day 



terface may 
warranty, 



y' 1 



All that glitters is not gold 

OS-80® Bridging the TRS-80* 
software compatibility gap 

Compatibility between TRS-80* Model I tiisketles 
and the new Model [II is about as genuine as a gold- 
plaicd lead Krugerrand. 

True, Model I TRSDOS"* diskettes can be read an 
a Model III, But first they must be converted and re- 
recorded for Model 111 operation. 

And you <'annot wriie to a Model I TRSDOS'*^ dis- 
kette. Not wifh a Model 111. You cannot add a file. 
Delete a file. Or in any way modify a Model I 
TRSDOS diskette with a Model III computer. 

f-'urlliermore, your converted TRSDOS diskettes 
cannot be converted l^acli lor Model I operation. 

TRSDOS is a one-way street. And there's no re- 
treating. A point to consider before switching the 
company's payroll to your new Model Hi, 

Real software compatibility should allow the (//- 
rect. immediate interchangcability of Mode! 1 and 
Model III diskettes. No read-only limilaiions, no 
con vers ion ■re- recording steps and no chance lo be 
left high and dry with Model HI diskettes that can'l 
be run on a Model 1. 

What's the answer? The answer is Pereom's OS- 
^(V" family of TRS-SO disk operating systems. 

OS-SO programs allow ilirca. immediule inter- 
changeability ol Model I and Model III disketles. 

You can run Model I single-den,siiy diskettes on a 
Model HI: install Pereom's plug-in DOUBLBR'^'J 
adapter in your Model I, and you can run double- 
density Model HI diskettes on a Model I. 

There's no conversion, no re-recording. 

Slip an OS-KO diskette out of your Model I and in- 
sert it directly in a Model III, 

And vice- versa, 

Jusi have the correct OS-SO disk operatinu sys- 
tem — OS-HO, OS-fiOD or OS-80/IiI -- in each com- 
puter. 

Moreover, with OS-80 systems, you can add. de- 
lete, and update files. You can read ami write disket- 
tes regardless of the system of origin, 

OS-SO is the original Percom TRS-SO DOS for 
BASIC programmers. 

Even OS-80 utilities are written in BASIC. 

OS-HO is the Percom system about which a user 
wrote, in Creative Computing magazine, '". . .the best 
.S30.00 you will ever spend.'"*" 

Requiring only seven Kbytes ot memory. OS-80 
disk operating systems reside completely in RAM. 
There's no need lo dedicate a drive exclusively for a 
system diskette. 

And, unlike TRSDOS. you ean work at !he track 
sector level, defining and controlling data formats — 
in BASIC — to create simple or complex data struc- 
tures that e.\ecute more quickly than TRSDOS tiles. 

The Percom OS-80 DOS supports singlc-dcnsily 
operation of the Model I computer — price is 
S29.9,t; the OS-8()D supports double-density opera- 
tion of Model I computers equipped with a tXiUB- 
LCR or DOUBLER H; and, OS-SO/III - for the 
Model III of course — supports both single- and 
double-density operation. OS-80D and OS-S0..HI 
each sell for $49.95, 



PRICES AND SPECIFICATIONS SUBJECTTOCHANGEWITHOUTNOTICE, PRICES DONOT INCLUDE HANDLING AND SHIPPING. 

PERCOM DATA COMPANY, INC. 11220 Pagemill Road Dallas, Texas 75243 (214) 340-7081 

■^Tiade mark of Percom Data Company, Inc. "TRS-SO and TRSDOS are trademarks of Tar.dvCorroranonwhicl! has no relaiionshipm Percom Dars Compjny -ICreativeComputineMaeaiine, June, 1980, fagc 26. 
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Baud Rate Fix 

While testing the programmabie 
baud rate modification (80 Micro, 
May 1982, p. 306) in my recently built 
LNW system expansion board I 
discovered a small bug. 

For some 74LS] 5 1 ICs it may not be 
necessary to keep the strobe input ac- 
tively low, but for my 74LS151 it was. 
The absence of low at the strobe input 
blocks the multiplexer {and the clock 
signal to the UART). 

The cure is simple; connect a wire 
between pin 7 (strobe) and pin 8 
(ground) of the 74LS151. 

IV.N'. Tijman 

Gen. Spoorlaan 21 

2111 WSAerdenhout 

The Netherlands 

Tic -tac -beep 

As soon as I ran the game featured in 
the article "You Light Up My Grid" 
{80 Micro, June/July 1982, p. 331) I re- 
alized that it was not accurate. When 
you enter 5 the middle square is pro- 
cessed twice, once by the vertical pro- 
cessor and once by the horizontal pro- 
cessor, which returns the middle square 
to its original state. This ruins most 
strategies I know of used for the game. 
The correction is simple. Change line 
770 to read FOR X= 16 TO 48 STEP 
32. With this fixed, the Magic Square 
game is an excellent version of the origi- 
nal Merlin. 

Adam Rose 

5231 S. Dorchester Ave. 

Chicago, IL 60637 

Flesh It Out 

Thanks to the mail and phone calls 
I've received, I now have a list of the 
omissions and errors and comments on 
"Bare Bones Communicator" {80 Mi- 
cro, June/July 1982, p. 128). 

Building the hardware interface is 
much easier if you know what the parts 




"Building the hardware 

interface is much easier 

if you know what the 

parts are. " 



are. The missing parts are listed in 
Table 1. 

Some readers were having trouble 
with noise from the 555 (ICl). The 
problem can be reduced by connecting a 
2.2 juF tantalum capacitor across the 
power pins; connect the positive end to 
pin 8 and the negative end to pin 1. Dl 
and D2 are drawn backwards in Fig. 1. 
As shown they short out the power sup- 
ply (-H 12). Reverse both of them. 

One of the most often asked ques- 
tions concerns the use of Radio 
Shack's Modem 1. This modem 
works with UTERM through the cas- 
sette port without using the special 
hardware adapter. The only restric- 
tion is that the XRX cassette mod (if 
present) will have to be disabled (see 
80 Micro, January 1982, p. 348). 

There have to be at least 1 17 dots in 
A$ in line 30 of Program Listing 2. The 
lines of data starting at line 290 must be 
entered with the letters in pairs. Do not 
indent or attempt to make the screen 
look like the magazine hsting. After the 
REM, type: space letter letter space let- 
ter letter space letter letter and so on. 

The HHC codes listed in Table 1 of 
the article are transposed. B should be 
coded as BD and not as DB, Z should 
be JE and not EJ . Use these codes if you 
want to change the sign-on message. 

If you need help, feel free to write. 



Ql 2N3904 or RS 276-2034 (PNP silicon) 

Q2 2N2222 or RS 276-2016 (NPN silicon) 

Dl, D2 iN914 (general purpose silicon signal diode) 

R8 390 ohm Vo watt resistor 

Table 1- Paris List 



To ensure a speedy reply, include a 
stamped self-addressed envelope. If 
you want to save a lot of typing, send 
a blank disk or cassette and $3 for the 
Basic loader and assembler source 
code. The program is still available 
on the Medford Forum-80 but you 
have to register a password before 
you can use the download feature 
(two phone calls required). 

Bob Hart 

2946 Merriman Road 

Medford, OR 97501 

Compiler Wanted 

Is there a Basic/Fortran compiler 
for Z80 code that will run on an IBM 
370 under MBS(DOS) or on VAX? 

Richard Kainz 

307 NE 5lh St. 

Gainesville, FL 32601 

Two Many 

I found an error in Program Listing 2 
of the "Tee For Six" program {80 
Micro, August 1982, p. 164). Line 760 
contains two 414s in the data state- 
ments. The first 414 should be 412. 

Carl Bevington 

1857 East Third St. 

Salem, OH 44460 



PHONFIND Fix 

The program PHONFIND from the 

June/July 1982 issue (page 358) re- 
quires initiahzation before use. Simply 
run the following one-line program: 

10 OPEN"0",1,"NTJMBER/SEQ.BOB": 
CLOSE :END 

Then use PHONFIND exactly as 
printed in the magazine. 

PHONFIND will run out of string 
space if you store long names and num- 
bers. The following changes will also al- 
low you to store more names: 

25 CLEAR5000'For 4SK, CLEAR 6384 
1000 ?TAB(24)" SELECT FUNCTION" 

Add line 3015 to prevent a Bad Sub- 
script error in 3020. 

3015 IFKK = 200THEN? 
"ArrayFull.":GOTO3040 

—Eds. 
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AMAZING! 

NEW LOW PRICE— $99.50 

Mow else can you describe the Exatron Stringy Floppy system? You couid 
say that its an under SlOO, compact reliable, robust, high-speed, 
computer-controlled, easy-to-use, well-supported alternative to disk 
drives, for a Model i or III JRS-80~simply amazing! 

Amazing Technology 

Based on a special endless-loop tape cartridge, called a Wafer, the 

ESF system was designed specifically for computer data storage. 

The direct-drive transport mechanism has only one moving part, 

and data is transferred to and from the tape at a rate of 7200 baud. 



Amazing System 

Thousands of ESr buyers have been amazed by T6K programs loading 
in less than 20 seconds; automatic verification of saved programs; up 
to 70K bytes, and 99 files, on a single Wafer; a ROM operating system 

(RAM based in Model III); no need for an expansion interface; and 1-year 

parts and labor warranty. 

Amazing Support 

With an ESr system you don't just get a piece of hardware, you get total 
support with hundredsof user workshops; dozens of high-quality, reason- 
ably priced programs (such as Electric Pencil 2.0, Electric Spreadsheet, 
rile Management System and Technical Word Processor); access to 
hundreds of FREE public-domain programs; an @MEWS user 
column in 80- US; @LOAD program magazine; and a 
toll-free information line. 

Amaze Yourself 

To see for yourself how amazing the ESF sys- 
tem is, or for more detailed information, caH 
: us toll-free at 800-538-8559 (inside Cali- 
fornia 408-737-7111) and take advantage 
of our 30-day money-back return policy. 
Copiesofthe 80-page manual are available 
for $4.95 (which you can credit towards an 
ESF), and whi le you're on the line ask about 
our equally amazing 64K RAM /ROM board 
for the Model I. 





TRS-SO is a trademark of Tandy Corpora 
Stringy Floppy is a trademark of Exatron Cof 



excellence in electronics 

exatron 

,^93 

181 Commercial Street, 
Sunnyvale, CA 94086 



For Sale 

1 am writing in response to a plea for 
information regarding a card reader for 
a Model 111 C'80 Aid," March 1982). 1 
don't know of any companies that pro- 
duce such a product but I have buih one 
on my own. I have also designed a 512K 
byte interface for the TRS-80 Model I. 1 
also have developed a modification for 
the Model 1 that increases cassette I/O 
up to 500(3 baud. 

At the moment I am looking for a 
company that will produce these prod- 
ucts at a low cost. Since I am only 15 
and spend most of my time with my 
512K Model 1 TRS-80 with one Win- 
chester hard disk and five drives, I 
would never be able to hold a job that 
wasn't computer oriented, i will sell 
plans to all of the aforementioned items 
plus an operating system that I wrote 
last year and a speed-up modification 
that gets the Model 1 going at about 
4.65 MHz. I am now working on a plot- 
ter-printer which uses a simple language 
to operate it. 

If anyone is interested in any of my 
products, feel free to write me. 

Paul Posner 

1 7 Durham Drive 

Dix Hills, NY 11746 

Unwanted Spaces 

I have a request for aid concerning 
TWOHAF: renumbering works well, 
but it adds one, two, or three spaces af- 
ter each transfer statement (GOSUB, 
GOTO, and so on); it even adds them 
when the transfer is at the end of a hue. 
How can I stop the renumbering from 
adding the spaces? 

Jack Baker 

Rt. 1, Box 19'H 

Morningview, KY 41063 



Missing Listing 

It looks like the cutting room bugs 
are at work again! In "Tee For Six" 




(August 1982, p. 156, Program Listing 
5) the end of line 300 got hacked off. 
See Listing i for the rest of the listing. 

Joseph Cook 

6618 Airline Ave. 

Urbandale, J A 50322 

Paper Tiger Hunt 

I would like information on interfac- 
ing a Model 1 to an IDS-125 printer (the 
Paper Tiger people). Microcomputing 
ran an article on interfacing an 
IDS-440, but the IDS-125 is slightly dif- 
ferent. I would appreciate any help. 

Charles M. Greenawald 

24 Bay View-Paradise Bay 

Bradenfon, FL 33507 

Replacement Parts Needed 

1 own a Base-2 Model 800 dot matrix 
printer. The belt that drives the print 
head's roller cam is worn and is in need 
of replacement. Unfortunately, Base-2 
is no longer in business. Where can 1 
find replacement parts for my printer? 

Bryan Headley 

5808 Melstone Drive 
Arlington, TX 76016 

10,9,8... 

One of my hobbies is model rocketry. 
I'm having trouble devising a program 
for the Pocket Computer that finds the 
center of pressure and center of gravity 
in my rockets. Can anyone help? 

Rudy Arispe 

139JdellAve. 

San Antonio, TX 78223 



300 FORI=58T06 8STEP2:SET(I,13) : NEXTI : A=34 : F0RI=3 4T05 8STEP4 : SET ( I 
,A) :SET(I + 34,62-A) : A=A-1 : NEXTI : A=25 : FORI=70TO7 8STEP4 : SET ( I ,A) : SE 
T(I-21,48-A) :A=A-1:NEXTI:A=20:FORI=90TO106STEP4:SET(I,A) : SET ( 1-7 
0,36-A) :A=A-1:NEXTI 

Profinim lAsling I 



MX-80 Aid 

MX-80 users have probably found 
that the form feed button doesn't ad- 
vance the paper to where they want it. 
The solution is to use the line feed but- 
ton to step paper to the stopping point 
wanted; turn the printer off, then on 
again. Presto! Form feed where you 
want it. 

If anyone knows how to program 
the MX-80 to hne-feed increments of 
1/72", I would appreciate knowing 
how it's done. 

John Wilson 

3 Kelldon Drive 

Felton, CA 95018 

TRS-80 Interface Wanted 

I am interested in a software/ 
hardware modification and interface 
package which will make the TRS-80 
Models I and III simulate an IBM 3278 
CRT in a SNA and SDLC environment 
using dial-up facilities. 

If anyone has such a modification or 
anticipates developing one, please con- 
tact me. 

Carl Hess 

1105 Hamilton St. 

Allentown, PA 18101 

Powerful Printing 

I am responding to Al Peponis' letter ■ 
"Automatic Troubles" ("80 Aid," 
June/July 1982, p. 23). The solution to 
his problem is to enter SX in the subsys- 
tem of Electric Pencil. This eliminates 
the extra line feed. 

I 've used the technique suggested by 
John Parker ("Print Whiz," 80 Micro, 
February 1982) with my Model I and 
MX- 100 to send printer control codes to 
the printer while in Electric Pencil. It 
really works great for condensed or ex- 
panded print insertions, double strike, 
and so on. 

I created a module describing the 
control functions, then zapped the hex 
values to the disk file using Disk Editor 
by Instant Software. I load this module 
first, then transfer the codes down to 
my text as T need them. Right justifica- 
tion and line length have to be forced by . 
carriage returns because the program 
assumes normal word length. It gives 
more class and emphasis to a letter. 

R.G. Brooks 

9701 Meadowview Road 
Richmond, VA 23229 
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Words are not enough. 




Experience goes beyond words. We believe adven- 
tures should too. The Asylum Series is Med Systems' 
premiere line of 3-D graphics adventures for the 
TRS-80 and IBM personal computers. What is an 
Asylum? An Asylum is a real-time simulation that 
takes place in a building with 1500 locations. Both are 
inhabited by crazed inmates, sadistic guards, and evil 
doctors. Your goal? ESCAPE! 

Our 3-D graphics are recognized throughout the in- 
dustry for their machine-language speed and clarity. 
Hallways recede into the screen as though you are ac- 
tually there. Doors open and close. Beds, desks, and 
other inmates are drawn on the screen. Instantaneously! 

Asylums understand complete sen- 
tences, not just choppy one and two word 
commands. Sentences like "Drop every- 
hing on the desk except the matches" are 
interpreted and acted on instantly. Fur- 
ther, the command "VOCABULARY" will 
show you the entire dictionary, eliminat- 
ing the need to second-guess program de- 
signers you have never met. 

But don't take our word for it. See the 
reviews in '80 Microcomputing (Feb. 1981, 
Aug. 1981, May 1982). And remember, 
Med Systems offers to refund your money 
if you aren't satisfied. Just return the 
game within 14 days of receipt. 



Although Asylum II is the sequel to 
Asylum 1, you need not have played one to 
play the other. Asylum I and Asylum 11 re- 
quire at least 16K of RAM, and are avail- 
able on tape or disk (please specify). Hint 
sheets are available for each Asylum for 
$1.00. 



Asvlum I 




E^rj (cassette or diskette) , 


. $19.95 


Asylum 11 




(cassette or dislcette) . 


. $19.95 


Asylum 1 & Asylum U 






. $34.95 




MED SySf EMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, G\LL 1 -800-334-5470 

Or see your dealer. 
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32 FLAVORS 

IN LOW COST COMPUTERS 
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CP/M 64K 

The Mod III Plus C/140 system is an 
exciting new personal and small busi- 
ness computer that is both CPM & 
TRS-DOS compatible 

• 80 X 24 Display for CP/M 

• 64K Bytes RAM Memory 

• Microsoft BASIC language in ROM 

• Internal Z80 ROM Diagnostic 

• ZBO processor. 2MHz 

• 4MHz speed up option 

• 64 X 16 screen-TRS-DOS-.DOS+ 

• Cooling system 

• Parallel printer interface included 

• Anti^glare screen 

• Cassette interface 

• 2 Internal 40tk Disk Drives 

• Compatible with TRS-80* Model III 
— RS-232 serial interface option, 

CPM applications software such as 
Wordstar, Datastar and Mai I merge 
launch this computer system into the 
small business and word processing 
marketplace. Includes Software & Dig- 
ital Research CP/M 2.2 & user's man- 
ual. 



$2699 



Optional CP/M2.2 



Mod. Ill Plus 140 CX 



MOD III PLUS 140 

Computer consists of 48K bytes 
memory and a double density, 
dual disk drive system. The sys- 
tem is fully compatible with the 
Radio Shack^^~ DOS and periphe- 
rals. Get 178,000 bytes of memory 
storage per disk. 



PRICE TOO 
LOW TO PRINT 



MOD III PLUS 240/280 

Double or Quadruple your stor- 
age capacity to 700 or 1,4 mega- 
bytes. These machines have all of 
the features of the MOD III PLUS 
140 and expanded storage. The 
240 has double headed 40 track 
drives, while the MOD III PLUS 
280 has double headed 80 track 
drives. 



PRICES FROM 'i'lggg 



MOD III PLUS B/140 

Especially designed for Business applications. 
Same as Model 140 and includes anti-glare 
screen, speed-up enhancement, RS-232 inter- 
face cooling unit and more. Also includes FREE 
business software package, 

WORD PROCESSING 

We are also offering a discount certificate enti- 
tling the purchaser to NEW SCRIPT by Pro Soft 

FREE SOFTWARE 
ACCOUNTING PACKAGE 



•accounts receivable 
•accounts payable 
• general ledger 



' INVENTORY'SALES • GAMES 

ANALYSIS •education SOFTWARE 

' PAYROLL • DOS PLUS 3.3 

» INCLUDING AUDIO SELF- 

LEAHNING CASSETTE 



WINCHESTER HARD DISK 

Our desk top business computer system, with 
approximately 5,7 megabytes of on line storage. 
The system includes a 5 megabyte Winchester 
hard disk drive for ultra-fast business require- 
ments. An 80 track dual head disk drive is used 
for backup and for conventional floppy disk oper- 
ation. 



«4999 
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32 FLAVORS 

IN ADD-ONS AND KITS 



MTI DOES IT. Our CP/M 64K turns your 
TRS-80 Model III into two computer sys- 
tems, with memory upgrade to 64K and an 
80" X 24" column video card, you will convert 
your computer to a CP/M base machine. 
LIKE THE BIG BOYS. That means you can 
access the single largest body of microcom- 
puter software used by companies like Xer- 
ox, Osborne, Eagle, Apple, Cromenco etc. 
What is better, is that you can switch back 
forth between TRS-DOS and CP/M modes, 
and our own Z-80 diagnostic monitor. 
SIMPLE INSTALLATION. The CP/M 64K 
system plugs directly into the TRS-80 CPU 
board. You are ready to go! 
HUNDREDS OF APPLICATIONS. You have 
available literally hundreds of programs writ- 
ten for many mini and micro computers un- 
der CP/M operating system. 



CP/M-64K 




CP/M 2.2 
«119 




*!*-'j. 




^579 
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INTERNAL DISK DRIVE KITS 



INCLUDES 
DOS PLUS 
OPERATING 

SYSTEM 
S100 VALUE 





^499 



A new low cost internal disk kit is available to expand your 
storage capability. With this kit, you may expand your 16K 
TRS-80® Mod III computer. Includes: 1-MTI 40 track, 
double density disk drive, power supply, controller, cab- 
les and DOS PLUS operating system. 



EXTERNAL DISK DRIVES 



Add-on disk drives for 
the Model I and Ml area- 
vailable in 40 and 80 
track, single and double 
head configurations. 
Contact MTI or a local 
authorized dealer. 



ADD-ON WINCHESTERS 





OVER 100 AUTHORIZED SALES AND 

SERVICE CENTERS 

CALL 714-979-9923 

for the center nearest you 



EA 



-2A7 



Add 5., 7, 5., or 11. megabyte hard 

disk drive to any Model III, The com- 
plete self contained unit includes a 
Winchester drive, controller, power 
supply cooling system and cables in 
an attractive enclosure. 



From 

^999 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACARTHUH, SANTA ANA, CA 92704 
(714) 979-9923 • TWX 910-595-1902 MTISNA 

U.S. PRICES F.O.B. SANTA ANA 
CALIFORNIA AND MAY VARY BY AREA 

CP'M IS a regislereO Irademark Of Digital Research tnc 
TRS-80* IS a registered Irademarlt ol TanOy Corp 
MTI IS a regislced trademark of fi^icfocomputer 
Technology, INC 
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The GAMER'S CAFE 



by Rodney Gambicus 



They 
came 
from 
beyond 



Missoula 



So there we were, in Winthrop's old 
Ford Econolinc van, with comput- 
ers on top of computers m the back. 
We had trouble adjusting the weight 
load. To even things out, we bought 
another Model III and four more Col- 
or Computers. The dealer was so en- 
thusiastic about our purchases that he 
threw in two Pocket Computers to 
boot. We put those in the glove com- 
partment. I think they're still there. 

With the van packed, we were on the 
road. As we traveled from Boston to 
Montana, we stopped at every soft- 
ware store on the way and bought ev- 
ery game imaginable. We took turns 
reading documentation and driving. 
We met lots of people on the way. We 
were pulled over 27 times by knowing 
motorists who spotted our bumper 
sticker, "Honk If You're a Beeper." 
We were honked at 1,249 times~l,248 
for the bumper sticker and once for 
running a red light. That was in Cham- 
berlain, SD. The kid on the bicycle 
who honked at us was wearing a cow- 
boy outfit and a sheriff's badge. Not 
being sure of his range of authority, we 
kept going and didn't stop until we got 
to the Radio Shack store in the Rush- 
more Mall in Rapid City, SD. 

We opened the first Gamer's Cafe in 
Missoula, MT. We picked a storefront 
location on South Higgins Ave. in the 
city's downtown section, parked at a 
meter in front of a sporting goods 
store, opened the back and side doors 
of the van, put a few card tables in the 
parking space behind us, plugged the 
computers into a diesel generator, and 
raised our grey and black Gamer's 
Cafe banner. 

KGVO, a local radio station, inter- 
viewed us and ran a small piece about 
the cafe on their noon news. By 12:30 
every computer was in use. The people 
waiting in line for a computer read our 
pamphlet describing the difference be- 
tween adventure games, arcade-style 
games, strategy games, and simula- 
tions. By the time a computer was free, 




they understood all they needed to 
know about playing games on our 

TRS-SOs. 

We were in business. . .for a short 

while. 

% * * * * 

While they played, Winthrop and I 
opened the mail; 

Help!!!!!! I recently bought Balrog 

from Adventure International's Maces 
and Magic series for my Model III. As 
you probably know, you buy the Mod- 
el / disk and use TRSDOS's Convert 
command to use it on ihe Model III. 

The instructions for converting the 
first disk are good, hut all they tell you 
for converting Ihe second disk is, "Do 
the same for disk B. " This is where (he 
problem starts. There is a data file on 
disk B that is password protected and 
the instructions do not include the 
password needed. Canyon help? 

Tim McGrath 

1617 Washington St. 

Newton, MA 02165 

Of course we can help. That's why 
we're here, no matter where "here" 
happens to be. Winthrop and 1 know 
more about TRS-80 games than Carter 
knows about peanuts. 

Winthrop got right on this one, and 
called his secret connection in AI's tech- 
nical department. This techie, Shallow 
Tongue, told WinthroR that you should 
have no problem converting the two 
files, ..Rooms and Situatio, using 
TRSDOS 1.2 or 1.3 if when the pass- 
word is asked for you just press enter. 

Adventure International has a tech- 
nical assistance line. If Tongue's ad- 
vice doesn't help, call (305) 830-8194, 
AI's technical line and they'll work the 
problem out with you. 



Jim Daniel (no relation to Jack) 
(Winthrop made me put that in) sent us 
a patch for using the Alpha Products 
joystick with Leo Christopherson's 
(hail King Leo) (Winthrop again) Voy- 



age of the Valkyrie. When keyed in this 

patch will let you use the Alpha joy- 
stick to control the arcade part of the 
game: 

248 GOSUB10000:CLEAR:AAO''o -20000: 

GOSUB2000 

10000 A = PEEK{16548) + 256*PEEK(16549) + 

286:I'OKEA l 56,219:POKnA + 57,0:POKEA 

+ 58,47:POKEA + 60,16;A = A-l-382 

10010 FORI =A + 5TOA + 61:READB:POKEI, 

BiNEXTiRbTURN 

1 0020 DA rA219,0.47,230, 1 5 ,14.20,254, 1 ,202, 

37,64,12,254,9,202,37,64,12,254,8,202,37,64, 

12,254,10,202,37,64,12,254,2,202,37,64,12,254, 

6,202,37,64,12,254,4,202.37,64,12,254,5,202, 

37,64.14,15,201 

Jim tells us that if your joystick has 
not been modified, the 16 POKEd in 
line 10000 should be changed to a 3. 
And, of course, save the modified pro- 
gram before running it. Thanks Jim. 
Sav hi to Jack. 



Winthrop was laughing as he handed 
me this next letter: 

/ am struggling through my first ad- 
venture, Raaka-tu. It took me three 
weeks to get into the temple and gel out 
with loot worth 25 points. What infuri- 
ates me is that doggone door in the sec- 
ond room. I can't get to it because of 
the snake pit in the way. The great 
bronze gates on the w^t wall are un- 
openable, too. I've tried everything I 
can think of. I'm getting desperate. 
Please help. I'm going crazy ... crazy 
. . . crazy. 

David Rood 

Route 9 Box 265 

Cutnming, GA 30130 

Now, Winthrop was laughing be- 
cause he was once in the same predica- 
ment, but worked his way out of it. 
When we first opened the Gamer's 
Cafe, we decided not to hand-hold any- 
one through an adventure. Winthrop's 
argument was, *'No one helped me." 
True. But there is only one Winthrop, 
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and sometimes normal people need help 

getting out of a tight situation. 

Your problem is less of a problem 
than you think. The door and bronze 
gates are useless to you. Winthrop says 
you are sniffing up the wrong tree. 
Yeah, well, Winthrop also says that a 
penny earned is not much of a profit 
margin. Some day we might compile a 
book called The Not Very Famous Say- 
ings of Winthrop Luzerdraw. Then 
again maybe we won't. 

By the way, David, how would you 
like to double your points? After you 
get out of the temple go back to where 
you began the game. Then go west four 
times, and south another four times. 
Oh — Winthrop says that the dense, 
dark and damp jungle will get impor- 
tant to you at that point. 

I think we're in trouble. The Gamer's 
Cafe van has attracted quite a crowd in 
the street and on the sidewalk. The po- 
lice are talking to Winthrop about ven- 
dor's permits, creating a disturbance, 
and interfering with all sorts of things. 

Common sense tells me we don't 
have much time, so quickly: Shallow 
Tongue told Winthrop about some 
new Al games in the works. Last Days 
of Saigon will be Al's first realistic ad- 
venture. It is based on the actual events 
leading up to the American withdrawal 
from Vietnam in the 1970s. Last Days 
of Saigon was written by Jyym Pear- 
son, author of Escape from Traam, 
Curse of Crowley Manor, and Earth- 
quake: San Trancisco 1906. 

Starflitc fans (and there are many of 
us): Al will soon do a bit of customiz- 
ing. Shallow Tongue tells us that the 
program will remain the same, but the 
packaging will be dressed up to include 
all kinds of goodies to make playing 
the game even more fun. 

Also in the planning stages is an in- 
teractive story called Nightwaiker — 
da dee dum dum. The plot places you 
at a drug-infested waterfront. Your' 
assignment is to provide the local po- 
lice with enough evidence to make a 
successful bust. . . 

And speaking of busts, Winthrop 
and one of the police officers have 
struck an agreement. We can either 
fold our tent and go, or they'll fold 
our tent and take us. Winthrop wise- 
ly opted for the first choice. So it's 
off again, fellow game players. See 
you next month from somewhere in 
America. ■ 





YOUR TRS-80®...OUR BASIC BOOK, 
THE PERFECT COUPLE 

LEARNING TRS-80 BASIC starts where the Radio Shack® 
getting started manuals end, fulfilling the needs of 
elementary and intermediate level users. If you ov^n or 
have access to a Model I, 11/16, or III, our 544 page BASIC 
book is a necessity. 

irS SIMPLE 

We receive testimonials every day commenting on the 
simplicity of this book. 

• "very well organized... careful step-by-step progression" 
— R.G.. Oxnard, CA 

• "extremely logical progression and excellent explanations" 
— J.S.. Pacifica. CA 

• "easy reading style" — J. B., St. Louis Part, MN 

In fact we think it is so simple that.... 
WE GUARANTEE IT 
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postage and handling, or return the book and owe nottiing. On 
all prepaid orders, Visa or MasterCard ctiarges, publisher pays 
postage and handling, send $19.95 only (Calif, residents add 
6%) —same return guarantee. Offer good in USA only. 
Payment must accompany orders from P.O. Box numbers. 
Name of individual ordering must be filled in. 
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SOFT BITS 



by Roger Fuller 



One of the most powerful features 
of Level II is the ability to format 
printing with a Print Using statement. 
As useful as this statement is, it does 
not allow left justification of a format- 
ted number. The routine presented 
here illustrates one way of solving this 
problem. 

The ROM Call OFBEH formats the 
binary number loaded in the reserved 
area of RAM starting at 4UDH, or 
4121 H if it is an integer. The type 
(length) of the binary number must be 
stored in 40AFH. Upon exit, the Print 
Using buffer that starts at 4030H con- 
tains the ASCII string. The accumula- 
tor contains the format information. 
The following table is a list of the for- 
mat bits. 







01 /*« 



Bit 





Exponential notation 


Bit 


1 


Reserved 


Bit 


2 


Trailing sign 


Bit 


3 


Sign 


Bit 


4 


Leading S 


Bit 


5 


Leading * 


Bit 


6 


Commas 


Bit 


7 


Edit 



Setting the bits sets the edit option. 

You can experiment with different 
combinations by changing the ap- 
propriate data elements in your Basic, 
program. 



Print Using 
explored 



The machine code gets the data ad- 
dresses from Basic via the CALL 
0A7FH. This information is then 
transferred to the ARITH area. The 
ROM Call that does this for single- 
precision numbers is 09B1H. If you 
want to transfer an integer or a double- 
precision number, you must use 
another Call. 

After the binary number is loaded 
into the correct place in RAM, the 
NTF (Number Type Flag) at 40AFH 
must be set. A ROM Call at OAEFH 
sets the NTF for a single-precision 
number. 



SOFT BITS Reader Survey 

1 . Which TRS-80 do you own? 

2. Do you own a monitor program? Which one? 

3. Do you own an assembler? Which one? 

4. Do you own any books on Assembly language? 
Please list them in order of their usefulness. 

5. What do you like best about my column? 

6. What do you like least about my column? 

7. What would you like to see in future columns? (Be specific.) 

8. How many lines of Assembly code have you written? 

9. What is your education? 

10. What do you use your computer for? 



Now the accumulator must be load- 
ed with the format information. I used 
a 192, which is bit 7 and bit 6 set to for- 
mat commas. Finally, the format spac- 
ing must be loaded into the BC register 
pair. The B register contains the 
number of spaces to the left of the 
decimal point and the C register con- 
tains the number to the right plus one. 

A Call to OFBEH lets the ROM do 
its work. And work it does. Print Us- 
ing can be the most time consuming of 
all the non-I/O Basic statements. After 
the formatting is done, the buffer con- 
tains the right-justified ASCII string. 
The next task is to find the first 
nonblank character. We finish by out- 
putting the string followed by the ap- 
propriate number of spaces. 

The HL register always contains 
41 30H upon exit from OFBEH , and the 
ASCII string is always terminated by a 
zero byte. This allows CALL 28A7H 
to handle the output easily. But that 
would be for a right-justified, not left- 
justified output. 

To accomplish this task, the accum- 
ulator is loaded with a space and a nine 
count is placed in the B register. 
CKSPSl scans for the nonblank char- 
acter. If the first character output is 
not to be a space, add a LD A,(FIL) to 
reset the accumulator after the loop 
falls through. 

PRINTI uses 033AH to print the 
characters on the screen and update the 
cursor location. The ASCII string is 
sent out until it finds the zero byte. 
Since the output length is nine and was 
reduced one for each character sent 
out, it is used to determine the number 
of spaces to send out. The CP checks 
for the no-spaces-to-send condition. 

This routine can help you explore 
the mysteries of the Print Using state- 
ment. The code has to be placed in a 
single-precision array for a change of 
pace. You can build it into a Basic 
string since it is relocatable and meets 
the other requirements of "no zero 
byte" or "32 byte" in its code. Also, I 
left the code capable of being shortened 
two bytes. 

So you can help me meet your needs 
better, please answer the following 
questions and send them to me at 630 E. 
Springdale, Grand Prairie, TX 75051. 
Your responses will be sincerely ap- 
preciated. ■ 
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3 in '83! 




That's 

That number again 

That's 



And to celebrate we're publishing a special 
ANNIVERSARY ISSUE 

containing 

* all new articles & programs. 
over 500 pages of the same high 80 MICRO quality. 
dozens of games and programs for your computer. 

* exclusive articles by well-known authors. 

* the most in-depth coverage of the Color Computer yet. 

* tutorials on having peripherals and software. 

* page after page of Christmas specials from 80's advertisers. 

* a 3-ycar 80 MICRO index — annotated and cross-referenced. 

And in every issue of 80 MICRO you'll find the 1st and only 

3-D COLOR STEREOSCOPIC 
COMPUTER GAME! 

And to go with it — your very own pair of 3-D glasses will be bound 
into every issue. This is an anniversary issue you won't want to miss! 

And this amazingly versatile Anniversary Issue can go anywhere* with 
you. Fits easily in your briefcase or your purse. Lies flat in your 
knapsack. Rolls up to fit snugly in your glove compartment. Stores on 
any bookshelf. Looks great on any coffee table. 

You can also get the amazing Special Edition LOAD 80 Companion to 
the Anniversary Issue. All those games and programs, just waiting for 
you to load. No more keyboarding. No more debugging. No more 
hassles. 

You'd expect special editions of this quality to cost you hundreds of 
dollars. (Well, maybe dozens.) But for a limited time only, you can get 
the 80 MICRO ANNIVERSARY ISSUE for only $5.95. That's 
right— $5.95 And the LOAD 80 Companion is just $9.95 for cassette 
$19.95 for floppy disk. 

Note: This is an extra issue and will not be included as part of your 
regular subscription. So call today and order your very own 
Anniversary Issue and LOAD 80 Companion. Or give them as gifts. 
Just fill in the attached reply cards and drop them in the mail. Or call 
toll free— 1-800-258-5473. 







Operators are standing by (during business hours, of course). 
MasterCard and Visa accepted. (American Express, too.) 

Your Anniversary Issue and LOAD-80 Companion will arrive by the 

end of November. 

Use of this product in the shower is not recommended by the publisher. 
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PROGRAM 
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World ^^ 
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Chess -'^M 
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•32 book openings 
»chess clock 
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.probicrn mode 
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Pre-Ch^ancl[>yrj 



•nine levels 
•problem mode 

•move suggestion 
•move take back 
•audio alert 




documentation 



SFiNKS 

CHES" 



Leaii^jifl 
play chesi!^ < 



•tutor 

• 3 level game 
•problem mode 
•audio alert 
•printer ouiput 
•book openings 
•superb graphics 



Please specit^y;;,;'; 
lapcordiski^JigPp 
Model I orf^S' 
Include $2.(|^^ 
Shipping ^k-3** 
WILLIAM Fl.. 
SUITE Z4B> 
1105 N. MAIN 
GAINESVILLE. Ft ' 
32601 



finest 
available! 

See 80 U.S. 
June 1982 



Model 1 (E.I.) 
or Model 3 

tape or disk 
only 

$39.95 



PRIZEWINNER 

1980 San Jose 
U.S. 

licrocompuler 

Chess 
Championship 



Model 1 or 3 

tape or disk 
only 

$24.95 



Step-by-Step 

Programmed 

Learning 

for the 

Newcomer 



llttl1or3 

disk only 
only 

$19.95 



EXCEPTIONAL 

DEALER 

DISCOUNTS 

9041 377-4847 



SOFT BITS 



SFINKS 
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Program Listing I 



BY ROGER PULLER PUBLIC DOMAIN 
'LOAD MACHINE CODE 
'USE POKE FORMAT IF NOT DOS 



10 'PRINT USING FORMAT DEMO 

20 GOSUB 100 

30 DEFUSRl - VARPTR( A(0) ) 

40 ' 

50 A = RND(9) * 1000 - 1000 + RND(32767}/100 

60 IP USR1{VARPTR(A) ) THEN PRINT 

70 GOTO 5 

80 ■ 

100 DIM At (12) 'RESERVES 52 BYTES 

110 A - : X = : SUM = 'INITIALIZE VARIABLES 

120 FOR X = TO 51 



121 

122 

123 

124 NEXT 

130 IF SUM <> 4775 THEN PRINT "ERROR' 



READ A 

SUM = SUM + A 

POKE VARPTR( A{0] 



+ X, A 

: STOP ELSE RETURN 
205, 239, 10, 62 



200 DATA 205, 127, 19, 205, 177, 

210 DATA 192: 'FORMAT TYPE 

211 DATA 1 

220 DATA 3 : 'DIGITS AFTER DiiCIMAL POINT INCLUDING POINT 

230 DATA 5 ::d99 PRINT "NUMBER IS TOO LARGE PLEASE REENTER";GOT 

220 

240 CLS:PRINT "THE ANSWER IS ":S-15 

250 F0RN=1T0LEN(AS) 

260 A#=VAL(MIDS (A$,N,1) )+C#:Dif=AS :A#-A#/B# 

270 IF Alf = INT(A#) THEN Cif = 0:GOTO 300 

280 IF A#<1 THEN C#=D#*1 : A#=0 iGOTO 300 

290 IF An<>INT(A#) GOSUB 330 

300 CS=STRS{A#) :PRINT9S,RIGHT$(C$,1) :S=S+1 

310 NEXT 

320 GOTO 370 

330 A#-INT(A#) 

340 C#-D#-(A#*B#) 

350 C#=Cii*10 

360 RETURN 

370 PRINTias, ". " ; : S = S+1:A# = 

380 A#=A#+C#:D#=A# 

390 IF S-a00 PRINT "THATS THE ANSWER TO 800 DIGITS !": END 

400 A#-A#/B# 

410 IF A#-INT[A#) :C5=STR$(A#) :PRINT@S,RIGHTS(C3,1) :END 

420 IF A#<>INT[A#)C$=STRS(INT(A#)) : PRINT@S , RIGHTS{C$ ,1) :S=S+1:C# 

=D#~(INT(A#)*B# ) :Ct=C#*10 

430 A#-0:GOTO 380 

440 **** SUBTRACTION 1 DIGIT AT A TIME************************ 

450 DEFINT A-Z:DIM A( 105) , B [ 1 05 ) 

460 PRINT "ENTER ANY POSITIVE WHOLE NUMBER UP TO 105 DIGITS LONG 

470 INPUT AS 

480 IF LEN(A$)>105 PRINT "THE FIRST NUMBER ENTERED IS LONGER THE 

N 105 DIGITS P1.EASE REENTER" : GOTO 460 

490 PRINT"ENTER THE SECOND POSITIVE WHOLE NUMBER UP TO 105 DIGIT 

S LONG : " 

500 INPUT B$ 

510 IF LEN(B$)>105 PRINT "THE SECOND NUMBER ENTERED IS LONGER TH 

AN 105 DIGITS PLEASE REENTER": GOTO 490 

520 IF LEN(AS) >LEN(BS) THEN BS=STRINGS {LEN ( AS) -LEN (B$) , "0") +B$ 

530 IF LEN(BS)>LEN(AS) THEN A$=STRING$ ( LEN ( B$) -LEN( A?) , ■0") +A$ 

540 FOR N-LEN{AS) TO 1 STEP-1 

550 A[N)=VAL{MIDS(AS,N,1) ) 

560 B(N)=VAL(MID$(BSrN,l)) 

570 T-A(N) -B(N) ~B 

580 IF T<0 THEN B=1:T=T+10 ELSE B=0 

590 CS=RIGHTS{STR$(T) ,1)+CS 

600 NEXT 

610 IF B=l THEN HS=AS : AS=BS : BS-H$ : B=0 !€$=■'": S$="-" iGOTO 540 

620 PRINT "THE ANSWER IS "SS+CS 

630 END 

640 ***** ADDITION 1 DIGIT AT A TIME (2 ARRAYS) *************** 

650 PRINT "ENTER THE FIRST POSITIVE WHOLE NUMBER UP TO 105 DIGIT 

S LONG" 

660 INPUT AS 

670 IF LEN(AS)>105 PRINT "NUMBER IS TOO LARGE PLEASE REENTER":GO 

TO 650 

680 PRINT "ENTER THE SECOND POSITIVE WHOLE NUMBER UP TO 105 DIGI 

TS LONG" 

690 INPUT B? 

700 IF LEN(BS)M05 PRINT "NUMBER IS TOO LARGE PLEASE REENTER"!G 

OTO 6 80 

710 DEFINT A-Z:DIM A(105) ,B(105) 

720 IF LEN(A$) >LEN(BS) THEN BS=STRINGS (LEN (A$) -LEN(B$) , "0") +BS 

730 IF LEN(B$) >LEN(A$) THEN AS=STRING$ (LEN (BS) -LEN( AS) , "0") +AS 

740 FOR N=LEN(A$) TO 1 STEP -1 

750 Aj,N)=VAb(MID$(A$,N,l)) Listing continues 
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Listing continued 

760 B(N)=VAL(HID$(B$,N,1)) 
770 T=A{N)+B(N)+C 

780 IF T>9 THEN T=T-10:C=1 ELSE C=0 
790 C$=R1GHTS(STRS(T) ,1)+C$ 
800 NEXT 

810 IF C=i THEN C5="l"+C$ 
820 PRINT "THE ANSWER IS "C5 
830 END 

840 ******* MULTIPLICATION 15*90: METHOD 15*1 90 TIMES ****** 
■ 850 DIM A#(90) 
860 PRINT"ENTER THE FIRST POSITIVE WHOLE NUMBER UP TO 75 DIGITS 
LONG" 

870 INPUT A? 

880 "IF LENCA$)>75 PRINT "NUMBER IS TOO LARGE PLEASE REENTER" :GOT 
860 

890 PRINT "ENTER THE SECOND POSITIVE WHOLE NUMBER UP TO 3 DIGIT 
S LONG" 

900 INPUT BS:IF LEN{B$)>30 PRINT "NUMBER IS TOO LARGE PLEASE REE 
NTER":GOTO 890 

910 IF LEN(BS)>15 THEN Fg=LEFT5 (B$ , LEN ( B$) -15) : B#=VAL ( RIGHTS ( BS , 
15) ) !GOTO 930 
920 r$=""!B#=VAL(Bg) 
930 FOR N=LEN(A5) TO 1 STEP -1 
940 A#(N)=VAL(MIDS(AS,N,1) ) 
950 NEXT 

960 FOR N!=LEN(A$) TO 1 STEP -1 
970 T#=A#(N)*B#+C# 
980 T$=STR5(T#} 
990 CS=RIGHT$(TS,1)+CS 
1000 C#-VAl,(LEFT$(T$,LEN(T$)-1)) 
1010 NEXT 

1020 C$=STRS[C#) +C$ 
1030 AS{X)=CS:X=X+1 

1040 IF F¥=""PRINT "THE ANSWER IS "CS:END 

1050 IF FS="DONE" THEN A$-RIGHT5 (A$ { 0) ,LEN ( A$ ( ) ) -1) : BS=RIGHT5 ( A 
5(1) ,LEN(A$(1)) -1J+STRING$(15,"0'') :B#=0:T# = 0:CS = "":GOTO 710 
1060 B#=VAL{F$) :FS="DONE":C#=0:CS="":GOTO 960 
1070 END 

1080 ************** REVISED DOUBLE PREC ROOTS***** ********** 
1090 PRINT "ENTER ANY POSITIVE NUMBER UP TO 16 DIGITS LONG" 
1100 INPUT M 

1110 IP A#>9 999 999 999 999 999 PRINT "NUMBER IS TOO LARGE PLEA 
SE REENTER": GOTO 1090 
1120 B#=A#/2 
1130 T#=B#*B# 

1140 IF Tf>At THEN B#=B#/2: GOTO 1130 
1150 IF T#=A# PRINT "THE ANSWER IS " B#:END 
1160 H#-B#*2 
1170 L#-B# 

1180 Git = (H#+L#)/2!T#=&ft*G# 
1190 IF G#=H# THEN 1220 
1200 IF T#>A# THEN H#=G#:GOTO 1180 
1210 IF T#<A# THEN L#=G#:GOTO 1180 
1220 PRINT "THE ANSWER IS "G* 





00010 


; 


LEFT 


JUSTIFY PKI 




00020 








0000 


B0030 




ORG 


0H 


0002 CD7F0A 


00040 




CALL. 


0A7FH 


0003 CDBI09 


00930 




CALL 


39D1H 


0006 CDEF0A 


00950 




CALL 


DAi::FH 


0009 3EC0 


00960 




LD 


A, 128+64 


000B 010305 


00970 




LD 


BC,^503H 


000E CDBE0F 


00980 




CALL 


0FBEH 


0011 212F41 


00990 




LD 


HL,4I2FH 


3014 3E20 


01000 




LD 


A,' ■ 


0016 0609 


01010 




LD 


8,9 


0018 23 


01020 


CKSPSl 


INC 


HL 


0019 BE 


01030 




CP 


(HL) 


001A 28FC 


01040 




JR 


2, CKSPSl 


001C CD3A03 


01050 


PRINTl 


CALL 


033AH 


001F 7E 


01060 




LD 


A,{HL) 


0020 05 


01070 




DEC 


B 


0021 B7 


01080 




OR 


A 


0022 2803 


01090 




JR 


Z, SPACEl 


0024 23 


01100 




INC 


HL 


0025 18F5 


01110 




JR 


PRINTl 


0027 B8 


01120 


SPACEl 


CP 


B 


0028 2807 


01130 




JR 


Z.EXIT 


002A 3B20 


01140 




LD 


A, ' ' 


002C CD3A03 


01150 


SPSl 


CALL 


033AH 


002F 10FB 


01160 




DJNa 


SPSl 


0031 C39A0A 


01450 


EXIT 


JP 


0A9AH 


0000 


01460 




END 





PUBLIC DOMAIN 



; RELOCATABLE 
;GET VARPTR 
;MOVE TO ARITH 
;SET SNG 
; FORMAT COMMAS 
;FORMAT ##,###.## 
; FORMAT 



rCHECK FOR ZERO 




sKETURN VALUE LAST CHAR 



Program Listing 2 



th tuntdons 



amsteyr radio operators. Features column tieiidings toiiFid 
in conventional radio logs, nalhing is lelt oull FREE 
callsign duplicating piogtam included S1 3 3r< 

AMATEUR RflOlO THEOBY REMIEWS™. Upg.aie sue 
cessfullyl Pass the FCC Exam. Over 86% al our cuslamers 
have passed! Eiperience an apprnach to learning suen 
l*!.!bQ0kE r.annol prouidp. Spfcily Ucensfi Klass m\ 9fi 



MANY MORE 



MICR0-80INC. 

E. 2665 Busby Road 
Oak Harbor, WA 98277 
1-206-675-6143 "''^ 



t'See List of Advertisers on Page 455 
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SOFTWARE , INC. 



Kitchen Table Inc. first became 
well-known for its line of user- 
hostile hardware. Undocumented re- 
set keys, monitors emitting x-rays at 
random intervals, and keyboards 
which sometimes became energized 
with 110 volts made the early model 
TLS-8E computers exciting to use. 

Now, KTI has introduced another 
innovation whose time has passed: 
"manufacturer-friendly" business and 
utility software. For example, the KTI 
accounting package automatically gen- 
erates a check payable to Kitchen Ta- 
ble Inc. and locks up the computer key- 
board until the check clears. 

Kitchen Table has also introduced a 
new release of DROSSDOS (Version 
7.6) which gives a whole new meaning 
to the term "user support." Purchas- 
ers are expected to supply KTI with a 
telephone number the company can 
dial to reach the user if Kitchen Table 
has any problems or questions. You 
are required to develop your own doc- 
umentation, help debug the operating 
system, and then share your efforts 
with the Kitchen Table research and 
development staff. 

Sinj^lc Dysfunction 
Operating Systems 

One of the first of these "manufac- 
turer-friendly" products is the new line 
of Kitchen Table "Single Function" 
Disk Operating Systems. Kitchen Ta- 
ble Inc. research has revealed most 
TRS-80 owners rarely can use or un- 
derstand ail of the sophisticated fea- 
tures of most modern DOScs, such as 
NEWDOS80, LDOS, or DROSSDOS. 
The average user needs nothing more 
than an operating system allowing 
booting and loading the latest imple- 
mentation of Kangaroo or Dig Dug. 

Singie Function DOS was conceived 
by KTl's head programmer, Zero 
"One-Tooth" Rce, a transplanted Sri 
Lankan now living in the United 
States. His first effort was UNODOS, 
which has a single function, TRACE. 

Other SFDOS products are equally 
simple to use. Each can only perform 
one function, so the user does not have 
to worry about comphcated syntax or 
disk-cluttering system overlays. Com- 
pare a typical program copying session 
with NEWDOS80, DROSSDOS, and 
KTFs new COPYDOS; 

NEWDOS80 — COPY:lTO:2 
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1 ^ 



KTI pulls 

wraps off 

hostile-ware 



1 1/I2/82,NDMW,FMT,SPW = 
PASSWORD,NDPW = SECRET, 
KDN,KDD,SN = D1SK1,CBF, 
USR,/CMD,UPD,ILF,CFWO, 
DDSL-17,DDGA = 2 

We won't waste time here explaining 
what all those options mean. I certainly 
don't understand them. If Apparat 
was unable to provide a concise expla- 
nation in the NEWDOS80 documenta- 
tion, there is little point in attempting it 
at this point. 

DROSSDOS— COPY :1 TO :2, 
PLEASE, NFSD,URTS,KTUPEE, 
1PS,DUF,WDD,HD1BS,AGAR 

These copy options arc relatively 
straightforward: 

• PLEASE — Mandatory obeisance to 
system . 

• NFSD— No Format Source Disk. 

• URTS — Use Recognizable Track 
Structure. 

• KTU PEE— Keep Trying Until Parity 
Errors Eliminated. 

• IPS — ^Ignore Protection Scheme. 

• DUF— Delete Useless Files. 

• WDD— Write Defective Directory. 

• HDIBS— Hide Directory In Boot 
Sector. 

• AGAR— Allocate Granules At Ran- 
dom. 

With COPYDOS, the process is 
much simpler. The correct syntax is 
COPY. This is used for both full-disk 
and single file copying. There are abso- 



by David Busch 

lutely no options. The operating sys- 
tem will select a source and destination 
disk at random, choose a program {or 
groupof programs) to COPY, and per- 
form the function. We found this DOS 
to be a real time saver. Unfortunately, 
it cannot be used with systems having 
fewer than three drives. 

Other Single Function DOScs are 
equally easy to use. DICEDOS does 
nothing but simulate the roUing of six- 
sided or n-sided dice. NANODOS is 
like MICRODOS, only smaller. 
NILDOS is tinier yet, while the often- 
talked about NULLDOS has yet to be 
seen on the market. 

User-Hostile Business Software 

The first of these programs is "No 
Accounts," a comprehensive Very 
General Ledger/ Accounts Payable- 
Receivable package. The program 
comes with a hardware interface to a 
BSR appliance controller module. I 
failed to see the need for such a fea- 
ture, but blithely connected the con- 
troller, following KTI's instructions. 

When the Accounts Payable module 
is initialized, the first thing it does is is- 
sue a check for $249.95 payable to 
Kitchen Table Inc. Then, the program 
seizes control of the lights and appli- 
ances in your home (including air con- 
ditioners, the furnace, and your auto- 
matic garage door opener) until the 
check clears, and the proper entry has 
been made in the General Ledger. 

I judged this to be a fairly fool- 
proof way of ensuring the software 
vendor is paid for his efforts. How- 
ever, KTI has finally come up with a 
practical anti-piracy measure as well. 
Any time the program is copied, Ac- 
counts Payable senses this and issues 
another $249.95 check. 

No Accounts is the firm's first effort 
at penetrating the burgeoning small 
business market. Other less successful 
software companies have insisted on 
marketing packages conforming to ac- 
cepted accounting practices. Kitchen 
Table did extensive market research 
and found most business users prized 
tlexibility over accuracy. 

All in ail. No Accounts is an unusual 
package. It is designed for the small 
business person who has found it diffi- 
cult to keep two sets of books using 
old-fashioned manual methods. These 
programs automate the task, provide 



greater control, and lend an air of legit- 
imacy to the phoney set of figures. 

Eight programs make up the pack- 
age. Four are used to generate the 
"public" set of books used for tax au- 
dit purposes. They are called "General 
Ledger," "Accounts Payable," "Ac- 
counts Receivable," and "Inventory 
Control." 

Four other programs exist on the same 
disk, under the names "INVADERS/ 
BAS," "HANGMAN," "WUMPUS," 
and "STARTREK/CMD." These may 
be made invisible in the disk directory if 
desired. They arc actually just ordinary 
business accounting programs, except 
they encrypt all data files so that they are 
virtually unreadable, even by the pro- 
grams themselves. Some additional self- 
destruction features have been built in, 
but we were unable to test them. The 
documentation advised fiaving a fire ex- 
tinguisher on hand, so wc balked. 

For partially debugged Basic code, 
the No Accounts programs worked 
well. Options abound. The operator 
may generate as many as six different 
audit trails for the same transaction. 



Petty cash in amounts up to 
$999,999.99 may be accounted for in 
several imaginative ways. Trial bal- 
ances may be performed in reverse — 
the user can insert the desired trial 
balance, and the program will adjust 
all the other figures to match. 

Posting to the General Ledger is ex- 
tremely simple, and does not require 
operator intervention or time-consum- 
ing key entry. Instead, the program 
takes entries from the legitimate Ac- 
counts Payable file, and a certain per- 
centage of the Accounts Receivable 
data, and generates a General Ledger 
entry that more or less cancels out. If 
desired, the operator can specify a small 
loss or profit for any given month, 
quarter, or fiscal year. Accounts Pay- 
able and Accounts Receivable files are 
also developed automatically. 

Various dummy reports are also 
supphed, including a tongue-in-cheek 
breakeven analysis, balance sheet, 
and cash flow and budget analysis. 
Depreciation of non-existent assets is 
allowed. 

I found the Owner Expense Ac- 



count module to be very impressive. 1 
supplied it with dummy data (which it 
prefers to the real thing) about an 
imaginary business trip to Wah Dis- 
ney World in Florida. The program 
produced a plausible printout ac- 
counting for travel expenses (two 
Monorail rides), special clothing ex- 
penses (Mickey Mouse T-shirts), and 
a four hot-dog business luncheon 
with Walt Disney himself. 

The Inventory Control module was 
most interesting. Entries may be made 
for "Number of Item On Hand," 
"Number of item Really On Hand," 
"Lost Through Pilferage," "Lost- To 
Brother-ln-Law," and "Never Offi- 
cially in Our Warehouse." 

Feedback Welcome 

Since my expose on CompuServe's 
CB simulator in the June/July issue 
of 80 Micro, 1 have been receiving a 
Hood of e-mail from irate users of 
Kitchen Table products. You may 
continue to send these comments to 
me in care of User l.D. 70060,137. 
All will be ignored. ■ 
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tax/saver:" The tax help prosram 
for the layman and the professional. 



Privacy. 

Built-in tax aids. Answers questions like 'is my lather my 

dependent?" and 'Are my deductions reasonable?" 

Tax regulations programmed in by our team of accountants. 

Type in your figures and you've done your own tax return. 

Output to video or lineprinter. (Overlays available.) 

Tax deductible. 

Manual: Tax information, lists of deductioris, tax glossary. 

TAX/SAVER'" I: completes long and short forms, itemized 

deductions, interest, dividends, income averaging. 

TAX/SAVER'" II: all features of TAX/SAVER'" I plus 

business income and capital gains. 

40% Discount on yearly updates. 



Reviews and Users' Comments: 

Aboui TAX. FORECASTER'": 

■VERY HANDY!" — T, Pettibone, "Software Critic", Program Reviews for the "J 

About TAX/SAVER'": 
"This is a very valuable tool" 
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— R. Perry, Personal Computing Magazine, 
"Tax Preparation Software", December 1981 

'Thisistheperfectprogramfortho^edoingtaxesforothers (. . .goodforan 
individual, too!!) '~' B.M., Missoula, MT {Professional Preparer) 

^Registered !rddijrt;.s;K m R„(iio Shack ®Copyri9hl ;■?«". 



"lAX/FORECASTER" converts TAX/SAVER" to a tax plan- 
ner. Lets you. see how financial decisions will affect your taxes. 
TAX/FORECASTER" can be used alone, 

KFVVl PROFESSIONAL TAX/FORECASTER" 

1^ ^ * adds disk storage of client files and income averaging. 
Orders will be filled in late January to allow inclusion of new lax laws. 
TO ORDER: 



Call collect 203-324-3009 or 203-544-8777 ot mail ihii 
coupon to: Micromatic Programming Co. 

P-O. Box 158, Georgetown, CT 06829 

Please enroll me in member's service and send: 

a TAX/SAVER'" I @ $89,95 Manual included 
D TAX/SAVER'" II @ $139.95 Manual Included 
G TAX/FORECASTER'" @ $59.95 
n PROFESSIONAL TAX/ FOR EC ASTER'" 
@ $99,95 (requires 48K) 
($15. off any TAX/ FOR EC ASTER'" with any TAX SAVER'- 1 
n Tax Form Overlays (set of 5) @ $39.95 
D Please send me more information 
Please check one: 

TRS-80* Model i D 32K, 2 drives D 48K, 2 drives 

TRS-80* Model 111 D 32K, 2 drives D 48K, 2 drives 

Add $3.50 for postage and handling, CT residents add T/^X sales tax. 

Name 



Address 
City 



_ Stale 



.Zip. 



G Check □ Master Charge G Visa 

C.ird -No. . _. F.x[) d,iic. 



-See List ol AdverUsers on Page 455 
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[.earning TRS-80 Basic 
for Models /, 11/ 16 and III 
by David A. Lien 
CompuSoft Publishing 
Box 19669 

San Diego, CA 92119 
softcover, 544 pp. 
$19.95 

by Arthur Husloii 
80 Micro Staff 



r earning TRS-80 Basic for Models 
_/-//, 11/16 and ///will give the begin- 
ner an easy start into the Basic lan- 
guage. It is written by Dr. David A. 
Lien, the noted author of many com- 
puter books, including the TRS-SO 
Level I User's Manual, the revised Hp- 
son MX-80 printer manual, and The 
Basic Handbook. Dr, Lienisoncof the 
best documentation writers in the busi- 
ness, and Learning TRS-80 Basic may 
be the best beginner's book for the 
TRS-80. 

The book is wriucn in an informal, 
humorous style and is liberally sprin- 
kled with cartoons. It manages to be 
readable without being cute, yet it is 
thorough and precise without over- 
doing any one subject. The complex 
problems thai might throw beginners 
are either treated very lightly or not 
goiie over. 

Organisation 

The table of contents provides de- 
tails on five major sections. The first 
section is the meat of the book — 420 
pages of instruction on the Basic key- 
words and programming icchniqucs. 
The second section contains answers to 
the exercises given in the first section. 
The third is 16 ready-to-use programs, 
each less than two pages long. The 
fourth is a series of appendices with in- 
formation specific to the Model 1, 111, or 
11/16. And the fifth section is an index 
that cross-references the Basic com- 
mands and terms used in the book. 

The organization of this book, into 
instruction to appendices and index, is 
what makes it useable; the nature of 
the instruction makes it enjoyable. 
Lien covers all the Basic keywords used 
in a TRS-80 Model 1 or 111 operating 
without Disk Basic. Each one is exam- 
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ined thoroughly: the ways to use it, and 

the ways to avoid misusing it. In each 
chapter, examples demonstrate how 
the keywords relate to each other in a 
Basic program. 

The last 30 pages of the tutorial are 
devoted to program control. Lien cov- 
ers flowcharting, and debugging pro- 
grams. Included is a short memory test 
for times when the hardware seems to 
be at fault. These chapters aione are 
worth the price of the book. Too many 
books teach only the Basic keywords 
and nothing about programming; this 
book teaches you to write programs, 
and then what to do when they do not 
work correctly. 

The answers to the 79 questions in 
the tutorial tend to be a little short. An 
English explanation of what is happen- 
ing in the program could have been 
used more often than it was. 

I he Appendices 

The ready-to-run programs serve as 
examples of what the Models 1 and III 
can do with competent programming. 
The appendices, however, arc much 



more useful. To some they may be of 
more use than the tutorial. Appendices 
A-H cover 68 pages and include sep- 
arate ASCII Code Tables for the Mod- 
el l/Ill and 11/16, and explained list- 
ings of the error messages for Ihc I/lII 
and 11/16. 

The important parts of the appen- 
dices are tutorials on using disks and 
on setting up the hardware. Turning on 
the system, turning off the system, en- 
tering Disk Basic, returning to the 
DOS Ready prompt, and taking a di- 
rectory are covered in five pages each 
for the Model I, 11, and HI. The appen- 
dix on setting up the Model 1 Expan- 
sion Interface is interesting for its 
thoroughness, as is the section on using 
the real-time clock without Disk Basic, 
information that is hard to find. Final- 
ly, a section on using two cassette 
recorders with the Model 1 is in- 
valuable. 

Also included is a section reviewing 
the Basic keywords that are peculiar to 
the Model 11/16, essential to any book 
that purports to explain Basic for all 
TRS-80S, Color Computer excluded. 

Weak Points 

Learning TRS-80 Basic is not 
without flaws. Its biggest is that in try- 
ing to ease the beginner into computing 
it sometimes neglects the advanced 
programmer. Keywords like PEEK, 
POKE, USR, and VARPTR are cov- 
ered too briefly. 

Lien states that the book was written 
for the Model III, but that it can be 
used equally well on (he Model i, II, 
and 16. I think it was written for the 
Model 1 and 111 with the 11/16 thrown 
in as an afterthought. To his credit, 
Lien thoroughly documents the multi- 
tude of small differences between the 
machines in the margins of the book. I 
came away impressed with the book's 
completeness, but felt' that the overall 
effect was a little busy. 

The only Disk Basic commands doc- 
umented are CMD"S" (return to the 
disk operating system). Save and 
Load. However, anyone with disk 
drives who is just learning Basic would 
still benefit greatly from this book. 

Learning TRS-80 Basic is one of the 
best introductions to Basic you can 
buy. In readability and thoroughness it 
far surpasses the Model I, 111, or 11/16 
Basic manuals. ■ 
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N'T TAKE OUR WORD FOR IT! 



"Penetrator is a state-of-the-art game for the TRseo.f 

"You are the sole survivor of a fighter squadron whose 
mission is to make it through four defense rings and blow up an 
illegal cache of neutron bombs. 

"The landscape is as treacherous as your enemies,, .But this 
is where the best feature of Penetrator comes in: You may mal<e 
custom landscapes to suit your ability. You can remove difficult 
areas and add or subtract missiles and radar bases, 

"Another good feature is the training mode. You may play 
continuously until you get the hang of the game^ It's as close 
to immortality as you'll get! 

"The graphics are about as good as is possible on the 
TRS80.., the display you get after destroying the bomb cache 
is something like Fourth of July fireworks. 



"The sound is great; you get snappy little tunes at the 
beginning of each game and a triumphant number after blowing 
up the bomb cache. 

"Penetrator is a very well done game program and worth the 
asking price."* 

We didn't say that! 80 Micro did in its September issue. If you 
want to see penetrator for yourself, see it at your favorite 
software dealer or order directly from Melbourne House 
Software Inc. 

• 16K TRS Model i/ili, two-cassette pack S24.9S 

• 32KTRSMotJell/lll, protectee dlskette52fl.95 

Writeforcomplete catalogue. Otner arcade games currently available include 
STRIKE FORCE - the Ultimate In arcade action and G0B6LEMAN - a game to drive you bananas. 

Please add ii.50 per order for snipping, foreign orders add S6.00 
Visa, Mastercnarge accepted - write in witn card number and expiration date. 



^Melbourne House Software lnc.;l47ReedwoodDrive 



, Nashville, TN 37217 
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Extended muM ATH 

Microsoft 

10700 Northup Way 

Bellevue, WA 98004 

Models I and III 

$250 

by Bruce Powel Douglass 

MuM ATH is a symbolic mathemat- 
ics pacicage for microcomputers. 
An abbreviated version of this package 
has been available for some time, but it 
is much weaker than the CP/M ver- 
sion. Microsoft finally released their 
extended muMATH package and it is 
worth the wait! 

muMATH uses symbolic mathemat- 
ics and is written in muSIMP, an 
RLiSP-like cortex parser for an inter- 
nal Lisp structure. It performs exact 
arithmetic {to 611 digits) and does not 
normally attempt to reduce fractions — 
3/7 remains 3/7, not some floating- 
poini approximation like 0.4285714. 
Hence, muMATH arithmetic is exacl. 
Extended muMATH can print answers 
in decimal notation to any number of 
digits you like. This presents the inter- 
esting pos.sibility of essentially infinite- 
precision mathematics printed out ei- 
ther as a fraction or as a decimal num- 
ber. It is very simple, using a Taylor 
series, to calculate LN(2) to 200-digit 
accuracy. 

muMATH allows mathematical ma- 
nipulation of symbols, like X, without 
assigning them a value (or binding). 
The use of unbound variables gives 
muMATH its great power. You can as- 
sign non-numeric values to a variable. 
You can bind A to (X+2*Y)/Z-Q. 
You can evaluate A by temporarily 
assigning X, Y, Z, and Q numerical 
values, using the EVAL or EVSUB 
functions. muMATH has this ability 
since it is essentially an implementation 
of Lisp, in which data and programs 
have the same format and are inter- 
changeable. 

The extended muMATH package 
has several enhancements to the origi- 
nal abbreviated TRS-80 version in- 
cluding: 

• allowing decimal output of numer- 
ical results in addition to the standard 
rational arithmetic output; 

• an enhanced integral calculus pack- 
age for more sophisticated integration; 

• fast loads and saves of muSIMP en- 
vironments to and from disk; 
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• a Limit package to evaluate limits; 

• a Sigma package to evaluate sums 
and products (including infinite sums 
and products when combined with the 
Limit package); 

• a complete Matrix package in- 
cluding matrix addition, transposition, 
inversion, and division; 

• an equation-solving package for 
solving various types of equations (in- 
cluding simultaneous equations when 
combined with the Matrix package); 

• a Trace package used for debugging 
muSIMP and muMATH functions; 

• EDIT80, a line and character- 
oriented editor for creation of your 
own function files for muMATH; 

• interactive lessons on disk for learn- 
ing to use muMATH; 

• an improved manual; and 

• all the files (with some updates) that 
came with the abbreviated TRS-80 
version. 

First, the manual is better than the 
one for the abbreviated TRS-80 ver- 
sion. It includes a complete listing with 
explanations of the muSIMP and 
muMATH functions, and the location 
for the jump vectors for interfacing 
machine-language programs. (The ex- 
panded version now honors protected 
memory, allowing you to put your ma- 
chine-language programs there.) The 
manual also includes references for 
those interested in learning more about 
computer algebra and symbolic mathe- 
matics, a nice table of contents, and 
two indices. 

A complete tutorial on muSIMP 
would be helpful as none are available 
anywhere on muSIMP or its cousin 
RLISP. And better distinction could 
have been made in the differences i-.i 
usage between Function and Subrou- 
tine. The former is call by value and the 
latter is call by name. The manual will 
help the uninitiated, but advanced ap- 
plications will have to be self-taught. 
(The folks at the Soft Warehouse, 
creators of muMATH, have been quite 
receptive and helpful to my queries for 
information.) 

The Modular Approach 

muSIMP, when you first get your 
four disks (for the Model I; two disks 
for the Model III), is uncombined with 
the parts to make the muMATH 
package work. Since there are many 
separate files, and they won't all fit in- 
to memory at once, you can create 
your own applications packages. The 



manual explains the procedure quite 
well. muMATH users now have save 
and load functions for saving the cur- 
rent files in memory to disk in a special 
distilled formal (D-code, just as it is 
stored in the computer's memory), 
rather than in the ASCII source-code 
format. The ASCII source-code for- 
mat takes a long time to load in. (The 
creation of one particular package 
took half an hour to load the files, but 
once the environment is saved in 
D-code form, it takes about 10 sec- 
onds.) muMATH still lacks a function 
to save user-created functions to disk in 
ASCII form, hence the inclusion of the 
EDIT80 text editor. 

The result of this modular approach 
is that I have several application ver- 
sions of muMATH, one for solving 
equations, one for calculus applica- 
tions, and one for matrix calculations, 
all of which can be easily and quickly 
loaded by muMATH. Also, much 
more user memory is available for user 
functions. Reclaim( ) is a function that 
forces a garbage collection to occur 
and returns the number of bytes of free 
space. Whereas in the abbreviated 
TRS-80 48K version only about 2,000 
bytes are free for user programs, a 
typical amount of memory in my appli- 
cations packages is lOK to 20K. 

muMATH contains a decimal-out- 
put function controlled by the value of 
a variable called Point. When Point is 
false, rational arithmetic is displayed 
(1/2+ 1/3 = 5/6). When Point is true, 
the value of Point determines the num- 
ber of digits displayed to the right of 
the decimal point. You may print out 
300 decimal places with complete ac- 
curacy since the internal storage re- 
mains rational rather than floating 
point. This is a very valuable addition 
to muMATH, since 1755376/1928477 
is less meaningful than 0.91023953. 
Anyway, the capability is there and 
enhances the utihty of muMATH con- 
siderably. 

The Packages 

The Trace facility is used for debug- 
ging functions and works much Hke the 
standard Lisp Trace function. The out- 
put is controlled by the variable 
Mathtracc; when Malhtrace is true, 
mathematical notation is used, when it 
is false, list notation is used. The out- 
put Usts the names of the functions 
called with their passed arguments 
shown, and result in leaving each of 
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these functions, complete with inden- 
tation, to show the depth of the func- 
tion calls. 

The EQN/ALG and Solve/EQN 
packages solve equations. A muMATH 
equation is an expression with the = = 
symbol standing for the equal sign 
within the expression. Thus A: 
X*2-3= =2/(X-10)-f3 assigns the 
equation on the right of the colon to 
the now bound variable A. You can 
solve the equation by entering the com- 
mand Solve{A,X), where A is the equa- 
tion and X is the variable for which the 
equation is to be solved. Real and com- 
plex roots are returned. 

Sometimes division by zero occurs 
because muMATH tries to cancel and 
simplify as much as possible. mu- 
MATH may occasionally divide by 
some unbound variable that may later 
turn out to be zero. So it pays to check 
your answer. 

The Array/ARI and Matrix/ ARR 
packages give muMATH the ability to 
handle matrix algebra and matrix cal- 
culus. Since the TRS-80 character gen- 
erator does not have square and curly 
brackets used in the CP/M version of 
muMATH, « and (< replace them. 
Some of the operations programmed 
into the matrix package include matrix 
multiplication, addition, transposi- 
tion, division, powers, and inversion. 
These operations can be performed on 
ragged matrices as well. 

IDMAT( ) is a special function that 
returns the identity matrix. To divide 
matrix B by matrix A, you can simply 
use the MDV command: A MDV B. 
Solutions with parameters are returned 
with singular matrices. The Matrix 
package also includes a function to cal- 
culate the determinani. It uses a Gaus- 
sian elimination method that will 
sometimes fail to adequately reduce 
the expressions. The reason for this is 
that this method requires extensive di- 
vision, and muVIATH will sometimes 
miss simplifications. A better method 
is minor expansions (although it is not 
better in numerical mathematics), and 
with the recursive power of muMATH, 
it is easy to program. The only problem 
with the expansion of minors is that it 
takes a lot longer and uses more stack 
space than the elimination method. 

The Integral Calculus Package 

The integral-calculus package is en- 
hanced as well, with the inclusion of 
INTMORE/INT. A function to per- 



form definite integration (DEFINT) is 
also provided. 1 found what 1 consider 
to be a small bug in this DEFINT func- 
lion. Even if the integration results in a 
simple answer, if the control variable is 
true it will try to use the Limit package 
to evaluate the definite integral. It 
should recognize the need for simple 
substitution and evaluation. As it is, 
you need only remember to set the con- 
trol variable #L1M to false, if you 
know the integral to be a proper one. A 
true fix is printed in the Soft Ware- 
house Newsletter #6. 

You can use the Limit package to 
help evaluate some integrals. The class 
of integrands that muMATH can han- 
dle is still limited, but it is significant. 

A Taylor-scries function is con- 
tained in a separate package for the 
evaluation of Taylor series truncated 
to any number of terms desired. 1 have 
rewritten the function to yield a solu- 
tion based not on the number of terms 
evaluated, but on the accuracy of the 
answer. Both forms arc easy to use and 
program in muSlMP. 

The Limit package, LIM/DIF, pro- 
vides the ability to find the one-sided 
limit of a mathematical expression as 
one of its variables approaches some 
value. It can be used to evaluate a vari- 
able as it approaches a finite value of 
either minus or positive infinity. You 
may specify whether you wish to ap- 
proach the value from the "left" or the 
"right." 

SIOMA/ALG provides closed-form 
summation and products. Certain ap- 
plications may require use of the 
LIM/DIF package for the sum or 
product to be evaluated, as with in- 
finite limits. Noninfinite limits normal- 
ly require the summation (or produc- 
tion) and simplification of the terms, 
something muMATH excels at. 

The expanded version of muMATH 
provides a number of other enhance- 
ments. MEMORY(X,Y) is similar to 
POKE X,Y. TRS-80 graphics func- 
tions are supported including CLS to 
clear the screen; Cursor to position the 
cursor; Point, Set and Reset to test, 
turn on, or turn off any graphics pixel 
on the video screen. TRS-80 ROM rou- 
tines can be called either by assigning 
the jump vectors correctly, or with the 
PUTD command. You should use this 
capability with care liowever; the ROM 
has many exits to Disk Basic, and if 
one is taken, it's off to Nevernever- 
land. 
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Conclusions 

Overall, I am quite impressed with 
the expanded version. It is powerful 
and can handle more sophisticated in- 
tegration problems, compute limits, 
finite or even infinite sums and prod- 
ucts, and contains very powerful ma- 
trix manipulation abilities. 

The package lacks a function to save 
ASCII fiies from the muMATH envi- 
ronment. This would let you debug 
functions within muMATH and then 
save them directly on disk. Further, it 
would be nice to be able lo save the 
functions in the distilled D-code onto 
disk for quicker loading. Currently, 
single functions and entire packages 
must be loaded and are incrementally 
compiled during the load. The excep- 



tion is entire muSlMP environments 
that can be saved and loaded. 

Even with these reservations, the ex- 
panded version of muMATH is one of 
the few programs that, by itself, war- 
rants purchasing a computer. 

Who should buy this package? Par- 
ents and educators wanting to teach 
mathematics to students; students who 
want to learn more about mathematics 
in an interactive environment; pro- 
fessionals who work with mathematics 
on a daily basis, and would like to save 
time performing time-consuming 
mathematical manipulations; and the 
curious, who want lo know more 
about the topics of artificial intel- 
ligence, computer algebra, structured 
programming, or symbolic mathe- 
matics. ■ 
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CCForth 

Frank Hogg Laboratory Inc. 

130 Midtown Plaza 

Syracuse, NY 13210 

Color Computer 

$99.95 

by Jake Commander 

Software support for the Color Com- 
puter is beginning to move. The 
CCForth package written by Chuck 
Eaker and published by Frank Hogg 
L.aboratory Inc. is an example of the 
software beginning to appear for Color 
Computer users. 

Forth is one of those languages with 
a following of fanatic programmers. 
It's a stack-oriented interpreter and is 
one of the lower-level languages 
around. Low level means that certain 
functions (such as Qoating-point num- 
bers) aren't available as standard fea- 
tures in the language. This isn't as bad 
as it sounds and is outweighed by the 
speed advantages offered. 

The lower-level language interpret- 
ers have less work to do interpreting 
and syntax-checking the programmer's 
code than high-level languages. They 
can therefore interpret the code faster 
and feel closer to machine code. 

Stack-oriented means that the lan- 
guage is structured around a last-in, 
first-out (LIFO) stack as used in ma- 
chine-code programs. Most number 
manipulations are performed on the 
stack, which is simply a list of bytes in 

p' See List ot Advertisers on Page 455 



memory with the characteristic that the 
last number on the stack is the first 
removed. 

Numbers are computed by push- 
ing, pulling, and otherwise bullying 
the numbers in this list. Forth is de- 
pendent on the stack, and has many 
commands that allow simple manipu- 
lation of the numbers placed there. For 
example, there are commands that al- 
low numbers to be duplicated, rotat- 
ed, swapped, and other desirable 
functions. 

Even though the stack has such a 
central importance in Forth, variables 
are easily defined and are used much as 
in Basic. Forth programmers, how- 
ever, guard the stack's use and frown 
on the unnecessary use of variables 
when a stack technique could be used. 
This isn't just snobbery; speed is the 
advantage and Forth is a fast language. 
Neatly stacked numbers can be dealt 
with faster than an untidy list of vari- 
ables that have to be searched and the 
desired variable fetched into a con- 
venient position. 

The fact that it's interpreted gives 
you the same advantages as languages 
such as Basic where you enter the code 
in a form readable by the programmer 
and it is then stepped through and In- 
terpreted by the language interpreter. 
Code can be entered, edited, tested, 
and debugged without converting il to 
machine code and handing it over lo 
the processor. Thus, if your code con- 
tains a bug, it won't be wiped out by a 
crash (although in Forth, if you try 
hard, you can do it). 
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Siari wilh a Model II floppy system and 
grow into a hard disk. Since all PST 
CP/M 2 systems are fully compatible. 

you will haue no conversion worries. 

Special note: P8T tiard disit systems 
allow you ttie user to configure logical 
drive assignments to your specifications. 
Write for more details. 

Prepaid VISA, M/C, or COD orders accepted. 
AH prices FOB Goleta and subject tochange. 
CP/M IS a registered trademark ot Digital 
Research. TRS-80 isa trademark of Tandy Corp. 



PICKLES T)ICKLF 
& TROUT 



P.O. BOX 1206 

GOLETA, CA 93116 

(805) 685-4641 



'Micro, November 1982 • 45 



h^ 



REVIEWS 



at Check- (ill 




NEW SY! 
TRS-S 

REGISTER 
POINT-OF-SALE 
COMPUTER 

Which perfofins aU the normal 
functions of a computer and is 
specially programmed to.... 



■ COMPUTE Sales Taxes, Discounts, 
Special Sales and Promotions 

■ TRACKS Sales by Type, such as Visa, 
Mastercard, Check, Charge, etc. and by 
Employee/Operator tor up to 30 people 

■ SELF-PROMPTING to Cashiers 

■ Produces Audit Trails and ACCOUNTING 
DATA for entire operation 

■ CONTROLS up to 20,000 INVENTORY 

LINE ITEMS on our Hard Dish Drive 

■ CONTROLS up to 1,500 INVENTORY 

LINE ITEMS on your Floppy Drive 

■ Complete, Ready-to-Ruh SOFTWARE 
comes with Cash Control Drawer Unit 

■ AUOIBLE SIGNAL produced when any 
key is depressed by any operator 

■ DRAWER operates automatically or by 
manual override anytime 

■ Generates RECEIPTS on Printer 

■ Available todisplay in English, French. 
Spanish, or German Languages 

■ Operates on 110AC or 220AC ..|usl plug 

it in 

■ NO INTERFERENCE with or modification 
ot regular TRS-80 Mod III. ..plugs rtghl 
into computer 

FREE Specifications and Data Package or 
order complete Operaling manual for $15 

from 

ICR/FulureSoft 

Box 1446 ■ Orange Park, Florfda 32073 

(904) 269-1S18 for Ischnlcal assistance 

and Daaler Information 

Inlegraled Cash Register Systems from 
as low as $449, 



If you don't want to stick with the 
interpreter, you can drop down into 

machine code. For this purpose, 
CCForth contains a 6809 assembler en- 
abling you to lini<. machine code with 
ihe interpreted CCForth code. 

The highhght of the Forth language 
is that you can define your own words 
and can enter them into the Forth dic- 
tionary and save them if required. Sub- 
sequent use of the new word causes it 
to be interpreted as if it were a standard 
feature. You could define a word that 
accomplished a floating-point conver- 
sion {for example) and use that word in 
your code every time you need floating 
point. 

It doesn't stop there though; if you 
want to define another word, you can 



'The highlight 

of the Forth language 

is that you can define 

your own words and can 

enter them into 

the Forth dictionary. " 




use the word you just defined as part of 

the new definition. In effect, you can 
create your own language and in doing 
so, you raise the language from lower 
level Lo higher level. This gives you 
great power and flexibility. If you 
don't like something in Forth you can 
just rewrite iti 

More than half the words used in 
CCForth can be redefined because 
they're provided in source code on the 
disk. The language can actually be 
used to write itself! 

CCForth comes on disk with a user's 
manual. The disk contains the inter- 
preter and some goodies to experiment 
with. These include games, music gen- 
erators, an assembler, source listings 
for two editors, and various samples 
for a total of nearly 90 screens. 

You call the CCForth interpreter by 
using Disk Basic's FOADM command 
followed by entering EXEC; CCForth 
then takes over . 

The world of CC'Forth is now open 
to you with all the benefits I've de- 
scribed. Accomplished users of Forth 
find themselves on familiar ground as 



CCForth was written around the 
Forth-79 standard published in late 
1980. The only unfamiliar sight can 
be the use of screens 32 characters 

wide instead of the usual 64. This was 
the only sensible course in view of the 
Color Computer's screen limitations. 
Screens arc the method Forth uses to 
store material on disk, if you've never 
used Forth before, you have a pleasur- 
able learning experience ahead of you. 

The user's manual is a gem. If you 
want a perfect example of technical 
writing, this is it. My small gripe is that 
although this manual is the right size 
(8/2 X U inches), it comes as a bound 
book with the pages glued at the spine. 
It's impossible to insert updates, and 
Frank Hogg Labs are stuck with what- 
ever errors crop up between the covers. 
To bear this out, within a week of re- 
viewing this software, a new version 
was released with nowhere to insert the 
updates. In Forth fashion, I redefined 
the manual by slicing the pages away 
from the spine and punching holes for 
a three-ring binder. 

Now for the best part; the style and 
layout are perfect. For beginners there 
are step-by-step explanations that 
teach the Forth techniques without be- 
coming dull or boring and without in- 
sulting the reader's intelligence. 
There's a delightful touch of humor 
here and there that keeps the author in 
touch with the reader. Neither concise- 
ness nor accuracy are compromised by 
this technique — just a twist here and 
there to enliven over 200 pages of text. 

As you become more familiar with 
the language you can use the glossary 
at the back of the book instead of 
searching through the examples. In 
fact, the whole manual becomes more 
serious towards the latter half, a touch 
that makes the book functional as both 
a tutor and reference. The manual has 
five sections, going from preliminaries 
lo the user's manual and glossaries at 
the end. 

Frank Hogg Laboratory Inc. ap- 
pears to have the best intentions as re- 
gards user support. As already stated, 
a second version was rushed to early 
purchasers of the package when it was 
realized some prcproduction releases 
of the software had found their way 
onto the market. This bodes well for 
future support. 

I heartily recommend this package. 
It will win a lot of support for the 
Forth language, and Justly so.H 
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Now TRS-80 owners can enjoy the portability of CP/M combined with 

the power of a full 64K or RAM with the MM-16K from Martin Data 
Systems. The Model 1 and Model III units install in your TRS-80 com- 
puter without any etch cutting, soldering, drilling, or hacking. It is easily 
installed by removing the Z80 microprocessor chip, plugging the MM-16K 
unit. The "experts" at Martin Data Systems have taken the time to insure 
that non-tech nically oriented people are capable of implementing the MM-16K 
in their system. 

Any TRS-80 Model 1 or Model 111 which has not been modified will 
accept the MM-16K. It is suggested that users running single density, 
5 1/4" drives have a minimum of two drives. (The CP/M operating 
system and its utilities will practically fill one disk.) Versions of 
the MM-16K have been designed to work with the standard 
Model I, the Omikron Mapper II, the Percom Doubler II, and 
the Model III. (Please call for availability of the LNW Doubler 
version.) 

TRSDOS, NEWDOS, and any other TRS-80 operating will run on the 
MM-16K without modification. After initial start-up, pressing the reset 
switch will offer the user three choices: 

1: TRS-80 2: CP/M Warm Boot 3: CP/M Cold Boot 

When in the TRS-80 mode, your computer has access to the TRS-80 
ROMs and looks exacdy like a normal TRS-80. In the CP/M mode, 
your machine has an extra 16K bytes of RAM, mapped at location 0, 
and will behave as a normal CP/M system. 




asmaia 

Please specify version 

Cat No. 4282 Percom Doubler II 
Cat No. 4293 TRS-80 Model I 
Cat No. 4294 TKS-80 Model III 
Cat No. 4295 Omikron Mapper II 
Cat No. 4296 LNW 5/8 Doubler 



DISKE 



VERBATIM DATALIFE 

5 1/4" Soft-Sector 

MD525-01t40 track,SS/DD) 
Cat No. 1147 

S27.95 

MD550-01(40 track,DS/DD) 
Cat No. 1492 

S46.95 

MD577-01{77/80 track,SS/DD) 

Cat No. 2330 

$39.95 

MD557-() 1(77/80 track,DS/DD) 
Cat No. 4246 

$49.95 



Dysan 

5 1/4" Soft-Sector 

#104/1D(40 track.SS/SD) 
Cat No. 3966 

$34.95 

#1()4/2D(40 track,SS/DD) 

Cat No. 4192 

S39.95 



HOW TO ORDER 

Write or phone. Pay by check, M/C, VISA, or COD {add $1.50 
for COD). CREDIT CARD CUSTOMERS-please include your 

daytime phone number. 

Outside Calif (800) 423-5387 
Inside Calif (213) 886-9200 

Offer expires Nov, [](), 1982 

Mention this ad and WE PAY SHIPPING! (UPS ground only). 




LBCTiiONICS 



19511 Business Ctr. Dr. 
Dept. Vll 
Northridge, CA 91324 



WHEN IN SOUTHERN CALIFORNIA, VISIT RETAIL STORES 

195U Business Center Dr. 2301 Artesia Blvd. 444 S. Indian Ave. 

Northridge, CA 91324 Redondo Beach, CA 90277 Palm Springs, CA 92262 



^ See Lisl of Advertisers on Page 45b 
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Sole 

Misosys 

5904 Kdgehill Drive 
Alexandria, V A 22303 
Mudel 1 with double density 

$25 ■ 

by Charles Knight 



Sole; sounds like something you'd 
have filet of, but it's actually the 
name of a new software package from 
Misosys for use with LDOS, the Model 
I, and an appropriate double-density 
adapter. 

Sole eliminates the need for Model I 
double-density users under LDOS to 
use single-density disks throughout the 
entire booting process. With Sole, this 
shortcoming is a problem of ihe past. 

The ROM bootstrap routine re- 
quires a disk be formatted in single 
density. It reads sector from cyhnder 
(track) 0, which contains the code to 



load in the rest of the operating system 
(SYSO, CONFIG/SYS, and SYSl in 
that order). The ROM doesn't under 
any circumstances read a double- 
density disk. It doesn't even present the 
user with the annoying no system or 
disk error messages. The way around 
this is to format cylinder in single 
density and the rest of the disk in dou- 
ble density. The reason this hasn't been 
done sooner is related to the large vari- 
ety of different hardware configura- 
tions supported by LDOS. For exam- 
ple, the Lobo interface boots on either 
single density or double density by 
reading in sector I of cylinder 0. 

The problem is not solved by simply 
reformatting the track. The code load- 
ed from the boot sector must be 
capable of reading double density, so a 
whole new boot routine must be writ- 
ten. In addition, SYSO must be stored 
in only one extent. Sole takes care of 
the boot code, and the documentation 
allows you to take care of the other 
easily. 

Once the disk is formatted in double 



density, a program called SOLEl runs 
on it, allocating the entire boot cylin- 
der to the file BOOT/SYS. This en- 
sures that no other file will occupy any 
part of cylinder since it will later be 
reformatted in single density. Then the 
single-density system disk is backed up 
to the double-density disk. This is done 
by first backing up SYSO, then SYS6 
and SYS7; using three separate back- 
up commands ensures these files are 
stored in the fewest extents possible. 
SYSO must only occupy one extent or 
the system won't boot in either density. 
Then the rest of the single-density sys- 
tem disk is backed up with a fourth 
back-up command, after which a pro- 
gram called S0LE2 is run on the result- 
ing disk. The result is a double-density 
disk that can be booted on the TRS-80 
Model I. 

Now, this sounds hke a lot of trou- 
ble, and it is,. But it only needs to be 
done once. After you create the first 
double-density booting disk, you can 
file SOLEl away and forget it. To back 
up this disk, format a disk in the usual 



NEW PRINTERS ADDED' FIND YOURS BELOW 



RIBBON SALE 



EXACT REPLACEMENTS, LONG-LIFE, HEAVY INKING 



Good 



RADIO SHACK-CENTRONICS-EPSON-ANADEX-BASE 2-HEWLETT PACKARD-MALIBU-IBM-NEC-C.ITOH-IDS 



PRINTER 

MAKE, MODEL NUMBER 
(Conlaci us if your prinlei is 
not listed We can probably 

RELOAD your old CHrlndges.) 

ANADEX 9000 Series 
BASE 2 
CENTR0NICS7-MEG 

702J703(704/753 
HP-MALIBU 26082631 

RADIO SHACK 
DAISY WHEEL II 

Carbon Film (26 1419) 

COLORS «"<"■■'""" 

Qtu6. thrown 

LongLite Fabric (1449) 

LPI-ll-IV 700^ipPack 
(1413)730/737/739(779 
LPIII-V (26.M14] 
LP VI-VIII (26 1418) 
LP VII (26.1424) 

EPSON MX 70 30 IBM 

MX 100 
CITOH ^""sm'o 

DATA ROYAL sooo 

NEC 8023 Senas 

Spinwrilef Fabric 
US Carbon Film 
COLOR-S 



RIBBON 
SIZE 



by 
Yards 



'/. X 1 30 



Vt X 25 LOBO 



g/IGx16 



SJ16xl4 



lf*MLoap 



Ki x20 
'/! I 30 



.130 



INSERTS EZ-LOAD™ 

EXACT FIEPLACtMEN rS made in 

our o*n shop fpsliirr Long-Ltte 

and Heavy jnhing. Our msiructions. 

DROP IN, NO WINDING! 



$21 f3 



$78/12 



$18/3 



$66/12 



$25/6 $48/12 S270/72 



$30/6 $58/12 $324/72 



$24/3 
SI 3/3 



S47/6 $90/12 



$48/12 



$16/3 ^*",||^ig'A;^J $66/1 2 



$17/3 



$62/12 



$18/3 



$66/12 



$21/3 



$78/12 



S16/3 



$66/12 



RELOADS 

You SEND your used 
CARTRIDGESlous. We 
flELOADthemtoryou. 



SI 0/ 1 
"S9/l' " 



S9 ea./2or more 
S8ea./2ormore 



$11/1 S10ea./2ormore 



$20/1 S18ea./2ormore 



^i5;3_ 

$18/3 



$9/1 S8 ea./2 or more 



$9/1 $8ea./2 or more 
$9/1 S8ea./2ormore 



S9/1 



$10/1 



$8 ea./2 or more 
$9ea./2ormore 



$9/1 $8ea-/2ormore 



sun S10ea./2ormore 



$18/3 



S66/12 



S18/3 



$66/12 



$18/3 $66/12^ 

S25/6 $48/12 $270/72 
$30/6 $56/12 $324/72~ 



S9/1 $8Ba-/2ormofe 
$9/1 S8 ea./2ormore 



$8/1 S7 ea,/2 or more 



S15/3 



S1R/H 



WORRIED ABOUT ORDEHING BY I^AIL? Relax. We've been in business tof many years and can 
please the smallest and largestjccount. You receive some ol the finest ribbons available made of our 
own exclusive IMAGE PLUS+ "^ t a brie and carbon film. Our ribbons la your priiHei exaclly, COM- 
PARE but BEWARE! We order all our competitor's products and are amazed at what we get. Have you 
ever received a new fabric ribbon you had to unwind and dump out on the table before you could use 
it? We have. Or, carbon film inserts that had no end-of-ribbon sensor? Or. 7-meg cartridges with only 
HALF enough ribbon at lull retail? Our only business is RIBBON manufacturing and distribution. We 
use the latest state-of-art production equipment and are blessed with a fine, dedicated staff. We fully 
guarantee all our products because we make them ourselves. You must be completely satisfied, peri- 
od. Our ribbons are made fresh daily and ^hipped within 24 hours. Write tor our broctiure and newslet- 
ter'MNKSPOTS". Dealerswelcome "T^fl 'O President 



^0^ 



NEW CARTRIDGES 

(from ttie various 

manufacturers Subject 

to availability') 



$30/2 $87/6 $168/12 



S25/2 $72/6 $140/12 



$18/3 $70/12 $408^72 
$21/3 $82/12 $480/72 



$20/2 $58/6 $112/12 



$25/2 $75/6 $15 0/12 
$22/2 $66/6 $132/12 
$16/2 $48/6 S96/12 



_$20/2 $58/6 $108/12 
• $36/2 ■ 



SILVER DOLLAR 

WIND to LOAD 

WHY DO WE SELL THESE'' 
This IS the lype ribbon you get il you order 
from oyr (elloiv advertisers. We sell them 
for lesssmce we rnake itiem ourselves. Do 
you really like the mess and inconvenience of 
unwinding and dumping this type rpbbon 
into a wastebaskel or out on a newspaper 
and^or winding ii inio your cartridge? We 
don'1 know why these are being sold. 
Computers should simplify your life, not 
mal^e IL more complex |ust to save a lew 
pennies. You are welcome to order these 
i( you cannot allord our EZ-LOAD im 
INSfcRTS RELOADS, or NEW CART- 
RIDGFS But BEWAREi You now know how 
to avoid disappointment. One more caution 
De sure to check the length ot any npbon 
BEFORE you Buy (t. For instance, an WX-100 
ribbon should be 20 yards long, not 20 as in 
theMX-80. 



$12/3 $44/12 $252/72 



$11/3 $40/12 $228/72 



$12/ 3 $44/12 $252/72 
$18/3 $66/12 $360/72 



Volumel MODEL tl 8" GAME DISCS Volum.2 

Biofhylhms, Trap Ugly Bingo 

$25 EACH Towers. Black|Bck 

Farkle. Pony S, 3 more 



Rip Cord, Yacht Sea 
Concentralion S A more 



SEND CHECK, MONEY ORDER, or COD TO: 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE, MO 65571 

(417)932-4196 

WE PAY UPS SHIPPING ON PREPAID ORDERS. PLEASE 

INCLUDE STREET ADDRESS FOR UPS DELI VERY. ADD 

SI. 00 FOR POSTAL OR ALASKA, HAWAII, CANADA, 

MEXICO. FOREIGN ADD 10%, U.S. FUNDS. 

CALL FOR NET 30. 
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manner for double density, run 
S0LE2 on it, then use the back-up pro- 
gram in the normal way. Your disk 
now has 70K more free space than be- 
fore and on drive where you need 
it most. 

If you need to reconfigure your SYS- 
GEN to change the HIGHS, run 
SOLE2 again on the System disk after- 
ward to prevent conflicts in memory 
usage during booting. This is not in- 
convenient, as the S0LE2 program 
runs in about 10 seconds and only con- 
sumes 1.5K of your new disk space. 
(This is necessary only if you have done 
a SYSTEM(SYSGEN) and wish to 
boot the disk.) 


no problem at all to owners of two or 
more drives. The bug manifests itself 
when the back-up program says, 
"ALERT! That's not the same source 
disk" even though it is the same source 
disk. If you have a single-drive, dou- 
ble-density system, you can use LDOS 
in double density, but you'll have to 
borrow a drive lo make back-ups of 
these system disks. 

The documentation is short — only 
three pages — but meets the high stan- 
dards of LDOS documentation. It pre- 
sents its subject lucidly and discusses 
the program's technical aspects in an 
understandable manner. It even warns 


you that a particular section is a 
technical discussion and tells you 
where in the documentation to skip to 
if you're not interested. 

Roy Soltoff is the author of Sole 
(he's also the author of LDOS) and he 
has certainly written a masterpiece. He 
offers a printed listing of the source of 
both SOLE! and SOLE2 for an addi- 
tional $25. 

At this writing. Radio Shack's dou- 
ble-density adapter is not available for 
testing. LDOS intends to support this 
adapter with a driver and there is no 
reason to believe Sole won't work cor- 
rectly with that driver as well.B 




Making Back-ups 

There is one bug in the Sole program 

system: You cannot back up a double- 
density System disk using only a single 
drive. If you have flippy disk drives 
you'll have to copy to another disk, 
and then copy it to the original's back- 
side. This is a problem in the back-up 
utility rather than in Sole and presents 
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Spectaculator 
Tandy/Radio Shack 
Fort Worth, TX 
Color Computer 
$39.95 

by Scott L. Norman 


O pectaculalor is an electronic spread- 
Osheet for performing budgetary or 
other tabular calculations on the Color 
Computer. It comes in the familiar 
ROM pack format, and can be used 
with either 4, 16, or 32K machines. 
You need a cassette recorder if you 
want to reuse your work, and a printer 
is handy. 




GEflP DDT WRITER 

Another GEAP expansion module for Epson Gratlrax Owners 
AND NOW - TRUE PROPORTIONAL PRINT ON YOUR EPSON! 



\ GERP 
GEflFHIES ECITOe 



RNc PRacffRnnce 



J. r. CDNSULTINC 

FEATURES GEAPCHARACTER FONTS "Create High Res Drawings wilhoul TRS-80 modifications or programming knowledge 'Create or modify tonts'Pnnt time 
options sucti as magnify, dot, spacing control, reverse and more •Library function allows saving to disk, printing or re-editmg'proportional spacing and 

letters __ SAMPLES ■ High Res 

@|9JC||SgQ]§gP "•"" "«*'^'*'' Characters 



ACTUAL CHARACTER FONTS/SIZE 

abEid RBCD abed 



i 



EMf^LL ENI^RNCED 



RBCDE BBCD abed nicuuPoxH^ 

ADDITIONAL FONT SAMPLES 



"^^■^^^ 



■■E" 




LirE0_r3 



<>)0 



MBnnnFmijmnmpmsum m "M 

y\l3CI)IEI=l5HIJKLMM0PQRSTUVWXYZ12:i4=>B70^J0 ^^fh^T^^ 
ftBGDEFGHIJKLMNOPQRSTUVWXYZlE345G7890 dbcdefgK;jR 




EEAP - The ULUMATE m TRS-80 Grapliics GtAP 2.1 has inslanl graptiic letters Cieale 
yojr own screen grapliics easily by, Magnilyirig, Reversmg Mulliplymg, Rotating, 
Merging and much more Then lei GEAP CREATE a BASIC prograrr lo recreate your 
graphic maslerpifice' Numiirous EXPANSION tnodLles give GEAP limitless power 
EPSON /OKIDATA/ Radio Shack LPVI priiileitilock graphics. Radio ShaclsLPIV graphics 
ready sooni OUICKCURSOR *ilh 2. speed controllable cursors, instant line, rectangle 
and circle NEWSCHIPT interaciive expansion module Much more' There is NO other 
graphic utilily on Ihe market Ihal is as POWERFUL, VERSATILE and EASY TO USE as 

^""' JF Consulting «* 

West Coast East Coast 

74355 Buttonwood 221 Hirschfield Dr. 

Palm Desert. Ca. 92260 Wiliiamsville. NY 14221 ^ =" 

MODi/iii 17141340-5471 1716)634-3028 



OOT WHITER - The IfKDISPUTED ieafler in HIGH RESOLUTION graphics Numerous Special 
Hi-Res Type Fonts tor your Epson MX eO/1l» Many more fonts being readied now or 
CflEATE YOUR own type fonts or HI-RESgraphics No hardware or modifications needed' 
ANO (tow. TRUE PBOPOBTIONAL PHIKT using yom Epson Printer AND proportional print 
works with almosi all of our SPECIAL lype fonts' DDT WHITEfl'GEAP?.!, turns your TflS- 
80 and EPSON into a Hi-Hes Graphic TYPESETTERI Requires 48K Disk and Epson MX 
BOnoO with Grafirax BOnoo/PLUS GRAFTRAX available (or easy horrie installation 
GEAP2.l>O0TWRITER fSBK 

DOT WRITER 1 .5 only jlncluOH 1 1 lonHj taS 95 

EXTRA Fonts Aviilabli - »0 for dlik of 7-1 D lonlt 

Vt ilu cirry KEWSCfllPT 7.0, The best TRS-8D Word Processor 1124 95. FASTER. BASIC 
code optimi7er S25 95 and RPH, Disk Speed monitoring program 124.95. 

MC/VISA 



.-See List of Advertisers on Page 455 
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We've done it agmru 



Dual Drive Model III 

CUSTOM BUILT 

*M321 



$1795.00 



SPECIAL 




'N^T" ^.^~- -^ModeiaZO $1695.00 

^^^^iff*"^ One S/S 40 Track Drive 

4* Model 321 $1895.00 

^ Two S/S 40 Track Drive 
FEATURES 

Model 322 $2295.00 

DOS PLUS 3.3 Operating System Two D/S 40 Track Drives 
Winchester Expansion Option 

Gold Plated Edge Cards Model 324 $2595.00 

Fully Socketed Drive Controller Two D/S 80 Track Drives 
Switching Power Supply 

System Dust Cover Model 325 S3995.00 

Expansion Capabilities One T1VI602 Winchester & 

90 Day Warranty Qne S/S 40 Track Drive 

or 

1 Year Warranty Available ;viodel 326 $4495.00 

One TM603 Winchester & 
One D/S 80 Track Drive 

P-31 Green Phosphor CRT $89.00 

All customized Model III systems from Computex now 

include at no extra charge DOSPLUS 3.3. A Computex 
customized system starts out as a basic Model III, 32K 
RAM is added to increase the storage to 48K. Ad to this our 
Model III drive controller with Winchester expansion 
option and the appropriate Tandon or MPI disk drives per 
your requirements. The system is then tested vigorously 
lor 48 hours to assure you of peak performance when the 
1 system arrives at your doorstep. 



MODEL III INTERNAL 
COMMUNICATIONS BOARD 



NEW! 




ETIPkO 

5.25" 




landan 

FLOPPY DISK 
DRIVES 



• Single or Double Density Operation* 

•3 - 5 ms Track to Track Access Time* 

•48 Hr. Burn in with Pre/Post Testing* 

•Compatible with TRS80@ , Zenith, IBM* 

AH disk drives from Computex are fully 
tested for Radial Head Alignment, Track 
Switch, Speed. Instantaneous Speed 
Variation I&V, Azimuth, then varified for 
data storage integrity, reliability and 
systems compp-tibility. 



The newf.xt addition to the Computex line ofModelllladd on kits 
is our M3CB1 Communications board complete vjith RS232 and 
DIRECT CONNECT MODEM. The kit can he supplied in either 
total kit form or as a partially assembled unit. The partially 
assembled unit only requires installation of the integrated 
circuits, all other components have been installed and tested. The 
M3CB1 mounts in the same location as the Radio Shack RS232 
board and, installs easily in less than one hour. 

FEATURES 

•300 to 1200 Baud RS232* 

•300 Baud Full Duplex Operation* 

•Uses FSK Modulation Techniques^ 

•Supports Originate or Answer Modes" 

•Will Operate DTE or DCE Equipment" 

M3CB1-1 P,C.B.& Manual $34.95 

M3CB1-2 Assembled & Tested RS232 $69.95 

M3CB1-3 Complete Kit $129.95 

M3CB1-4 Partially Assembled Kit $169.95 



MODEL III 
DISK CONTROLLER KITS 



FEATURES INCLUDE 

•Winchester Host Adaptor Option'Gold Plated Edge Card 
Connectors'Silkscreened and Soldermasked P.C.B.* 
Completely Socketed for ease in assembly and main- 
tenance*Step by step assembly and installation manual 
written for the first time kit builder«Detai!ed test and 
troubleshooting instructions'Troublesbooting flowcharts 
and schematics included'Theoretical analysis of operation 
included^Switching power supply*Mounting brackets^ 
Interface Cables •fully assembled* 

Everything you need to install disk drives in your Model III 
except the disk drives, 

SPECIAL $279.95 



MPI Tandon Description 



B51 


TMlOO-2 


B52 


rMlOO-2 


B91 


TM 100-3 


B92 


TM 100-4 



Single Sided 40 Track 
Double Sided 40 track 
Single Sided 80 Track 
Double Sided SO Track 



Price 

$219.95 
$299.95 
$299.95 
$399.95 



Power Supply and Case $49.95 



VISA, MASTERCARD and AMERICAN EXPRESS 

NET 30 TERMS AVAILABLE 

D & B Rated Firms, Universities and Government 

Net 30 Terms Require a 10% Handling Fee 

•Prices quoted are available mail order only" 

•Prices are subject to change without notice" 




nMPUT£A 



a subsidiary of Worldnnde Data Systems Inc. 

17321 El Camino Real 
Houston, Texas 77058 

(713) 488-8022 



K'-- "^'ifi;!-'!:-.. ',"/.(■■:■ ■!.■ ■.;ii'.^'«f-S;(si"«<i-iiii-w**,vij'^'t-S-ji-'l 



COMPLETE MODEL III 
DRIVE KITS 




Complete Model III Disk Drive Kits include the Computex drive 
controller vAtk capabilities of Winchester drive expansion. 
Virtually everything you wiU need to install disk drives in your 
Model III is included - We even include one of the most popular 
DOS systems available, DOS PLUS 3.3. 



M3DK0 Drive Kit with 1 Single Sided 40 Track Drive 
$495-00 

M3DK1 Drive Kit with 2 Single Sided 40 Track Drives 
$699.00 

M3DK2 Drive Kit with 2 Double sided 40 Track Drives 
$995.00 

M3DK4 Drive Kit with 2 Double Sided 80 Track Drives 
$1150.00 



Call or Write for our Free Catalog 



MDX-3 Interface Expansion 

Boards for your Model III 

from Micro-Design 

•Floppy Disk Controller* Phone Modem" 
•RS232 Port • Silkscreened & Soldermasked PCB- 
COMPLETE KIT $259.95 

•Printed Circuit Board $74.95 

•Disk Controller Kit $89.95 

■Serial Interface Kit $79.95 

•Phone Modem Kit $39.95 



MDX-2 Interface Expansion 

Boards for your Model 1 

from Micro-Design 

COMPLETE KIT $269.95 

•MDX-2 printed circuit board $74,95 

•Onboard direct connect modem kit ... . $39 95 

•2K,/4K Eprom kit $11 95 

•RS232 mA serial interface $24 95 

•Real-time clock kit $17 95 

•32K RAM expansion kit (less RAM) $17.95 

•Floppy disk controller kit $31 .95 

•Cassette port $4 95 

•Analog power supply $29 95 

•Hardware and socket kit $29!95 

•Centronic line printer port $11.95 



Our qualified technicians are available for technical questions at 
[713] 4S8-S022 every day from Jf.OO to 5:00 PM CST 

DEALERS WELCOMED 



(713)488-8022 



WE CA RRY COMPONENTS FOR THE LNW & MDX KITS 

MEMORY 

SPECIAL FUNCTION 

Type Price 

FD1771B-01 J23.95 

FD1793B-01 39.95 



7400SERIESTTL 

Type Price 

7404 S.25 

7405- 29 

7416 29 

7427 25 

7438 38 

7442 29 

7451 20 

7474 32 

7486..,,. 32 

7490 44 

7492...,. 42 

7493 42 

7495 55 

74121 32 

74123 55 

M125 47 

M132 60 

74151 55 

/4157 60 

74161 83 

74164 83 

74165 83 

74166 90 

74173 1.05 

74175 65 

74176 75 

74194 73 

74195 64 

74366 64 

74367 66 

Elllf.o 



74LS00 SERIES 

Type Price 

74LSOO $.26 

74LS02 27 

74LS04 31 

74LS05 29 

74LS08 27 

74LS09 32 

74LS10 27 

74LS11 39 

74LS13 43 

74LS14 71 

74LS15 30 

74LS20 26 

74LS21 30 

74LS27 30 

74LS30 26 

74LS32 37 

74LS42 65 

74LS74 39 

74LS86 41 

74LS93 70 

74LS123 92 

74LS124 1,35 

74LS132 72 

74LS138 66 

74LS139 66 

74LS153 64 

74LS155 85 

74LS157 67 

74LS161 87 

74LS163 85 



74LS00 SERIES 

Type Price 

74LS164 92 

74LS166 2.29 

74LS174 71 

74LS175 71 

74LS193 87 

74LS240 1.39 

74LS241 1.39 

74LS244 1.39 

74LS245 2.20 

74LS257 76 

74LS273 1.75 

74LS367 69 

74LS368 69 

74LS373 1.49 

74LS374 1,45 

74LS393 1.95 

74Sra SERIES 
Type Price 

74504 $.55 

74S05 50 

74S22 47 

74S32 47 

74S64 47 

74S74 -, .58 

74S112 71 

74S161 2.95 

74S174 1.15 

74S175 1.15 

74S280 2.15 

74S387 2.95 



LINEAR 
Type Price 

75452 S.35 

LM1488 1.10 

LM1489 1.10 

UA7805/340T-5 99 

UA7812/340T-12 .99 

UA7912/320T-12 99 

79L12 1.25 

78H05 5.95 

TL084 99 

MC1458 58 

MLM311P1 90 

MC14412 14,95 

I.C SOCKETS 
Type Price 

8PiNS.T i.12 

14PINS.T 14 

16PINS.T 16 

18PINS.T 21 

20 PINS. T 23 

22PINS.T 27 

24PINS.T 30 

40PINS.T 47 

CRYSTALS 

Type Price 

iMHz $5.95 

3-579MHZ 2.50 

4.0MHz 2.95 

16.0MHz 2,95 



BR1941 6.95 

TR1602 4.95 

Z80A 9.95 

Z80B 14.95 

MC1372 5.95 

MC6674 11.95 

2716 6.95 

2114 2.95 

2102 6.49 



We Also Carry 
'CAPACITORS' 

'RESISTORS' 
^CONNECTORS' 

•SWITCHES' 
ETC. 

Write or Call 

For Complete 

CATALOG 




(713)488-4501 

17321 ElCamlnofleal 
Houston, Tx. 77058 

,15Q a subisdiary of Worldwide Data Systems Inc. 



VISA. MASTERCARD and AMERICAN EXPRESS 

NET 30 TERMS AVAILABLE 
D&B Rated Firms, Universities & Government 

•Prices do not include shipping* 
•Prices are subject to change without notice^ 




ludes excTusiwcNalten|g#lBi6de^ 

Bounceoids come crasnfN^own from spaCP*^ and 
rebound across the screen. Blast them or they will smash 
you. You have a shield but its lifespan is limited so use it 
sparingly. 

The commotion will attract alien natives with poison 
darts, off-world snakes and shaking bugs. Be on your 
guard. The longer you survive the harder it is to simply 
exist. Bounceoids start dropping from the sky in tiny 
clusters or with constantly changing outer dimensions. 

Bounceoids copyright 1982 by the Cornsoft Group 



Reach the exclusive chail^n^ levi araiiifag e the flying 
space flock in a tense fcbi^enge oi^fflPl^ coordination 
and targeting skills, JoystraTco^wpaTOle. 

$15,95 tape, $19.95 disc plus $1 .50 shipping and 
handling charges. MasterCard & Visa orders accepted. 
Available at your software dealer. 

The Corhsoft Group 

6006 N. Keystone Ave., Indianapolis, IN 46220 * (317) 257-3227 
TRS 80" is a registered trade mark of the Tandy Corporation 
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REVIEWS 



The worksheet can be up to 99 col- 
umns wide by 99 rows deep. 

Setting Up 

Spectacuiator comes with an S'/z- 
by-1 14nch, 43-page manual. The book 
leads you along very gently and can be 
read quickly. Almost half of it consists 
of sample sessions and command sum- 
maries. The Spectacuiator voeabuiary 
has 17 two-character commands, plus 
redefined meanings for a few individ- 
ual keystrokes. The four arrow keys 
move the cursor over the worksheet for 
data entry or when you're defining for- 
mulas. The clear key backspaces the 
cursor and after you have entered a 
two-character command, the ciueslion 
mark displays a Help document on the 
screen. Two question marks cause an 
exit back to the worksheet. Finally, the 
break key returns you to the initial 
command mode. 

Spectacuiator "wakes up" in the 
command mode. The prompt is C>, 
accompanied by an orange block- 
cursor. Below the cursor, row and col- 
umn idcntil'ication numbers for the 
worksheet, you arc using are displayed. 

When you turn the power on, the 
upper left-hand section of the sheet is 
shown on the screen. Normally, you 
will see 13 rows and as many columns 
as will fit the video display. You can 
specify column widths; the default val- 
ue is seven spaces. When you move the 
cursor the row and column ID num- 
bers change. 

Table 1 shows the two-character 
commands. To enter numerical data, 
use the EN {enter numbers) command. 
It returns a prompt of EN with a dark 
blue cursor. You can now fill the work- 
sheet with your data, using the arrow 
keys to move about as you like. To in- 
sert a number, just type the number 
and hit the enter key. The number will 
move from the command line to the 
marker position, while you stay in the 
EN mode. Entire rows and columns 
can be labelled with the ET (Enter 
Text) command. 

A few peculiarities of the program 
become evident when you set out to 
spruce up a worksheet with labels. Nu- 
merical entries are right-justified when 
entered, while text entries are left- 
justified. Judicious use of the spacebar 
is sometimes necessary to properly 
align column labels with the data they 
refer to. Also, with the ET command, 
text entries may exceed the width speci- 



MM — Move marker 

EN^Enter numbers 

ET— Enter text 

CF — Define column formula 

RF— Define row formula 

CA— Calculate (all formulas) 

CC — Clear column of dala 

CR — Clear row of data 

DC— Delete column (data + formula) 

DR — Delete row (data+ formula) 

IC^lnsert blank column 

IR — Insert blank row 

CW— Change column width 

TFR — Display free memory 

SA — Save worksheet on tape 

LO— Load worksheet from tape 

LI — List worksheet to prinlcr 

Table J. Speaaciilator Commands 



fication of the column they start in 
without affecting subsequent numeri- 
cal entries. That's how you label work- 
sheets with titles spanning several col- 
umns of data. You can create new 
blank rows and colinnns at any point 
with the IR and IC commands, so you 
always have the option of adding labels 
or data to an existing worksheet. 

A shortcut to using the arrow keys to 
move about is the MM command. It 
lets you specify a location to jump to, 
in matrix notation: row, number, and 
column number (with no intervening 
spaces). When you press the enter key, 
the specified location appears at the 
upper left corner of the video window, 
with the entry marker in place. The 
row and column ID numbers are then 
updat ed to record your position. Tf you 
wish to return to the starting position 
at the upper left corner of the work- 
sheet, the 1,1 position, type MM and 
hit enter twice. 

If you make a mistake when entering 
data or text, just place the marker at 
the offending position and re-enter the 
correct information. If you have really 
fouled up, the CR and CC commands 
will wipe out all of the entries in the 
row or colunm in which the marker is 
situated. The DR and DC commands 
perform similar services for rows and 
columns whose entries were derived 
from programmed calculations. C 
commands erase numerical values; D 
commands not only erase numerical 
values, but any formulas associated 
with the row or column in question. 

Worksheet Calculations 

What makes electronic worksheets 



so special is being able to use prede- 
fined formulas, with numerical entries, 
to compute new entries, all of which' 
can be easily updated or manipulated. 

This program uses a convenient , 
easy-to-learn syntax for setting up for- 
mulas and is geared to straightforward 
financial calculations; not elaborate 
analysis of scientific data. 

A typical Spectacuiator application 
involves identical calculations (sums, 
ratios, and so on) on the corresponding 
elements of rows in a worksheet, the 
results of which are displayed in a par- 
ticular column. Calculations can also 
be carried out vertically, with elements 
in different rows being operated upon 
to yield a results row. 

In (he first case, the marker is moved 
to the column position to be used for 
results. The CF command is now used 
to set up the formula to define how 
items in (he column are to be derived 
from other entries in the worksheet. 
When writing Spectacuiator formulas, 
the entry in column number n of each 
row is symbolized by Cn; numerical 
constants are written as usual. Thus, if 
you want each row of column 3 to con- 
tain 125 percent of the sum of that 
row's entries from columns 1 and 2, 
just move the marker to column 3, 
enter CF, and type in the formula: 
1.25*_(C1-kC2). 

This is a recipe, not an equation; 
there is no C3 = because the marker's 
position specifies that column 3 is to be 
used for the results. Unfortunately, ad- 
ditional spaces may not be used to en- 
hance legibility. 

Once a formula is entered, the CA 
command calculates the computations. 
If you want to see what changing one 
or more entries will do enter the new 
values and repeat the CA command. 

Spectacuiator will add, subtract, 
multiply and divide as well as calculate 
square roots. Parentheses may be used 
freely. It also offers a SUM and SMT 
function. The first is a short way of 
forming, for each row, the sum from a 
designated starting column up to the 
column to the left of the marker's posi- 
tion. It's handy, but can't be used 
when intervening columns are to be ex- 
cluded from the summation. The SMT 
function, followed by a column desig- 
nation, calculates the total of a speci- 
fied column, and displays the running 
subtotals in the column where the 
marker is positioned. For example, if 
the marker is set in column 10 and the 
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formula SMTC5 is entered, the next 
CA will cause the first row of column 
10 to contain the value from the first 
row of column 5; the second row of 
column 10 will contain the sum of the 
first two elements of column 5, and 
so on. 

To differentiate those rows or col- 
umns in your worksheet that were 
computed, Spectaculator will display 
the associated formula whenever the 
entry marker is placed on such a row or 
column. 

Normally, calculated results are dis- 
played in a dollars and cents format 
with two decimal places. You can 
change this by prefixing formulas with 
an I for an integer display, or a D. The 
D causes calculations to be carried out 
to six decimal places, but only displays 
the results up to the first traihng zero. 
The program is inconsistent on this 
point; there are situations in which the 
first zero is displayed, and others in 
which it is suppressed. This makes work- 
sheet formatting frustrating at times. 

Spectaculator will automatically ad- 
just the width of a results column, to fit 
as many as 10 digits (up to six to the 
right of the decimal point), to accom- 
modate calculated values, even if you 
have predefined such a column's width. 

All Spectaculator calculations can be 
carried out vertically across columns, as 
well as horizontally. To do this, place 
the marker somewhere on the desired 
results row, and define a formula as 
above, using Rn to denote a given col- 
umn's entry in row number n. The two 
types of calculations can be used 
together in all sorts of financial work. 

For example, the worksheet might 
contain budget information for a num- 
ber of categories over several budget- 
ary periods, if the categories are ar- 
ranged vertically, calculating the sum 
across the rows would give the expen- 
ditures budgeted for each item for the 
entire time under study. If you calcu- 
lated the sum down the columns, the 
total budgets for each of the time peri- 
ods of interest would result. 

In cases such as this, the CA com- 
mand calculates the vertical and hori- 
zontal sums simultaneously. All results 
are displayed at once. If a number of 
columns are set up with different 
defining formulas, but all operate on 
the same initial data, then all results 
will be calculated and displayed 
simultaneously as well. There is one ex- 
ception to be aware of, though. 
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Let's suppose that multiple results 
columns are set up, with one requiring 
the other for data. Suppose each row 
of column 5 is to contain the sum of 
that row's elements from columns 1 
through 4, and column 6 is to express 
column 1 's entry as a percentage of this 
total. The defining formulas would be: 
Column 5: SUMCl, Column 6: 
(Cl/C5)*100. Here, everything would 
work just as described above, because 
the columns are defined in order, that 
is, everything is calculated before it is 
needed (if we read the columns from 
left to right). But suppose that the for- 
mula for column 5 called for a value 
from column 6, and column 6 was cal- 
culated from other data. Now, hitting 
CA would only give you the calcula- 
tions for column 6. A second CA 
would be necessary to get column 5. 
Spectaculator seems to do what it can, 
skipping over those calculations for 
which the data is not yet available. This 
is preferable to getting an error mes- 
sage and having the program shut 
down, but it is something to keep in 
mind when changing an entry in the 
middle of a worksheet with such out-of- 
sequence calculations. To get all of the 
results updated properly in such a situa- 
tion requires multiple CA commands. 

This holds for row formulas, as well; 
the proper row sequence is from top to 
bottom. It is also true for larger num- 
bers of out-of-sequence formulas than 
the two illustrated here. If you are ac- 
customed to programming in Basic or 
other high-level languages you should 
have little trouble with this problem. 
Relative newcomers to programming, 
however, might have trouble, and it 
should be pointed out in the manual. 

Other Features 

Spectaculator worksheets can ac- 
commodate nearly 14,500 characters in 
a 16K computer, and nearly 3 1 ,000 in a 
32K machine. You can save a work- 
sheet to tape at any point, and reload it 
to resume work later. Data, labels, and 
defined formulas are all saved. You 
can assign a name to the tape file, and 
either use the name or ignore it when 
reloading (just as for Color Basic's 
CLOAD). One annoying point is that 
Spectaculator doesn't give any indica- 
tion of the file name during the loading 
process. 

Worksheets can be listed on a print- 
er; the row and column numbers are 
automatically suppressed when this is 



done making for a more polished 
printout. You can select any portion of 
the worksheet for printing, consistent 
with an 80-character line. Merely place 
the marker on the upper leftmost ele- 
ment that you want to have printed, 
and enter the LI command and the row 
and column coordinates of the lower 
rightmost element. Everything in be- 
tween will be printed; there is no provi- 
sion for selectively skipping rows or 
columns in a printout. 

Pros and Cons 

1 found Spectaculator to be useful 
for fairly simple budgeting, in which a 
few columns of results are derived 
from several columns of data and both 
horizontal and vertical summations are 
required. Because of its limited mathe- 
matical functions, calculations requir- 
ing operations such as exponentiation 
become awkward. This means that 
compound interest expressions have to 
be written out explicitly as a scries of 
muhiplications. It also prevents the tak- 
ing of roots other than the square root. 

One of my real-world test jobs was a 
multiyear budget projection for a num- 
ber of technical programs, in which I 
was interested in finding the sums for 
22 rows and five columns. I would jug- 
gle individual entries in my worksheet 
to stay within guidelines for the total 
annual budgets, and recalculate the 
sums as needed. At the end, 1 called for 
a printout of that portion of the work- 
sheet that 1 actually used. This one ex- 
ample exercised most of Spectacula- 
tor's commands. 

The program was fairly slow. Calcu- 
lation times ranged from six to eight 
seconds, and increased noticeably for 
larger worksheets. 

Several aspects of the system only 
emerge when you give it an actual test 
case. It wasn't until 1 had it sum 22 
rows of data that 1 realized there is no 
way to exclude individual columns 
from the sum if they contain numerical 
data. This meant that not only did I get 
the total annual budgets for my 22 pro- 
grams, I also got the sum of the 22 pro- 
gram ID numbers! There is an easy fix 
for this particular case: just enter such 
identifying numbers as text, using the 
ET command. 

Another shortcoming is the lack of a 
desk calculator mode for changing in- 
dividual entries in the middle of a 
worksheet. If you want to examine the 
consequences of increasing an item by 
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TELEWRITER 

Iclfvvriter is ihe powerful word processor 
designed specifically for the Color 
Computer. It can handle almost any 
serious writing job and it is extremely easy 
to use. It has all the advanced features you 
need to create, edit, store, formal and 
print any kind of text. With Telewriter you 
can quickly produce perfect, finished copy 
for letters, reports, term papers, articles, 
technical documentation, stories, novels, 
screenplays, newsletters. It is also a flexible 
and efficient way to take notes or organize 
ideas and plans. 

51 X 24 DISPLAY ~ ~~ 

The Color Computer is an incredibly 
powerful and versatile computer, but for 
text editing it has some major drawbacks. 
The small 32 character by 16 Hne screen 
format shows you too little of the text and, 
combined with its lack of lower case 
letters, bears little resemblance to the way 
text really looks on the page. Reverse video 
in place of lower case just adds confusion. 

Telewriter eliminates these shortcomings 
with no hardware modifications rfqiiired. 

By using soflujifc alone, Tclewriler creates 
a new character set that has real lower case 
Idlers, and puts 24 lines of 51 characters 
on ihc screen. That's more on-screen 
cliaracters than Apple H, Atari or TRS-80 
Mode! in. That's more than double the 
Color Computer's standard display. 

FULL SCREEN EDITOR 

The Telewriter edilor is designed for 
maximum ease of use. The commands are 
single key (or single key plus control key), 
last, and easy to remember. There is no 
need to switch between insert modes and 
delete modes and cursor movement modes. 
You simply type. What you type is inserted 
into the text at the cursor, on the screen. 
What you see on the screen is always the 
current state of your text. You can move 
quickly through the text with one key 
cursor movemeni in all 4 directions, or 
press the shift key simuliancously for fast, 
auto-repeat. You can jump lo ihc top or 
boitom of the text, the beginning or end of 
a line, move forward or backward a page 
ai a time, or scroll quickly up or down. 
When you type past the end of the line, 
Ihc wordwrap feature moves you cleanly to 
the next. 

You can copy, move or delele any si7c 
block of text, search repeatedly for any 

, . , tru/y a slate of the an word processor. . , 
oulssanding in every respect. 

— The RAINBOW, .Ian. I9S2 



The only ■_-^l. _vjf-j a.: 'Ji^^^ u 
for your TRS-80 Color: 



51 column x 24 line screen display 

Sophisticated full-screen editor 

Real lower case characters 

Powerful text formatter 

Works with any printer 

Special MX-80 driver 

Runs in 16K or 32K 

Disk & cassette I/O 

requires absolutely 

no hardware modifications 

piiiiL li ■:•■■: > !!.i;.;'.i'-'s. llien inslan'!_ 'J-j-.jic u 
or replace it with another. Telewriter gives 
you a tab key, tells you how much space 
you have left in memory, and warns you 
when the buffer is full. 



FORMAT FEATURES 

When it comes lime to prim oul tlie fini.shed 
manuscript, Telewriter lets you specify: left, 
right, top, and bottom margins; line spacing 
and lines per page. These parameters can be 
set before printing or they can be 
dynamically modified during printing with 
simple format codes in the text. 

Telewriter will automatically number pages 
(if you want) and automatically center lines. 
It can chain print any number of text files 
from cassette or disk without user 
intervention. You can tell it to start a new 
page anywhere in the text, pause at the 
bottom of the page, and set the Baud rate 
to any value (so you can run your printer at 
top speed). 

You can print all or any part of the text 
buffer, abort the printing at any point, and 
there is a "Typewriter" feature which allows 
you to type straight to your printer. Because 
Telewriter lets you output numeric control 
codes directly (either from the menu or 
during printing), il works with any printer 
(LPVII, [.PVIII, MX-80, Okidata, NEC 
8023, C. Itoh 8510, Centronics, GE 
Terminet, Smith Corona TP-I, etc.). There's 
even a special driver for the Epson MX-80 
that lets you simply select any of its 12 fonts 
and do underlining with a single underline 
character. 

CASSETTE AND DISK I/O 

Because Telewriter makes using cassette 
almost painless, you can still have a 
powerful word processor without the major 
additional cost of a disk. The advanced 
cassette handler will search in the forward 
direction till it finds the first valid file, so 
there's no need to keep retyping a load 
command when you are lost in your tape. 



The Verify command checks yotir cassette 
saves to make sure they're good. You can 
save all or any part of the text buffer to 
disk or cassette and you can append pre- 
existing files from either medium to what 
you lia\e in liie buffer already. 

The disk version can be simply customized 
to the precise number of drives in your 
system. From the disk menu, you can list 
any directory (including free space) to the 
screen or to the printer, rename or delete 
files, set the default drive and return to 
BASIC. 

ASCII COMPATIBLE 

lelewriler turns your Color Computer 
into the most powerful, lowest cost, word 
processor in the world today. But that's 
not all. The simple ASCII conversion 
program provided with Telewriter (for 
both cassette and disk) means you can use 
the full power of the Telewriter editor for 
creating and editing BASIC and assembly 
language programs. It means you can use 
Telewriter to prepare or edit text files used 
with any data communications program. 

Telewriter costs $49.95 on cassette and 
$59.95 on disk. To order, send check or 
money order to: 



Cogniiec 

704 Nob Ave. 

Del Mar, C A 92014 



Or check your local software store. If you 
have questions about Telewriter, call us at 
(714) 755-1258 weekdays, 7AM-4PM PST. 

And now you can get a complete text 
processing/communications package direct 
from Cognitec. 

Telemaster-1: gives you Telewriter along 
with Colorcom/E, the most flexible smart 
terminal program available for the Color 
Computer. Package price; $94.95. 

Telemaster-2: gives you Telewriter plus Spell 
'n Fix — the professional FLEX spelling 
checker, now available for the Color 
Computer. Package Price: $109.95. 

Telemaster-3: includes Telewriter, Spell 'n 
Fix, and Colorcom/E— all 3 for $154.95. 

Please specify cassette or disk. For disk 
versions add $10.00 to package price. 
Mastercard/Visa accepted. Allow 2-3 weeks for 
personal checks. Add S2.00 for shipping and 
handling. California residents add 6% state tax. 
Send SASE for copies of reviews from major 
Color Computer and TRS-80 magazines. 

: ..i of Ihe bes! programs for the Color 
Computer I have seen . . . 

~- Color Comiiiiler News. ,lan, 1982 



Apple II IS a trademark of Apple Computer, Inc., Alan is a trademark of Atari, Inc., TRS-80 is a trademark of Tandy Corp , fvlX-BO is a trademark ot Epson America, Inc. 
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REVIEWS 



10 percent, you must figure out for 
yourself what 1 10 percent of the origi- 
nal is and re-enter the new number in 
the proper place in the wori^sheet. 
Then you can use the CA command to 
observe the impact on all your formula- 
derived quantities. Be aware, though, 
that even this manual updating will fail 
if you try to change an entry in a row or 
column that is itself found by calcula- 
tion. The next CA command will cause 
the original defining calculation to be 



rerun, and the old value of ihe item in 
question will come back to haunt you. 
Spcctaculalor's operation has an 
asymmetry that deserves mention. 
That is, you can erase a derived col- 
umn, formula and all, with the DC 
command; you can erase ihc data in a 
column with CC; but you can't leave 
the data and just erase the formula. 
Spectaculator also lacks the ability to 
copy a single row or column. 1 also 
miss something hke Basic's Print Using 



command. There really are times when 
you'd hke calculated results to be 
displayed with exactly one decimal 
place, trailing zeroes or no! 



In Conclusion 

It is not for the elaborate analysis of 
scientific data, but if you need straight- 
forward manipulations for home, 
business, or organization, give Spec- 
taculator a try. ■ 
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The Sprinter II 
Holmes Engineering 
3555 South 3200 West 
Sail Kake City, UT 84119 

$99.50 

by Richard C. McGarvey 

ihe SPRINTER II is a speedup 
modification for the TRS-80 Ihal 
requires no damaging alterations. 
With a few exceptions, you can plug in 
the Sprinter il and run it on your 
TRS-80, instantly- giving you two 
variations of eight operating speeds. 
One variation contains wait states 
(pauses) that allow slower ROMs to 
keep up. The other is without wait 
states. The price on the Sprinter II may 
seem a bit high but that is because the 
kit includes the 6 MHz Z80B CPU. 

Installation 

The Sprinter 11 is simple to install. 
There are no traces to cut and no wires 
to solder. All you do is open your 
keyboard, pull out the Z80, and plug in 
the Sprinter II. After clipping four 
wires onto easy-to-find chips and re- 
sistors, the Sprinter II is ready to run. 
With luck you will gel 5.33-MH7 
operation immediately. 

Sprinter II is well made. There arc a 
few minor problems, however, that 
may not be immediately evident. 

Possible Difficulties 

The first problems confronting most 
Sprinter II users is the need for high- 
speed memory. The 400-nanosecond 
Motorola memory present in most 
TRS-SOs is not fast enough to handle 
the Sprinter IPs acceleration. It is easy, 
however, to get 200-ns NEC chips that 
will rise to the challenge. 

{ had to replace my memory and so 
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did a friend who bought the Sprinter il 
on my advice. Another friend who also 
purchased the Sprinter 11 was able to 
operate it with his Radio Shack mem- 
ory. If needed, the faster memory is 
available through Holmes Engineering 
for $26 per 16K. Memory in the expan- 
sion interface is not usually a problem. 



''If you want to tackle 

the job yourself y you can 

depend on Holmes for 

support. . . . they will be 

happy to supply you with 

any reasonable assistance. ' 



but some obstacles emerge when you 
use an expansion interface. 

In later versions of the expansion in- 
terface Radio Shack removed the buf- 
fered cable and installed a delay line 
(actually a chip), fhis chip causes 
problems when you try to speed up. As 
a result of this delay line, you will most 
Hkely need to replace that chip in the 
expansion interface with a modifying 
chip provided with the Sprinter II (al 
theadditionalcost of $10). To find oui 
if this modification is necessary, call 
Holmes Engineering. 

A few other adjustments may be 
necessary. You may have to install re- 
sistors in the keyboard and in the ex- 
pansion interface to help the memory 
keep up. At least two resistors are like- 
ly and the rest (about 16) are possibles. 
If after all of this modification you still 
can't get high speed, you may have to 



cut a trace. 

How to Modify 

I made all the modifications myself. 
I needed the expansion interface 
modification and that was no trouble. 
I also installed resistors because I 
thought it wise while 1 had the boards 
open. If you don't want to do the work 
yourself, you can send the system to 
Holmes and they will make the com- 
puter run at 5.33 MHz for a small fee. 
Their work is guaranteed. 

If you want to tackle the job your- 
self, you can depend on Holmes for 
support. They are good on the phone 
and they will be happy to supply you 
with any reasonable assistance. You 
can also call them before you buy to 
find out just which modifications you 
arc hkely to need. 

Operating Options 

An automatic slow down occurs 
when you access disk or cassette. This 
is the default, but it can be overridden. 
You can also decide whether you want 
the unit to start in the high-speed or 
normai-spccd mode. Speed changes 
are software controlled by an OUT in- 
struction to port 254. There are eight 
speeds, some slower than normal and 
others faster. Each has the option of 
operating with or without wail states to 
allow the slower ROMs to keep up. 
Top speed is 5.33 MHz without wait 
states, but a heavily modified comput- 
er is necessary to achieve this speed. 
The OUT254,12 instruction gives you 
5.33 MHz with wait states. This speed 
should be available to everyone. 

Holmes gives you a money-back 
guarantee. If you don't like the 
Sprinter for any reason, return it and 
get your money back, minus shipping 
charges. For this reason, they have an 
interest in your ability to get this little 
devil running lo your satisfaction. ■ 



ARCADE EXCELLENCE 




Med Systems' staff of programmers is 
known for producing some of the finest 
software available today. Now we an- 
nounce two arcade games worthy of the 
Med Systems name: Laser Defense and 
Star Trap. Laser Defense: a totally original 
action game, not just an arcade ripoff! 
And star Trap: the first home arcade game 
to allow two players to compete simulta- 
neously! Both feature state of the art 
graphics, sound, one or two player op- 
tions, and high score saving. 

But don't take our word for it. See the 
review in the August, 1982 issue of 80 
Microcomputing. And remember, Med 
Systems offers to refund your money if 
you aren't satisfied. Just return the game 
within ia days of receipt. 



Laser Defense 

Your laser satellites must defend helpless 
cities against nuclear attack while attack- 
ing and destroying the enemy's launch 
silos. Particle beam weapons, nuclear 
power stations, the eradicator, and a two- 
map graphics system combine to pro- 
duce one of the finest arcade creations 
available. 



Star Trap 

The first two player arcade game! 

Bouncing between two gigantic S-D 
hypergrids are the stars of a thousand 
worlds, capture as many as you can, or use 
your nova to annihilate them! Simultane- 
ous two player option allows players to 
compete head-to-head In real time! 

Laser Defense and Star Trap are available 
on cassette or diskette and require 16K of 

RAM. 

Laser Defense cassette S15.95 

Diskette S18.95 

star Trap cassette $15.95 

Diskette S18.95 

Please add 52.00 for first class postage, 
$4.00 for overseas air mail. 




MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1 -800-334-5470 



OR SEE YOUR DEALER 



REVIEWS 
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Finance^Loans & Inveslments 

Computerware 

Box 668 

Fncinitas, CA 92024 

Color Computer 

16K Extended Color Basic 

$17.95 cassette 

S22.95 disk 

by Mark E. Renne 

If you'd like your computer to figure 
interest on your loans or calculate 
how much you need to save to reach a 
goal, consider this program. Only three 
functions require a printer, so this utili- 
ty is excellent for the beginner. It's 
good to see a program that uses the Col- 
or Computer as a computer and not as a 
video game. 

Finance has iwo separate programs: 
Loans and Investments. Loans has nine 
separate functions dealing with often 
used loan calculations. Most functions 
calculate the missing variable. For ex- 
ample, if you arc considering a two- 
year, 15 percent, $2,000 loan, Finance 
will calculate your monthly payment. 
This works for any missing variable by 
supplying the remaining variables. 

You can also calculate commercial 
paper discount, if you can find a bank 
these days with a discount. You need a 
printer for receiving a mortgage amor- 
tization table indicating payment, in- 
terest and principal. You also have the 
option of a printed declining-interest 
loan table. This program includes most 
of the common calculations involving 
loans. You can even show how much of 
a loan is interest as opposed to principal 
in the first years of home buying. 

Investments, the second program in 
this package, contains nine separate cal- 
culations used in investments. You can 
calculate the future value of an invest- 
ment by giving initial investments, inter- 
est rate, compounding periods, and 
number of years. This is handy for cal- 
culating the value of your IRA in 2098, 
or determining how much you can with- 
draw from an annuity without damag- 
ing the principal. 

Another function calculates the ef- 
fective interest rate given the current 
and future value and period . The only 
function that requires a printer is an 
earncd-interesl table. 

These two programs are a good ex- 
ample of a computer's projection abili- 
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ties. Although they could be done on a 
hand calculator, the computer makes 
the process easy. 

The program comes on a quality cas- 
sette with a program on each side or a 
disk. It loads with no problem and the 
programs are easily written and easy to 



understand. There's an excellent intro- 
duction discussing copyrighted material 
in an intelligent fashion as opposed to 
stern warnings about duplication. 

If you have a need for calculating 
loans and investments, 1 recommend 
these programs. ■ 
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Micro Mainframe Disk Controller 

Micro Mainframe 

2227 McGregor Ave. 

Rancho Cordova, CA 95670 

Model 111 

$279.95 

by Jerry O'Dell 

When I started shopping for disk 
drives for my Model III, I looked 
through the pages of this magazine to 
find the lowest possible price for the 

disk system. 

To add one disk, you need a control- 
ler board, the drive itself, an installa- 
tion kit, and I6K or 32K of extra mem- 
ory. In addition, installation charges 
may enter (he picture. I found prices 
from various sources as shown in 
Table 1 . 



My local computer shop, as the table 
indicates, has better prices than Radio 
Shack. The table's mail-order entries 
refer to the material prices 1 obtained 
from ads in 80 Micro. As you can see, 
the mail price is $560 less than the Tan- 
dy price. The Tandy installation prices 
are estimates. Two mail-order drives 
would save you $734. If you can handle 
the service problems yourself, mail 
order is the way to go. 

The chief contributor to the low 
mail-order price is the Micro Main- 
frame Model III floppy-disk control- 
ler. At $279.95, it's about $115 less 
than many other controllers listed in 80 
Micro. Micro Mainframe is not a well 
known company, but $115 is a sub- 
stantial price difference, so 1 decided to 
order their unit. 

The first difficulty was finding a 
dealer that stocked the kits. Micro 



Source 



Controller Drive Memory Install. Total 



Tandy 


$450 


$399 


$198 


$50 


St, 097 


Local Dealer- 


$.^95 


$235 


$50 


$30 


$710 


Mail Order 


$280 


$225 


$32 


... 


S573 



/ah/e I 
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Photo I. The Micro Mainframe Circuit Board 




Computer 










...with LSI's mviSf^Wiei^ Replacement CRT. . . 



The black & white "TV Screen" CRT-(picture tube) which came with your TRS-80*model II or III is an inexpensive 
rapid "P4" Phosphor CRT intended for TV use. The display is actually strobing 60 times a second. No amount of "green 
plastic" will stop this strobing or eliminate the eye fatigue it causes. But a new ■'^'^CRT display tube with a slower 

decaying, colored Phosphor will. . - - . . . 

• Available in slow-decay green Jsimilar to new IBM* -and APPLE lirmonitors) or medium decay "European 
Orange" [easy on tlie eyes, "elegantly beautiful, and the standard for CRT displays in Europe) • 

• Leaded glass stops X-ray emission . * ,-"•,,.. 

• Optional Anti-Glare Frosted-Glass ayailsble td reduce eye strain from glare , • 

• Easy installation —tube comes with pre-mounted hardware ^ ... 

• 30-Day Money-Back Guarantee - , - - , • . • - 

• Ideal -for Word-Processing & Programming, fast enough for Games &' Graphics- * " 

• Finest quality double-dark glass and phosphor fields make the letters seem to be coming out of black space 



Try This Test: 



A 



TM 



LSI's new Soft-View CRT 



Turn the brightness control on 
your TRS-80*all the way up. Wave 
your hand up and down in front 
of the screen. See how jerkv it 
seems? Just like in front of a 
strobe light! That's because the 
screen actually js strobing at you. 
A slower-phosphor CRT .will 
reduce that troublesome strobe 
affect. That's .why most of the 
newer monitors, from I BM * to 
Apple 111* are using the new 
slow-phosphor CRT.'s,\ • 

MBM-, APPLE 



LSI SYSTEMS Sqft-Viesi'™CHl's: 
D #GN42 Green Phosphor $79,95 
D #GN42G Green Phosphor with anti-glare $89.95 
D #OR34 Orange Phosphor $89.95 
n #OR34G Orange Phosphor with anti-glare $99.95 
ADD S7 FOR PACKAGING AND UPS SHIPPING 



aOM-1182 



•:-:• 



Lansley-St.Clair 



>'462 



Instrumentation 
Systems, Inc. 



To Order Call: 

1-800-221-7070 

Dealer Inquiries InvHed 



and TRS-80' are trademarks of IBM. APPLE Computer & TANDY Corp 



REVIEWS 



Mainframe in California put me in 
touch with three dealers. Two of them 
asked $100 more than Micro Main- 
frame's advertised price. However, BT 
Enterprises of New York had them in 
stock at the same price. The unit was 
delivered one week after I placed the 
order. 

My initial uncertainty about the MM 
controller kit proved to be unfounded. 
The circuit board (see Photo 1) is well 
made, and is obviously well designed. 
For $279.95 you get the controller 
board, a switching power supply, 
almost all mounting hardware, all 
cables needed for installing two drives, 
and instructions. Only the four 32 by Va 
mounting screws for the drives are not 
. supplied, i bought a Tandon drive 
from Soft Sector Marketing; The 
Model III Service Manual contains ser- 
vice instructions for it. 

James Schaefer describes installation 
of Model 111 drives in the January 1982 
issue of 80 Micro (page 172). There is 
little need to supplement his writing on 
the topic; however, I included a few 
figures to show special features of the 
Micro Mainframe system. 

To begin installation, remove the 
Model 111 cabinet top, and an internal 
shield over the CPU board. Install the 
new memory chips in the sockets on the 
right side of the board. Insert them 
precisely like the original eight above 
them. At this point, turn on the com- 
puter to make certain that it still 
works. Then, remove the CPU board. 



PUT YOUR COMPUTER 

TO AA/ORK SAVING SS 

EVERY TIME YOU BUY 

GROCERIES!! 

aSORT 

IS a fast, menu driven assembly 
language pragram Chat keeps track 
of up to 1 enO store coupons Enter 
your shopping list and C3SOBT locates 
every usable coupon vuithin seconds. 
A special filing systen-i speeds 
physioal retrieval of any coupon to a 
few seconds.. 
Compnehensive manual 
Satisfaction Guaranteed on your 
Money Back. 

Specify Model I or III 

cassette on disc S33.90 ppd 

[Calif. rsBidente add BQfa] 

BV ENOINEERINO >^ '''^ 

P.Q BOX 3351. RIVERSIDE. CA 32519 
[yi^a] 7B1-OS52 



put in the disk controller board, install 
the hardware and cabling for the drives 
themselves, and reassemble the com- 
puter. It's a very simple job. The in- 
stallation takes about an hour and a 
half. The instructions, unfortunately, 
are supplied on faded photocopies dif- 
ficult to read. There are at least five 
serious errors, and the diagrams fre- 
quently don't match the text. For ex- 
ample, the instructions say to mount 
the power supply to the cabinet with 
the sticky tape on the bottom of the 
power supply; there wasn't any sticky 
tape on the bottom of the supply. 
You're supposed to install a long and a 
short mounting bracket, but they're 
both the same length . The cable 
diagrams are also incorrect. In spite of 
these errors, anyone with common 
sense can complete the installation. 

There is one ambiguity in the in- 
structions. This is with configuring the 
disk drive itself. The diagram in the in- 
structions implies that the socket on 
the Tandon drive into which the shunt 
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TERMINATING RESISTOR 
SOCKET (MOT USED> 



R 



Figure I 



is placed has seven positions. Actually, 
there are spaces for eight. 

Figure I is a drawing of the drive 
board, showing how the connections 
are made. The connections shown are 
for drive zero, with shunts in positions 
2 and 7, with all others open. Notice 
that no terminating resistors are 
plugged into the socket provided for 
them; they aren't required for internal 
drives. My dealer also cut the trace 
leading to pin 6 of the drive; according 
to Micro Mainframe's instructions, 
this isn't necessary, but the unit func- 
tions with or without the cut trace. 

Photo 2 shows the completed instal- 
lation. The drives fit well into the cut- 
outs of the Model III, and nothing is 
force-fitted into place. 

The system worked immediately. 
Data transfer to and from the drives 
seems to work well; I haven't encoun- 
tered any disk errors. I've found one 
commercial program that refuses to 
load, though it loads on a Tandy con- 
troller. The program uses tricky encod- 
ing techniques, however, and may not 
be a fair test. All the Radio Shack soft- 
ware I have loads perfectly. 

There is one serious drawback. No 
service manual is available for the unit, 
and no schematic diagram. Service is 
available for a $45 repair fee, but if you 
like to fix things yourself, you'll have 
to trace the circuit diagram on your 
own. Hopefully the company will 
change this troublesome policy as they 
gain experience. ■ 




Pholo 2. The Completeri Installation. 
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Smith-Corona TP-1 

Smith-Corona 

65 Locust Ave. 

New Canaan, CT 06840 

$895 

by Terry Kepner 

Smith-Corona, best known for ihcir 
high-quality, low-price typewriters, 
will soon become well known for their 
low-cost, high-quality computer print- 
ers. The TP-1 has a suggested retail 
price of $895, but I've seen it adver- 
tised in 80 Micro for as low as $650, 
making it the cheapest letter-quality 
printer available. 

What do you get for your $895? You 
gel a well built, bare-bones, daisy- 
wheel printer. Most standard writing 
paper fits on the 13-inch paper car- 
riage, but 15-inch computer paper 
won't. The actual writing line is 10.5 
inches wide, giving you 105 printed 
characters wilh a lO-pitch printer, or 
126 characters if you have the 12-pitch 
printer. 

The line spacing can be set to 3, 4.5, 
or 6 lines per vertical inch, giving you 
33, 49.5, or 66 lines per standard 11- 
inch-high paper. You can set the im- 
pression strength of the character- 
striking hammer to any one of five lev- 
els. The TP-1 supports the standard 
ASCII character set, but prints only 88 
of them ai the moment (the standard 
upper and lowercase alphabets, the nu- 
merals, and punctuation marks). 

Special Features 

The TP-1 has five special features: 
backspace, automatic underlining, 
programmable margins, programma- 
ble tab settings, and automatic forms 
control. 

The backspace capability lets you 
overstrike a zero with a slash to dif- 
ferentiate zeros from the letter O, 
make boldface characters by backing 
up and restriking the same character, 
underline characters, or strike out 
characters. 

There are two methods for underlin- 
ing: using the backspace command to 
place the daisy wheel over the letter 
just typed, then typing an underline 
(recommended if you need only one 
letter underlined); or accessing the au- 
tomatic underline feature, which un- 
derlines each character printed before 



moving the daisy wheel to the next 
print position. 

The margins can be set by position- 
ing the print head to the desired point 
and sending a hex 1 1 (decimal 17). Set- 
ting the right margin is similar, except 
you send a hex 13 (decimal 19). To 
clear a margin, position the print head 
and send a hex 18 (decimal 24). This 
feature means you can set the number 
of printed columns on your paper 
without having to use DOS Forms 
commands or a special machine- 
language program. 

Similarly the tabs can be set and 
cleared usingthe hex codes 12 and 14, 
respectively. 

The forms control is a front panel 
switch. In the normal position, the 
printer prints all 66 lines on a page. In 
the Forms position the printer prints 58 
lines, then skips eight lines to the next 
page. This provides simple pagination 
for program hstings and word-process- 
ing documents. 

The TP-l doesn't support propor- 
tional spacing, reverse line feeds, half 
line feeds, or reverse half line feeds. In- 
cremental spacing isn't available; you 
can advance or reverse the daisy wheel 
in increments of one character only. 
Nehher can you change the pitch 
you're using. 

If you have a 10-cpi (characters per 
inch) printer, you can't change the 



print to 12 cpi. (You can put a 12-cpi 
daisy wheel on the 10-cpi printer, but 
you'll get only 10 characters printed 
per inch, which looks rather silly with a 
12-cpi wheel.) The 10 cpi is equivalent 
to a pica typewriter and the 12-Gpi 
printer is equivalent to an elite 
typewriter. 

Compared with the more expensive 
daisy-wheel printers, the TP-1 seems 
slow, averaging 12 characters per sec- 
ond. (It sounds like a very fast typist at 
work.) Typing characters rarely used in 
English slows the unit down to about 
iO eps, but typing more common char- 
acters, such as vowels, or repeating the 
same character lets the unit hit about 
16 cps. 

What are its advantages? It's inex- 
pensive. It can be attached to almost 
any computer since it's available with 
either a standard Centronics parallel 
port or with an RS-232 port. 

Setting the RS-232 port for stop bits 
is not required. The TP-1 will work 
with 1 , V/i, or 2 stop bits; a 7 or 8-bit 
word length; and odd, even, or no pari- 
ty. The data rate can be set to any one 
of 16 baud rates: 50, 75, 110, 134.5, 
150, 300, 600, 1,200, 1,800, 2,000, 
2,400, 3,600, 4,800, 7,200, 9,600, or 
19,200. 

Another advantage is that the inex- 
pensive ribbons and print wheels arc 
the same as those used on the Smith- 




Tht' TP-1 
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Corona Typetronic typewriter and 

are available through stores selling 
Smith-Corona electronic typewriters. 
The print wheels cost only S4.95. 
(Tandy's Daisy Wheel ll's wheel costs 
$29.95.) One-time, 54,000-character, 
black-film ribbons retail for $2.95, 
and the TP-1 multistrike mylar rib- 
bons cost $6.95, with a life of 250,000 
characters. (Tandy's multistrike rib- 
bons are three for $24.95.) The TP-1 
can handle up to four-part forms. If 
you use NCR carbonless paper, you 
can use six-part forms. 

And last but not least, the TP-1 is 
simple to use. When I received mine, 
the print wheel and ribbon were al- 
ready in place. Al! 1 did was remove the 
packing foam and bands, plug in my 
printer cable, plug the printer into the 
electric socket, load the paper, and I 
was in business. The ribbon and print 
wheel arc easily accessible and simple 



to change, and the manual is easy to 
understand. The TP-1 even includes a 
simple diagnostic routine that checks 
the motor every time you turn the 
printer on. 

Disadvantages 

At this moment there arc two seri- 
ous disadvantages to the TP-1. Be- 
cause the print wheels were originally 
designed for the Typetronic typewrit- 
er they don't have the greaier-than 
and less-than signs (left and right car- 
ets, <>). Since most Basic programs 
use the left and right carets in If. . . 
Then statements, this flaw practically 
eliminates the use of the TP-1 as a 
program-listing printer. I've been 
told by Daniel A. McCarthy, vice 
president of special markets at Smith- 
Corona, that ASCII print wheels will 
be available later this year. 



The second problem is the lack of a 
tractor-feed mechanism for the print- 
er. When running form-feed paper, 
what starts out as a nicely centered col- 
umn on page one ends up printing .on 
the left edge of the paper by page ten. 
Trying lo print mailing labels was a 
complete disaster. I failed to print even 
one label with straight. Hues. This 
creeping also shows up in the vertical 
direction, but only if you're printing a 
few lines on each page with lots of re- 
peating hne feeds. McCarthy said he 
expects a tractor-feed mechanism to be 
available in the near future. 

If you don't need proportional spac- 
ing or special features such as forward 
and reverse half line feeds that only 
more expensive printers can give you, 
consider the TP-1. It is an inexpensive 
letter-quality printer ideal for your per- 
sonal correspondence or short docu- 
mentation needs. ■ 
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I'ast Basic 

George and Thomas (Jratzer 

John Wiley Books 

1 Wiley Drive 

Somerset, NJ 08873 

Softcover, 278 pp. 

$14.95 

by Bruce Powel Douglass 

Fast Busk is a book on using ma- 
chine-language subroutines to en- 
hance TRS-80 Basic on the Models 1 
and 111. If you understand Basic, in- 
tegers, floating point, and strings, this 
book should be easy lo follow. 

The book focuses on teaching you to 
let Basic do what Basic is good 
at — functions like I/O and floating- 
point computations. But tasks that 
Basic doesn't do so well, machine- 
language subroutines should handle. 

Fast Basic assumes you understand 
Basic well enough to use PEEK, POKE, 
and print statements. Each chapter has 
a summary and self-help questions. The 
first chapter discusses the representa- 
tion of data and programs in memory, 
including binary and hexadecimal num- 
bers. A program called Tutor (also 
available on disk) allows you to look at 
the contents of any byte in memory and 
its binary or hex representation. 

Chapter 2 takes a closer look at 
what's in memory and the various for- 
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mats of Basic programs^how to PEEK 
and POKE to high addresses and the 
like. Chapter 3 discusses the organiza- 
tion of the TRS-80, as well as where and 
how Basic keeps the data tables, work 
areas, and address tables. The chapter 



"The approach taken in 
writing Basic programs 

in Fast Basic is to 

first write them in a 

simplified form of Basic 

called Simple Basic. " 



has a table of addresses for reference 
and a procedure for merging non- 
ASCII files, checking for printer status, 
changing drivers, and so on, with some 
interesting examples. It also gives a pro- 
gram that tightens the TRON function, 
so it doesn't destroy the video screen. 

The book goes on to discuss how 
Basic operates, such as executing 
GOTOs, as well as recovering lost pro- 
grams. The variable tables are discussed 
in detail, so you can get a variable out 
when you need it for Fast Basic. 
Chapter 5 talks about hardware, in- 
cluding devices, CPUs, and buses, with 
a tutorial on taking over the keyboard 
driver and programming other devices. 

Chapter 6 begins the introduction to 



Fast Basic with the Z80 and its registers 
and how to perform a load of the 
registers or memory. This chapter also 
includes one of the simplest introduc- 
tions to Z80 programming 1 have seen. 

USR, ROM, and DOS calls are dis- 
cussed next. The chapter covers soft- 
ware accumulators for integer, single, 
and double-precision numbers and 
gives addresses. Then it gives an in- 
depth look at ROM subroutines for the 
math routines, such as locating, mov- 
ing, and performing manipulations on 
various lormats of numbers. 

The rest of the book discusses the im- 
plementation of various functions in 
machine language, mostly using the 
ROM calls. Fast Basic provides a 
benchmark program (a bubble sort) 
showing the Basic and Fast Basic ver- 
sions, complete with comments. 

The approach taken in writing Basic 
programs into Fast Basic is to first write 
Lhem in a simplified form of Basic 
called Simple Basic. Then, translate this 
form into USR calls and machine code. 
The book gives three methods of storing 
the machine code in memory, including 
POKEs into reserved memory, packing 
into arrays or strings, and packing into 
remark lines. 

The last chapter tells how to enhance 
Fast Basic to be even faster. It gives the 
Block Search and Move commands of 
the Z80 instruction set along with ap- 
plications, and it demonstrates simple 
ways to set and reset the video graphics 
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in machine language, as well as using 
Ihe keyword jump table and how to 
lake over the syntax-error routine to 
add commands directly to Basic. 

The book also provides several ap- 
pendices on entry points for a large 



number of ROM routines, the Z80 in- 
struction set, and the source code for a 
few utility programs. 

This book is well written and pro- 
vides many useful techniques to 
enhance Basic programs. It contains 



much useful information on the 
organization of Basic, variable and 
work tables in the Basic environment, 
and how to properly enter and exit 
ROM subroutines. Fast Basic is well 
worth $1 4.95. ■ 
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Colorterm 
Martin Consulting 
94 Macalester Bay 
Winnipeg, Manitoba 
R3T 2X5 Canada 
$34.95 

by Scott L. Norman 

Colorterm is a moderately priced 
cassette program that converts a 16 
or 32K Color Computer into an intelli- 
gent terminal. It possesses an extreme- 
ly important property: It lets you get 
"on the air" almost immediately by ig- 
noring its advanced features. When 
used in this fashion, Colorterm is al- 
most invisible, with no extensive set of 
commands to get in the way. Color- 
term's advanced features can be 
learned at a later time. Be assured, this 
is a painless package to work with at al- 
most any level of sophistication. 

Bare-bones Features 

Colorterm occupies less than 4,900 
bytes of RAM, beginning at $1C00. It 
requires a high-resolution (6144 byte) 
video screen for the software-defined 
character set, one of its most distinc- 
tive features. The display memory em- 
ployed starts at $400, so the Radio 
Shack disk system cannot be used in 
conjunction with the present version of 
the program. 

That high-density character set fea- 
tured in Colorterm 's advertising gives 
you a true upper and lowercase dis- 
play, 21 lines by either 51 or 64 charac- 
ters (keyboard selectable). Lowercase 
characters have descenders. The 
51 -character display is somewhat less 
legible on my elderly black-and-white 
portable tv set than that used by my 
Telewriter word processor, even 
though the latter lacks descenders and 
crams 24 lines onto the screen. Color- 
term uses the same characters for both 
line formats; spaces are JQst reduced 
for the higher-density display. 

As you might expect, 64-character 



lines are a chore to read on any tv re- 
ceiver that is very far out of ahgnment. 
This mode is usable with a well tuned 
set, though, and I am looking forward 
to using it with a wideband monitor 
and baseband video. 

The normal Colorterm display is 
black on a green background. This can 
be reversed from the keyboard, al- 
though the legibility suffers a bit. This 
feature is useful for highlighting par- 
ticular lines of text, such as operator 
instructions. 

The Colorterm character set can be 
patched into other programs to dress 
up their output. The manual contains 
the details on caUing several I/O sub- 



''Be assured, this 
is a painless package 
to work with 
at almost any level. . . 



routines from other Assembly-lan- 
guage programs; I assume that 
DEFUSR and USR calls would work 
from Basic. Martin Consulting makes 
the reasonable stipulation that you 
honor their copyright and restrict such 
apphcations to your own personal use. 

Operation 

As far as the fundamentals of opera- 
tion are concerned, Colorterm comes 
configured for the most common 
ASCII data format: 300 baud, 7 data 
bits per word, even parity, and 1 stop 
bit. This is the format employed by 
CompuServe and Telenet, and I pre- 
sume that it suffices for The Source 
and other major services. More in line 
with my interests, it is supported by the 
IBM TSO (time-sharing option) in- 
stallations. 

Should your requirements be differ- 
ent, any of these parameters can be 



changed by loading (but not executing) 
Colorterm and then performing specif- 
ic POKEs from Basic. The manual 
gives the relevant addresses, as well as 
the data for saving the modified pro- 
gram to tape. There is also a keyboard 
command for switching between full 
and half-duplex transmission; the 
default is half duplex. 

Colorterm features auto-typing; if a 
key is held down for more than a sec- 
ond or so, it begins to repeat at a rapid 
rate. This function is also available for 
the four-way cursor control. The up, 
down, and left-arrow keys, together 
with the spacebar, are used to position 
the cursor, the right -arrow key being 
reserved as a special shift for Color- 
term's advanced commands. A few 
keys are redefined when they are 
pressed at the same time as the regular 
shift. 

Experimenters will quickly discover 
that there is a misprint in the Color- 
term manual. The definitions of the 
shift, up-arrow and shift, down-arrow 
combinations are reversed. These give 
an underline and a left bracket, respec- 
tively. The underhne is an independent 
character; it cannot actually be posi- 
tioned under anything previously 
typed. 

Advanced Features 

When you're ready to use Color- 
term, the right arrow gives you access 
to 18 predefined functions, each ac- 
cessed by a single letter (upper or low- 
ercase). In addition, you can define up 
to seven personahzed functions using 
the arrow plus the letters T through Z; 
these functions generally take the form 
of ASCII control codes POKEd into 
the appropriate locations. 

I have described the functions that I 
use most often in accessing an IBM 
3033 mainframe via TSO, my principal 
apphcation of Colorterm. To give you 
some idea of how broad my Color 
Computer's horizons have now 
become, since acquiring Colorterm I 
have written programs for the main- 
frame in IBM's VSBASIC, Pascal, and 
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Fortran IV, as well as using Script, an 
IBM text -processing package! 

In logging onto TSO, you must sup- 
ply an ID code, generally public knowl- 
edge, and a password, which is con- 
fidential. Colorterm's D (duplex 
change) function allows you to main- 
tain confidentiality. Start your log-on 
procedure in the normal half-duplex 
mode, in which each character is 
echoed on the screen when it is sent to 
the host computer. Before entering the 
password, enter the right arrow and D 
together to switch to full duplex, and 
subsequent characters will not be dis- 
played. This is a toggled command, so 
it should be used again after you have 
finished your password in order to 
make subsequent entries visible. 

When not concerned with confiden- 
tiality, I generally send my entire log- 
on code {ID, password, account num- 
ber, and desired workspace size) to the 
host as a predefined macro message; 
this takes two keystrokes. Colorterm 
has two buffers reserved for frequently 
used macros, each of which may be up 



GRAPHICS 

FOR THE TRS-80 " MODEL I 

Create spectacular color 

graphic displays \A/ith your 

TRS-80 Wodel ! with 



Connects to the expansion port of 
your computer and uses your color 
TV for the graphics display. 
You control a color display that Includes 

■ 256 X 1 92 pixel resolution 

■ i 5 colors plus transparent 

■ 4 graphics modes 

■ easily movable animated patterns 

Complete documentation and softWcire 
allows you to set each pixel, create 
pfltrerns, dr;-iw lines, and much more! 

COLOR-GRAF comes in a 7W x 6" x 3" 
cabinet complete with 40 pin connector, 
power supply, RF modulator, documen- 
tation and software for S260. 

For inforrmtion, or to order, write or call 



400 Asbury Ave., Evanston, IL 60202' 
(312)866-8737 ,- 



to 128 characters long. The G com- 
mand followed by the number of the 
buffer to be filled sets up the message- 
generation process; unfortunately, 
function commands such as right ar- 
row, D cannot be embedded. 

The M (macrosend) command, plus 
the buffer number, transmits the mes- 
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is the ability to scroll 

through a mass of data 

down-loaded from the 

host to the 
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sage when desired. Again, once you 
have customized Colorterm in this 
fashion you have to store it on tape and 
be sure to use the appropriate version 
in future work. 

It is sometimes useful to preserve a 
window of data on the screen while the 
rest of the display scrolls. Colorterm 
allows you to do this at the top of the 
screen. The procedure is simple: Once 
you have the desired information in 
position, place the cursor at the begin- 
ning of the next line and enter the right 
arrow and P simultaneously. Every- 
thing from the cursor to the end of the 
screen is cleared and is subsequently 
used for the scroMing display, leaving 
your data in place. 

Highlighting the preserved message 
with reverse video can be effective, 
too. To do this, you merely use the F 
(color flip) command before the P 
command. The F changes the entire 
display from normal to reversed video; 
the P changes everything in the scroll- 
ing portion of the display back to 
normal. 

My TSO connection involves a local 
telephone call, so I am not normally 
concerned about the duration of my 
connection to the host. Since this is not 
the case for everyone using a time- 
sharing service, Colorterm allows you 
to compose a file of useful size off line 
and then upload it in one shot. Color- 
term normally uses nearly all of memo- 
ry above decimal 12055 as a buffer for 
incoming data; this input buffer can be 



limited to 512 bytes by the L com- 
mand. Note, however, that a binary 
file of your own composition can be 
loaded above this buffer by a 
CLOADM command from Basic. This 
file can then be uploaded via the O 
(outsend) command. The file, which 
might have been prepared with an 
editor or text processor, can be about 
3,500 bytes in length in a 16K com- 
puter, and nearly 20,000 bytes long in a 
32K machine. 

The whole process calls for close at- 
tention to loading offsets and address- 
es in general, a bit clumsy for my taste. 
You should be aware of the existence 
of this capability, though, because it is 
also employed m transmitting data 
from the buffer to a printer through 
the Color Computer's RS-232port. To 
do this with any degree of grace re- 
quires a dual-port adaptor that allows 
both modem and printer to be hung on 
the port at once. The alternative is to 
switch connecting cables as needed, 
which can get a little frantic. None of 
this is Colorterm's fault but a limita- 
tion of the Color Computer. 

One more interest is the ability to 
scroll through a mass of data down- 
loaded from the host to the Color 
Computer. You might want to receive 
data and go off line to examine it at 
your leisure, for example. Colorterm 
handles this easily. Before receiving the 
data, initialize the buffer with the right 
arrow, I command. Scrolling can be in- 
itiated with right arrow, S. The scroll- 
ing process starts at the beginning of 
the buffer, and can be interrupted and 
restarted in place by pressing any key; 
you may have to press a key several 
times in order to catch the attention of 
the keyboard scanning routine, how- 
ever. Scrolling continues to the end of 
memory, or until the break key is 
pressed. Unfortunately, there is no 
provision for scrolling backwards. 

All or part of the buffer can be saved 
to tape by returning to Basic with the 
reset button and executing a 
CSAVEM. Once again, the Colorterm 
manual contains the start, end, and 
transfer addresses for both 16 and 32K 
systems, as well as the PEEKs neces- 
sary to find the end of data in a partial- 
ly filled buffer. 

I have found Colorterm easy to use 
and quite flexible for my day-to-day 
requirements. It is moderately priced, 
and the text densities are high enough 
to allow doing some serious work. ■ 
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What some have called "the best kept 
secret in the game software industry**, i 

Unleashed here are six new software — 

games blending advanced graphics with precise elements of 
playability, challenge and intense fun for every gamer's tastes. 
Beyond these six new games are 26 more for you to consider . 
all we believe are the best software values for your money! 
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LEGIONNAIRE-Reai-time simulation of 
tactical combat in Caesar's time. YOU as Caesar 
command up to ten legions. Finest full-color 
graphics plus playability way beyond the stale 
of the art! Cassette , . . $35,00 

V.C— Faithfully recreates unconvenlional 
conflict in Viet Nam. YOU command chopper 
and artillery units, and face task of protecting 
civilian population where the enemy hides 
among the people. Cassette . , , $20.00 
Diskette , , . $25.00 



G.F.S. SORCERESS— Sci-Fi adventure game. 
YOU are Joe Justin trying to clear yourself of a 
false charge of mutiny and get back to the 
Galactic Federation Starship "Sorceress". 
Beautiful full-color manuals provide useful clues 
Cassette . . . $30.00 Diskette , . . $35,00 

ANDROMEDA CONQUEST- Vast scale 
space strategy game of galactic colonizing and 
conquest among unique star systems with 
strange life forms and alien technologies that 
provide exciting exploration and battle. 
Cassette, . , $18.00 Diskette , . . $23.00 



"Trademarks for Apple CompuleT, Wainer Cfimmunicalions, Tandy Corp 
Inlernarional Business Machines snd Commodoie ln(«rnatitmal Lid 

Available at finer 
computer stores everywhere! 
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MOON PATROL-Arcade Pak™ game of 
lunar invasion. Beats any quarter-gobbling game 
around! Four levels of increasing difficulty 
present new attackers to battle. Fast, furious and 
fun! Cassette , . , $25.00 

TELENGARD— Dungeon adventure in a 
mysterious underworld with 50 levels of ever- 
more-complex mazes to explore. Real time 
fantasy and role-playing game. Using wits, 
magic and fast thinking, gamers fight monsters 
and reap valuable rewards. Cassette , , , $23.00 
Diskette . . . $28.00 

If your favorite dealer fails to have 

the games you want, call us toll free 

1-800-638-9292 



microcomputen games 

• R&GISTERED TRADEMARK Of MICROCOMPirrER GAMES, INC DIVISION OF 



The AVALON HILL Game Company 



Avalon Hill MICROCOMPUTER GAMES 

are compatible with the following computer systems; 

Apple II® 

Atari 4/80CP'' 

TRS-80 Models 1/111 & Color® 

IBM PC.*' 

r-vr.r.n'^ors VIC-20, CBM PET & 20ni"' 



For specific information, such as 
machine compatibility, memory requirements. 

cassette or diskette availability and price, 

call us toll-free 1-800-638-9292 and ask for 

Operator 10 or write to: 

Avalon Hill Microcomputer Games, Depl. C-10' 

4517 Harford Road, Baltimore, MD 21214 
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Master Reversi 
Instant Software Inc. 
Peterborouj>h, NH 03458 
Models I and HI 

$29.95 

* * • • Vi 

Odin 

Odesta Publishing 

930 Pitner 

Kvanslon, 11.60202 

Models I and III 

S34.95 

by Bruce Powel Douglass 

Master Reversi and Odin are two 
microcomputer versions of tlie 
popular board game Othello. The 
games, like Othelio, are played on an 
8-by-8 grid, similar to a chess board. 
Unlike chess, pieces are not moved 
after being set on the grid. Your object 
is to occupy territory by placing pieces 
on the board and trapping your oppo- 



*ARRANGER* 

100% Machine Language Dtsk Index 
Program for the TRS-80 Model ISzHI 
Autoruaticalty recognizes ALL major 
DOS's' 
The Arranger Is a master index 
system thai automatically records the 
names of your programs, what disks 
those programs are on and type of 
DOS. Some of its features arc: 

■ Automatic single and double density 

recognition 

■ Accepts LDOS, DOS+, TRSDOS, 

NEWDOS. 80, DBLDOS , . , 

- Works interchangeably with Model 

III, I double density 

- Capacity of 200 diskettes, 45 

filenames/diskette 

- Quickly locates any amount of free 

granules 

- Finds a program in less than 30 

seconds! 

- Alphabetizes 1500 filenames in 40 

secs.l 
Option to sort by any extension 

{/BAS, /CMD. /^??) 
Eiasily updates diskettes previously 

added 

- Backup function build in 

- Uses 1 to 4 drives. 35. 40. or 80 

tracks 

Requires 32K, 1 disk min., $29.95 

Specify: TRS-80 Model number 

(II you've added double density io 
yoiji Model I, please mdicale) 

Triple-D Software '^ ^^ 

P.O. Box 642 VISA 

Layton, Utah 84041 OR 

(801) 546-2833 MASTERCARD 



ncnt's pieces between them. Once 
trapped, an opponent's piece is flipped 
over reversing its color. 

Master Reversi 

Master Reversi requires a 32K 
Model I with one disk drive. It has nine 
skill levels, and an easy -to-underst and 
manual. The game responds quickly 



"Odin plays more 

competitively and 

beats me more often 

than Master Reversi. 

It doesn't, however, have 

the options found 

in Master Reversi. . . " 



up to the fourth or fifth level; but the 

response time increases for the higher 
levels, typical of heuristic, tree-search- 
ing algorithms. You can change the 
level of play at any time during the 
game. Master Reversi has a tourna- 
ment clock and lets you play the com- 
puter or another person. 

This game uses the arrow keys tor 
positioning the flashing cursor. I 
prefer this to Odin's method, which 
uses numbers to choose the square. 
Options include taking back the pre- 
vious move, forcing the computer 
(.wiith the affectionate name Aldaron) 
to. move immediately, displaying avail- 
able commands, displaying legal 
moves, sending the current screen to a 
graphics or nongraphics printer, re- 
questing advice, passing on your move, 
changing your name on the screen, tog- 
gling the flashing of the cursor, saving 
or recalling a game, and quitting. The 
nicest option is the output to the 
printer. 

Master Reversi's thinking mode lets 
you see what Aldaron is thinking. 
What you see ranges from the lasi 
board positions, to the moves Aldaron 
is considering and how highly he values 
them. Aldaron also lels you set up 
possible board positions and analyze 
them. In fact, you can have five dif- 
ferent board positions in memory at 
once. You can display or review the 
moves made during the game, either in 
standard Reversi notation or with the 



board itself. 

Master Reversi's tournament mode 
is for serious players. In this mode, Al- 
daron thinks on yotir time, plays in ac- 
cordance to tournament rules, and uses 
book openings. I prefer this mode. 

Master Reversi plays a good game. 
Although its response time is slightly 
slower than Odin's, it is better than 
most Othello games I have seen. 

Odin 

Odin also requires a 32K Model I 
with a disk drive. Its well written 
manual includes a complete descrip- 
tion of rules, history, and strategy, in- 
terestingly, when you buy Odin you get 
a year's membership in the United 
States Othello Association and receive 
their quarterly magazine. 

Odin automatically displays your 
possible legal moves when it is your 
turn and has a number of options, al- 
though not as many as Master Reversi. 
They include changing skill levels, 
changing sides during the game (with 
this option, Odin plays himself), start- 
ing a new game, displaying instruc- 
tions, replaying the game, setting up 
new positions, a tutor mode, display- 
ing the game record, taking back the 
last move, and an option called the 
principal variation. 

The tutor mode displays ah your 
moves, with Odin's opinion of their 
relative worth. This mode reflects 
Odin's opinion of the immediate situa- 
tion without considering future moves, 
so it is of little help except to the 
novice. In the principal variation 
mode, Odin shows the move he thinks 
is best for you, what his counter move 
will be, and so on, for the number of 
moves equal to the depth of the search. 
Odin plays at levels 1-9, A-F, G, T, or 
X. The tournament level works only if 
you have a 3x speedup modification. 
Level B, however, plays approximately 
within the 25-minutes-per-player limit 
used in tournaments. 

Odin plays more competitively and 
beats me more often than Master 
Reversi. It doesn't, however, have the 
options found in Master Reversi, and 
sorely lacks the printer-output option. 
I prefer Master Reversi's method o^ 
choosing squares for moves (moving 
the cursor with the arrow keys) to 
Odin's name-that-square approach. 
Both play a good, solid game and have 
ample skill levels to keep you busy for 
quite a while. ■ 
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Introducing SATN from Software 
Arts , creators of the VisiCalc pro- 
gram. SATN is a publication offering 
on-going support to all VisiCalc users. 

SATN helps you discover the full power of 
VisiCalc, including advanced methods to help develop 
your own VisiCalc applications. 

Each issue of SATN is filled with techniques and 
information to help you expand your understanding of 
VisiCalc functions. 

Past issues include articles on mortgage calcula- 
tions, playing "what if" with IRA's, internal rate of 
return calculations, scheduling with VisiCalc. 

Bonus Subscription Offer 

If you subscribe by Dec. 31, 1982, you'll receive a 
free issue of SATX. Just return the coupon or call our 
toll-free number to order. 

Fuli Refund Policy 

. If y(.)U are not completely satisfied with your first 
issue of SATN, let us know within one month and we 
will refund your money. 

SATN is your personal pipeline to the people at 
Software Arts who invented VisiCalc. Their knowledge 
and experience with VisiCalc will benefit you with each 
and every issue. 

Acttodav! 




FOR FAST DELIVERY CALL TOLL FREE 

800-257-7850 Op. 737 (In NJ 800-322-8650) 

SATN SUBSCRIPTIONS, P.O. Box 815, Quincy, MA 02169 

Yes, please send me U 7!ssuesar the6-rimerateof$30. 

(Outsidey.S.-§50.) 
D 13issuesatthel2-timerateof$50. 

(OmsideU.S.-S90.) 
D Check enclosed □ MasterCard □ Visa □ Bill Me 



Credit Card # 



Expiration Date 



Signature 



Name (please print) 



Company 



Address 



Citv 



State/Countrv 



Zip/Postal Code 



On what coraputer(s) do you run VisiCalc?. 



Please allow 6-8 weeks for delivery. 



MCA 



SATN ™ The Journal for VisiCalc Users . 

The VisiCalc Program is copyrighted by Software Arts, Inc. SATN i;; a trademark ot Software ArtJi , Inc. 
VisiCalc is a registered trademark of Personal Software Inc., which is the exclusive world-wide publisher and distributor of the VisiCalc program. 
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Spell 'N Fix 

Star-Kits 

P.O. Box 209 

Mt. Kisco, NY 10549 

$69.29 cassette or disk 

$89.29 flex disk 

by Scott Norman 



Spell 'N Fix is a program for finding 
and correcting spelling errors in 
Color Computer text files. It compares 
each word with entries in a dictionary 
file, identifies words that do not ap- 
pear there, and displays or prints them. 
You can mark suspect words for later 
correction in a new version of the text 
material, and you can customize the 
dictionary to reflect your vocabulary. 

Spelling checkers are available for 
other computers, but to my knowledge 
Peter Stark of Star-Kits is the first to 
produce one for the Color Computer. 

Spell 'N Fix is an adaptation of 
Magic Spell, a 6800-systcm program. It 
is unique in that it is also available in 
the Flex format; as devotees know, 
Color Computers with Radio Shack 
32K conversions and fully functional 
64K RAMs can be adapted to run un- 
der this popular operating system. 

Spell 'N Fix operates on ASCII files, 
so it is compatible with most CC text 
processors. I have used it with Color 
Scripsit (using the print-to-tape 
option), CC Writer, Super Color Writ- 
er, and Telewriter. Telewriter doesn't 
produce ASCII material, but rather 
core-image (binary) files. Spell 'N Fix 
and the disk version of Telewriter in- 
clude conversion programs to take care 
of the mismatch. 1 will frequently refer 
to tests with a particular Telewriter- 
generated text file. 

I have used only the disk version of 
Spell 'N Fix. The cassette version is 
much less flexible, and 1 question its 
utility over the long haul; cassettes 
have too many restrictions for the kind 
of file shuffling that a program of this 
nature requires. 

Preparing a File 

My test file was just under 2,9(X) 

words (about 17,000 characters) long, 
typical of the material that I produce 
with my 32K machine. 

I first converted my sample with 
BINCQN, a Basic program included 
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on the Spell 'N Fix disk. There is a syn- 
tax error in early versions of BINCON. 
Line 220 should be changed from 
NEXT I to NEXT S; this problem has 
been corrected in newer versions. 
When you run BINCON, it asks for 
the names of the original file and the 
ASCII output file. It then chomps 
away with the text scrolling by in a 
jerky fashion as conversion proceeds. 
The disk drive cuts in and out as seg- 
ments of the ASCII file are built up. 

BINCON is slow. It convened my 
file in just under 13 minutes. This 
seems to eliminate Spell 'N Fix from 
use with Telewriter. Fortunately, Cog- 
nitec's Howard Cohen has included 
CONVERT/XXX, his own machine- 
language conversion routine, with the 
Telewriter disk. This ran my file in 40 
seconds. Convert can switch ASCII 
material back to core-image format, so 
Telewriter's output formatting can be 
used after spelling corrections have 
been made to an ASCII file. 

Convert has one drawback: It leads 
off with a PCLEAR and Clear combi- 
nation that upsets my computer's ver- 
sion 1.0 Basic ROMs. The solution is 
to issue the commands from the key- 
board, and delete them from Convert 
itself. 

Running Spell 'N Fix 

Spell 'N Fix is easy to run, although 
there are many options to declare. It is 
a rather chatty program, with tots of 
screen prompts and an excellent manu- 
al to lead the user along. The disk con- 
tains nine files, but only three are 
involved in an elementary spelling 
correction run: SPELLFIX/BAS, the 
loader and interface program; SPELL- 
FIX/BIN, the machine-language spell- 
ing checker; and DICT/DAT, the dic- 
tionary file, which contains just under 
20,000 words in a special compressed 
format. 

When you load SPELLFIX/BAS 
and try to run it, you get a syntax error. 
This may arise from a bug in Basic 
itself, according to Peter Stark. The 
fix is trivial: Enter a second Run 
command. 

10 GOTO 100 
20 GOTO 1 10 

30 GOTO 20 

Now the machine-language program is 
called, and you are presented with the 
first option, which is the use of a 



printer to record suspect words as you 

proceed. 

Next, enter the text file name to be 
proofread. If you have a one-drive sys- 
tem, this is the first of several times you 
will have to switch disks (the text disk 
replaces the Spell 'N Fix disk). Things 
are more convenient for two-drive 
owners. Simply give the complete file- 
spec (name/extension: drive) in re- 
sponse to each prompt for a file name. 

Once the text file is located and 
opened, there is one more prompt — 
you are asked to specify the kinds of 
words that Spell 'N Fix is to examine. 
The choices are any group of charac- 
ters (excluding certain punctuation 
marks) enclosed by spaces or carriage 
returns, or only what the program con- 
siders reasonable words. The latter is a 
more restrictive category, and is not as 
useful when first scanning text for er- 
rors. It may be useful, however, when 
adding new words to a customized dic- 
tionary. 

Now Spell 'N Fix is ready to work. It 
reads the text file, constructing in 
memory an alphabetized list of all dis- 
tinct words to be compared with the 
dictionary. This is the key to process- 
ing iarge files. English text is very re- 
dundant; the number of different 
words in a iarge sample is much smaller 
than the total number of words. The 
manual claims that Spell 'N Fix can 
handle files of up to 4(X),(XX) characters 
(about 70,000 words) in a 32K system. 
The program read my test file in about 
1 minute, 50 seconds. 

Next, Spell 'N Fix asks for the name 
of the dictionary file to be used; in the 
early going, this is DICT, the stock dic- 
tionary. You usually have to switch 
disks again. You are given the option 
of adding new words to the dictionary 
at this time. The program reads as 
much of the dictionary as fits into 
memory along with the list of distinct 
words, and when it has done so, it 
compares the two. 

Words that do not match the dic- 
tionary are printed on the screen (and 
on the printer, if that option was cho- 
sen) in alphabetical order. The process 
is repeated in steps until all of the dic- 
tionary has been read and compared 
with the input text. 

Several options are presented when 
the first misspelled word is encoun- 
tered. You can ignore a given word, 
mark it for future correction, or mark 
all such findings in the remainder of 
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What will they think of next..? 



Your computer is fantdstically fast. ..once it knows what 
to do. You probably realize that a computer is really 
the combination of hardware and software, working 
together smoothly, to give you what you want. Either 
one alone is useless. Software is really the key. ..the 
"mind" of a computer system. Every project or task 
you want to do requires a new specific software ap 
plication to make it behave exactly the way you desire. 

Of course, you may be able to "force-fit" an application 
into some existing canned program you have, but to 
really get results, you need a soparaie ai^plication 
program to run on your computer 

Until now, that meant you were forced to pay money 
for application software off the shelf, or if you could 
afford it, have it custom written for you, or, if you are 
qualified, do it yourself. ..spending endless hours 
figuring it out and writing it. Now, your computer can 
write individual application prof^rams for you. These 
programs are each separate, unique software programs 
that run in standard Basic on your computer 

A company named FutureSoft has developed this ex- 
citing and long awaited remarkable working tool for 
you. There are two versions called Quikpro+PIus and 
standard Quikpro. Both of them create unique separate 
Basic programs for you. ..to do exactly, precisely, what 
you want to do. And listen to this. ..you create a new 
program in mmutes instead of hours 

You can quickly generate a new program when you 
want it. You can generate thousands of different 
unique programs, each one standing alone as a com- 
plete program that runs in Basic. Best of all, you do not 
have to be a programmer to do it. The Quikpro soft- 
ware becomes your personal programmer, waiting to 
do your work for you any time of day or night you 
choose to use it 

The custom programs you generate from this software 
provide for: Data Entry, Additions, Changes, Record 
Locating & Searches, great variety of Computations, 
and Report Printing (if you have a printer). It lets you 
decide what data to manipulate and how to manipulate 
it. It lets you decide the formats you want to appear on 
your screen and/or to print out in a report. !t lets you 
use differmg formats on the same data base. It lets' you 
make calculations from data within records without 
altering the data base. It lets you report results with or 
without including the base data from which results 
were calculated. 

All this is included in the ability/power of the program 
you create. You do it by simply answering questions 
that appear on your screen. Instantly, the Quikpro soft- 
ware instructs the computer to perform complex and 




error free instnn tional sequeru:«>s. You get the im- 
mediate benefit.s of prot(>ssionally written software for 
your application 

The resulting cu.slom prtjgram is truly a separate Basic 
[)fOgram. You can list it, you can modify it, you can ac- 
tually see what makes it tick. You can even ask it to 
print out its own operating instruction manual so others 
(an run it for you Finally, you can really tap the speed 
and power of your computer the way you really want. 
You can create new programs for every use you have in 
Business, Science, Education, and Hobby areas. And 
you can start nf)w 

I he software is available immediately from tlie 
creators. It comes in two versions, if you want to 
generate separate Ba.sic. programs witli all the data 
handling plus Calculations and Report Printing 
features, you want Quikpro+PIus. Specify to run on 
TRS80 Model I and Model III at only $149; to run on 
TRS80 Model II at $189. 

if you do not need Calculation ability or Report Print- 
ing in the separate Basic programs you will create from 

this program generating software, then .standard Quik- 
pro will do the job for you. Standard Quikpro to run on 
iRSBO Model I or Model III is $89; to run on TRS80 
Model II is $129. (Later on you can always trade up to 
the Plus Versions for only the tost difference between 
the two). 

Both programs are available to run on many other 
computers besides 1RS80. Details are available by 
tailing or writing. 

You can order right now by phone or mail. If you have 
Visa/Mastercard, call toll-free from: 

Ail States except CA-AL-HI 1-800-824-7888 OP# 441 

From California call 1-800-8.S2-7777 Op# 441 

hrom Alaska/Hawaii call 1-800-824-7919 Op# 441 

Operators on duty 24 hours daily. Operators can not 
answer technical questions. If you need technical in- 
formation or want to order from Canada or other 
nations, call 1-904-269-1918 during office hours, Eastern 
Time, Mon.-Fri 

Send mail orders with check, money order or credit 
card information to: FutureSoft, P.O. Box 1446-D, 
Orange Park , Florida 32073. FutureSoft gives you -a 
satisfaction or your money refunded guarantee for 10 
days from delivery. You can run the software yourself 
on your own computer and see with your own eyes 
what it can do for you. Order now, ^^66 



ADVERTISEMENT 



'See UsI of Advertisers on Page 455 
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the text. The latter option is a,s close as 
Spell 'N Fix comes to fully automatic 
operation; using it, my file was pro- 
cessed in just under two minutes. The 
other options call for an operator deci- 
sion every time a misspelling is detect- 
ed. The decision to ignore such a find- 
ing is not always easy; the program rec- 
ognizes specialized technical jargon, 
but proper names and control codes 
sometimes cause confusion. 

Suppose you choose the M (mark as 
incorrect) option for at least some of 
the words flagged by Spell 'N Fix. 
When the entire dictionary has been 
read, you are asked whether you wish 
to create a new text file with such 
words either changed or marked. (The 
alternative is to quit the program en- 
tirely.) Assuming that you do want the 
new file, another disk switch is in 
order. Your original text file must be 
available, because Spell 'N Fix must re- 
read it to properly locate the misspelled 
words in its alphabetized list. 

if you have chosen the Mark option 
for the entire file, the program reads 




Finally, a^ter more Ihan nine 
months, of development, a 
universal diskette management 
system. A softvi/are package 
designed to keep track of all of 
your diskettes and programs. 



q 95 



Contains-.. 

* Quick sort routine for sorting hy 

program name, or propram ex- 
tension, or disk number, or a 
combination of inler-woven sorts. 

* 255Disk/510sidestoragecapac- 
ily per data file. 

* Virtually unlimited printing and 
data access parameters 

* Pays for itself ttie first week. 

(TRS MODELS I & 01 Only) 




P «, P CORPORATION 
POBox36? • HADDONFIFLD. N J 
CALL 
TOLL-FR 

m New Jerse; 609-428-39Q0 



,EE 800-257-6170 



the old file and writes the new one al- 
ternately. This look just under three 
minutes for my sample. If you choose 
the Change option, it repeats the text 
up to and including the first marked 
word and then prompts you to enter 
the word correctly. This is repeated for 
every misspelling. The system returns 
to Basic when the last correction has 
been made. 

If you examine a marked fiie, you 
find every misspelled word flagged by 
three asterisks. Unless you are a terrific 
speller, this provides a good reason not 
to push the hmits of your computer's 
buffer capacity when composing your 
original material. 

Operating Spell 'N Fix is not as cum- 
bersome as it sounds. Here is a sum- 
mary of the entire process for a one- 
drive system, assuming that an ASCII 
text file is available at the outset: 

• Load Spell 'N Fix. 

• Insert text file disk. Read in and pro- 
cess fiie. 

• Insert Spell 'N Fix disk. Read in dic- 
tionary and prepare a list of misspell- 
ings. 

• Insert text file disk. Reread original 
file and prepare a new one with errors 
changed or marked- 
One step remains for Telewriter 

users at this point — conversion back to 
core-image format. Convert handled 
that job for me in less than 15 seconds 
for my sample. I was then able to use 
Telewriter's global editing feature to 
locate all strings of three asterisks to 
make the necessary corrections. 

Customizing the Dictionary 

The dictionary furnished with Spell 
'N Fix contains not quite 20,000 
words. This limit was originally chosen 
so there would be room for the user to 
construct a second customized copy on 
a dedicated dictionary disk. 

Spell 'N Fix provides several ways to 
do this customization (with disks — cas- 
sette systems cannot have the required 
pair of files open simultaneously). Just 
before reading the dictionary file, it 
asks if you are going to build a new- 
one. A Yes answer causes another pair 
of options to be available each time a 
misspelled word is detected in the 
source file. You may add the word to 
the dictionary as is, or add all flagged 
words. This gives you an easy way to 
merge a specialized vocabulary with 
the stock dictionary. Just construct a 
text file consisting of your specialized 



vocabulary (properly spelled), and run 
it against the Spell 'N Fix dictionary 
under the D (add all words) option. 

You have to be careful with this to 
strike a balance between having an all- 
inclusive dictionary and keeping the 
running time down to acceptable lev- 
els. There is little point in loading the 
dictionary with words that will only be 
used in a single piece of writing. 

It is also possible to construct a spe- 
cialized dictionary from scratch with 
the D option. Again, you start with a 
file of properly spelled words, but this 
time you add it to a blank dictionary 
file. A blank dictionary contains one 
entry — 12 up arrows, recognized by 
Spell 'N Fix as an end marker. The 
Spell 'N Fix disk includes a utility pro- 
gram, Build, that you can use to set up 
such a file. 

Other Utilities 

The Spell 'N Fix disk contains a 
number of utility programs. In addi- 
tion to Build and BINCON, there are 
SAMPLE/DAT, a short piece of text 
used for teaching the system; LIST/ 
BAS, which prints the contents of 
ASCII text files (after marking words, 
for instance); RESLT/BAS, which 
flushes everything and returns the 
computer to its normal wake-up state; 
EXPAND/BAS, which converts the 
Spell 'N Fix dictionary from its normal 
compressed form to an expanded form 
in which it can be edited. This is the on- 
ly way to remove words from the dic- 
tionary, but the manual points out that 
Expand may take several hours to per- 
form the complete conversion. 

How Does It Work? 

The time Spell 'N Fix takes to pro- 
cess one of my files is not unreason- 
able, although its use on a single-drive 
system is unnerving. One solution is to 
copy my working dictionary onto each 
disk used for text files. This minimizes 
the disk swapping, at the cost of 3 1 or 
32 grans per disk. 

Spell 'N Fix does its job and adds a 
little more professionalism to Color 
Computer text processing. ■ 



We inadvertently printed an incor- 
rect address for Compulink in the 
September review of Sooperspoofer. 
The correct address is: Compu!inl<, 
1840 Industrial Circle, Longmonl, CO 
80501— Eds. 
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edited by Janet Fiderio 



Color I.oj*o, Radio Shack, 32K Color Computer disk ver- 
sion, S99. 

"The most interesting feature of Color Logo is its ability to 
create multiple (up to 255) turtles and have them send mes- 
sages to each other. ...In general this looks like a nice Logo for 
children." Byte, August, p. 248. 



Chextext, Apparat Inc., Denver, CO 80237, Model I or III, 
32K, two disk drives, $59.95. 

"Chextext runs smoothly and.. .efficiently. ...We would 
feel more comfortable. ..if wc could sec the word in context 
during review of the suspect word list. Any word encountered 
in which context might be a factor can be flagged, however, 
and examined in context during the correction process." 
Desktop Compuling, September, p. 52. 



Kleclric Webster, Cornucopia Software Inc., Walnut 
Creek, CA 94596, $80.50 TRSDOS standard, $149.50 CP/M 
standard. 

"Electric Webster is a program that can mature and grow 

under your direction. It learns your words and helps you to use 
them. 1 am impressed with its responsiveness and features." 
InfoWorld, August 30, p. 36. 



The UPI-3 Serial Interface, Model I, Binary Devices, No- 
blesviUe, IN 46060, $139.95. 

"The interface is everything I expected and I am happier 
with this piece of hardware than any I have purchased for my 
TRS-80 Model L Although the price may seem high, the prod- 
uct is excellent. Support from the manufacturer equals the ex- 
cellence of the product. ...If you have the driver blues, the 
UPI-3 may be the best solution to your problem." 80 U.S., 
August, p. 101. 



Space War, Spectral Associates, Tacoma, WA 98466, Col- 
or Computer, $21.95. 

"Even if you spend a lot of time (not to mention money) 
mastering arcade games, you'll have to start from scratch 
when you pick up the joysticks of this new Spectral Associates 
game. ...I recommend it for two players, ahhough one player 
could probably do all right with a little practice." 80 U.S., 
August, p. 104. 



Basic Pro}>ramfner''s Notebook, Earl R. Savage, Howard 
W. Sams & Co. Inc., Indianapolis, IN 46206, $14.95. 

' ' The Basic Programmer's Notebook is an excellent tool for 
people who want io learn shortcuts in programming to pro- 
duce writing that is easier and, perhaps, even better than what 
they might write without using the book." Info World, August 
2, p. 15. 



Basic Programs for Home and Pinanciat Management, 
W.B. Goldsmith Jr., Prentice-Hall Inc., Englcwood Cliffs, 
N.I 07632, 320 pp., hardcover $18.95, softcover $12.95. 

"For anybody who might just need to computerize his en- 
tire home finances, this book provides a lengthy description of 
each program that includes background information, detailed 
documentation, and 'programming notes.' The writing is in- 
formal and simple enough for the near-beginner..." Creative 
Computing, September, p. 228. 



Versaflle, Radio Shack, Model I disk system, $29.95. 

"What makes Versatile so unique is its versatility— its name 
is very appropriate. ...If you are looking for something that 
will make your computer more useful. Versatile from Radio 
Shack may be for you." Creative Computing, September, p. 69. 



TRS-80 Graphics for the Model I and III, Byte Books, 

Peterborough, NH 03458, $12.95. 

' ' TRS-80 Graphics for the Model land ///is an excellent in- 
troductory text to the field. Written in a breezy and generally 
conversational lone, this book, by authors David A. Kater 
and Susan J. Thomas, belongs on every TRS-80 owner's 
bookshelf. It's certainly the most fun computer book I've read 
in months." 80 U.S., September, p. im. 



The Basic Handbook, 2nd Pdition, David Lien, Compu- 

Soft Publishing, El Cajon, CA 92020, softcover $19.95. 

"To the average TRS-80 owner, David Lien's name has be- 
come familiar. The Basic Handbook, 2nd Edition, will make 
it even more so.... The Basic Handbook is an encyclopedia of 
the Basic language. It gives possible commands in alphabetical 
order with one or more pages devoted to what that command 
means." 80 U.S., September, p. 101. 



Pascal Programs for Scientists and Engineers, Alan R. Mil- 
ler, Sybex, Berkeley, CA 94710, paperback, 374 pp., $16.95. 

"This book shows how far the microcomputer industry has 
come from its game-playing origins. ...The programs in the 
book are written in Standard Pascal; this has some advantages 
and some disadvantages. The programs can be used on any 
computer that has a Pascal implementation, but they can't 
take advantage of special features (such as graphics) which 
make some versions of the language so attractive." Micro- 
computing, September, p. 134. 
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At last count, more than a 
couple of million Americans owned 
personal computers. And that 
number is expected to triple by 

1985. 

That's a fertile environment 
for software sales. But a lot of per- 
sonal computer software organiza- 
tions are dscovering it's not as 
easy as they might have thought. 

The problems boil down 
to these: 

Lack of awareness on the 
part of personal computer buyers. 
Lack of understanding on the part 
of personal computer salespeople. 
Lack of unlimited dollars to adver- 
tise in the myriad magazines that 
reach tiiis small segment or that 
small segment of Ae total market. 

If any of this sounds like a 
familiar frustration to you, we've 
got good news. LIST is here. And 
its advent heralds a new era in 
cost-effective software marketing. 

L/ST isn't 
another guide. 
It's not another 
directory. It's an 
informative new 
publication that 
puts software 
first. And puts 
you in touch — 
directly, inexpen- 
sively — with the 
fastest growing 
segments of 



the personal computer market. 

With L/ST; you'll be able to 
reach business and professional 
people at a critical point in the 
purchase cycle — before they've 
bought their hardware. 

At the same time, you'll be 
able to impact another significant 
market segment — those people 
who already own person^ com- 
puters, and are eager to learn how 
they can do more with them. 

To find out how LIST can 
expand the awareness of your soft- 
ware for less than $200, send us 
this coupon. (Hurry! We go to 
press December 15.) 

Or don't. And go on being 
less well known than you deserve 
to be. 

LIST is published by Redgate 
Publishing Co. , an affiliate of 
E. K Hutton and Co, 

1 800 327-1300 



1 WANT TO MAKE MORE PEOPLE AWARE Or MY SOFTWARE: 

n Please send me literature that explains how LIST can help. 

D I don't want to wait on the mails. Call me right away. 

SendtoL/ST; Redgate Publishing Co., 3407 Ocean Drive, 
Vero Beach, PL 32960. Or phone 1 800 327-1300. 
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,The Software Resource Book, 
" For ftrsonal Computer Users 



-See Usi ot Aaverlisers on Page 455 
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by G. Michael Vose 



micro with a bedside manner? Read how the 
medical profession is using micros to 
diagnose, educate, and gather information. 




When "Bones" McCoy, the chief 
medical officer on Star Trek's Federa- 
tion starship Enterprise, pulls a small 
tricorder sensor out of his pocket and 
scans the body of a fallen comrade to 
diagnose his injuries, he is using tech- 
nology that doesn't exist today. But it 
may tomorrow. 

The thrust of the engineering efforts 
in electronic design labs is to put more 
circuitry on a single silicon microchip. 
With each new breakthrough in micro- 
processor technology, the medical pro- 
fession takes a step closer to the day 
when Dr. McCoy's tricorder will be a 
reality. 

Of course, as Captain Kirk's good 
doctor has proven in times of interstel- 
lar crisis, technology will not replace 
the learned men of medicine nor will it 
make them infallible. But micropro- 




cessor technology can and will add to 
the tools the physician of tomorrow 
will use to cure the bodily ills of 
mankind. 

Microcomputers are already making 
significant contributions to the prac- 
tice of medicine. From streamlining 
the paperwork hassles in record keep- 
ing, to warning physicians of danger- 
ous drug interaclion, to interpreting 
the clinical measurements taken by 
other instruments, the microcomputer 
is a modern day Dr. McCoy. If you stir 
in a few projections about the future, 
you brew a mixture in which the prac- 
tice of the medical arts may become 
one of the most significant applica- 
tions of microcomputer technology. 

Today's Medical Applications 

Today, microcomputers are being 
used primarily to manage the vast 
amounts of information needed by a 
physician and his^ staff. Patient ac- 
counts, clinical. histories, recordsof re- 
actions to medications, scheduling of 
office and hospital visits, and billing 
must all be recorded for every patient. 
Every physician must also have access 
to the latest information about new 
treatments. All this constitutes an in- 
formation explosion that micros can 
help manage. 

But, doctors are also beginning to 
discover Kow computers can help in the 
clinical process. In the last few years, a 
new breed of physician has appeared 



— the physician programmer who iden- 
tifies a clinical application and then 
writes a computer program for it. 
These physician programmers are add- 
ing a new dimension to their practices 
and are sharing these new tools and 
techniques with iheir colleagues. 

The staffs of the hospitals where 
these programming physicians work 
are also learning the new technologies. 
Increasingly, microcomputers are be- 
ing used to help plan diets, analyze 
medical testSj and monitor patients in 
intensive care units. In many hospital 
applications, computers are being used 
by nurses, dieticians, and admin- 
istrators. 

Medical Micros 

Many physicians are excited about 

microcomputers because of their ac- 
cessibility, user friendliness, and abili- 
ty to back up valuable data. Drs. Lee 
Blumenthal and John Waterson of the 
Department of Pediatrics and Com- 
municable Diseases at the University of 
Michigan have chosen a TRS-80 mi- 
crocomputer as the da,ta-ehtry station 
for a data-base management system 
used on a mainframe computer. Data 
is entered into the TRS-80, saved on 
disk, and later sent to the mainframe 
computer by telephone modem. Blu- 
menthal and Waterson say that this 
system is superior in many ways. 

First, the computer is always avail- 
able for data entry. Second, correcting 
errors is simple; in fact, the system in 
its entirely is easy to use as compared 
to [he timeshared mainframe. And 
third, data can be transferred at night 
when (he mainframe system is more 
readily available. 

Availability is the major factor that 
has spurred the growing use of micro- 
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computers by the medical communily. 
In the Cystic Fibrosis Clinic at Chil- 
dren's Hospital in Pillsburgh, PA, 
doctors and their young cystic fibrosis 
patients use a microcomputer to help 
them assess the caloric value, food va- 
riety, and vitamin C and vitamin A 
content of the patients' daily diets. The 
system not only provides specific infor- 
mation for dinical purposes but also 
educates the patients. Patients as 
young as 6 and 7 years old type in a list 
of the foods eaten in the most recent 
24-hour period, and the computer cal- 
culates a score corresponding to the 
four categories. For each category, the 
computer displays a broad smile, a 
partial smile or a frown, depending on 
the scores calculated. Repetitive use of 
the system has improved the dietary 
consciousness of the children who have 
been exposed to it. 

The University of Michigan devel- 
oped a similar application, to help plan 
diets for diabetic patients. A dietician 
records a diet history for each patient, 
stores the information on a floppy 
disk, and then sends the data to a 
mainframe computer; where a special 
program writes menus based on each 
patient's special needs. 

A LaJolla, CA, company sells soft- 
ware to perform nutritional analysis. 
Nutri-Comp Inc.'s program uses a 
data base of 61 6 food items to calculate 
the percentage of protein; fat; carbo- 
hydrates; cholesterol; alcohol; vita- 
mins A, D, E, C, Bl, B2, niacin, B6, 
BI2, and folacin; and the minerals cal- 
cium, magnesium, phosphorous, zinc, 
sodium, and potassiuqjj^or any given 
daily food intake. Tb^' program com- 



pares the daily percentages of these es- 
sential nutrients to the government's 
recommended daily allowance (RDA) 
and displays what percentage of the 
RDA for each nutrient the patient con- 
sumed that day. 

Small Size — Big Capability 

The small size of a microcomputer 
system makes it a versatile instrument 
in a chnical situation because it allows 
a doctor to perform tests that would 
otherwise require a special laboratory. 
At the Newark Beth Israel Medical 
Center in Newark, NJ, doctors use a 
microcomputer to perform pulmonary 
function tests — tests of the heart/lung 
machine at rest and during exercise. 
Using a microcomputer attached to 
monitoring devices via an analog-to- 
digital converter, the physician can do 
lung volume studies, single breath dif- 
fusion studies where the difference be- 
tween the amount of particular gases 
inhaled and exhaled is calculated, and 
measurements of arterialblood gases. 
The system even has a remote unit, 
complete with its own termirial, con- 
nected to the microcomputer by acous- 
tic modem. This setup makes it easy to 
perform tests on patients right in their 
hospital beds. (Scientists are using sim- 
ilar systems in biomeehanical research 
— see the article about the Nike Shoe 
Company's research efforts on p. 188. 

Microcomputers can help a physi- 
cian solve immediate problems, as the 
Newark Beth Israel system shows, but 
the machines make their most signifi- 
cant contributions when they codify 
massive amounts of information. A 
Nashua, NH, surgical practice has de- 



veloped a microcomputer data-base 
system to help surgeons review post- 
operative complications. After sur- 
gery, the surgeon prepares a report on 
any problems he met. The patient is 
monitored throughout post-operative 
recovery and any complications are re- 
corded, as are any related treatments. 
Then, this information is added to the 
data base. Any surgeon may review the 
accumulated data at any time to antici- 
pate potential problems with a particu- 
lar surgical procedure. 

One of the more serious problems in 
medicine is the possibility that two or 
more prescribed drugs will negatively 
interact. Compunet of Inglewood, 
CA, estimates that adverse reactions to 
drugs and combinations of drugs cause 
illness, death, and extended hospitali- 
zation to the tune of $4.5 billion a year. 

With a tremendous variety of drugs 
available to the modern physician, this 
potential for adverse drug interaction 
becomes a serious information prob- 
lem. A computer system that flags dan- 
gerous interactions can save physicians 
time and effort, not to mention patient 
suffering. One commercially available 
system, MedSafe from Compunet, 
uses a data base developed over four 
years from 4 million prescriptions writ- 
ten for 400,000 patients. In its first 
month of commercial use, it alerted 
doctors to five potentially lethal 
prescriptions. 

Of course, the truly monumental in- 
formation problem faced by medical 
practitioners is the amount of paper- 
work for every patient. Medical histo- 
ries, records of past illness and treat- 
ment, insurance information, govern- 
ment records and financial statements, 
and in-house records are all part of the 
increasing crunch. A micro- or mini- 
computer is no longer a luxury in a 
physician's office, but a necessity to 
manage this record-keeping nightmare. 

Many major software companies of- 
fer packages for managing the modern 
doctor's and dentist's office. The Med- 
ical Office System from Radio Shack 
enables a TRS-80 to produce insurance 
forms and bills, and keep a general 
ledger; it also provides a module to 
maintain clinical records for the small 
to medium-sized medical practice. 

Body and Soul? 

While the microcomputer helps 
many doctors in the office, laboratory, 
and pharmacy, it is also finding a place 
in the offices of psychiatrists and psy- 
chologists. Two midwestern research- 
ers, Df . David H. Gustafson and Bruce 
J. Tianen, have developed a micro- 
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computer-based system for predicting 
the chance of death in a suicide at- 
tempt. The system was developed in 
conjunction with a study, done for the 
University of Wisconsin's Depart- 
ments of Psychiatry and Industrial En- 
gineering. Using the data collected 
from clinical interviews of patients 



with emotional problems, the program 
evaluates the probability that the pa- 
tient will attempt suicide and the prob- 
ability that a suicide attempt will 
succeed. 

The Wisconsin study recognizes that 
many emotionally disturbed people at- 
tempt suicide but subconsciously do 



The Micro and the 
British Medical Profession 



by Dr. Nicholas Robinson 



Over the past year, general prac- 

titioners have shown a dramatic 
increase in interest in microcom- 
puters and their use in family med- 
icine. Increasing pressures from 
the computer industry, ihe govern- 
ment, and within the medical pro- 
fession itself focus attention and 
increase confusion in the minds of 
the genera] practitioner. 

Commercial pressures stem 
from the dozens of software and 
hardware firms in the market. The 
government has stepped in with 
the Information Technology Year 
82 campaign, on which it has spent 
over a half million pounds. The 
campaign hopes to bring micro- 
chip technology into every aspect 
of modern life. 

A special health section will be 
headed by Dr. John Dawson of the 
British Medical Association. 
Within the medical profession. 
General Practitioner User Groups, 
the Royal College of General 
Practitioners Working Party, the 
MEDIC Foundation, and the Brit- 
ish Medical Association are all 
josthng for a say in what consti- 
tutes the proper use of computers 
in general practice. 

What can a general practitioner 
gain from a computer in his sur- 
gery in terms of improved patient 
care and practice management? 
How can he best achieve these 
aims? Which equipment is most 
suitable for these purposes? 

Before rushing out to buy a 
computer, the general practitioner 
needs to ask several basic ques- 
tions about his practice: What 
does the practice do at present? 
How does it do it? How could it be 
improved? Would a computer 
make things better? 
' The computer can be applied to 



three main areas: practice manage- 
ment, communications, and pa- 
tient management. Practice man- 
agement and communications are 
simple applications (in terms of 
the size of machine needed and the 
financial commitment), whereas 
patient management is more com- 
plex because of the amount of in- 
formation required. 

Simple applications allow the 
gradual introduction of new ideas 
and working methods, thereby re- 
ducing staff hostility and relieving 
fears of redundancy. Practice 
management applications cover 
the less glamorous side of general 
practice, but let staffers use the 
machine almost immediately on 
installation. Typical among these 
applications are word processing, 
staff wages and salaries, rosters, 
practice accounts and financial 
modeling (using tools such as 
VisiCalc), and in dispensing prac- 
tices, drug stock control and label 
printing. 

Communications between a 
practice computer and the new 
videotcxl systems like Viewdata or 
Prestel are an area in which great 
progress has been made. Several 
drug companies have set up teach- 
ing packages, information services, 
and drug data bases that can be ac- 
cessed free by medical Prestel users. 

Currently this traffic is one- 
way, from source to recipient, but 
new developments will permit two- 
way traffic. This could allow a 
general practitioner to access drug 
data bases and send in "yellow- 
card" side-effects information. 
Drug research could be carried out 
more quickly and effectively. The 
computer would ease storage and 
transfer of information, and there- 

Conlinues on page 78 



not want to succeed. The program de- 
veloped by the research team proved to 
be an accurate predictor of lethal sui- 
cide attempts when tested with histori- 
cal profiles collected from several hos- 
pitals and chnics. The program may 
enable psychiatrists to identify poten- 
tial suicides so that they can initiate 
therapy. 

Dr. Myron L. Puher of Teaneck, 
NJ, finds that a word processor is an 
invaluable tool in his psychiatric prac- 
tice. Puller records patient clinical in- 
formation in a word processor-like 
Psychiatric Case Study file that is part 
of a commercial software package 
called Megatext (Megasoft Associates). 
The file contains all pertinent bio- 
graphical information about a patient 
— the information can be entered by 
the psychiatrist, a nurse, or even the 
patient. After any therapy sessions, the 
file is updated to record the doctor's 
assessment of problems and treatment 
plans. The information can be printed 
out for hospital reports or third par- 
ties. Confidential information can be 
labeled so that it can be left out of 
printed reports. 

In an ironic use of technology, the 
University of Minnesota has begun a 
program to help people who, ahenated 
from one another in an increasingly 
isolated, technological society, have 
trouble interacting with other people. 
Learning to recognize and evaluate the 
facial expressions of others can help 
maintain domestic tranquility — so, 
one of the uses for the program is 
"husband-wife adjustment" (marriage 
counseling). 

The Minnesota project, called ITT 
(Interpersonal Tracking Task), uses a 
video tape system and a microcomput- 
er. Cameras record a patient's facial 
expressions during personal interac- 
tions. The participants type their reac- 
tions to questions about each situation 
into the computer. Then, the patient 
watches the video tapes of first himself 
and then his partner, and answers an- 
other series of questions posed on the 
computer screen. Finally, a therapist 
working with the patients compares 
and evaluates the two sets of responses. 

The Computer as Stethoscope 

At Texas Tech University, two medi- 
cal researchers are using the microcom- 
puter to help health care professionals 
treat patients in rural areas where fre- 
quent doctor visits are rare. When pa- 
tients come to a chnic to be treated for 
a specific ailment, they are asked a bat- 
tery of questions designed to discover 
secondary health problems. A micro 
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Standard & Pooi^s STOCKPAK system 
can turn any investor into a whiz 

Whether you're an active investor, or just considering the 
best ways to invest, S^fOCKPAK can turn you into a Wall 
Street Wizard. 



!n fact, you can draw from over 200 specific information 
items to compose a single screen. And, you cm establish 
vour own targets and cut-off points in each of these 200 areas. 
STOCKPAK will oblige by searching through the entire 
database to find only those companies that satisfy yoiir criteria. 



SophisHcated software thafs easy to use ^ore feats of wizardry with STCXnO'AK 



STOCKPAK is a sophisticated software system that 
offers you an easy and economical way to obtain and 
evaluate important investment information to help you make 
better investment decisions. In fact, in virtually no time at all, 
you can put STOCKPAK to work for you performing a wide 
range of investment functions. 

Screening power is at your command 

Our Screen and Select system lets you apply your own 
investment criteria to a 900-company database. For example, 
you can tell STOCKPAK to find 
large companies, or only 
. ones. . .only those with 
. earnings growth, or low 
s, or high dividends . . , 
only those in certain indus- 
tries, or on specific ex- 
changes . , , only those above 
or below a certain price . . . 
or only those with high 
sales, or low debt, and so on. 




Standard & Poor's time-tested software also lets you 
evaluate and manage actual or hypothetical portfolios of up 
to 100 stocks each. And, you can create your t:iwn customized 
reports— displayed the way you want them. 

Whether you use STOCKPAK to help improve your 
investment decisions, or just for the fun of it, it's good to 
know the source of this wizardry: Standard & Poor's, one of 
the world's leading financial publishers with a 120-year 
reputation of ser\'ice to the investment community. 

Visit your local Radio Shack 
Computer Store today 

STOCKPAK is designed exclusively for use on the 
rRS-80 Models Hi and 1 computers with 32K business sys- 
tems and hvo disk drives. The basic software and sample 
database plus complete documentation is available from your 
Radio Shack computer store for only $49.95. The STOCK- 
PAK monthly updating service can be ordered directly from 
Standard & Poor's for only $200 annually. Visit your local 
Radio Shack today for additional information and a 
demonstration. 
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analyzes ihe answers while the patient 
is being treated for the primary ail- 
ment, and the physician gets the results 
just before the office visit ends. 

According to Blair Rowley and 
Dwane Anderson, developers of the 
system, the procedure discovered sec- 
ondary health problems in 56 percent 
of the patients for whom complete 
data was collected. These secondary 
problems ranged from dental problems 
to heart disease, and over 50 percent of 
them would have required 1 to 12 
months to discover using conventional 
diagnostic techniques. The Blair/ An- 
derson system not only is an effective 
medical tool but saves time and money 
as well. 

At Children's Hospital in Philadel- 
phia, doctors are using a microcom- 
puter as a teaching aid. The system, 
called CAMPS (Computer-Assisted 
Medical Problem Solving), teaches 
medical trainees the problem-solving 
approach to medical diagnosis and 
treatment. The student studies medical 
history information, physical examina- 
tion results, and laboratory test results 
for a hypothetical patient and then 



asks the computer a number of ques- 
tions before typing in his diagnosis. 
The diagnosis is compared to the cor- 
rect answer and the student is graded. 
The student is evaluated not only on 
the basis of his final diagnosis but also 
on the questions asked and the reason- 
ing involved. 

Coming of Age 

Can a computer help save someone's 
life? Computers can be valuable tools 
in the clinical and administrative set- 
ting. But can they make a difference in 
a crucial life or death situation? 

Researchers at the University of Cal- 
ifornia think so. They have developed 
a microcomputer "expert system" that 
can be used in hospital emergency 
rooms to help doctors analyze chest 
pain symptoms and quickly prescribe 
appropriate treatment. 

Expert systems have evolved out of 
artificial intelligence research and use 
a rule-based, qualitative judgment 
approach to decision-making rather 
than numerical calculation. Using 
this system, UCLA computer scien- 
tists have created EMERGE to aid 



CoMinued from page 76 

by cut down on the phone bills. 

"Post box" applications are al- 
so available; these facilitate rapid 
message transfer between sub- 
scribers. Hospitals are considering 
Viewdata computers for rapid ac- 
cess to bed states and discharge in- 
formation. 

Patient management applica- 
tions revolve around repeat pre- 
scribing, records, patient recall, 
and audit. The general practition- 
er must decide whether the system 
should hold records on all patients 
or merely on selected groups. A 
system that holds only repeat pre- 
scriptions, children's vaccinations, 
and chronic-disease recall will 
clearly be smaller and cheaper 
than one that has complete records 
on every patient. 

Finally, the general practitioner 
must consider how the records are 
to be input and the form they will 
take. Will the general practitioner 
type on a desktop VDU, or will he 
fill in a coding form for the sec- 
retary? Will he type, "Acute lar- 
yngitis," or code 2347? More im- 
portantly, for audit or screening 
purposes, disease definitions must 



be agreed upon; a survey into the 
incidence of tonsillitis is valueless 
if different partners have different 
definitions of the disease. 

Hardware 

The minimum system for a one 

or two-man practice management 
must be disk based. (A cassette- 
based system is slow and not as re- 
liable.) A more fitting system for 
practice management, repeat pre- 
scribing and limited records would 
be a 48K or 64K double floppy- 
disk micro, a printer and some 
software. This kind of system 
would accommodate single users 
only, though the machines can be 
linked together to form a small 
network. 

Larger practices require multi- 
terminal systems and hard-disk 
storage (10 megabytes plus). These 
machines allow full records, prac- 
tice audit, screening facilities, and 
built-in drug interaction data 
bases. Ihey cost from £8,000 to 
£20,000. ■ ~ 

Dr. Robinson is a physician at 
The Residency at the North wick 
Park Hospital, Harrow, Middle- 
sex, UK. 
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emergency room diagnoses of chest 
pain .symptoms. 

Wiien the patient arrives in the ER, 
the staff immediately enters informa- 
tion about his symptoms into the com- 
puter. The computer will examine the 
first symptom, make a decision on 
what further data is needed, and then 
ask only for other necessary data. 
Once the program has enough data, it 
will prescribe the required drugs and 
procedures. The program will also of- 
fer to display an explanation of its 
conclusions. 

The advantages of this kind of sys- 
tem are many. The computer not only 
helps the physician confirm a diagno- 
sis, but in emergency room situations 
—where the doctor on call is often not 
an internal medicine specialist— it can 
be instrumental in making the correct 
diagnosis. 

When it comes to making a diagno- 
sis, there is no more difficult a place 
than 300 feet beiow the surface of the 
ocean. Thanks to a Tektronix micro- 
computer, however, this task will be 
easier for hospital corpsmen aboard 
the U.S. Navy's lleet of nuclear sub- 
marines. The Navy uses these comput- 
ers, when they are not being used to 
plot the trajectory of nuclear warhead 



missiles, to aid corpsmen in making 
health care decisions. In wartime in a 
submarine under attack, this technolo- 
gy could help to save a life. 



''Can the 

tricorder be 
far behind?" 



The Microcomputer as Dr. McCoy 

In the Star Trek television series, 
millions of Americans became accus- 
tomed to seeing a patient's vital signs 
displayed graphically on a screen 
above the examination table in Dr. Mc- 
Coy's sick bay. At the National Insti- 
tute for Health in Bethesda, MD, a mi- 
crocomputer is being used to produce 
such graphs. The system displays a va- 
riety of important data in single or 
multiple data representations. Temper- 
ature, pulse, respiration, and blood 
pressure can be shown on one graph 
for minutes, hours, or days, according 
to the needs of the physician. Other vi- 
tal signs and laboratory data, such as 
blood leukocyte, hemoglobin, and 



platelet counts, can also be graphed.* 
These graphs can be displayed on the 
microcomputer's screen or can be 
printed out. 
Can the tricorder be far behind? 

Tomorrow 

Medical research is on the verge of 

dramatic breakthroughs in the field of 
noninvasive techniques for examining 
internal bodily organs and tissues. Ul- 
tra-sound and laser-light technologies 
may bring Dr. McCoy's tricorder into 
the clinic sooner than any of us could 
have imagined five years ago. 

The practice of medicine in the 20th 
century has been a microcosm of the 
explosive growth of scientific knowl- 
edge and engineering expertise in our 
culture. It is unquestionably moving in 
the direction of the science fiction 
dreamers of yesterday. The reality of 
tomorrow's medical tools will likely be 
even more dramatic than any one per- 
son's dreams. After all, the goal is no- 
ble — making life as long and comfort- 
able for humankind as possible. 

There can be no question that mi- 
crocomputers will help to make it 
happen. ■ 

G. Michael Vose is a technical cdilor 
for 80 Micro. 
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SERIES 




by William Barden, Jr. 



I 



n this segment, author Barden explains the 
Line, Circle, Draw, Paint, Get and Put 
commands, as well as how to change the VDC. 



i,ine. Circle. Draw and Paini are 
powerful Extended Color Basic graph- 
ics commands. Line is a misnomer. 
It should be called, in a rush of 
breath, "LINEBOXFH.LEDIN- 
BOX." Line will draw a line be- 
tween any two points of any angle and 
length, as in 



100 LINE (X1,Y1)-(X2,Y2),PSET 

which draws the line in the foreground 
color. 

. Line should impress those who have 
tried to implement a line routine in 
Assembly language. My tests indicate 
that the average line is drawn in about 
96 milliseconds and that the worst case 
is about 192 milhseconds, about 20 
times faster than the fastest Basic line 



ELLIPSE OF 
VARYING HEIGHT/ 
WIDTH RATIO 




drawing routine. 

Line will also draw a box (rectangle) 
outline. In this case the two coor- 
dinates specify the opposing corners of 
the box. Line can also draw a filled-in 
box at speeds comparable to drawing 
four lines. The filled-in box (fore- 
ground color is used) takes slightly 
longer, over one second for large 
boxes. 

Circle 

Circle, the next Extended Color 
Basic command, was originally named 
CIRCLEELLIPSEARC, as it draws 
circles, ellipses, and arcs of circles or 
ellipses, as shown in Fig. 1. 

The center must be within screen 
boundaries; this prevents all arcs from 
being drawn; an arc close to the edge of 
the screen, for example, is not possible, 
as the center of the circle or ellipse on 
which it lies is outside of screen bound- 



ARCS OF VARYING 
CURVATURE, INCLUD- 
ING PORTIONS OF 
ELLIPSES 



aries, as shovm in Fig. 2. 

Draw 

The next Extended Basic command 
is Draw. It draws a series of line 
segments of any length in multiples of 
45 degrees, as shown in Fig. 3. In addi- 
tion Draw will position the cursor to a 
specific spot on the screen, change the 
color of the hue segment, rotate a 
figure in 90 degree increments, execute 
a substring, and change the scale of the 
lines to be drawn. 

To draw the letter M, foUow the code 
in Fig. 4. In the code, the color is 
changed for different hne segments with 
the C subcommand. 

To rotate the M through 90 degrees, 
add an A (angle) subcommand as part 
of the string before the Draw string, as 
shown in Fig. 5. 

To change the size of the M, add an 
S (scale) subcommand before the Draw 
string, as shown in Fig. 6. You can 
change the scale factor from 1/4 to 



O 
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CENTER OF 
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Fig. 1. Circle A ction 
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Fig. 2. Undruwuble Arc 



Fig. 3. Draw Line Segment Aciiun 
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Fis;. 4. [/5P of The Draw Command 



61/ A of the original size. This can be an 
advantage in generating all types of 
figures that change size. 

Probably the most powerful feature 
of Draw is its ability to execute sub- 
strings. We could define figure 1 as 
string A$, figure 2 as string B$, and 
figure 3 as string C$. A fourth string 
could then execute (by the X sub- 
command) the other strings to build 
composite figures, as shown in Fig. 7. 

You can use Draw for applications 
such as defining different character 
sets for the Color Computer. With 256 
pixels across the screen and 192 down, 
you can see how characters represent- 
ing Greek, Latin, Kata-Kana or others 



could be defined by working with 
matrices of 8 by 12 pixels (32 char- 
acters by 16 lines) or larger matrices. 

Paint 

The Paint command is well-named. 
Instead of drawing a figure, it paints 
an existing figure, as shown in Fig. 8. 
The command specifies a starting coor- 
dinate, a color to be painted, and a 
boundary color. The color to be 
painted fills the entire area until the 
boundary color is encountered. Paint 
is a convenient way to draw a figure 
with the outhne commands such as 
Line, Circle, and Draw, and then to fill 
in the figures with color. 



Fig. 5. Roialion of Figures Using Draw 

Get and Put 

The last and most comphcated com- 
mands are Get and Put. Put takes a 
portion of a graphics screen and stores 
it into a two-dimensional array. Later 
Get retrieves the information from the 
array and reconstructs the segment 
elsewhere on the screen. This can be 
done rapidly enough for moving targe 
figures for animation. Figure 9 dem- 
onstrates the process. 

Get and Put are ideal for animation 
or for saving blocks of graphics which 
you can later call to construct com- 
posite figures. Since the number of ar- 
rays is Umited only by RAM, you can 
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INFOEX-80 

-Bulletin Board 6ysLera 

This Pxkage contains ail the software 
necessary to start your 01*1 bolletln bosrd 
service. H buUetIn boartf allows you to let 
people call your computet, iea^e srnJ aosner 
nKssages, ^oxniaad prograne, leave ccmeots, 
vlevs and opinJons and Jist about any other 
use you wish to (tit It tof This paclrage 
also supports e chat made which allots you 
to use the coirpoter as a tyoewiter to talk 
to your caller I 



This txilletln board system is designed to 
work on a TBS-flO Hadel I or MOdeJ J. It 
will work on aii major DOi's. This program 
requires ? disk drives, with 32k ran, RS~2i2 
interface, double density, and a direct 
connect ajto-answet moilem. 

This pacfcsge can be used for both business 
and personal use. Imagine, instead of ycur 
custoncr caJilng you ii<>iie you are in the 
middle of a saie, he caiis your BBS and 
ieaves his questioo. Theh ■'Jen you have 
tine, yaj answer HIS question and have tuo 
satisfied customers. 

Regular Prirc S149 ^'i 
INTRODUCTORY SPECIAL S^H.ys 





A run (ealurea oommurilcalions syslom lor IKS-EO MoOol 1 ond 3 

This TRSSO eoimuni cations system is one of 
the easiest to use and most tersatlie 
avaiiaOie. It Kill run on a irodel 1 or 
model 3 conputer ■Jth'i'irtusiiy any TRSOOS 
conpatlble operating system. It includes a 
full featured intelligent terminal program 
with direct file transfer functions, host 
program, and hef conversion utilities for 
bulletin board downloading. Bll at prices 
one half to one third of the competitors. 

• Support for manual and auto dial iwdems 
(Including fladio Shack Hxlem 2, aid Hayes 
Smart Modem). 

' EicJosite direct disk file transfer made 
"ith fijii control from the transmitting 
concuter, aJJoifing unattended reception 
at the receiving conputer. 

• ExcJusIve spiit screen feature allows 
simjltaneous two way comiunicatlons from 
termlnaJ mode. 

" Line printer support with IK buffer 
aiiows use of printers on systems that 
don't send nulls after carriage returns, 
and printers that can't keep up with 
modern baud rates. 

Regular Price S79.95 

INTRODUCTORY PRICE SS9.95 



Dealer Inquiries Invited 
Accepling s of I wa re for review 
24 hour BBS on line at 
305/965--I044 




UNITED SOFTWARE ASSOCIATES 

734 Flamingo Way North Palm Beacli, FL 33408 Voice Order Line 305/965-3496 ^332 



t^See List of Advertisers on Page 455 
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have many different graphics blocks 
stored and available for display. The 
blocks could represent characters or a 
set of predefined figures. You could 
draw a logic diagram using one Put ar- 



lOO flS - 'BMlje, 96,.. 

I 10 DRAW "S4" + A$ 

120 DRBW "St6" * 11$ 

130 DRUVi ''548" "-A? 




S4' - 4/4 SIZE 



"SI6" = 16/4 SIZE 




E48 ■18/1 si:^t 



Fig. 6. Scaling with !he Draw Command 



ray as an AND gate, one as an OR 
gate, one as a NAND gate, and so 
forth. 

Although Radio Shack documenta- 
tion implies that the array must be the 
same size as the graphics block, thus 
eating up huge chunks of RAM, you 
can make the array smaller. A one-by- 
n array in the form AR(0,N), where N 
is determined by the method as shown 
in Fig. 10, can create much larger 
Get/Put areas in less space. Thanks to 
James Garon for this one. 

Graphics Architecture 

Figure 11 is a simplified diagram of 
the Color Computer graphics logic. 
You'll find a complete diagram in the 
Color Computer service manual. 

The heart of the j:ext and graphics 
generation is the Video Display 
Generator chip, the Motorola 
MC6847. This chip inputs RAM 
memory data from either the text or 
graphics page, converts it to a dot pat- 
tern of text or graphics, and outputs it 
to a color television via a video mixer 
chip and rf modulator. 
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Fig. 7. .Substring Use in Draw 



SPECIFYING THIS STARTING POINT 
PAINTS THIS RING OF BULL'S EVE 




SPECIFYING THIS 
STARTING POINT 
PAINTS INNER RING 
OF BULL'S EVE 



The VDG Is addressed indirectly, 
receiving its control signal from a 
Peripheral Interface Adapter (PIA) 
and a Synchronous Address Multiplex- 
or (SAM) chip. These control signals 
determine the graphics mode. Data 
from RAM is received from eight addi- 
tional inputs. 

The SAM synchronizes all Color 
Computer system timing. It takes the 
master clock frequency and generates 
timing signals that control video 
display and refresh of the dynamic 
RAMs. It also acts as an address 
decoder that selects and enables ROM, 
RAM, or PI As. 

The SAM chip is set by a somewhat 
unique scheme, as shown in Fig. 12. 
Addressing locations $FFCO-$FFDF 
control SAM bits for map, type, 
memory size, CPU rate, page I , display 
offset, and VDG mode. The only two 
fields that will concern us for graphics 
are display offset and VDG mode. 

Even-numbered addresses for the 
SAM reset a SAM bit; odd-numbered 
addresses set a SAM bit. No actual 
zero or one is passed over data lines; 
the addressing action itself does the set 
or reset. The addressing can be done by 
a POKE (say, POKE $FFCO,0 to reset 
VO) or by an Assembly language store 
(STA $FFCO). 

PiAs are general purpose input/out- 
put (1/0) devices that interface 
between the 6809E CPU and system in- 
ternal devices or the outside world, 
such as cassette inputs and outputs. 
The PlAs used in the Color Computer 
have two sets of eight lines that you 
may program as inputs or outputs. 
Four additional lines control special 
functions. The PIA used with color 
graphics is a PIA with an address of 
$FF22. 
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Fig. 8. Paint Command Use 
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Fig. 9. Gei/Piii Action 



JUDGE 




... If you were to Have a 

Microcomputer operating at 

4MHZ 
. . .If you were to have a 5 

Megabyte Hard Drive built in 
. . .If you were to have a floppy 

disk drive built in 
... If you were to have an Amber 

Phosphor Monitor built in 
. . .If you had the finest Hard 

Disk Operating System 

available 

You -would have tlie If ew 

B.T. 4x5 Model III 

microcomputer, the only one 

in its class. 

Starting with a basic TRS-80 Model III, add 
one Tandon 40 Track Dual Sided Disk Drive, 
48K of High Grade NEC Memory, the faraous 
Micro Mainframes Disk Controller System, 
and the security of B.T. Enterprises 
engineering assuring long life and 
dependahility! 

Then we really get started include a 4 MHZ 
Module installed to make the Model III 
Microprocessor operate at twice the speed of 
a standard Radio Shack Model III. Also 
include the use of a Superdense Disk Drive 
for extra Floppy disk storage (360K). Then 
have installed a 6 Megabyte Hard Disk Drive 
(Winchester Technology). When the system 
is configured, the Hard Disk Drive contains 
the operating system and becomes the 
master (primary) drive. The Hard Disk has 
40 times the speed of data transfer as 
compared to a normal floppy disk as well as 
containing the storage capacity of more than 
30 standard floppy disk drives. 

Each, unit is built 
and tested in our Long 
Island New York 
assembly plant and 
delivered to your 
dealer complete with a 
Dos Plus 4.0 Disk 
Operating System 
which we consider to 
have the finest 
features of any Hard 
Disk Operating 
System available. 

Price: 



Add $20.00 shipping and handling 



B.T. Ilard Disks 

We want yop to have all the power that your 
TR3-80 is capable, at prices that have other 
manufacturers cross-eyed! These Five and 
Ten Megabyte units are easy to use, just plug 
them into the expansion buss of your Model I 
OP Model III. Comes complete with the 
fantastic DOS PLUS 4.0 Operating System! 
Available in two configurations: 5 Megabyte 
Fixed, 10 Megabytes Flyed. Look at the 
incredible low prices of our systems! 

SYSTEM PRicnrc 

5 Megabyte Winchester Fixed Disk 
K01505 Model I Version $2795.00 

203505 Model III Version $2795.00 

iO Megabyte Winchester Fixed Disk 
301510 Model I Version $3195.00 

203510 Model TTT Version $3195.00 

Add $10.00 shipping and handling 



Upgrade Kit 

Flitting Disk drives into your TRS-80 
Model III will turn it into the powerful 
computer it was designed to be. The B.T, 
Enterprises DISK DRIVE INSTALLATION 
KIT IS easy to do and represents a 
substantial savings over the cost if done by 
Radio Shack. 

The kit was designed to be installed by a 
non-technical person, and takes an average 
of 45 to 75 minutes to complete. The only 
tools necessary are a philllps and flat head 
screw driver and a pair of diagonal cutters. 
No cutting of traces or soldering is 
necessary. The full instruction procedure 
was the topic of a feature in 80 US Magazine 
in the May, 1982 issue, and was given high 
marks for ease of installation, 
KIT CONSISTS OF: 

• FDCillB' Micromainframe Controller 
Board assembled & tested 

• Switching power supply 

• Disk drive mounting brackets 

• All cables and hardware 

• Instructions with diagrams 

• Delves are optional 

*FDC III C Board optional at additional cost 
supports 8 inch external drives and 
extended density 5-1/4 inch drives (dual 
headed and 80 track) 

303103 Disk Upgrade Kit B Version 

iw/hardware 
203 104 Disk Upgrade Kit C Veraion 

"w/hardware 
203 1 13 Disk Upgrade B Version w/S 40tk & 
32K 
Disk Upgrade C Version w/2 40tk & 

32K 
DlsX Upgrade C Version w/3 40tk 

DH » 32K" 
Disk Upgrade C Version w/2 80tk & 
33K 
SOS 1 17 Disk Upgrade C Version w/2 80tk 
DH ^ 33K 
FDC III B Controller Board only 
FDC III C ControUer Board only 
Switching Power Supply (3 

voltages) 
Controller Assembly Kit 



203114 



203115 



203116 



203003 
203004 
200500 



8279.96 



t339.95 



S 799.95 

« 849.95 

S1049.95 

1 1049-95 

$1349.95 
« 139.95 
$ 234,95 



203010 
203510 



$ 99,95 

S 75,00 

Controller Asay Mt w/power Supply 8 174,95 




lOB CarloughRd. 
Bohemia, W.Y. 11716 
CS16) 567-81S5 Cvoice) 
(516) 588-5836 (modem) 
Dealer Inquiries Welcome 
N.Y.S. Residents Add Tax 



^ See List ol Advertisers on Page 465 
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Tandy Corp. 
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by Okidata 
Reg $1395 

$977 




Selection - ATARI • APPLE • TRS-80 
. EPSON • OKIDATA • C. ITDH. ^}-f^ 
Service — Most items in stock fo^i| ::v| 
immediate shipment. 

Write or call tor FREE Computer Catalog 
with pictures, specs, accessories and prices. 

CALL TOLL FREE: 
800-526-5313 



Computer 



ofRmerica 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Mlltord Mall 
West Millord. New Jersey 07480-2198 
In New Jersey Call 201-728-8080 



To output data to the graphics PTA 
at $FF22, you must execute a POKE or 
Assembly language instruction. The 
normal sequence, however, is to leave 
the bits used for other functions in the 
PIA undisturbed. In Basic use 

100 A - (PEEK(&HFF22) AND 7) 



1 10 POKE $FF22, tX*8 OR A) 

where X is a value of 0-31 that cor- 
responds to a VDG control value. 

Changing the Display Offset 

The display offset in the SAM deter- 
mines which part of RAM will appear 
on the screen. If an alphanumeric 





mode is in force (by V2 = VI = V0 = 0). 


100PMODE3,1 


then the display will be 512 bytes of a 


110 GBT (42,42)-(106,l06),A,G 


text page. If a graphics mode is in 




force, then the display will be the ap- 


Steps: 


propriate number of bytes of the 


• Find Elements in GET: 


graphic page. The Basic interpreter 




stores the proper address in the SAM 


106 !06 


depending upon the Screen command. 


-42 -42 


the graphics page selected by PMODE, 


64 64 


and the command mode or execu- 


t 1 +1 


tion — command mode always returns 


65 + 65 = 4225 elements 


to the text mode. 


• Find divisor D: 


You can select any memory starting 


PMODE "G"orno("G" Divisor 




"G" 32 
I or 2 "G" 16 




1 


3 or 4 "G" 8 —This Example | 


Not "G" 32 




1 or 2 Not "G" 8 




3 or 4 Not "G" 16 




• Divide the number ol elements by diviso 


D: 


4225/8 = 528 V« 




• Round up the result: 




528 /b rounded up = 529 




• Find DIM by dividing result by 5, rounding up (5 is the number of bytes in array entry): ] 


529/5 - 105%, rounded up is 106 




• Establish the array 




DiMAR(0,106) 




The first dimension is always zero. The second dimension is from the result. 


Fig. 10. Calculating Get/Put Array Size 
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Fig. 11. Simplified Block Diagram of Graphics Logic 
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Finally, a Spelling Checker tliat can SPELL! 





The 



'Cadillac'' of Spelling Checkers! 

so Micracompuling, 9/82 




FASTandACCURA TE — No other spelling checker 

comes close! 
INTEGRA? ED — Proofs and corrects from 

within all these popular word processing 

programs: Scripsit. Newscript, Lazy Writer, 

Flectric Pencil, Superscript, and CopyArt. 

SMART Finds and displays correct spellings instantly - no more clumsy dictionaries! 

HYPHEN A TES automatically — inserts discretionary hyphens with 100% accuracy, (optional) 

COMPEETE — One step proofing system with integrated Grammatical and Hyphenation 
features, {optional) 

No other program can claim even one of these features. 



EASY TO USE: Type your text using any of a number of 
popular word processing programs. When you are done, hit 
the appropriate key, and ELECTRIC WEBSTER proof- 
reads your document, displaying misspellings and typos 
on the screen. 

Then.CorrectingElectrir Webster ran display each error 
separately, requesting you to enter the correct spellings for 
each. You are given the options of displaying errors in 
context, adding words to ELECTRIC WKBSTER'.s 50,000 
word dictionary, or even displaying the dictionary to find 
the correct spelling. If you think you know the eerrect 
spelling, Electric Webster will verify it for you. 

Finally, Electric Webster CORRECTS YOUR TEXT, 
automatically inserts discretionary HYPHENS (optionall, 
and points out GRAMMATICAL errors (optional), ail with 
remarkable speed! 



LOW PRICES: Standard Electric Webster is a v a i la ble for 
$89.50 (TRS-80™ Model I & HI, or Apple™) or $149.50 
(CP/M™, TRS-80™ Model II and all others.) The optional 
Correcting Feature can be added at any time ($60) as can 
Hyphenation ($50) and Grammatical ($40). During the 
closingmonthsof 1982only,weareoffering6 W/P integra- 
tion programs FREE (reg. $35 each) with the purchase of 
Correcting Electric Webster. 



The Ultimate PROOFING SYSTEM 




CORNUCO 



REVIEWS OF MICKOPROOF (EW's predecessor): 

"Tiitre is biiuply nvj Hum program available . . . " 
Creative Computing, March 1982 

"This is a very useful product and shi»ulri be obtained by anyone 

who uses a word processor," 

80 Microcomputing, August lyyi 

"The summary review of this program? Oni' wnrci — I'~xrellenl,." 
Computronics, September 1981 

"In acomparativp it view of proofrrnHing programs (with smaller 

dictionaries) MICKOPROOF was fnunrl to be considerably faster 

than all the others, when tested against a 400 word sample 

dncument." 

B YTE Magazine, November 1981 

"A 1500 word document took 26 seconds to load, process and proof 
... it is very friendly and any prson able to use a word prorcsping 
program can master it in moments." 
InfoWorld. January 1982 

"By far, the most capable and efficient of these spelling checker 

programs." 

Microcomputing, June 1982 

AND NOW ELECTRIC WEBSTER: 

"Actually, Electric Webster is faster than its predecessor (Micro- 
proof) . . . and spelling corrections are immediately verified 
against the dictionary before being accepted . . ." 
Microcomputing, June 1982 

■"Electric Webster is the Cadillac of vocabulary programs." 
NO Microcomputing, September 1982 
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Post OficG Box 61 1 1 Albany, California 94706 
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address on 512-byte boundaries 
($0000, $0200, $0400, and so on) by 
POKEing into locations $FFC6- 
$FFD3, as shown in Table 1. If you do 
this in the text mode, you can see any 
area of RAM or ROM displayed in col- 
or. The most interesting area is in page 
($0000), which shows the changing 
working variables in Basic. Color 
debugging! 

You can change this starting address 
dynamically to display different graph- 
ics areas even if you do not have Ex- 
tended Color Basic. 

Setting the VDG Modes 

You can bypass the Basic interpreter 
to set the VDG modes by POKEs from 
Basic or your own Assembly language 
program. You can then set some of the 
unimplemented VDG modes to see 
what they look like and implement all 
VDG modes even with only Color 
Basic. 



$I>D DRESS SET/RFSeT 

FFOF 

FFDE 

FFDD 

FFDC 

FFOB 

FFDA 

FFD9 

FFD8 

FF07 

FFD6 

FFD5 

FFD^. 

FFD5 

FFD4 

FFD3 

FF02 

FFDI 

FFDO 

FFCF 

FFCE 

FFCD 

FFCC 

FFCB 

FFCA 

FFC9 

FFCe 

FFC7 

FFC6 

FFC5 

FFC4 

FFC3 

FFC2 

FFCI 

FFCO 



POKE Addresses 

POKEing into odd location sets bit, 
into even location resets bit 





r^ 


o 


tu 


o 


< 


oc 


^ 




Q 


5 


Ml 


(J 

IX. 


03 

u 




o 


Seven ino.sl- 























signi Ilea 111 











(1 








1 


bits of the 











(1 





1 





display 














(] 


1 


1 


offsel 














1 








on thf SAM 














1 





1 


ciiip 














1 


! 


1 



starting Display Address 



Hex 



Decimal 



$(XXKI 





$0200 


512 


$0400 


1024 


$0600 


1536 


$0800 


2048 


SOAOO 


2560 


SOCOO 


3072 



1 1 I 1 1 1 I 



$FK(K) 



65024 



The killowiiig program will sei ihc siariinti display address la $06(X). The \aliic POKEd in does 
iiOL matter; the simple aci ol" loading ihc location scrs or rcscis a bil on ihe display offset. 

II) 'Reset first 5 bits 

20 POKE &HFFD2,0:POKE &HFFD0,0:POKE &HFFCE,0:POKE &HFFCC,0: 

POKE&HFFCA,0 
30 'Set last two bits 
40 POKI &HFrC9.1;POKE&HFFC7,l 

Table I. Video RAM Slar/mg Address 



THIS FIELD* 512 
DEFINES START OF 
VIDEO DISPLAY RAM 



THESE 3 BITS 
PARTIALLY 
DEFINE 
GRAPHICS MODE 



MAP 
TYPE 



MEM 
SHE 



MPL 
ROTE 



DI5LAY OFFSET 
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i} 
i) 
;)■ 
;}■ 
:)■ 
;)■ 
;}■ 
;)■ 



The three SAM outputs and five 
PIA $FF22 bits control the VDG 
modes (see Table 2). In addition, in 
some modes the most significant bit of 
the RAM byte determines whether the 
data is text or graphics. 

To set any mode, output the proper 
configuration to the SAM by POKE- 
ing into addresses $FFC0-$FFC5 as 
described above. Next, set the five PIA 
bits, carefully retaining the least 
significant three bits. In some cases, bit 
3 of the PIA determines the color set, 
or 1. You should see the data on the 
screen change to represent the map- 
ping, colors, and area of the VDG 



Fig. 12. SAM Control BUs 



64*64*2 1 8192 BITS ^ 
1024 BYTES 



128*64*1- 8192 BITS- 
1024 BYTES 



128*64* 2 - 16384 8ITS- 
2048 BYTES 



Fig. 13. Unimplemented Graphic, Modes 
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and 128 by 64 in four colors, as shown 

in Fig. 13. These use the same memory 
mapping as the other graphics modes 
and are simply lower resolution modes 
that save memory. I don't think that 
we're missing much by not having 
these modes included as part of the Ex- 
tended Color Basic. You be the judge. 

Semigraphics 6, 8, 12 and 24 Modes 

If you loved the graphics mapping of 
the TRS-80 Model l/lll, you will be 
ecstatic over the Semigraphics 6, 8, 12 
and 24 modes. These modes offer two 

things: many colors and horrendous 
memory mapping. 

The 6, 8, 12 and 24 suffix comes 
from the number of elements into 
which each character position is div- 
ided. The basic character position is 8 
by 12 pixels; the 6, 8, 12 and 24 modes 
divide this basic unit into two columns 
of 3, 4, 6 or 12 rows (see Fig. 14). 

The Semigraphics 6 mode is the eas- 
iest. There are two colors in this mode, 
controlled by the two most significant 
bits in each memory byte. The six 
elements of the character position are 
turned on or off to this color by a or 1 
bit in the remaining six bits of the 
RAM byte (see Fig. 15). Thus each 
consecutive byte in RAM controls one 
entire pixel position. A total of 512 
bytes therefore control the display. 

The Semigraphics 8 mode is a little 
harder. It has eight colors; each row is 
color programmable, as Fig. 16 shows. 
The remaining halves of the four bytes 
control the on/off status of the 
elements. This mode requires four con- 
secutive bytes in RAM to control one 
character position, making the total 
number of required bytes 2048. 

The Semigraphics 12 mode is harder 
still. Colors in each row are controlled 
by three bits in six bytes as shown in 
Fig. 17. The remaining halves of the 
bytes control the on/off status of the 
elements. This mode requires six con- 



secutive bytes in RAM to control one 
character position, for a total of 512*6 
or 3072 bytes. 

The Semigraphics 24, or the "Jum- 
bo" mode, is shown in Fig. 18. Here 
again, color for each row is controlled 
by a separate byte, with the remaining 
portion of the byte controlling the 
on/off status. 

The Semigraphics 6, 8, 12 and 24 
suffer from lack of horizontal resolu- 
tion. Resolution is only 64 elements, 
and each set of two must be the same 
color. On the other' hand, they offer 
eight colors in 12,288 pixels, which you 
will not find in the other graphics 
modes. 

A complicated algorithm sets or 
resets each element. Remember that 
you are working outside of the bounds 
of the Basic interpreter and will have to 
calculate the RAM byte and bit for 
each element. This will slow down the 
display operations. These modes 
would be most useful for Assembly 
language subroutines where the 
set/reset action could be done at 
acceptable rates. 

Where Do You Go From Here? 

There is great potential in Extended 
Color Basic programs thanks to the 
high-speed graphics commands. For 
real-time displays, consider Assembly 
language graphics. You could generate 
games programs to rival any arcade 
game with a moderate amoimt of blood, 
sweat and numb typing lingers. (Just 
don't poach on my territory when you 
write your Great American Game — 
I'm doing "Tandy Tornado!")H 



William Barden Jr., (28122 Orsola, 
Mission Viejo, CA 92692), former "80 
Assembly Line" columnist, has over 
20 years programming experience. 
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New Low Prices 
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Complete First-Drive Systems 




from 



Internally mounted drives that feature double- or 
single-density storage, comprehensive pre- 
delivery testing, 48-hour burn-in and, best of all, 
Percom's widely acclaimed disk controller. A 
First-Drive System includes the four-drive disk 
controller, one or two drives, power supplies, 
cables, a fully illustrated owners manual and 
DOSPLUS* 3.4 disk operating system. 



Note: If you prefer not to make the First-Drive 
System installation, we'll do it for only $29.95 
plus shipping. This includes a 48-hour operat- 
ing burn-in of your Model III computer, instal- 
lation of the drive system and final checkout 
of the expanded system. 



(H^twauy iH.>wujt^'-^ 11' ^-■-'^ 



^ 
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Our Own Fully Tested Drives 

from only $275 

Every Access Floppy Disk drive is electrically tested, mechanically tested and 
burned-in 48 hours under operating conditions. Look for the signed test list in 

!he shipping carton. 

AFD drives are capable of either single- or double-density operation. Store up 
to 364 Kbytes (formatted) in double density. Store twice the data on a single 
diskette using AFD "flippy" drives." 

15-day free trial offer., comprehensjve 90-day limited warranty. ..unbeatable 
prices. ..AFD-100 @ $275.00, -100F @ $329.00, -200 @ $429.95, ^200F @ 
$449.95. 



How to order-Order by calling Access Unlimited toll-free on 1.800-527-3475. Of order by mail. 
Orders may be charged to a VISA or Master Card account, or paid by cashier's check, certified 
check or money orcler. Sorry, we cannot accept personal checks. We pay freight (surface only) 
and insurance charges for shipments in U.S. on orders over $1,000.00. Add approximate 
insurance and shipping charges for orders under $1,000.00. If in doubt about these charges, 
ask when you call in your order. Texas residents include 5% sales tax. Minimum mail order 
$20.00. Allow 2 to 4 weeks for delivery. 

^. Te-a'^' (21 a) 340-5366 

Save! VISA and Master Card charges are not deposited 
until the day your order is shipped. 



PRICES AND SPECIFfCATtONS SUBJECT TO CHANGE' WITHOU 1 NO riCf 



Everybody's Favorites - for Less! 



DOSPLUS* 3.4 


$49.95 


Percom Data Separator 


$23.95 


Green Screen 1, 11, or III 


$18.95 


Head Cleaning Kit 


$24.95 


Drive Numbering Tabs (pkg 0-3) 


$4.50 


5V4" Flip-N'File 


$24.95 


8" Fiip-N-File 


$39.95 


'• drive purchase 
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Quick-Switch** 

from 

Arrick Products 

Flick a switch to con- 
nect your TRS-80' 
printer port from 
device #1 to device 
#2. Or, switch a 
peripheral between 
computers. Quick- 
Switch models for 
RS-232 or Centronics 
interfacing. Includes 
box-mounted 34-pin 
card-edge plugs. 
From $89.95. Cables 
from $29.95. 

*l I rademaik ol Arrick Products 
Company, 



PBi-i,iyii.s i'tQuei^ UOuBLER 



Upgrade Your Model I to Double Density for 



only $179. 



\5 



And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-II^. The DOUBLER II' simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four times 
more on one side of a diskette, depending on the dhve, than you can store on 
standard Tandy Model I dhves. Other features: • Reads, writes and formats either 
single- or double-density • Includes DQSPLUS* 3.4 disk-operating system • Runs 
TRSDOS*, NEWDOS^f, Percom OS-80t and other single-density software im- 
mediately. Change to double-density operation when convenient • Use Move 1-2-3 
utility ($29.95) or other appropriate software to read Model III programs on your 
Model I. • Includes on-card high-performance data separation and write precompen- 
sation circuitry. 



r4GC©5S fISirQ U 

• For Model II, Model III computers. 

• 5-, 10-, 15- and 30-Megabyte drive units. 

• Controller handles up to four drives. 

• Works along with existing floppy disk 
drives. 

• Includes host system support software. 

• 15-day free trial period. 







from 



Save! Make Access your one-stop 
shopping center for supplies, soft- 
ware and accessories. Call our 
toll-free order number and ask for 
our new free catalog. 



i-i-ree 
Order No. 



1-800-527-3475 



o 



(orders & literature only) 




ACCESS UNLIMITED 



'"Trademark of Access Unlimited 
tTrademark of Percom Data Company, Inc 



i Tiadomark of Micro Systems Software, Ino, 



401 N, Central Expressway #600 
Richardson, Texas 75080 
(214) 340-5366 

^^S*^K^§"*"iiK 'Trademark of Tandy Radio Sfiack Coipotalion 
^Trademark of Apparal Corporation 



&*J£i<»>?^^' 



I' See List ot Advertiserx on Page 455 
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HOME/HOBBY 




Family Medical History 



by Miguel Diaz 



10 
20 
30 
40 
50 
60 
70 



Frogram Listing 

REM"PROGRAM NAME (HEDHIST - VERSION i.l - 12/81} 
REM"HIGUEL DIAZ : P.O. BOX 8475 : PONCE, P.R. 

REM"PROGRAH INITIALIZATION 

CLEAR15000:DEFINTB~Z:QS=CHR$(13) : MS=" ######.##-": Z 5=CHR$ ( 191) 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2G0 
290 
022 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 



1. ENTER VACCINATION DATA" : BS ( 1) ="VACCINATION" 

2. ENTER PEDIATRIST VISIT" : B? ( 2) ="PEDIATRIST" 

3. HOSPITALIZATION DATA" : B$ ( 3) ^"HOSPITALI ZATION" 

4. HOME-STAY-ILLNESS DATA" : B$ ( 4) ^"HOME-STAY" 

5. AMBULATORY-CARE DATA" : BS ( 5) =" AMBULATORY" 
6. SELECTIVE FIELD DISPLAY" 

7, 



A${1)-" 
A$(2)=" 
A$(J)=" 
AS (4)=" 
AS(5)=*' 

AS(6)= 

A$(7)=" 7, PRINT COST-DATA SUMMARY" 

AS (8)-" 8. PRINT HISTORICAL RECORD" 

A?(9)==" 9. EXIT PROGRAM" 

REM"DISPLAY PROGRAM MENU" 

CLS:PRINTCHRS(23) " *** - PROGRAM SELECTOR - ***" 

PRINTSTRINGS(31,17 6) : PRINTZ S; TAB ( 30) Z 5 

F0RL-1T09:PRINTZ$;AS(L) ;TAB(30) Z$:NEXTL 

PRINTSTRING3(31,131) ' ' ' 

LINEINPUT" ENTER YOUR OPTION > " ; AS : IPAS-" "THEN150 

Z=ASC(A$)-4 8:IFZ<1ORZ>9THEN150ELSEIFZ=9THEN109 ' 

IFZ9=0THEN1210ELSECLS:PRINTMIDg(AS(Z) ,5) : IFZ <6THENGOSUBll2 

ONZGOTO230,33 0,400,47 0,5 40,610,8 2 0,990 

REM"VACCINATION DATA ENTRY" 

LINEINPUT"VACCINATION TYPE 
LINE1NPUT"D0CT0R/NURSE ID. 
LINEINPUT"REACTION (IF ANY) 
LINEINPUT"COST : " ; C0$ : Al=VAL (COS) : C0 $='" " 

LINEINPUT"ADDITIONAL INFORMATION : " ; IS: IFI S=" "LETI S-" " 
PRINT: LINEINPUT"CORRECT (Y/N) "j Y$: IFY$="N"THENGOSUB1170 : GOT 
.- ■ . . 

PRINT#1,Y;Z;F$;Q$;V$;Q5;DN$;Q$;R$;QS;A1;I$;Q$; 
Y--0:F$ = "'':V5-"":DN$="":R$="":A1=0:I$="" 
CLOSE:GOTO1240 

REM"PKDIATRIST VI5TT DATA ENTRY" 

LINEINPUT"REASON FOR VISIT ; " ; V$ : IFV$=" ''THEN340 

LINE INPUT "DOCTOR/NURSE ID. : ";DN$: IFDN$='' "LETDNS = "N/A" 

LINEINPUT"SPECIAL TREATMENT : " ; R$ : IFR$=" ''LETR$ = " " 

LINEINPUT"COST : " ; CO?: Al=VAL ( C0$) : C0 S="" 

LINEINPUT"ADDITIONAL INFORMATION : " ; I S : IFI $ = " " LETI $=-" " 

GOTO290 ' 

REM"HOSPITALIZATION DATA ENTRY" 



';V$:IFVS=""THEN240 
';DNS:IFDN$=""LETDNS="N/A" 
";KS: IFR5=""LETRS-" " 



LINEINPUT"REASON FOR VISIT 
LINEINPUT"DOCTOR/NURSE ID. 
LINEINPUT" # OF DAYS STAYED 



VS:IFVS='"!THEN410 
DNS:IFDN$=""LETDNS="N/A" 
R$:IFR$ = "''LETR$-^" " 



LINEINPUT "COST : " ; CO? ; A1=VAL ( COS) :C0S="" 

LINEINPUT"fLDDiTIOKAL INFORMATION ; " ; I S : IFI S^" " LETI $ = " " 

GOTO290 

REM"HOME-STAY-ILLNESS DATA ENTHy" ■ ■■ -■ < 

LINEINPUT"REASON FOR STAY : " ; V$ : IFV$^" '''rHEN480 , 

LlNEINPUT"DOCTOR/NURSE ID, : " ; DN$ : IFDNS^" "LETDN$="N/A" 




"se your 80 and this 
program to keep track 
of chicken pox, tonsillec- 
tomies, and vaccinations. 

How many people keep family medi- 
cal histories, or know which vacci- 
nations their children are missing? I 
computerized a medical history for each 
member of my family. The program, 
Medhist, keeps records, and through its 
record-tracing capabilities, .shows ten- 
dencies and variations on illness in- 
cidence. 

Medhist also stores cost data, tell- 
ing you how much you've spent during 



The Key Box 

Model I or IH 
32K RAM 
Disk Basic 



Position Descriplioq 



Record Number 

Transaction Type 

Date 

Diagnostic 

Doclor/Nurse Name 

Treatment/Days 111 

Cost Incurred 

Additional (nfortfiaHun lis 



Table J 



Variable Name 

Y/ Yl 
Z/Zl 

F$ 

V$ 

DNS 

R$ 

Al 
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theye'ar. 

Medhist requires at least one disk 
drive; a printer is optional. It runs under 
NEWDOS, and requires one data file 
(DOCUMED). The file is defined in 
Table 1. 

The names and dates of birth of each 
family member are included as data 
lines in the prDgram. This saves a data 
file. The first data item on line 1260 
indicates the number of data records to 
be read: one for the name and one for 
the date of birth. Tiic program is menu 
driven. A printer is handy for options 7 
and 8 (Table I). 



"The program keeps 

records, and 

shows tendencies 

and variations 

on illness incidence. ' ' 



There are five datd^ritry options: 
vaccination data, visits to the pediatri- 
cian, hospitaUzations, home-stay ill- 
ness, and ambulance services; 

Option 6 (Selective Field Display) re- 
views records for each data field. You 
may review one person's record or all 
available records for a selected field. 
You can route the cost report (option 7) 
for printer output in addition to screen 
display. 

The OPEN E feature (line 1240) 
allows you to add records to a sequen- 
tial file. 

If you select to enter vaccination 
data, the program will prompt for a 
vaccination type (tetanus, smallpox, 
and so on). If a reaction to the vaccina- 
tion or aqy medicine develops, you 
can enter that fact as additional infor- 
mation. Cost data should include 
such charges as drugs, wheys, medi- 
cines, doctors' fees, room and board 
charges. X-rays, and so On. 

If you think the date of birth is not 
important, you may substitute this 
field with the biood type or any piece 
of information you consider vital. ■ 



Migue! Diaz (P.O. Box 8475, Ponce, 
PR 007S2) Is a Iwspiial EDP manager. 



l.iiliiig foriliiiued 

500 LINEINPUT"! 'OF DAYS STAYED : " ;R$: IFR$=""LETR$=" " 

510 LINEINPU'r''COST : "jdo?: Al=VAt. tC05) :C0S=*" 

520 LINEINPUT"ADDITIONAL INFORMATION : " ; I $ : IPI $-" "LETI?-^" " 

530 GOTO290 

540 REM"AMBULATORY-CARE DATA ENTRY" 

550 LINEINPUT"REASQN FOR CARE SERVICE : " ; V$ i IFV$=" "THEN480 

560 LINEINPUT"DOCTQR/NURSE ID. : " ; DNS : IFDN$ = " ''LETDNS = "N/A'' 

570 LINEINPUT"# OF DAYS : " ; R$ : IFR$-" "LETR5=" " 

580 LINEINPUT"COST : " ; COS : Al=VAL ( C0$) : C0$=" " 

590 LINEINPUT"ADDITIONAL INFORMATION : " ; I $ : IFI $=" "LETI S=" " 

600 GOTO290 

610 REM"SELECTIVE FIELD DISPLAY" 

620 CLS: PRINT-SELECTIVE FIELD DISPLAY" : PRtNTSTRINGS ( 6 , 131) 

630 PRINT"AVAILABLE FIELDS ARE :'':PRINT 

640 PPINTTAB(5)"1; VACCINATIONS" : PRINTTAD { 5) " 2 . PEDIATRIST VISIT 

s*- ■ ■■. 

650 PRINTTAB(5) "3. HOSPITALIZATIONS" :PRINTTAB{ 5) "4 . HOME-STAY CA 

SES" 

660 PRINTTAB(5) ' 

670 LINEINPUT" 



';Y$ 



AMBULATORY-CARE CASES": PRINT 

ENTER YOUR OPTION : " ;0S : 0=VAL (OS) 
680 IFO<1ORO>5THEN610ELSECLS 

690 LINEINPUT"DO YOU WISH ONLY ONE PATIENT'S RECORD? (Y/N) 
7 00 IFYS<>"Y"ANDY$<>"N"THEN690 
710 IFYS="Y"LETY=0:GOSUB1120 
720 CL0SE:0PEN"I",1, "DOCUMED" 

730 IFEOF{l)THEN800ELSEINPUT#l,Yl,Zl,P$,VS,DN$,RS,Al,l$ 
740 IFY$="Y"ANDY1<>YTHEN730 

750 IF2;i<>OTHEN730 : REM"VARIABLE 0, NOT ZERO" 
760 PRINTSTRINGS(63 ,"=") 

770 PRINTN${Y1) :PRINTF$,DN$:PRINTV$:PRINTRS 
780 PRINT"C0ST : " ; USINGMS; Al : PRINTI S 

790 PRINT:LINEINPUT"HIT (ENTER) TO PROCEED ... ";P$:GOTO730 
800 PRINT:LINEINPUT"END OF FILE... HIT (ENTER) TO PROCEED ";P$ 
810 YS="":Y1=0:Z1=0: 0=0: CLOSE :OPEN"E",i, "DOCUMED" :GOTO150 
820 REM"COST-DATA SUMMARY REPORT" ■ ' ' 

830 CLS:PRTNT"COST-DATA SUMMARY REPORT" : PRTNTSTRINGS( 60 ,131) 
840 LINEINPUT"DO YOU WISH OUTPUT TO PRINTER (Y/N) : ",-SS 
850 IFS$="Y"PRINT:PRINT"HIT (ENTER) WHEN PRINTER READY AND" 
860 IFSS-"Y"LINEINPUT"PAPER SET TO PROPER POSITION... ";PS 
870 CLS: CLOSE: OPEN" I" ,1 , "DOCUMED" 

880 IFS$="Y"LPRINT"COST-DATA SUMMARY REPORT" : LPRINT: GOSUB970 
IFEOF(i)THEN940ELSEINPUT#l,Yl,Zl,FS,VS,DNS,RSi.Al,IS 
IFS$="Y"LPRINTN$(Y1) ; TAB ( 25) F$; TAB ( 35) BS ( Zl) ;TAB ( 52) USINGMS ; 



89 
90 
Al 
91 
92 



PRINTNS(Yl) ;TAB(25)FS;TAB(35)BS(Z1) ; TAB ( 52) USINGMS; Al 

L0=L04-1:IFL0>50ANDS?="Y"GOSUB970 
930 A2=A2+Al:GOTO890 

940 IFSS="Y"LPRINT:LPRINT"TOTALS" ; TAB (52) USINGMS; A2 
950 PRINT:PRINT"TOTALS";TAB( 52) USINGMS ;A2 

960 A2 = 0:L0 = 0:S$ = ''":LINEINPUT"HXT (ENTER) TO PROCEED. ." ;PS:G0T08 
10 . " • 

970 LETL0=0:LPRINT"NAME";TAB(26) "DAtE TYPE" ; TAB ( 55) "AMOUNT" 
980 LPRINTSTRING$(62, "=") : LPRINT: RETURN 
990 REM"HISTORICAL DATA REPORT" 

1000 CLS:PRINT"HISTORICAL REPORT ..." :GOSUB1120 : CLOSE 
1010 0PEN"I",1,"D0CUMED":LPRINT"HIST0RICAL REPORT FOR ";NS(Y):LP 
RINT 
102 
103 
104 



)ELSEINPUT#1,Y1,Z1,F5,V?,DNS,R$,A1,I$ 



rFEQF(l)THENll 

IFY1OYTHEN1020 

LPKINTSTRING$(60,"=") 
1050 LPRINTB${Zi) : LPRINTF S ; TAB ( 20 ) ;DN$ 

1060 LPRINTV$:LPRINTRS:LPRINT"COST : " ;USINGMS ; Al : LPRINTI S 
1070 GOTO1020 
1080 LPRINT:GOTO810 
1090 REM"EXIT PROGRAM" 

1100 CLOSE:CLEAR50:CLS:PRINT"THANK YOU , . . " : END 
1110 REM"SELECT RECORD ROUTINE" 

1120 PRINTSTRINGS(60,131) : FORL=lTOX : PRINTL; NS ( L) ,DS(L) : NEXTL 
1130 PRINT:PRINTL; "RETURN TO MENU":PRINT 
1140 LINEINPUT" ENTER CODE > ";A$ 

Y=VAL(A$) : IFY<1ORY>LTHEN210 . 

IFY=LTHEN150ELSEIFZ>5PRINT: RETURN 

PRINT@128,CHRS(31) ;NS(Y) ,D$(Y) : PRINTSTRING? ( 60 ,131) 
1180 LINEINPUT"ENTER DATE (MM/DD/YY) OR (END) : ";FS 
1190 IFFS="END"THEN150 

IFLEN[F$) O8THEN117 0ELSERETURN 

REM"DATA FILE INITIALIZATION" 

CLS:PRIHT"DATA FILE INITIALIZATION 

READX:DIMN$(X) ,D$(X) : F0RL=1T0X : READN? ( L) ,DS(L) :NEXTL 
1240 0PEN"E" ,1, "DOCUMED" : Z9=9:GOTO210 . , ' 

1250 REM"DATA 1.INES, EACH RECORD IS TWO DATA ITEMS : NAME & BIRT 
HDATE 

1260 DATA 5 : REM "THIS DATA ITEM REPRESENTS NUMBER OF RECORDS 
1270 DATAMlGUEL, 04/85/49, ANA, 01/23/50 >YANIRA, 07/07/74 
1280 DATAMICHAEL, 11/07/75, JAVIER, 11/21/77 



1150 
1160 
1170 



120( 
121( 
122t 
123( 
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SERIES 






by Jay Chidsey 



se this real-estate program to learn about 
Basic's Read. . .Data function. It's easy to 
use, and can save you memory space and time. 




People who are just getting started 
writing their own programs seem lo 
avoid using the TRS-80's Read. . . Data 
functions for quite a while. When I was 
writing my first program called Clipper 
Ship Captain, I had many variable val- 
ues to enter into memory, and J used 
A = 27, B = 35 and so on. Since my 
Clipper Ship called at eight different 
ports, and there were 20 different cargo 
values at each port, I used 160 variables 
and about twice as much memory space 
as the Read... Data function would 
have required. 

There are a number of circumstances 
in which you can use the Read. . .Data 
function. Use it when you have a large 
number of variables and want to save 
memory. A second circumstance is il- 
lustrated both by Clipper Ship (where 1 
had use for only one of the eight sets of 
cargo price data at a time) and a busi- 
ness program I've written in which I 
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want to access and screen data for any 

quarter or, for that matter, any three- 
month period. Use Read. . . Data when 
you want to get at different parts of the 
data in storage as the program 
progresses. 

A third circumstance is illustrated by 
a poetry program of mine. The user in- 
puts 10-1, 0(X) each of nouns, verbs and 
adjectives, and the program randomly 
selects one of eight or 10 frameworks 
and then randomly selects nouns, verbs 
and adjectives as required to write the 
poem. It doesn't write very good poetry 
most of the time, but once in a while a 
gem appears. You can use the Read. . . 
Data function when you want to select 
one or several numbers or (especially) 
words at random out of a large number 
of same. 

The simplest use of the Read. . . Data 
function is where you have a long list of 
similar entries that you want to scan 
through one by one, and select from 
that long list a few which meet some cri- 
terion. This might be a list of members 
of a PTA or a church or a computer 
club or of all the dwellings a small-town 
volunteer fire department may have to 
deal with or a list of 80 Micro articles 
with your notes as to subject covered. 



system usable on, and so on. 

My real estate program shown in the 
listing illustrates this use of the 
Read.. .Data function. Lines 1-99 are 
reserved for programming, and listings 
are stored in data statements beyond 
line iOO. There is no particular need to 
enter properties alphabetically by 
seller's last name, or to coordinate line 
number with listing number. Since most 
real estate offices already have card files 
alphabetized and have established 
listing numbers in a range of 100-300 
per letter (300 numbers are reserved for 
C or S, 100 numbers are reserved for 
X,Y,Z for example), you can follow 
that pattern in entering the data. Give 
last names beginning with A listing 
numbers 101-300, Bs 301-500, Cs 
501-800, and so on. Making line 
number identical to listing number 
makes locating listings easier when you 
want to alter or erase a listing. 

The data for each listing of property, 
PTA or church or computer club mem- 
ber, dwelling, and so on can be entered 
in any order and in either letters or 
numbers on the same hue, so long as 
each data line is consistent, and no com- 
mas are used inside the strings. If there 
are six or 16 or 60 entries in one listing, 
all must be occupied in every listing in 
every data line. 

In your real estate listing you may be 
using only 10 entries: 1) listing number, 
2) name and address of owner, 3) ask- 
ing price in hundreds o'i dollars, 
4) number of bedrooms, 5) number of 
baths, 6) frontage in feet, 7) lot size in 
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f You Do A Lot Of Editina Ofi 
Your BASIC Program^*. 




The Full Screen Te; j Laitor for BASIC, we were the first to give 
the TRS-80 this indispensable ability. What ability? The ability 
to edit your BASIC program with the ease of word processing. 
It is a type of word processor specifically designed to handle 
BASIC programs instead of letters and documents. 



The capability to change, insert and 
delete a character or characters; 

Simply position the cursor over the 
character that you wish to change and 
type in the new one. Another handy feature 
is Insert Mode, this is used to odd text in the 
middle of a program line. 

Extend a line or insert new lines: 

Extending a line is as simple as two 
keystrokes, instantly the cursor jumps to the 
end of the program line and the editor is 
placed in the insert mode, 

Delete, copy or move statements: 

All you have to do is mark the line or block 
of lines and then tell the editor where to 
move or copy them. 

Global Search and/or change any 
specified string: 

Hove you ever needed to change a lot of 
PRINT statements to LPRINTs? 

Macro key facility: 

Macro keys can cut your programming 
time in half. You can define each of the 26 
letter keys (A-Z) to represent BASIC 
keywords, or any letter or number 
combination up to 6 characters per key. 

Renumber commands: 

Whats so special about this renumber 
facility? Not only can It renumber selected 

portions of your program, it also checks all 
GOTO, GOSUB, THEN and ELSE statements 
and updates them as needed! 



You may have seen other Editor programs 
advertized that give you one, maybe tv/o 
of these features. You may have also seen 
some of these features sold as separate 
utility programs. 

Only CAU offers a complete editing system, 
not just a word processor patched up to 
handle line numbers. 



You can order the BASIC Editor directly from 
Computer Applications Unlimited or ask your 
local computer store. 

Caf# 1210-20 for TRS-80 Mod 1 & 3. . .$29.95 

The Editor is supplied on tope with complete 
instructions to move it to disk. If you wish us to 
send the editor on disk please odd $5.00 
and ask for a DISK DUMP 

Add 32,00 for shipping in the U.S. and 
Canada, $10,00 outside USA 

N.Y State Residents add applicable Sales Tax. 



Dealer Inquiries invited. 



^g 



Computer Applications Unlimited 
RO. Box214. DeptFSBE, Rye, N.Y 10580 
(914)937-6286 

rji I COMPUTER 
IJL /APPLICATIONS 
tSilJ UNLIMITED . 

□ d(v. of CAU, Inc. 

il^S-80 IS a TM of Tandy Corp. 



t^See List ol Advertisers on Page 45'j 
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hundreds of square feet, 8) schools, 
9) taxes, and 10) year constructed. 
There would be 10 or 15 more categor- 
ies in an actual real estate computer list- 
ing, but these 10 illustrate data usage. 

A sample entry (coded by the realtor) 
would look like this: 518 DATA 518, 
CALDERONE CHARLES 452 S AB- 
ERNATHY ST TIFFIN OH, 853, 4, 2, 
127,486,8, 102,48. 

Note that there are no commas within 
the name and address entry. A comma 
would signal a new data unit entry. 
Charles wants $85,300 for the property, 
and it has four bedrooms, two baths, is 
127 feet on frontage and 48,600 square 
feet in total area. Other items are simi- 
larly coded. 

It will help you in visualizing the data 
storage in your computer if you think of 
it as a high stack of information. The 
first data entry anywhere in the pro- 
gram is the topmost item on this stack, 
and the very last data item is the one on 
the bottom. Your TRS-80 reads this 
stack from top to bottom, in order, one 
item for each execution of a command. 
The data is read only as far down the 
stack as you provide for in your pro- 
gram. At any time, when you have 
found the datum or set of data you were 
searching for you can restore the stack 
to its original state through the program 
command Restore. The whole stack is 
available for reading again then from 
the top. 

The Program Listing presents the op- 
erating program, plus one entry, that of 
Mr. Calderone. Lines 100-9999 are re- 
served for other such data entries of 10 
items each. Line 10 identifies the pro- 
gram and clears the screen. 

Line 20 reads the first data item by 
itself so that an ending data unit can be 
placed at line 10000 to bring the search 
to an end. Depending upon how many 
entries have been made, line 20 reads 
item i, item 11, item 21, and so on. The 
last one read is 0, located at line 10000. 
Line 30 ends the search after all data en- 
tries have been read. 

Line 40 reads the next nine entries af- 
ter the listing number, and assigns these 
values to variable. Note that the alpha- 
betic variable (Calderone's name and 
address) is read into a string variable, 
NS, and the other eight numeric vari- 
ables are read into variables A-H. 

Line 50 is the heart of the program, 
arid must be written anew for each 
search. We'll come back to it. If the 
data units read by line 40 match' the 
criteria set up in line 50, the program 
GOSUBs to line 70 to put information 
on your screen or printer. Otherwise the 
program continues to line 60. 
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Line 60 sends the computer back to 
line 20 to check out the next set of ten 
data units. As each new alphabetic or 
numeric value is read into the variables 
(L, N$, A, B and so on) the former con- 
tent is erased and the new values are en- 
tered for testing at line 50. This saves 
you a lot of memory space. 

Line 70 prints inform-^.tlon about any 
listing that passed the If lest at line 50. 
In this case, 1 have it set to print listing 
number, name and address, and asking 
price, but you could set it to print all or 
any part of the data. Note that asking 
price, which was coded in hundreds of 
dollars, is multiplied by 100 to give ac- 
tual price. To output directly to your 
printer change the Print in line 70 to 
LPRINT. 

Line 80 picks up the X = X -t- 1 from 
the line above and halts screen printing 
when 12 listings have been presented 
there. Pressing enter clears the screen 
and resumes the search. You can copy 
from the screen before pressing enter or 
use one of the screen dump routines 1 
offered last month to copy the monitor 
screen to printer. Line 90 returns the 
successful search to line 50, and from 
there through line 60 to line 20, just like 
the unsuccessful search. 

Line 518 is the specimen real estate 
listing; line number and Usting number 
arethesame~518. Line 10000 ends the 
search, no matter how many listings 
have been entered between lines 
100-9999. 

You must end Hne 50 with GOSUB 
70 for the program to work, but the 
content of the If statement can be any- 
thing you like. Keep it simple by using 
only is greater than (>) or is less than 
(<) or equals ( = ). There are several 
other logical operators you can use, 
but start simply and go to more com- 
phcated statements later. If you're 
searching for a house that costs 
$50,000 or less, has at least two bath- 
rooms and at least three bedrooms, 
and has at least 200 feet of frontage 
then type in line 50 IF A<510 AND 



Ol AND B>2 AND D>199 GOSUB 

70. That's for a house under $51,000 
with more than one bathroom, more 
than two bedrooms, and over 199 feet 
of property frontage on the street. 

Let's look at a slightly more difficuU 
case, one in which only a specific por- 
tion of the data is required by the pro- 
gram at a particular stage. This situa- 
tion is commonly found in game pro- 
grams. In my Clipper Ship Captain 
program only one of eight sets of data, 
each consisting of 20 items, is required 
at any one time. How do you get at it? 
Let's say that you want to get at and 
use data set 7. That means you have to 
peel off the overlying six sets consisting 
of 20 items each, 120 ahogether, to get 
at the 20 you want to use in the pro- 
gram at this point. 

Visualize that stack of data again. 
You want to peel off 120 data entries. 
Do it at line 700 FOR 1=1 TO 120: 
READ A: NEXT: A = 0. The first six 
sets of data are peeled off in short 
order. The A = nulhfies the last 
reading in case A has been used as a 
variable somewhere else in the pro- 
gram. Now read off the 20 numeric 
variables for the Port of London: 710 
READ A, B, C, D, E, F, G, H, 1, J, K, 
L, M, N, O, P, 0, R, S, T: RESTORE. 

You can now print these variables in 
any form you wish, probably tabular. 
The Restore makes the stack of data 
ready once again to be read from the 
top on its next usage. 

Random access to data, as in my 
poetry writing program, is more diffi- 
cult still, and is best accomplished by 
spinning data into an array. I'll discuss 
this next month, and show you how 
easy it is to use the TRS-80's powerful 
array capability to put hundreds and 
even thousands of information units 
into memory the easy way.B 

Writer and businessman Chidsey uses 
his Model III in both activities. He can 
be reached at 205 E. Adams St., Green 
Springs, OH 44836. 



10 CLS: PRINT 
: INPUT "PRESS 


@470, 
ENTER 


'PROGRAM NAME... YOUR 
TO CONTINUE"; Y: CLS 


NAME " : 


PRINT 


@6 62, ""; 


20 


READ L 
















30 

40 

50 
60 
70 
80 


IF I,=0 THEN PRINT 
READ N$, A, B, C, 
IF A<900 AND B>2 
GOTO 2 

PRINT L " " N$ " 
IF X = 12 PRINT " 


"SEARCH COMPLETE' 
D, E, F, G, H 
AND F=8 GOSUB 7 

"A * 100: X = X 
"; : INPUT Y: CLS: 


: END 

+ 1 

X = 








90 RETURN 
518 DATA 518r 
53, 4, 2, Z27, 
10000 DATA 


CALDERONE CHARLES 452 S ABERNATHY 
486, 8, 102, 48 


ST 


TIFFIN OH, 8 
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JPC PRODUCTS CO. 




HIGH SPEED CASSETTE SYSTEM 



The JPC Products High Speed Cassette System, j^^ jbug Monitor is a 2K relocatable monitor 

in operation for over 4 years, is now available program with fantastic features for the Color 

for all versions of the Radio Shack Color Computer. Computer user 

• TC-8C . ASSEMBLER 

The TC-8C plugs directly into the expansion Lj^e assemble any machine language program 

port of your TRS-80 Color Computer. It is fully directly into memory using standard 6809 

compatible with all versions of the Color Computer assembly language mnemonics. 

from the Standard 4K up to the Extended , DIS-ASSFMBLFR 

32K systems. _. ' ^, . , ^ 

p. ^_ Dis-assemble any memory resident program 

• '"^^ * (ROM or RAM) directly on the screen. 

The TC-8C saves and loads files at more than , iViEMORY MODIFY & LIST 

twice the speed of the built m Color Computer ,, _,.^ ^- ., ,■ . ■ u .,. 

y„x Modify memory directly or list memory m both 

• RPl'lARI P HEX and ASCII. 

AM frpn p H . h h H ... • BREAK POINT TRAPS 

All of JPC Products high speed cassette systems ^ . ■ .■ ^ u i ■ . 

, ,. ,.,.^ 7, .1- Set, clear or continue from break points. 

have a proven re labiity of ess than one *1*.«. — . .-^.- «.«. .-»n,^.. 

error in a million bits. • CASSETTE OR EPROM 

• TWO DRIVF<5 ~^^^ TC-8C is not required in order to use the 
T-, ^^ -_, , ,, ^ ^ ^^ JBUG Monitor. It is available on cassette 
The TC-8C fully supports two cassette o^oo i-nor-**;! 

drives. Save and load through either drive by 

simple software selection. You can use • SUPERB DOCUMENTATION 

standard Radio Shack CTR-80A tape recorders -phe TC-8C and the JBUG Monitor come with 

or their equivalent. complete and extensive user manuals 

• "l-L rILE TYPES {JPC's documentation is praised almost as 

The CCCOS operating system allows you to highly as our hardware and software). 

save load, verify or run both BASIC and Complete command descriptions and 

machine language files. Data files are u i _■ ■ .i *■ -^ ^ 

I .^ , ^ background information are provided. 

also supported. ^ ^ , , , ^ ... 

• MOTOR CONTROL Examples and sample programs are provided 

^ . , , .J ^ ( L. *u *x to help the novice and experienced 

On board relays are provided for both cassette . _,. . 7 , , , ,, , . , .^^ „^ 

ports on the TC-8C individual take full advantage of the TC-BC 

• SPARE EPROM SOCKET ^''DCA;ifv ?-j!^°A'!^' 
The TC-8C has a spare EPROM socket on * READY TO GO 

the board. You can install either 2716 or 2732 The TC-8C comes completely assembled 

EPROM's, This memory space can be used for and tested with the CCCOS operating system. 

any of your application programs or you It is backed with a 30 day Money Back 

could install the optional JPC Products Guarantee and a 90 day Full Warranty. 

monitor program - JBUG. 

TC-8C $129.95 

JBUG (EPROM) $34.95 

JBUG (CASSETTE) $29.95 



Terms: Cash, Master Card or Visa 

Shipping & Handling $ 3.50 (US) 
$5.50 (Canada) $15.00 (Foreign) 

Technical Inquiries: Phone 5:00 - 6:00 PM MST 




JPC PRODUCTS CO. 

Pnone (505) 294-4623 
12021 Paisano Ct. N.E. 
Albuquerque, N.M. 87112 ^42 



y-See List ol Advertisers on Page 455 
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TUTORIAL 



LOAD 80 




by Delmar D. Hinrkhs 




egression analysis lets you get the most from 
a set of data. Author Hinrichs will take you 
step by step through this useful technique. 



Regression analysis is a powerful 
tool for getting a great deal of infor- 
mation from a set of data. When it is 

properly used, il can accurately find 
the interrelationships among many 
variables. The regression equation is 
a mathematical model that can be 



used to predict results under condi- 
tions that were not actually used, in 
addition, the importance and signifi- 
cance of each "independent" vari- 
able in predicting the "dependent" 
variable can be determined. 

What does all this mean? What kind 



Mean: Arilhmcric average of a data 
variable. 

Standard Devialiun: Measure ot ihe vari- 
atiility of a dala variable. Atiout 68 percent 
of all data points lie williin plu<, or minus 
one standard deviation of the mean, assum- 
ing a normal distribution. 
Currt'lation Coefficient: Range, - 1 to h- 1 . 
i'erfccl negative correlation to no correla- 
tion (0) to perfect positive correlation be- 
tween any two variables, ignores ihc effects 
of all other variables. 

Matrix: A two-dimensional array of num- 
bers lormed from the variables, that repre- 
sents relationships between them. 
Inverse Matrix: The form that the original 
correlation coefficient matrix becomes after 
the process of matrix inversion. 
Partial (Correlation Coefficient: Similar to 
correlation coefficient, except corrects for 
Ihe effects of all i)lher variables. 
Standard Krror of i].stimale: Ranges down- 
ward from the standard deviation of the 
dependent variable, the lower the better. 
Bestmeasureofthesjgnificanceofthefit of 
the regression equation to the data. 
K Squared: Range, to 1, the higher the 
better. No predictive value to perfect pre- 
dictive value. Square of the multiple corre- 
lation coefficient. Measures the fraction of 



the variation of the dependent variable that 
is explained by the regression equation. 
F Ratio: Range, zero to infinity, the higher 
[he better. A test of the significance of an 
independent variable, or of the whole re- 
gression equation. 

Probability: Range, 0-1, the higher the bet- 
ter. Indicates confidence, from none to cer- 
tainty (based on the F ratio), that the regres- 
sion equation or the individual coefficient 
could nol have been obtained by chance 
from random data. 

Beta Coefficient: Range, 1 lo -i- 1 . A nor- 
mali/cd equation coefficient, measuring the 
importance of its variable in affecting the 
value of the dependent variable. Also, the 
independent to dependent variable correla- 
tion, after correcting for (eliminating) the 
effects of all of the other independent vari- 
ables. Sometimes called the "standard par- 
tial regression coefficient." 
Inverse Diagonal: Range, one to infinity, 
the lower the better. Diagonal elcniciits of 
the inverse matrix. Values above two in- 
dicate increasing error in the beta coeffi- 
cients, and in the coefficient F ratios and 
probabilities of the affected variables. High 
values arc caused by too much correlation 
between the supposedly "independent" 
variables. 



Table I. Explanations of Some of the Statislkul Terms Used in Ihe Article and Proi^ram 



of data can be used, and how is it used? 
This article tries to answer these ques- 
tions, and includes a flexible, coinpre- 
hensive regression-analysis program. 

Data 

The data must be in the form of 
numbers with a group of observations, 
each having two or more variables. One 
of the variables is designated as the de- 
pendent variable, and the rest are called 
the independent variables. Actually, re- 
gression analysis does not determine 
cause and effect (as the terms ' ' indepen- 
dent" and "dependent" imply), but 
only finds relationships among the vari- 
ables. Therefore, you need to know 
something about the real relationships 
in the system that the data represents 
before you can run a meaningful regres- 
sion analysis on it. 

A regression analysis fits the data to 
an equation of the form: 

a + b(l)*V(l) + b{2)*y(2} - V(3) 

where a is a constant, V(l) and V(2) are 
the independent variables, V(3) is the 
dependent variable, and b{l) and b(2) 
are the equation coefficients. In a real 
regression analysis, the number of vari- 
ables (Vs) may range from two to sev- 
eral dozen. In the equation above, V(l), 
V(2), and V(3) arc data variables, while 
a, b(l), and b(2) are calculated by the 
regression-analysis program. 

This equation is linear in form, but it 
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may be used to fit non-linear data by us- 
ing non-linear transformations (loga- 
rithm, square root, and so on) on the 
data before they are entered into the 
regression analysis. A good regres- 
sion-analysis program will run these 
preliminary transformations on the 
data before running the regression, so 



you do not have to do them manually. 
The regression-analysis program fits 
the equation to the data by a least- 
squares method. That is, the values of 
a, b(I), and b(2) are calculated so that 
the sum of the squares of the deviations 
of the estimated value of V(3) from its 
measured value is minimized, in order 
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v 
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VarJablL^ #3 


"Length" 




' 


Width" 






"Heighl" 


2 






5 






15 


13 






6 






22 


7 






1 






12 


5 






10 






8 


14 






3 






12 


6 






5 






19 


16 






1 
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9 






3 
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4 






15 


15 






8 






20 
















5 


10 
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6 

1 






21 

22 


12 






9 






20 


3 






2 






12 


9 






4 






18 




Table 2. 


Sample Data for the Regresi,ion 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 



Program Listing 

CLS : PRINT, "MULTIVARIABLE REGRESSION ANALYSIS" 
PRINT," (C) BY DELMER D. HINRICHS 1981" 
CLEAR :A=(MEH-1400)/8 :H=100 :OUT254,l 
FOR 1=1 TO 10 

«=(H+L}/2 :B=5*M+M*M :IF A>B THEN L=M ELSE H=H 
NEXT I :M=INT(M) :PQKE16554,M :CLEAR M*10+200 
DEFINT I-N :DEFDBL P-Y : MV=PEEK ( 16554) :I=HV-1 
DIM ID(49) ,R{I) ,SC(I,I) ,SD(I) ,SM(I) ,V(MV) ,VN${I) 
PRINT : PRINT :PRINT"DO YOU WANT TO:" : PRINT 
I PRINT" 1. LOAD MATRIX FROM TAPE" 
I PRINT" 2. LOAD RAW DATA FROM TAPE" 
' PRINT" 3. ENTER RAW DATA FROM KEYBOARD" :GOSUB 2930 

ON M GOTO 1340,150,150 

GOSUB 3430 :GOTO 90 

OS="USE TRANSFORMATIONS ON RAW DATA" ;GOSUB 2890 

IF Z$-"Y" THEN IT-l :GOTO 3460 

IF M=2 THEN IR=1 :G0TO 400 

OS="ENTER TITLE FOR OUTPUTS" :GOSUB 2890 

IF ZS="N" PRINT :GOTO 230 

PRINT OS;", UP TO 63 CHARACTERS" 

INPUT TLS :L=LEN(TLS) : IF L<64 PRINT :L-(64-L)/2 : GOTO 230 

PRINT"TITLE TOO LONG" : GOTO 200 

PRINT"MAXIMUM NO, OF RAW OR TRANSFORTIED VARIABLES =";HV 

PRINT :INPUT"NO. OF RAW VTiRIABLES ";Z$ 

M=VAL(Z5) :NR=M-1 :IF M<2 GOTO 3350 

IF M>MV GOSUB 3430 : GOTO 230 

0$="NAME RAW VARIABLES TO BE ENTERED" :GOSUB 2890 

IF Z$="N" GOTO 330 

CLS :PRINT"PUT DEPENDENT VARIABLE LAST" :PRINT 

FOR 1=0 TO NR 

PRINT"RAW VARIABLE NO . " ; I+l , "NAME = "; :GOSOB 3000 
NEXT I :CLS 

0$="SAVE RAW DATA ON TAPE" :GOSUB 289 

IS=1 :K=0 :OS="RECORD" :GOSUB 3130 

PRINT#-1,"DATA" :PRINT#-1, L,NR,TL$ 



: IF ZS="N" GOTO 55( 
PRINT"SAVING TITLE" 
:PRINT@ 7, "NAMES" 



FOR 1=0 TO NR 
B$(K)=VN$(I) 



:K=K+1 :IF K>9 GOSUB 3190 



NEXT I :IF K GOSUB 3190 
GOTO 5 50 

' READ DATA FROM TAPE 

OS="DELETE SOME OBS. FROM DATA" :GOSUB 2890 
IF Z$="N" GOTO 490 

CLS :PRINT"UP TO 50 OBS. MAY BE DELETED" :GOSUB 3330 
FOR 1-0 TO 49 :Z$="" 

Listing conlinue': 



MODEL II USERS 
Access DEC with 

REFOR/VIArfER" 



ReformaTTer conversion software lets 
you read and write DEC RT-1 1 single 
density diskettes on your Model II 
under TRSDOS or CP/M. 

ReformaTTer is ideal If you want; 

• Access to large system data bases 

• Distributed data processing 

• Offline program development 

• Database conversion 

With ReformaTTer, you have: 

• Automatic file conversion between 
Model II and DEC RT-11 single 
density diskettes. 

• Complete DEC file reorganization 
and maintenance facilities. 

• Access to RSTS/E, RSX 11 -M and 
VAX/VMS via DEC resident utilities 
reading RT-1 1. 

Customers like Memorex, Gpjohn, 
Arthur Young & Co.. the U.M., Stan- 
ford G., and Sandia Labs enjoy the 
benefits of ReformaTTer. So can you. 
Specify the version of ReformaTTer for 
your operating system: 

TRSDOS " DEC 
CP/M " DEC 
TRSDOS version runs on one drive. 
CP/M version requires two. 

Other iviodel 11 versions of Refor- 
maTTer conversion software include: 
TRSDOS « CP/M 
TRSDOS *- IBM* 
CP/M ** IBM 
Order ReformaTTer today at $249 
each version. 

'Aoaiiable exclusiuely 

from Radio Shack, 

Cat. "26-4714. 




(415) 324-9114 

TWX: 910-370-7457 

467 Hamilton Ave., Suite 2, P,jloAlto, CA 94301 

Please send complete information on the follow-l 

ing versions of ReformaTTer 



Please send ReformaTTer O TRSDOS-^DEC 

I CP/M"DEC. 

My ctieck for $249 (plus $5 shipping. Cat res. 

add 6V2% sales tax). 

L Ctiarge to my O Visa Q MasterCard. 

* exp. date 



Signature 

Mame 

Company 
Street __ 

City 

State_ 



Zip. 



Mail to MicroTech Exports, Inc. 

467 Hamilton Ave., Palo Alto, CA 94301 



f-See List of Advertisers on Page 455 
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4 MHz 



FOR THE 




PC BOARDS DOC- 



ONLY $19.95 



THIS EASY TO INSTALL KIT WILL 
DOUBLE THE SPEED OF YOUR MOD 
ELIIICOMPUTER 



COMPLETE KIT 

ASSEMBLED & TESTED 

CALL OR WRITE 
J.E.S. GRAPHICS 
P.O. BOX 2752 
TULSA, OK. 74101 

PHONE 19181 742 7104 



$59.95 
$99.95 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPlB-488 controller capability 
to TRS-80 Model 1 or 3, Level 2 or 
DOS with a minimum of 16K. 




488'BOC 
For Model 3 

Operation 

Model 488-80B or 488-800 Price: $375. 

( shipping, insurance & tax 
WHEN ORDERINO SPECIFY. DfSK Gfi TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 
Telephone: (516) 694-3370 
'Trademark of Tandy Corp 
There is no at filiation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shacit 



^^203 



DO YOU HAVE 2 PRINTERS? 




-409 



Now you can have 2 PRINTERS ON-LINE ac all 
times. Our MODEL 90 i INF PlilNTER SWITCH is 
designed specifically for the TRS-80 computer to allow 
the user to easily select between two printers by 
means of a conveniently located switch without 
changing cables. Our compact module connects to the 
parallel printer port: of your Model I. Model II, or Model 
III through a printer port extension cable and pr-ovides a 
card-edge connectdr for each of your two printers. 
Gold plated contacts ensure excellent connection 
reliability and ends the problem of constantly plugging 
and unplugging printer cables. And, it works with any 
Wpe of printer that could normally be connected to the 
TRS-SO printer port. Our Model 8D switch comes 
assembled, tested, and ready to use for the low cost 
of $40 including shipping to any US, destination. An 
1 8" printer port extension cable is available from us at 
a cost of $12.50 for the Model 1 1 Model III or S2D for 
the Model II, Call or write now for more information 
and request application note AN-B21 for Model I/Ill 
iisp or AN-S22 for Model II use. 



^UUWhf signalling inc. — — 

Administrative and Engineering Offices -P.O. Box 17510 
Kanaaa City, MO B4130 - phone: (816) 931-4448 



460 
470 
480 



530 
540 



Listing continued 

450 INPOT"OBS,- NO. tO BE DELETED";ZS 
IF Z$="" GOTO 490 
ID(I) =VAL(Z$) : ID=I 
NEXT I 

49d K=10 :05="PLflY" rGOSUB 3130 : PRINT"READING" :INPUT#"1, OS 
500 IF 0?<>"DATA" PRINT"*** WRONG FILE ***" :GOTO 490 
510 PRINTS 8, "TITLE" :INPUT#-1, L,NR,TLS :PRINT@ 8, "NAMES" 
520 FOR 1-0 TO NR :1F K>9 GOSUB 3210 
VN$(I) =B$(K) :K=K+1 
NEXT I :IF IC-1 GOTO 2360 
550 CLS :NT=NR :IF IT=0 GOTO 590 

560 PRINT"NO. OF TRANSFORMED VARIABLES NOW -";NT+1,"NEW - "; 
INPUT ZS :M=VAL[Z$) :NT=M-i 
IF M<2 OR M>HV GOSUB 3430 :GOTO 560 
PRINT :PRINT"PRIKT DATA ON PRINTER?" :PRINT 
PRINT" 1. RAW DATA" . 
PRINT" 2. Tiy^NSFOl^ED DATA" 
PRINT" 3. DO NOT PRINT DATA" :GOSUB 2930 
ON M GOTO 650,650,680 
GOSUB 3430 :GOTO 590 

GOSUB 3070 :IF IP=0 THEN M=3 :GOTO 680 
LPRINTTAB(L) TL5 :LPRINT :IF M=2 GOTO 68 
LPRINTTAn(20) "NAMES OF RAW VARIABLES: 



:NZ=NR :GOSUB 3171 



570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 G$-"DATA FOR EACH OBSERVATION:" :IF M<3 LPRINTTAB ( 20 ) GS 

690 N-N-i-1 :JD=0 : IF IR GOTO 800 ELSE IF IC GOTO 810 

700 CLS :PRINT"ENTER ";GS :GOSUB 3330 

7ie PRINT"OBS, NO. ";N 

720 FOR 1=1 TO NR-t-1 iZ$="" : IF IX GOTO 750 

PRINT" VAR. NO. ";I, " '";VN5(I'-1) ;"'", "VALUE = ";:INPUT Z$ 

IF Z$="" PRINT"QUIT DATA ENTRY" :Vtl)=-9999 :IX=1 : 1=2 

V(I)-VAL(ZS) 

NEXT I :IF 1X=0 OR N0>NT+1 GOTO 780 
770 PRINT"TOO FEW OBS. MINIMUM =";NT+2 : IX=0 :GOTO 710 
780 0$="CHftNGE DATA FOR THIS OBS." :GOSUB 2890 
790 IF ZS="Y'' CLS :IX=0 :PRINT"ENTER ";0? :PRINT :GOTO 710 
800 IF IR=0 GOTO 870 ELSE CLS : PRINT"READING OBS. NO . " ; N 
K=10 
FOR 1=1 TO NR+1 :IF K>9 GOSUB 3310 

V(I}=t<K} :K=K+1 



730 
740 
750 
760 



810 
820 
830 
840 



NEXT I :IF VCl)=-9999 THEN IX-1 
850 FOR 1=0 TO ID : IF ID(I)=N THEN JD=1 
NEXT ,1 :IF IC GOTO 2410 

IF IP=0 GOTO 900 

LPRIKT"OBS. NO.";N, :IF JD LPRINT"DELETED " : GOTO 

IF M=l THEN NZ-NR iGOSUB 3240 

IF JD GOTO 690 

IP IS-0 GOTO 960 

K-0 :CLS :PRINT"SAVING DATA" 

FOR 1 = 1 TO NR-t-1 

T(K)=V{I) :K=K-l-l : IF K>9 GOSUB 3290 
NEXT I :IF K GOSUB 3290 
960 CLS :IF IX GOTO 1090 
970 PRINT"UPDATING MATRIX" 
IF IT GOSUB 5000 
IF H=2 THEN NZ=NT jGOSUB 3240 
NO=NO-(-l :R=CDBL(N0-1)/CDBL(N0) 
FOR 1=0 TO NT 

R(I)=V(I-fl)-SM(I) :SM{I) =SM ( I ] +R(I)/NQ 
NEXT I 



860 

870 



980 

990 

1000 

1010 

1020 

1030 

1040 FOR J=0 TO NT 

1050 FOR K=J TO NT 

1060 SC(J,K)=SC{J,K)+R[J)*R{K)*R 

1070 NEXT K 

1080 NEXT J :CLS sGOTO 690 

1090 IF IT=0 .GOTO 1160 

1100 0$="CHANGE TRANSFORMED VARIABLE NAMES" :GOSUB 2890 

1110 CLS-jIF Z$="N" GOTO 1160 

1120 FOR 1=0 TO, NT, 

1130 PRINT"VAR. N0."fl-I-1;"N0W = '"; VNS { I );"'", "NEW = "; 

1140 GOSUB 3000 

1150 NEXT I 

1160 IF M02 GOTO 1190 ■ ■ 

1170 LPRINT :LPRINTTAB(20) "NAMES OF TRANSFORMED VARIABLES:" 

1180 NZ=NT :GOSUB 3170 

1190 IF IP LPRINT STRING${8,138) 

1200 CLS ;PRINT"CALCULATING" 

1210 FOR 1=0 TO NT : PRINTS 13, I+l 

1220 R=SC(I,I)/(N0-1) :S=SQR[R) 

1230 IF R-0 PRINT"VARIABLE";I-fl; "IS CONSTANT" :OUT254,0 : STOP 

1240 Q=S :S=CR/Q-l-Q)/2 :IF QOS GOTO 1240 

1250 SD(I)=S 

1260 NEXT I 

1270 FOR J=0 TO NT-1 : PRINTS 13, J+1 

1280 FOR K=J+1 TO NT :PRINTf3 17, K+1 

1290 R=SC(J,J)*SC(K,K) :S=SQR(R) 

1300 Q=S :S={B/Q-HQ)/2 :IF QOS GOTO 1300 

1310 SC(J,K)=SC(J,K)/S :SC{K,J)=SC(J,K) ■ 

l.klinu conliniif. 
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Circle 47 on Reader Service card. 



Let's get personal 



try out the in-stock selection of Heath/ 
Zenith microcomputers, peripherals, 
accessories and software. 

Now available at your nearby Heathkit 
Electronic Center, or through the Heathkit 
mail order catalog. 

You get more with a Heath/Zenith per- 
sonal microcomputer system! We offer: 

I.Proven high-performance hardware: 

Thousands of our microcomputers prove 
themselves daily, in the field. 



2. Vast software library: Three operating 
systems (including CP/M), languages, word 
processors, an electronic spreadsheet, ver- 
satile utilities and the 500-program Heath 
Users' Group software library. 

3. Self-instruction courses: Evaluation 
and programming courses from Heathkit/ 
Zenith Educational Systems. 

4. Service support: Before and after the 
sale -consultation by phone, carry-in 
service by trained technicians. 



Test run one of our microcomputers 
at any of the more than 60 convenient 
Heathkit Electronic Centers in the U.S. 



f 



Heathkit 

ELECTRONIC CENTERS 



See the white pages of your telephone book 
for store locations and telephone numbers. 

•Units of Verilechnology Electronics Corporation in the U.S. 



■iri 
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SUPER PRICES 
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COMPUIERS 





Camnlete MODEL [tl COMPUTER 

Model III with 48K memory, 2 disk 

drives, 370K storage, and ready to run with 

TRSDOS 1.3 and manual. 120 day Simutek warranty parts anif 

labor. Compatible with all Radio Shack software 

I^Ddel III with 48K, Z double sided 40 track disk drives with 750K 
storage- Comes with MULTIDOS and manual. 120 day SImuIek war- 
ranty parts and labor. Compatible with Radio Shacit software. Com- 
plete and ready to run 

MODEL III INTERNAL DISK DRIVE KITS 

If you can use a phlllips screwdriuer, you can easily install 
Simulek's Model III disk drives and controller In less than an hour, 
flbsolufely NO SOLDERING, TRACE CUTTING OR TECHNICAL 
KNOWLEDGE REQUIRED! The J & M controller is the best on the 
market today. We've tried others and found J & M's the finest and 
easiest lo install. We warranty the J & M controller for 120 days 
against delects In workmanship. 

ONE 40 TRACK TANDON DISK DRIVE WITH 185K STORAGE, and J 
& M controller. Radio Shack i]OS, manual. No soldering or trace 

cutting required. Ready lo install with instructions 

TWO 40 TRACK TANDON DISK DRIVES 370K STORAGE, with J & M 
controller Radio Stiack DOS, manual. No soldering or trace cutting. 

Ready to install and run. Instructions 

TWO DOUBLE SIDED 40 TRACK DISK DRIVES with 750K Storage 
and J & M controller MULTIDOS and manual and Model III DOS. No 
soldering or trace cutting. Ready lo install and run. Full instruc- 
tions 

MODEL III HARD DISK DRIVES 

FIVE MEGABYTE hard disk with LDOS disk operating system, all 
cat)les, connectors, ready to plug in 

TEN MEGABYTE Hard disk with LDOS, all cables, connectors ready 
to plug in 



$1899.99 



$2195.99 



PRINTERS 



DAISY WHEEL PRINTERS: 

NEW SMITH CORONA DAISY WHEEL 12 CPS 

NEW BROTHER DAISY WHEEL 16 CPS 

TRACTOR FEED FOR BROTHER 

C-ITOH STARWRITER II F 10. 40 CPS 

C-ITOH STARWRITER III F-1055CPS 

TRACTOR FEED FOR STARWRITERS 

HIGH DUALITY DOT MATRIX: 

C-ITOH PROWRITER I 8510A .2K BUFF, . . PRL. ONLY 

C-ITDH PROWRITER I 8510ACD...2K BUFF. SER/PflL 

C-ITOH PROWRITER II 1550. ..15 INCH.. .3K BUFFER 

EPSON MX-BOWITH GRAFTRAX 

EPSON MX-80/FT WITH GRAFTRAX 

EPSON HX-100 

OKIDATA MICROLINE80.(80CPS) 

OKIDATA MICR0LINE82A(125CPS) W/TRACTOR 

OKIDATA M1CR0LINE83A(125CPS) W/TRACTOH 

OKIDATA MICROLINE 84 (ZOO CPS) W/TRACTOR 

PRINTER CABLE FOR MOD I EXPANSION INTERFACE OR MODEL 
III (SPECIFY) 

PROWRITER RIBBONS 

EPSON MX-80 0R FT RIBBONS 

OKIDATA RIBBONS... (80, 82A.83A) 



S589.99 
$849.99 

$999. 99 

$1799.99 
$1999.99 



$699.99 
S1199.95 

$250.00 
S1649.99 
$1999.99 

$250.80 

S499.99 
$649.99 
$799.99 
$479.99 
$549.99 
S799.99 
S369.99 
S499.99 
S749.99 
$1199.95 

S29.95 

$12.99 

59.99 

$3.49 
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DISK DRIVES 



MODEL I DISK DRIVES 

ONE TEC DISK DRIVE 40 TRACK DISK DRIVE with 5ms track lo 
track access time, with power supply chassis, extender cable and 
shipping for TRS-80, One year warranty on parts and labor. Ten day 
money backguarantee. 
Model I or 111 

ONE TEAC 40 TRACK DISK DRIVE, 30 ms track to track, with P/S 
and chassis, ready to run as drive 0-4. 10 day money guarantee. 
One year warranty 

or^E TANDON 40 TRACK DISK DRIVE, 5 ms track lo track, with P/S 
and chassis, ready lo run as drive 0-4 or Model III external. 10 day 

money back warranty 

ONE 2 DRIVE cable for Model I or W\. (Specify) 

ONE 4 DRIVE cable for Model I only 



S279.00 

$279.00 

$279.00 
$25.00 
$35.00 



ACCESSORIES/ 
SOFfWAREiTC. 

16K MEMORY UPGRADE FOR MOO I, Ml OR COLOR 4K. 

UNCONDITIONALLY GUARANTEED FOR 2 YEARS 



DISK OPERATING SYSTEMS 

NEWDOS80VER.2 

LDOS 



DOSPLUS 

MULTIDOS. BEST BUY! SPECIFY DOUBLE OR SINGLE DENS 

DOUBLE DENSITY MOD I 

PERCOM DOUBLER II. (NEW LOW PRICE!) 

DISKETTE STORAGE 

SMOKED PLASTIC HOLDS 50 DISKETTES 

HARD BOX HOLD TEN 




MODEMS 

YNX MODEM FOR MODI 

^ III 

■NITERM SMART TERMINAL 
OGRAM 



»Efl BOOKS FROM IJG 
d.. ^. - I MICROSOFT BASIC DECODED 

■I — ^ ' ssB^J ANO OTHER MYSTERIES 

r i^rwss*^ THS-80 DISK AND OTHER 

MYSTERIES 

BASIC FASTER AND BETTER AND OTHER MYSTERIES 

BASIC FASTER AND BETTER PROGRAMS ON DISKETTE 

CUSTOM TRS-80 AND OTHER MYSTERIES 



MONITORS 

OLD MOD I SCREEN STARTING TO GIVE YOU HEADACHES? TRY 

ONE OF THESE HIGH RESOLUTION MONITORS AT SUPER LOW 

PRICES... 

ZENITH GREEN SCREEN 12" 

BMC 12 INCH GREEN SCREEN 

BMC 13 INCH COLOR 

AMDEK12' BLACK AND WHITE 

OCI AMBER SCREEN MONITOR 12" 

CABLE TO CONNECT MONITORS TO MODEL I COMPUTER 



$15.95 

S139.95 

5129.95 

$139.99 

$79.95 

$139.99 

S21.95 
$3.99 

S239.95 
$99.99 

$29.95 

S22.50 
$29.95 
$19.95 
$29.95 



$139.95 
5109.95 
5299.99 

S97.50 
$189.95 

S14.95 



C.O.D.'S $5.00 EXTRA. NO C.O.O.'S FOR MODEL III COMPUTERS OR PAR- 
CELS THAT CANNOT BE SHIPPED UNITED PARCEL SERVICE. ALL CO.O.'S 
REOUIRE CASH OR CERTIFIED CHECK AT TIME OF COLLECTION. 



CALL TOLL FREE to order: 



1-800-528-1149 ^ 



WE ACCEPT AMERICAN EXPRESS, VISA and MASTERCARD. NO 

SURCHARGE FOR CREDIT CARD ORDERS! 

SORRY, PERSONAL CHECKS REQUIRE 4-5 WEEKS TO CLEAR. 




TRS-8D TM of Radio Shack a Tandy i^Dip 

■■■'■■•'■'■■""'•-"-•-•-••■iiiiiiB'ailMliiihliiiiiiiiiiliiiiiiiiii i 



SIMUTEK 

Computer Products Inc. 

4897 E. SPEEDWAY OLVD.. TUCKDH. AZ 8ST1Z, (602)323-9391 



Listing cotilmued 

1320 
1330 
1340 
1350 
1360 



1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 



NEXT K :SC(J,J)-1 
NEXT J :SC{NT,NT)=1 :GOTO 1530 
' READ MATRIX FROM TAPE 

OS = ''PLAy" :GOSUB 3130 : PRINT"READING'' :INPUT#-1, OS 
IF 0$<>"MATRIX" PRINT"*** WRONG FILE ***" : GOTO 135( 
PRINT@ 8, "TITLE" :INPUT#-1, IT ,L,NO ,NT ,TL$ 
IM=1 :K^10 :PRINT@ 8, "NAMES" 

GOSUB 3210 



FOR 1=0 TO NT 
VN$(I) =BS(K 
NEXT I :K-1 

FOR 1=0 TO NT 
SM(I) =T(K) 
NEXT I :K-1 

FOR 1=0 TO NT 



SD(I 
NEXT 
FOR 1 = 
FOR 



=T[K 
I :K=10 
TO NT-1 
J=I+1 TO NT 



;IF K>9 

:K=K+1 

: PRINT 
:IF K>9 
K=K+1 

: PRINT 
:IF K>9 
K=K+1 

jpRINTia 8, "MATRIX 



a 8, "MEANS" 
GOSUB 3310 

a 8,"STD. DEV." 
GOSUB 3310 



:IF K>9 GOSUB 3310 



SC(I,J)=T(K) :SC(J,I)=T(K) :K=K+1 
NEXT J :SC(I,I) =1 
NEXT I :SC[NT,NT)=1 



;l) 



TL$ 
VAR. 



NAME 



MEAN 



1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 



1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 



%##########.###»# ###########.# 



GOTO 16 6 



CLS :PRXNTTAB 

HS="VAR. NO. 
VIATION" 
1550 PRINT H$ 
1560 FS="#### 

FOR 1=0 TO NT 

H=(I+2)/15 :IF INT(H)=H GOSUB 3040 

PRINTOSING F$; I+1,VNS(I) ,SM(I] , SD { I 

NEXT I :GOSUB 2870 :IF Z$="N 
GOSUB 3070 :IF IP=0 GOTO 1660 
LPRINTTAB(L) TL$ :LPRINT H5 
FOR 1=0 TO NT 

LPRINTUSING FS; I+1,VN${I) , SM { I) ,SD(I) 

NEXT I :LPRINT STRINGS ( 8 ,138) 
1660 OS="VIEW MATRIX, INVERSE, PARTIALS" :GOSUB 2890 
1670 IF ZS="N" GOTO 1700 ELSE IV=1 

GS="CORRELATION COEFFICIENT MATRIX" ;IE=NT 

FS="%%%%###. ###### " :H$="SIMPLE "+GS :GOSUB 2590 

IF IH GOTO 1930 

OS="SAVE COEF. MATRIX ON TAPE" :GOSUB 2890 

IF ZS="N" GOTO 1930 

K=0 :0$="RECORD" :GOSUB 3130 

PRINT"SAVING" : PRINT#-1 , "MATRIX" 

PRINT#-1, IT,L,NO,NT,TL$ :PRINT@ 

FOR 1=0 TO NT 

BS{K)=VN$(I) :K=K+1 :IF K>9 GOSUB 3190 

NEXT I :IF K GOSUB 3190 
PRINTS 7, "MEANS" 
FOR 1=0 TO NT 

T(K) -SH(I) :K=K+1 

NEXT I : IF K GOSUB 
PRINT@ 7,"STD. DEV. " 
FOR 1=0 TO NT 

T(K) =SD{I) :K=K+1 

NEXT I : IP K GOSUB 
PRINTg 7, "MATRIX " 
FOR 1=0 TO NT-1 

FOR J=I+1 TO NT 

T(K)=SC(I,J) :K=K+1 :IF K>9 GOSUB 3290 
NEXT J 

NEXT I : IF K GOSUB 3290 
CLS : PRINT" INVERTING MATRIX" 
FOR 1=0 TO NT-1 :PRINT0 18, I+1;CHRS(3 

IF SC(I,I)<=0 PRINT"MATRIX SINGULAR" 

X=1/SC(I,I) :SC(I,I)=1 

FOR J=0 TO NT :SC(I,J)=X*SC(I,J) :NEXT J 

FOR K=0 TO NT-1 :PRINT@ 22, K+1 :IP K=I GOTO 201 
;K,I)=0 
:SC(K,J)=SC{K,J)-X*SC(I,J 



STD. DE 



:PRINT? 7, "TITLE' 
7, "NAMES" 



;IF K>9 
3290 



GOSUB 3290 



;IF K>9 
3290 



GOSUB 3290 



2 

2 

2 

2 

2 

2060 

2070 

2080 

2090 



X=SC(K,I) :SCi 
FOR J=0 TO NT 
NEXT K 
NEXT I :IF IV=0 



) :IF 1=0 GOTO 198t 
:OUT254,0 : STOP 



NEXT J 



GOTO 2 50 
H5="INVERSE OF MATRIX PLUS BETA COEFFICIENTS 
HS="PARTIAL "+GS :IZ=1 : IE=NT-1 :GOSUB 2590 
' REGRESSION RESULTS 
CLS :IE=NT-1 :PRINTTAB(L) TL$ 
FOR 1=0 TO IE :R2=R2+SC{NT,I) *SC(I,NT) 
DR=( 1-R2) /D2 : EE=SD (NT) *SQR (OR* (NO-1) ) :FR=R2/DR/NT 
F$="NO.IND.VAR.=### DEP.VAR.=### % % 

S. =#####" 

2100 PRINTUSING FS; NT , NT+1 , VNS ( NT) ,N0 :D1=NT :GOSUB 2791 
2110 DS=" R SQ. =.###### EQ.F=####.### PROB.=#.#tf#" 
2120 PRINT"S.E.EST.=";EE; USING D?; R2,FR,FP 
2130 GS="NO. VAR. NAME BETA COEF. EQ. COEF. COEF.F 

INV.DIAG" 
2140 PRINT GS; 



:GOSUB 2590 



jNEXT I :D2=N0-NT-1 
:F=FR 
NO. OB 



:D1 = 1 



PROB. 



™TRS80 color 

From the January 19B1 issue ot the CSRA Cqmputer 

CluD newslettef; 

There was some amusemeot at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM cartndges could not be copied, TOs 
month s 68 Micro Journal reported they had 
(lisasscmOled the programs on ROM by 
cohering some of the connector pins with 
tape They promise details next month. Never 
tell a hobbyist somettiing can't be done! This 
magazine seems to l)e Bie only source so far 
ot technical informations on theTRS-BO color 
computet "■ Devoted to SS-50 SBOO'and 
6809 machines up to now. 66 Micro Journal 
plans to include the TRS-aO 6809 unit in 
future issues 

To get (he MOST from yoor 5809 CPU - TMs la the 
BEST SOURCE' Ttie ONLY Magazine tor the 5809 

Computer Months Ahead ri All Others' 

68 MICRO JOURNAL 

5900 Cassandra Smilh Rd. 
Hixson, TN 37343 

USA 
1 Yr.-S24 50 2 Yr.— $42.50 3 Yi,— $64.50 
■Foreign Surface Ada 112 Yr to USA Price 
Foreign Air Mail Add $35 Yr. to USA Price ;■■ 

■CanadBSMeiicoAdn J5Sn Yr in USA Prir" -'213 



Rational Fortrar; 

SliHU'luiTd pTograniniing lor FORTRAN. 
The bcsi, implctiicniation of Ratfor 
available anywhere! Full Standard 
Kaitbr, plus strings, conditional com- 
pilation, and more. Includes pretty 
printer for automatic indentation of 
source programs. Complete tutorial 
User's Manual. Totally compatible with 
all Microsoft Fortrans (not included!), 

• TRS-80 Model 1/ni: $74.00 

• CP/'M, IBM-PC (MS-DOS), or "^^^ 

• [KS-SOMod li: Sl.W.OO 

Aspen Software Co. 

P.O. Box 339Tijeras, NM 87059 
(505) 281-1634 




l.if,linK conliniiei 




WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235^137 

for prices antd infomiation. Dealer 

inquiries invited and C O D's 
accepted 




PACIFIC 
EXCHANGES 

00 Footh.ll Blvd 
San Luis Obispo, CA 
93401. InCal. call 
(800)592-5935 or 
J805)543-1037 

^207 



j'See List of Advertisers on Page 455 
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Unlimited 
ScripsJt Backup 

Version 3 2 on Model III TRSDOS'l 3 

Why Pay More? 

For Just Jm^ You Can Copy Your 
SCRIPSfT As Mony Times As You Like 

Send $5 With 
Your Name and Address to: 

LANGIN- HOOPER ASSOCIATES 

]8 MARVIN LANE 

PISCATAV^AY 

NEW JERSEY, 08854 

(201)463-0189 9a. m, -9p.m. daily 

*t rode marks of Tandy Corporation 





Remarkable Disk Direct ory 

Catalog System 

For use on Radio Shack TRS-SO Model 

1 and 3 microconfl**ters. 

Unrque abstract feature penmi^'-l^sirive file itt^ntifl- 
catkm Vmaioq includes a firvlind^'^^^l''^ From ^^^AEyiype 
rUe. Includes hurtwm rL'^ddMRj-eiiidrlui'^ttm lusihl^rw cocie 
jiles- (domains ID, i%dnV, <kile. frVto^'^VhiLe, l?1hsppr. iind 
remark. 

He.^ anv *ii7e di^j^ti^dtV' tr^aP ^f^ si^t disk uE dnv densilv 
with ani.' numb«(«,l*Brhi ^fttlllinv.rtunbtr uf ,id«. Sort by 
anv fipid Muflri-litrnijal; Ai;i( ir^r^l^ soiti-d order. .Single 
sheel or cpitliiluoii* foflM4 ^^V^'lu disk uplkin V<>rv fAsr 
rrwihinBi cotle fi^^p^n^gti/*^' llwrfnendly Com|tlele 

' ' I ftease'l^p'^cit^' mOO^I ^nd DOS whei^ ordcrinq. 
RggL iVta-lv-o drives MIN .ind 4S K RA.M. 

SiUlsfacliOQ'S^aTdiiteed Ten day relum privilege. 
J^Kf* ' $2 (Kl Shipping & Handling 
■Checlt. " .Mori pv Older Visa Musltj-nharqe" 
Don F icidinci 
Z2(n N.W 61 PW-e a Mirtidie. FL 330M 
(305) 972.67'11 





80 Micro does not keep subscription 
records on the premises, therefore 
calling usonly adds time and doesn't 
solve the problem. 

Please send a description of the prob 
lem and your most recent address 
label to: 

SOmlcro 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Ttiank you and enjoy your subscfiplion 
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2920 
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2940 
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2970 



conlinued 

ES-" 

FOR 1 = 



%###.###### #######.###### ##i 



f## ##.### 



EQUATION CONSTANT =Stl#####. #####S " 
TO IE 

SD(I) -SC(I ,NT) *SD(HT)/SD(I) :SH(NT) -SM { NT} -SD [ I ) *SM(I) 

SM(I) =(SC(I,NT)/SQR(DR*SC(I,I) ) ) [2 :F=SM(I) :GOSUB 2790 

B=(I+4)/15 :IF INT{H)-H GOSUB 3040 

PRINTUSING HS;I+1,VN${I) ,SC(I,NT) , SD ( I) ,SM(I) ,FP,SC(I ,1) 

NEXT I :PRIKTUSING E$; SM(NT) 
GOSUB 2870 :IF Z$="N" GOTO 2310 
GOSUB 3070 :IF IP=0 GOTO 2310 

LPRIKITTAB(L) TL$ :LPRINTUSING FS; NT, NT+1 , VN$ ( NT) ,N0 
D1=NT :F-FR :G0SUB 2790 

LPRINT"S.E.EST.=";EE; USING D$; R2,FR,FP :LPRINTG$ :Dl=l 
FOR 1=0 TO IE :F=SM{I) :G0SUB 2790 

LPRINTUSINGH$;I+1,VN$CI) ,SC(I,NT) ,SD(I) ,SM(I) ,FP,SC(I,I) 

NEXT I :LPRINTUSING ES; SH(NT) :LPR1NT STRINGS ( 8 , 138) 
CLS :GS="RESIDUALS OF DATA VS. ESTIMATES" 
0$="CHECK "+G$ :GOSUB 2890 :IF ZS="N" GOTO 2560 
IC=1 :IP-0 :OS="PRINT "+GS iGOSUE 2890 : IF Z5="N"G0T0 2350 
GOSUB 3 07 

PRINT :PRINT"YOU MUST REREAD RAW DATA FROM TAPE" : GOTO 490 
IX=0 :N=0 :IR=0 :FS-"#### " :CLS 
HS^^OBS.S DEP.VAR. EST.DEP.VAR. RESIDUAL NORMAL 

PRINTTAB(L) TLS :PRINT, G$ iPRINT HS 
IF IP LPRINTTAB(L) TLS :LPRINT, G$ :LPRINT H$ 
GOTO 6 90 
IF IX GOTO 2520 

PRINTOSING FS; -N; :IF IP LPRINTUSING FS; N; 
IF JD PRINT"DELETED" : IF IP LPRINT"DELETED'' 
IF JD GOTO 690 
IF IT GOSUB 5000 

R=SM(NT) :FOR 1-0 TO IE : R=R+SD ( I) *V{ I+l) :NEXT I 
RE=V(NT+1)-R :RS=RS+RE :EN=RE/EE 
PRINT CSNG(V(NT+1) ) ,CSNG(R) ,CSNG[RE) ,EN 
IF IP LPRINT CSNG(V(NT+1) ) ,CSNG(R) ,CSNG(RE) ,EN 
H-(N+3)/15 :IF INT(H)=H AND IP-0 GOSUB 3040 
GOTO 6 90 

F$="SUM OF RESIDUALS = " 
PRINTTAB(13) FS; CSNG(RS) 

IF IP LPRINTTAB[13) FS; CSNG(RS); STRINGS ! 8 , 138) 
GOSUB 3 040 

OUT254,0 :IF JP*IT LPRINTTAB(L) TLS :CLEAR 50 :LLIST 5000- 
CLS :CLEAR 50 : PRINT"REGRESSION DONE" 
END 

' PRINT MATRIX 

CLS :PRINTTAB(L) TLS : PRINTTAB [ 13) R$ :I-2 
FOR J=0 TO IE :M=0 

FOR K=J-HZ TO IE :IF K>IE GOTO 2670 

H=(H/4+I)/15 ;IF INT(H}=H GOSUB 3040 :M=0 : 1=0 

GOSUB 2770 

PRINTUSING F$; RIGHT$ (STRS (J+l ) ,2) ,RIGHTS ( STR? ( K+1) , 2) , 

M-M+1 

NEXT K :I=I+(M+3)/4:H=(IE-J-IZ+l)/4:IF INT(H)<>H PRINT 
NEXT J :GOSUB 2870 : IF Z$="N" RETURN 
GOSUB 3070 :IF IP=0 RETURN 
LPRINTTAB[L+8) TLS : LPRINTTAB ( 21) H$ 
FOR J=0 TO IE 

FOR K=J+IZ TO IE :IF K>IE GOTO 2750 
GOSUB 27 7 
LPRINTUSING FS; RIGHTS ! STRS (J+1 ) ,2) , RIGHTS ( STRS (K+1) , 2) 

NEXT K :H-{IE-J-IZ + l)/5 : IF INT(H) OH LPRINT 
NEXT J iLPRINT STRINGS ( 8 , 138) iRETURN 
Z-SC[J,K) :IF IZ THEN Z=-Z/SQR(SC ( J , J) *SC ( K ,K) ) 
RETURN 
' PROB 

DX=D1 :Dy-D2 :FF-F : IF F<1 THEN DY=D1 :DX=D2 :FF=1/F 
DX=2/9/DX :DY=2/9/DY 

DD-ABS[FF [ (1/3)*(1-DY)+DX'-1)/SQR(FF[ (2/3)*Dy+DX) 
IF D2<4 THEN DD-DD* ( . 08*DX [ 4/D2 [ 3+1) 

FP=.5/(1+DD*(.196 85+DD*( . 1151 9+DD* (. 000344+DD* . 01953 ) ) ) ) [4 
IF F>=1 THEN FP=1-FP 
RETURN 
' PRINT? 

OS="PRINT THESE RESULTS" : IP-0 
■ (Y/N) 

PRINT"DO YOU WANT TO ";0S;" (Y/N) ? "; CHRS(95); CHRS(24); 
GOSUB 2960 :IF Z$="Y" OR Z$="N" RETURN 
GOSUB 3430 :GOTO 2890 
' CHOICE 

PRINT :PRINT"YOUR CHOICE? "; CHRS(95); CHRS(24); 
GOSUB 2960 :M=VAL(Z$) : CLS :RETURN 
' GET CHAR 
2$=INKEYS :IF ZS="" GOTO 2970 

Liili'ig uoniinucs 
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Lisling corit lined 

2980 IF ASC(Z$)-13 THEN Z5="N" 

2990 PRINT ZS :RETURN • 

3000 ' VAR NAMES 

3010 PRINT STRING5(12,46)+STRINGS(12,24 

3020 IF LEN{VNS(I) ) <11 RETURN 

3030 PRINT"NAME IS TOO LONG", "NAME = "; 

3040 ' PAUSE 

3050 PRINT"PRESS ANY KEY TO CONTINUE"; 

3060 GOSUB 2950 : PRINT CHR${27); CHRS{30); iRETURN 

3 07 ' READY? 

3080 IF PEEK(14312) <128 LPRINT CHR$(30) 



: INPUT VK$(I) 



:GOTO 3 01[ 



3090 OS="ABORT, AS PRINTER IS NOT READY' 



:IP=1 :JP=1 
:GOSUB 289( 



: RETURN 



3100 IF ZS-"Y" RETURN 

3110 PR1NT"THEN GET PRINTER READY AND PRESS <ENTER> " 

3120 GOSUB 3060 : GOTO 3070 

3130 ' PROMPT 

3140 PRINT :PRINT"GET TAPE READY, PRESS '";0$; 

3150 GOSUB 2960 :CLS :RETURN 

3160 ' WRITE OR READ NAMES 

3170 FOR 1-0 TO NZ :LPRINT I+l 

3180 LPRINT CHR$(138) :RETURN 

3190 PRINT #-1, B$(0) ,B$(1) ,B$(2) ,B$(3) ,B$(4) ,BS(5) ,BS(6) ,B$(7 

B$(8) ,BS(9) 
3200 FOR HI=0 TO 9 :BS(MI)="" :NEXT HI :K=[ 
3210 INPUT #-1, BS(0) ,B${1) ,BS(2) ,B$(3) ,BSl 

B$(8) ,B$(9) 
3220 K=0 :RETURN 

' WRITE OR "READ DATA 

FOR 1=1 TO NZ :A-V(I) :LPRINT I; A; 
IF LEN(STR$(A) )<11 GOSUB 3270 
NEXT I :LPRINT NZ+1; CSNG { V(NZ+1) ) : 

H=(I+l)/5 :IF INT(H)=H THEN LPRINT ELSE LPRINT, 

RETURN 
3 290 PRINT#-1,T(0) ,T(1),T(2),T(3),T(4),T 
3300 FOR MI-0 TO 9 :T(MI)=0 :NEXT MI :K= 

INPUT#-1,T(0) ,T(1) ,T(2) ,T{3) ,T{4) ,T 

K=0 : RETURN 

' QUIT 



323 
324 
325 
326 
327 
328 



331 
332 
333 



THEN <ENTER>" 



VNS(I); :GOSUB 3270 :NEXT I 



RETURN 

,BS(5) ,BS(6) ,B$(7) , 



; RETURN 



■ ,T(6) ,T(71 

: RETURN 
.,T(6) ,T(7) 



,T(G) ,T(9) 
,T(8) ,T{9) 



3340 PRINT"(PRESS <ENTER> TO QUIT)" : PRINT iRETURN 

3 3 50 ' # RAW VAR 

3360 GOSUB 3430 : PRINTTAB ( 25) "RAW VARIABLES" :PRINT 

3370 PRINT"THE NUMBER OF VARIABLES TO ENTER IS THE NUMBER OF RAW 

VARIABLES,"; 
33 80 PRINT" INCLUDING BOTH INDEPENDENT AND DEPENDENT VARIABLES, B 
UT WITHOUT" 

3390 PRINT"COUNTING THE DERIVED VARIABLES THAT MAY BE FORMED LAT 
ER BY USING"; 

3400 PRINT"THE TRANSFORMATION ROUTINES. THE MAXIMUM NUMBER OF 
VARIABLES" 

3410 PRINT"THAT CAN BE USED IS LIMITED BY THE AVAILABLE MEMORY T 
" ; MV ; " . " 

3420 PRINT :GOT0 240 
3430 CLS ' ERROR 

3440 PRINT"YOUR ENTRY OF ■";Z$;"' IS ILLEGAL" 
3450 PRINT :RETURN 
3 460 ' TRANS INSTR 

3470 0$="ENTER NEW TRANSFORMATIONS" :GOSUB 2890 
3480 IF ZS="N" GOTO 170 

3490 CLS :PRINTTAB(24) "TRANSFORMATIONS" iPRINT 

3500 PRINT"TRANSFORMATIONS ARE ANY CALCULATIONS PERFORMED UPON T 
HE DATA TO" 

3510 PRINT"CHANGE ITS FORtl. INCLUDED ARE SUCH THINGS AS SQUARE 
S AND CUBES"; 

3520 PRINT"OF THE VARIABLES, CROSS PRODUCTS, SQUARE ROOTS, LOGAR 
ITHMS, ETC. "; 

3530 PRINT"TO PERFORM THESE CALCULATIONS AUTOMATICALLY ON EACH O 
BSERVATION" 

3540 PRINT"ENTERED, THE APPROPRIATE 'BASIC STATEMENTS MUST BE E 
NTERED INTO"; 

3550 PRINT"THE SUBROUTINE THAT STARTS AT PROGRAM LINE 5000." 
3560 PRINT''BOTH RAW AND TRANSFORMED VARIABLES ARE SUBSCRIPTED VA 
RIABLE 'V ."; 

3570 PRINT''I.E., TO ADD VARIABLE 3 TO VARIABLE 4 TO MAKE VARIABL 
E 5 USE:" 

35 80 PRINTTAB (20) "V { 5) =V( 3 ) +V{ 4) " 

3590 PRINT"THE NUMBER OF TRANSFORMED VARIABLES MAY BE GREATER TH 
AN OR LESS" 

3600 PRINT"THAN THE NUMBER OF ORIGINAL RAW VARIABLES. DEPENDEN 
T VARIABLE" 

3610 PRINT"HUST BE LAST. YOU WILL NOW BE SHOWN THE OLD TRANSFO 
RMATIONS," 

3620 PRINT"AND RETURNED TO 
IONS. " 
363t 
500( 
501C 
V(2) 
900( 



'BASIC TO ENTER YOUR NEW TRANSFORMAT 



GOSUB 3040 :CLS :OUT254,0 :LIST 501 

' TRANSFORMATION SUBROUTINE 
V(6)-V(3) :V{5)=(V(l)-7)*(V(2)-4.5) 
:V(2)=(V(l)-8) [2 

RETURN 



:V(4)={V(2)-5) [2 :V(3)- 



L!Siing c(»iliniii-<, 



REMSOFT, INC. 

Let Your TRS-80 " 

Teach You 

ASSEMBLY LANGUAGE 



Tired of buying book atler book on assembly 
language programming and still nol knowing your 
POP from your PUSH? 

REM SOFT proudly announces a more 
elficient way. using your own TRS-80' to learn 
the fundamentals of assembly language 
programming . al YOUR pace and YOUR 

convenience. 

Ojr uficje pacK.Tge ■■INTRODUCTION TO 
TRS-80 ASSEMBLY PROGRAMMING", wiH 
provide you witfi tfie following: 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80' video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement lor wliat you are 
hearing. 

• Step-bystep dissection of complete and useful 
routines to test memory and to gam direct 
control over trie keyboard, video monitor, and 
printer, 

• How to access and use powerful routines in 
yDu' La-.ei 'I ROM 

for Model 1 

REMASSEM-I(tape) only $69.95 

REMASSEM-1(disk, only $74.95 

NOW AVAILABLE FOR MODEL 3 
REMASSEM-3(iape) $74.95 

REMASSEM-3(disM $79.95 



LEARN TRS-80° 

ASSEMBLY LANGUAGE 

DISK I/O 



Your disk system and you can really step out 
with REMSOFT'S EducatiE>nal Module, 
REMDISK-I, a "Short course" revealing the details 
of DISK I'O PROGRAMMING using assembly 
language. intended for the studenl with 
experience in assembly language. 
COURSE INCLUDES: 
■ T/zo 45-minute lessons on audio cassette 

• A driver program (o make your TRS-80' video 
monitor serve as a blackboard for the instructor. 

• A display program for each lesson to provide 
illustration and reinforcement for what you are 
hearing, 

• A booklet of comprehensive, fully commented 
program listings illustrating sequential file I O 
random-access file I O. and track and sector i O. 

• A diskette with machine-readable source codes 
for all programs discussed, m both Radio Shack 
EDTASM and Macro formats. 

• Routines to convert from one assembler format 
to the other. 

Presently available for mode! 1 only 
REMDISK-1 only $29.95 

Dealer inquifies invited 

These courses were developed and recorded by 
Joseph E. Willis and are based on the successful 
series of courses he has laughl al Meta 
Technologies Corporation, the Radio Shack 
Computer Center, and other locations in Northern 
Ohio. The minimum system required is a Level II 
■■BK RAM 



REMSOFT, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216) 531-1333 



SHIPPING CHARGES: ,„„ 

$2.50 WITHIN UNITED STATES ■'"'•^^ 

S5.00 CANADA AND MEXICO 

OTWER FOREIGN ORDERS ADD 20°o 
OH'O RHSIDENTS ADD6'!% SALES TAX 

TRS-6^0' IS A TRADEMARK OF TANDY CORP 




^See Lisl ot Advertisers on Page 455 
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DO YOU WANT TO: 

1. I UAD MfiTRI); FROM TAPE 

2. LOAD RAW DATA FROM TOPE 

3. ENTER RAW DATA FROM KEYBOARD 

YOUR CHOICE? 



Fig. 1. The Initial Prompt 



to do this, it is necessary that the 
number of observations be greater than 
ihc number of variables in each 
observation. 

In addition to the regression equa- 
tion, the program calculates various 
statistics on the data, and on the 
goodness of fit of the regression equa- 



DO YOU WANT TO USE TRANSFORMATIDNS ON RAW DA I A (V/N)' 
DO YOU WANT TO ENTER TITLE FOR OUTPUTS <y/N)? Y 
ENTER TITLE FOR OUTPUTS, UP TO t3 CHARACTERS 
? REGRESSION ANALYSIS TRIALS 

MAXIMUM NO. OF RAW OR TRANSFORMED VARIABLES = 13 

NO. OF RAW VARIABLES ? O 



Fig. 2. Next Prompts 



YOUR FNTRY OF 'O' IS ILLEGAL 

RAW VARIABLES 

THE NUMBER OF VARIABLES TO ENTER IS THE NUMBER OF RAW VARIABLES, 
INCLUDING BOTH INDEPENDENT AND DEPENDENT VARIABLES. BUT WITHOUT 
COUNTING THE DERIVED VARIABLES THAT MAY BE FORMED LATER BY USINB 
THE TRANSFORMATION ROUTINES. THE MAXIMUM NUMBER OF VARIABLES 
THAT CAN BE USED IS I IMITED BY THE AVAILABLE MEMORY TO 13 . 

NO. OF RAW VARIABLES ? 3_ 

Fig. 3. Due to the previous illegal entry, instructions on the "No. oj Raw Variables" to enter 
are given and you gel a second chance to make your entry. 



Announcing 



STOCKVUE 



The first comprehensive "what If" program designed 
just for the stock market Investor. 

STOCKVUE confers enormous decision-making ability to anyone 
who trades in stock and/or options. 

Basically the program provides, in spread sheet format, calculations 
of dividends, interest (margined trades}, trade commissions (based 
on user's choice of full-service or discount broker), and exact open- 
ing cost according to SEC rules on margin requirements. 

You provide information related to the opening trade plus a couple of 
hypothetical figures: a future date for closing the position and a likely 
price for the stock on that date. The program quickly posts all the 
details and the bottom line — net return on investment. 

Then other variations are easy to consider, just by moving to the in- 
put variable of your choice and changing it. STOCKVUE Instantly 
recalculates and displays the new answer— like VISICALC! 

Versions available: IBM PC, TRS-80 111, CP/M. Price $129.95, tax- 
deductable. VISA and MasterCard welcome. 

Other programs available from Star Value Software: OPTIONVUE— 
for trading option spreads, straddles, and combinations; OPVALU— 
for assessing the fair market value of call and put options. 

Call or write for more information; 



m/i)M \mLw 



12218 Scribe Drive, Austin, TX 78759 
Phone 512/837-5498 



tion to the data. Sec Table 1 for a brief 
explanation of these statistics. 

Sample Problem 

The easiest way to show this is by an 
example. Table 2 shows 16 observations 
of three variables each. These variables 
are arbitrarily called length, width, and 
height. Length and width are designated 
as independent variables, and height is 
the dependent variable. 

Now load the Program Listing. 
When run, the program presents the 

prompt shown in Fig. 1 . Since we have 
nothing on tape yet, we press 3. Then 
answer the following prompts shown 
in Fig, 2, N (no transformations) and 
Y (enter title). Throughout the pro- 
gram, for all Y/N questions, pressing 
enter without any entry means N. 

After we enter the title, the program 
checks the amount of memory avail- 
able, and tells us that we can use up to 
13 variables in the regression (for a 16K 
TRS-80). At this point, we enter zero 
(or a letter, or just press enter), and get 
the explanation of Fig. 3, and another 
chance to key in the number of raw 
(non-transformed) variables that we 
wish to enter. 

After entering 3 in the original 
prompt, we have a chance to assign 
names to each of the variables. As 
shown in Fig. 4, each variable name 
may have up to 10 characters, as de- 
fined by the string of 10 periods. The 
dependent variable must be put last 
(either now, or moved to last later by 
using the transformadons). 

Normally, we will want to save the 
raw data on tape so it won't have to be 
keyed in again for later use. Also, it is 
necessary to have the data on tape to 
run a residuals analysis, a comparison 
of the actual and estimated values of the 
dependent variable. 

The variables for each observation' 
are entered in the form shown in Fig. 5; 
the observation number, variable 
number, and variable name are speci- 
fied by the prompt, so you always know 
exactly which data you should enter. 
After the data for each observation are 
entered, you may check them for accu- 
racy, and if necessary, change them. 
Pressing enter without entry of any 
number terminates data entry (with, of 
course, a chance for you to recover if 
enter was pressed by mistake). 

After data for each observation are 
entered, they may be saved on tape or 
listed on a printer (Fig. 6), in addition to 
being used to update a matrix saved in 
memory. After the last observation has 
been saved on tape, the value of -9999 
is written on tape as an end-of-data 
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marker. 

When all data have been entered, the 
program does some calculations, then 
displays a table of means and standard 
deviations for all variables. This and all 
subsequent display tables may be 
printed out. You may also display (and 
print) tables of correlation coefficients, 
the inverse matrix, and partial correla- 
tion coefficients {see Table 1 for 
explanations). 

The correlation coefficient matrix 
must be inverted before the regression- 
analysis results can be calculated. 
Matrix inversion is analogous to taking 
a reciprocal, and like trying to take the 
reciprocal of zero, sometimes fails. If 
this occurs, a "matrix singular" mes- 
sage is given and the program halts. 
This may be caused by errors in data en- 
try or in transformations; these may 
leave one variable that is actually con- 
stant, or two variables that are the 
same, or three variables that add up to a 
constant, and so on. 

Both the preliminary calculations and 
the matrbc inversion display changing 
numbers on the video display, repre- 
senting the variables being worked 
upon, to reassure you that the pro- 
gram hasn't hung up. For large prob- 



lems, these calculations may take sev- 
eral minutes. 

Now back to our sample problem: 
The data that we have just entered ap- 
pear amenable to a three-variable 
regression analysis, so let's try it. As 
shown in Fig. 7, this doesn't work very 
well; the standard error of estimate of 
6.7 is almost the same as the standard 
deviation of 7.0 of the dependent 
variable (the "standard error" before 
the regression was run). An R squared 



of 0.21 shows very poor predictive abil- 
ity, and an F ratio of 1.7 (probability of 
0.78) indicates a 22 percent chance that 
equally good results could have been 
obtained from random data. 

What do we do now? Well, we ran a 
linear regression, and most real data are 
not linear. One of the easiest ways to in- 
troduce non-linearity into the regression 
is to add power terms; in this case, let's 
try adding the squares of each of the 
two independent variables, making a 



PUT DEPENDENT VARIABLE LAST 

RAW VARIABLE NO. 1 
RAM VARIABLE NO. 2 
RAM VARIABLE NO. 3 



NAME = ? LENGTH 

NAME = ? WIDTH 

NAME = ? 



Fig. 4. If you choose lo assign ' ' Variable Names ' ' to the raw variables, you receive rhese prompts. 



ENTER DATA FDR EACH OBSERVATION: 
(PRESS <ENTER> TO QUIT> 

□BS . NO . 1 

VAR. NO. 1 'LENGTH' VALUE = ■? 2 

VAR. NO, 2 'WIDTH' VALUE = ? 5 

VAR. NO- 3 'HEIBHT' VALUE = 7 15 

DO YOU WANT TO CHANGE DATA FOR THIS OBS. (V/N)? _ 

Fig. 5. The data entry prompt shows the observation number, the variable number, and the 
variable name for each number to be entered. 



Ability. 
Library Commands 

1 . All ol TRS-DOS commands 

2. Lower case options 

3. Varible track support 
(35-80) 

4. Plus many more ... 

Utility Command 

1 . Alt of TRS-DOS commi 

2. Purge at! files not needeo 

3. Terminal control as to 
communication witfi 
another terminal 

4. Plus many more . . , 

Languages 

1. Extended basic 

2. Edtasem - Editor Assembly 

3. Plus many more , . - 

Write or call us now for the best 

investment of your life. 

POS MODEL I. Hand III $85.00 



3 




ruE GREATEST OPERATING SYSTEM 
UNDER THE SUN 

All application program provide introductory 
discoun! - 20% off, 



)S is truly the operating 
stem that fias the other DOS 
at in price and ability. ^ 
her available Software f 
M. II. and III 

1. AR Osborne ! 

2. A P Osborne . S350 

3. GL Osborne $350, 

.4. PR Osborne .. . $400, 

5. ACTI- AR, AP, 

GL $850 

6. ACT II- A R, A P, 

GL. PR 1200. 

7. Inventory Control I $150 

8. Inventory Control II .$250. 

9. F fvl (creates 
'programs) $80. 

10. Wordit (mailing list and 
word processing) . $150, 

1 1 . Letteril (word 
processor) $35, 

12. Sort $45, 

13- And much more .... Call 



Ab an mtroduclory offer you can try POS for 10 days for only £25 00 If your no! 

satisfied, return the Diskette and manual for a refund, ot send 560.00 lor ttie Master 

Diskette whicti car be backed up 

1 day trial Diskette w-'manual . , , , .... £25 

Master POS ,.-. S60 

Or |ust Day S65 



USAGE SOFTWARE GROUP 

SOFTWARE with SUPPORT 
inOB Shadow Run Drive 
Lakeland, PL 33803 -'509 

(813).644-2038 
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five-variable regression. To do this, we 
use transformations. If we rerun the 
program and answer Y, we want to use 



transformations, and Y, we want to 
enter new transformations, we are 
shown the set of instructions in Fig. 8. 











Regression Analysis Trials 














NAMES OF 


RAW VARIABLES! 






1 LENGTH 


2 


WIDTH 


3 


HF. I GHT 














DATA FOR 


EACH OBSERVATION: 






DBS. 


NO. 


1 




2 


2 


5 


s 


it 


DBS. 


NO- 


^ 




13 


2 


£l 


s 


22 


DBS. 


NO. 


,>. 




7 


2 


1 


3 


12 


DBS. 


NO. 


4 




5 


2 


10 


3 


s 


□B5. 


NO. 


5 




14 


2 


3 


3 


12 


QBS. 


NO. 


b 




6 


2 


5 


3 


19 


DBS. 


NO, 


7 




It 


2 


1 


3 





OBS. 


NO. 


B 




1 


2 


9 


3 


3 


DBS. 


NO. 


9 




4 


2 


4 


3 


15 


QBS. 


NO. 


10 




15 


2 


B 


3 


20 


DBS. 


NO. 


11 







2 


O 


3 


5 


OBS. 


ND. 


12 




!0 


2 


b 


3 


21 


OBS. 


NO. 


13 




11 


2 


7 


3 


22 


OBS. 


NO. 


lA 




12 


2 


•9 


3 


20 


OBS. 


NO. 


15 




3 


2 


2 


3 


12 


OBS. 


NO. 


16 




■? 


2 


4 


3 


le 


DBS. 


NO. 


17 




-9799 


2 





3 


Q 


Fig. 6. The lille, variahk 


names. 


and data for eac 


h observation may he printed out as the data 


are entered, or as they are being 


read from tape. 


The raw data are sho 


wn here, but the trans- 


Jormed data could he printed instead. Note that 


1 dumm 


V ohservation No. 


/ 7 has been added 


to the sample data. 


with the ■■ 9999 end-of-data marker 













Regression Aniilvsis Tr 


als 












NO. IND. VAR.'^ 


? DEP 


VAR.= 3 HEIGHT 




NO- DBS 


= 


1& 






S.E.FST.' (y.bfiei, R SQ 


=.209760 EQ.F= 


1 . 725 PROB 


=0 


784 






NO . VAR . NAME 


BETA COEF. 


EQ. COEF. COEF.F 


PROS. 


NV 


DIAG 






1 LENGTH 


CI. 3O0947 


0.404752 


1.474 


0.755 


1 


Oil 






7 WIDTH 


0.31Sb9i! 


U. 714453 


1.621 


0.776 


1 


Oil 






EQUAT I ON 


CONSTANT = 


7. 189723 












Tis 


8. The transformation instructions and the current transformation subroutine are sho 


wn if 


you 


want to enter a diff 


<irent set of transformations. 













If we then replace line 5010 with 

something hke: 

5010 V(5) - V{3) : V(4) = V(2)* V{2) : V(3) = V(2) 
:(V2)-V{1)*V(1) 

we are ready to go, using the raw data 
that we have already saved on tape. 
Since we are now using transforma- 
tions, we are changing the variables that 

are to be used, and are given a chance to 
rename the variables (see P'ig. 9). 

Does this solve the problem? Well, 
no. As shown in Fig. 10, wc have im- 
proved the standard error of estimate, 
the R squared, and the probability. 
However, the very high values for the 
inverse diagonal mean that we can't 
determine the importance (beta coeffi- 
cients) or the significance (F ratios, 
probability) of the different variables. 

What do we do now? The problem is 
that the way in which we formed the 
square terms caused them to be highly 
correlated with the original variables. If 
we can eliminate this correlation, we 
should be all right. One way to do this is 
to subtract the approximate mean from 
each variable before squaring it. The 
ideal value to subtract depends upon the 
variable's distribution, but that's 
another story. On this data, it so hap- 
pens (was planned that way) that sub- 
tracting the mean does the trick. That 
is, make line 5010 in the transformation 
subroutine look like: 



TRANSFORMATIONS 

TRANSFORMATIONS ARE ANY CALCULATIONS PEra^ORMED UPON THE DATA TO 
CHANGE ITS FORM. INCLUDED ARK SUCH THINGS AS SOLifiNeS AND CUBES 
OF THE VARIABLt-iS, CROSS PRODUCTS, SQUARE ROOTS, LOGARITHMS, ETC. 
TO PERFORM THESE CALCULATIONS AUTOMATICALLY ON EACH OBSERVAMON 
ENTERED, THE APPROPRIATE 'BASIC^ STATEMENTS MUST BE ENTERED INTO 
THE SUBROUTINE THAT STARTS AT PROGRAM LINE 50OO. 

BOTH RAW AND TRANSFORMED VARIABLES ARE SUBSCRIPTED VftRIABLE 'W. 
I.E., TO ADD VARIABLE 3 TO VARIABLE 4 TO MAKE V^WtlABLE 5 USE: 

V<5>=V(3)+Vi4) 
THE NUMBER OF TRANSFORMED VARIABLES MAY BE GREATER THAN OR LESS 
THAN THE NUMBER OF ORIGINAL RAW VARIABLES. DEPENDENT VARIARLE 
MUST BE LAST. YOU WILL NOW BE SHOWN THE OLD TRANSFORMATIONS, 
AND RETURNED TO "BASIC TO ENTER YOUR NEW TRANSFORMATIONS. 
PRESS ANY KEY TO CONTINUE 

5000 * TRANSFORMATION SUBROUTINE 

5010 V(6>=V(3) !V(5) = <V(1)-7)«(V(2) -4.5) : V (4) = ( V < 2) -5) C 2 : V ( .M = 

V(2) !V(2) = (V( 1 )-e* LI 

9000 RETURN 

READY 

>_ 

Fig. 7. A first, three-variable regression trial of the sample data, showing very poor fit to the 
data and poor significance - 



VAR. NO. 1 NOW = 'LENGTH' 

VAR. NO. 2 NOW = 'WIDTH' 

VAR. NO. 3 NOW = 'HEIGHT' 

VAR. NO. 4 NOW - ' ' 

VAR. ND. 5 NOW = ' ' 



l«W = ? 

NEW = "^ LENGTH SQ. 

NEW = '} WIDTH 

NEW - -^ WIDTH 3Q. . 

NEW = ? HEIGHT 



Fig. 9. If transformations are used, the variable names given when the data were entered will no 
longer be correct. You are therefore given a chance to change the variable names. If a name 
does not need to he changed, just press enter and that name will he left unchanged. 



5010 V(5) = V(3):V(4) = (V(2)-5r2 
; V(3) = V(2):V(2) = (V(l) - 8)^2 

Now we get the regression-analysis 
results shown in Fig. 1 1 . The overall 
equation statistics are essentially the 
same, but now the low values for the in- 
verse diagonal show that the beta coef- 
ficients and coefficient F ratios (and 
probabilities) actually give the impor- 
tance and the significance of their re- 
spective individual variables. 

Is this the best we can do? There is 
one more thing that sometimes helps: 
Check for interactions. See if the effect 
of one independent variable depends 
upon the level of another independent 
variable. To do this we form the prod- 
uct of the two variables and use the 
product as an additional independent 
variable. As before, we should subtract 
the approximate mean from each vari- 
able prior to multiplication to reduce 
the correlation between each variable 
and its product. The transformation 
equations to form this six-variable re- 
gression from the original three vari- 
ables are shown in the Program List- 
ing, hne 5010. Note that the best 
values to subtract are slightly different 
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Slaymg Monsters 
Is No Game. 



Role-playing games are a serious business. They take thought 
and strategy, skill and luck. Your computer role-playing 
games should help you, not slow you down. In this day 
and age, there is no excuse for games written In BASIC. Fio 
reason to put up with endless delays for disk I/O. /Vo 
tolerance for looking up data in books. That's wh" "^ 

Med Systems does role-playing right. The Warrior i 
RAS games are 0^jrely implemented in 48K, ^ 
with machine latf^a^g^speed and dunaeon- ^ 
master complexity. Ifyi^n take your gamiP" 
seriously, why settle for anything lessli 
The Warrior of RAS triloigy.hon'tjust \ 
play games. Master a u' ' 




Each volume of 
the Warrior of 
RAS trilogy is a 
self-contained 
game. Characters 
from one game 
can be loaded into 
all others. They 
require 48K of 
RAM on the TRS- 
80 Model I or 
Model III. 



...-.- /^r 



C^^ 




I 




Volume I: DUUZHIH Tape or Disk $29.95 

Volume II: KAIV Tape or Disk $29.95 

Volume III: THE WYLDE Tape or Disk $29.95 



MED SYSn^S SOFTWARE • p.o. Box 3553 • chapeiHUi^isc 27514 

To order Call 1 ■800-334-5470 

Please add $2.00 for first class postage, $4.00 for overseas orders. Mastercard and VISA accepted. 



Regression Analysis Trials 
NO, IND.VAR.= 4 DEP.VAR.= S HEIGHT hH3.0BB.= 16 

S.E.EST.= ■». 40456 R 5B, =.710835 EQ.F= 6.760 PR0B.=0.'?94 



NO. VAR.NAME 

1 LENGTH 

2 LENGTH Sa 
-3 WIDTH 

1 WIDTH SQ 



BETA CCEF. 
1.630431 

-1 . 477005 

1.942440 

-1. 775158 



EQUATION CONSTANT = 



EQ. CDEF. 

2. 192807 
-O. 120116 

4.397385 
-O . 386407 
-1.641156 



COEF.F 

4.805 
4. 130 
8,068 
7. 113 



PROB. 
0.951 
0.935 
0.985 
0.979 



INV.DIAG 
21.044 
20.092 
17.790 
16.854 



Fig. 10. A second, five-variable regression irial of the sample data, showing a better fit than 
Fig. 7 due to the addition of non-linear "square" terms to the independent variables. 



Regression Analysis Trials 
NO. IND.VAR.= 4 DEP.VAR.= 5 HEISHT Na.OBS.= 16 

S.E.EST.= 4.40458 R SQ. =.710835 EB, F= 6.760 PROB. =0.994 



NO 


VAR . NAME 


BETA COEF. 


EQ. 


COEF. 


COEF . F 


PROB. 


INV 


DIAB 


1 


LENGTH 


0.201460 





27094S 


1.428 


0.744 


1 


OBI 


2 


LENGTH SO 


-0.373613 


-0 


120116 


4- 130 


0.935 


1 


2B6 


3 


WIDTH 


0.235581 





5333 1 a 


1.930 


O.BIO 


1 


094 


4 


WIDTH SQ 
EQUATION 


-O. 487776 
CONSTANT = 


-o 

15 


3B6407 
706446 


7, 113 


0,979 


1 


272 



Fig. U. A third, five-variable regression (rial of the sample data, showing reasonable inverse 
diagonal values and accurate statistics on the variables. 



Regression Analysis Trials 



VAR. 


NO. 


VAR . NAt^ 


MEAN 


STD. DEVIATION 


1 




LENGTH 


8 . 00000 


5. 21536 


2 




LENGTH SQ 


25 . 50000 


21. 81743 


3 




WIDTH 


5.00000 


3 . 09839 


4 




WIDTH SO 


9.00000 


8. B5438 


5 




LEN X WID 


2.06250 


17.27800 


6 




HEIGHT 


1 4 . OOOOO 


7,01427 



Fig. 12. Final, six-variable regression results, showing the means and standard deviations of 
each variable. An interaction or cross-product term has been added. LEN X WID. 



for the interaction term than for the 
square terms. 

The final regression-analysis results 
are shown in Figs. 12, 13, 14, 15, and 
16. The correlation coefficients to Fig. 
13 show that there is zero correlation 
between each original independent 
variable and its square, and low corre- 
lation between each original indepen- 
dent variable and its product. Each 
variable is, of course, perfectly cor- 
related to itself. The partial correlation 
coefficients of Fig. 15 show the dif- 
ference between correcting for the ef- 
fects of other variables versus ignoring 
them (Fig. 13). 

The actual regression analysis, Fig. 
16, shows far better results than any 
previous trial. The standard error of 
estimate is now less than 1 .0 (versus 4.4 
previously), and the R squared of 0.98 
shows that over 98 percent of the varia- 
tion of the dependent variable is now 
explained by the regression equation 
(versus 71 percent on the previous 
trial). The inverse diagonal elements 
are still near 1.0, indicating that the 
beta coefficients, coefficient F ratios, 
and probabilities are reliable. 

Now that we have a good regression 
analysis of this data, we should check 
the residuals to see if any individual 




, EPSON 

^ MX-80ANDMX-100 

OWNERS 



MXPLUS^" GIVES YOU 
CONTROL OF YOUR PRINTOUT 

• SELECT CONDENSED, BOLD, OR WIDE 
PRINT INSTANTLY USING THE PRINTER 
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INDENT TO AUTOMATICALLY FORMAT YOUR 
PRINTOUT INTO NEAT PAGES THAT CAN BE 
PUNCHED AND BOUND. 

MXPLUS™ INSTALLS IN MINUTES, NO SOLDERING! 

MXPLUS IS A PLUG-IN MODULE FOR ALL EPSON MX-80/100 
PRINTERS AND IS COMPATIBLE WITH ALL INTERFACE BOARDS, 
MXPLUS HAS A 1 YEAR WARRANTY. 



ORDER TODAY 

ORDERS CALL 34 HR. a0D-835-ZZ4Gx441 
INFORMATION CALLZlS-SBg-ZZSO 
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AZUSA. CALIFORNIA 91702 
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DAISY WHEEL PRINTERS 



SMITH CORONA TPI 
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observation is in error. It is always 
possible that the value recorded for 
some variable is ineorrect. To check 
this, let's examine the residuals, Fig. 
17. To get these results, the program 
must reread the original raw data from 
tape and calculate the dependent 
variable as estimated from the regres- 
sion equation. The residual is the dif- 
ference between the measured and 
estimated values of the dependent 
variable, while the normalized residual 
divides the difference by the standard 
error of estimate, to put the residuals 
into a normal distribution scale. This 
should have 68 percent of its values 
between - 1 and + 1, 95.5 percent be- 
tween -2 and +2, and only 0.3 per- 
cent outside the -3 to +3 range. 

As you can see by looking at the last 
column in Fig. 17, approximately the 
correct number of normalized residuals 
(four versus an ideal five) are outside 
the - 1 to + 1 range, and none are very 
large. This is quite reasonable for this 
small number of observations. 

Ideally, the sum of all the residuals 
should be zero. Since computer calcula- 
tions are not perfectly accurate, we can 
only expect the sum of residuals to be a 
very small number. The - 14 exponent 
to the sum of residuals in Fig. 17 does 



show that the value is close to zero. (The 
decimal point of the number must be 

moved 14 places to the left.) 

After the residuals analysis is com- 
plete, the listing of the transformations 
used is printed out, see Fig. 17 (if both 



printer and transformations were used). 

Evaluating Regression Results 

in this sample problem, we had to 
add variables to the regression in order 
to get a satisfactory result. It is equally 



1 . oooooo 

0.33347B 
1 . OOOOOO 
1 . OOOOOO 
1 . OOOOOO 
1. OOOOOO 
1 . OOOOOO 



Regre&sion Analysis Trials 

SIMPLE CQRRELfiTION COEFFICIENT MATRIX 

1 2 O. OOOOOO 1 3 0.103140 1 4 -O. 220BB1 



-0,241621 
0.000000 

-0.002B32 
O . 5S0364 



O. 38B240 

0.004359 

-O. 677326 



2 5 -0.069945 

3 6 0.346632 



1 5 -0.01)837 



2 6 -0.(>l'iW9 



Fifi, 13. Final, six- variable regression results, showing correlation coefficients of all pairs of 
variables. Note thai ihe correlation of each original variable with its square is zero, and that the 
correlation of each original variable with its cross-product is low, due to the subtracting ofcon- 
stams before forming these terms. 



Retjrts^i on Anal ysis Trials 
INVERSE OF MATRIX PLUS BK1A CnEFFICIENTS 
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oeov'i'o 
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-0. 1479S4 


1 4 


0.297387 


1 5 


0.003725 





203412 
























292B70 
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-''i 


O. 327581 
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-0.535043 


2 5 


0.085700 


2 6 


-0.328699 




094340 


3 


4 


-0. 159821 


3 


5 


0.015939 


3 6 


0.243936 








273330 
O05890 


4 

5 


5 


-0.029600 

0.527293 


4 


6 


-0.503292 












OOOOOO 























I'ig. 14. Final, six-vanahle regression results, showing inverse matrix of the independent vari- 
ables plus the beta coefficients. Note that the values are of roughly similar magnitude, indicat- 
ing a well conditioned luairlx. 




FEATURES 



1. 568K oi siorage on a single sided 8 inch drive, when used wilh our 
controller & speedup MOD and DOS plus 3.4. 

2. The maximuin storage capacity of your Modol 3 will be 4 '■>44 Migj- 
faytes - without a hard disk. 

3. One SVi single sided and one 8 inch single sided drive will store 676K, 
with a full blown DOS plus 3.4. 

4. One SW single sided and one 8 inch double sided drive will store 1.244 
Megabytes, with a full blown DOS plus 3,4. 

5. Mix and match 5W and 8 inch drives, in any density, siJij;le oi double 
sided. - All under software control. 

We will also be able to provide DOS plus 3.4 on 8 inch diskettes. (Final 
price being negotiated). 

1, Speedup for 8 inch drives only $ 89 

2. General purpose speed-up, which also 

works with 8 inch drives S1^9 



We Have Done It Again! ! ! 

We said we had the best system, and now . . 
8 inch double density is here for the 

jkyi ~ J^l III f Here's three good reasons to buy our system: 

1. VERSATILITY 

Our own proven, dependable drive contfoiler will give you the hardware 
to run almost any drive configuration you can imagine: 

• 5W and B inch drives in any combination. 

• Internal/external drive combinations {Up to all 4 drives external). 

• Single - and dual - headed drive combinations. 



2. QUALITY 

• We use quality drives - MPI and now new generation Siemens. 

• We construct our own disk drive installation kits of heavy steel -no 
shielding Problems! 

• We are now using a field proven switching supply. 

3. PRICE (including installation and 90 day warranty) 

■ Drive controller kit with first drive $579 

• Second (internal drive) S279 

• Third drive (SV. flippy with cable) $359 

• Fourth drive (5W flippy) $329 

[f these sound likegooddeals, but you don't have the Model III yet, we've 
got the answer. 

TRS-SD Model III, 48K TRS DOS. 2 drives $1G'>9 

TRS-SO Model III, 48K, TRS DOS,2 drives, Epson MX-80 S2428 

Model III, 32K $ 899 



We Accept Vhs. & Mastercard 

rP ProcG// Control Technology ^'^'■^'^^- ^^ ^^^^ ^^^^^ ^^r you tooi 

^r a030 Lorraine Ave., Suite 328 • Stockton, California 95210 • (209) 952-6576 ^^288 
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common to delete variables. But how 
do we know which variables to delete? 
That is easy; just look at the F ratio for 
each coefficient. If it is less than 1.00, 
that variable should always be deleted, 
as its inclusion will increase the standard 
error of estimate (even though it will 
always improve the R squared). 

if it is greater than 1 .00, you must use 
your judgement: How confident are 
you that the variable is actually signifi- 
cant? If you want to be 90 percent sure, 
use only those variables whose proba- 
bility is 0.900 or higher. If it's lower, 
delete that variable and rerun the re- 
gression. Now aren't you glad that you 
saved the original data on tape? A num- 



ber of runs may be needed to finally get 
a satisfactory regression. 

Sometimes we have variables to eval- 
uate that are not readily expressed as 
numbers^four different types of treat- 
ment, for example. How do we handle 
that? We could call them treatments 1 , 
2, 3, and 4, and then use Unear, square, 
and cubic terms. A much better way is 
to set up three dummy variables, and 
then consider one of the treatments as 
"standard." Then if treatment 1 is 
used, all three dummy variables are set 
to zero; if treatment 2 is used, the first 
dummy variable is set to one, and the 
others zero. If treatment 3 is used, the 
second dummy variable is set to one, 



2 O, 1276S'? 

3 -0.2754OC) 

4 0.]3S3'?0 

5 0.O26155 



Regression Analysis Trials 
PARTIAL CORRELATION COEFFICIENT MATRIX 

O. 13i059 1 4 -0.25347B 1 5 -0.00357: 

O.4170O5 2 5 -O.O75150 
-0.01519J 



Fig. !5. Final, six-vuriabte regression results, showing partial correlation coefficients of all 
pairs of independent variables. Note that these differ somewhat from those shown in Fig. 13, 
due 10 the complex interrelationship between variables. 



NO. IND.VAR.- 


5 DEP 


VAR.= 6 HEIGHT 


NO . DBS 


= 


!6 


S,E.EST.^= .970175 R SQ 


=-987246 EQ. 


F= JS4.B15 PROB 


= 1 


OOO 


NO. VAR.NflME 


BETA CQEF. 


EQ. COEF. 


COEF . F 


PROB. 


NV 


BIAS 


1 LENGTH 


0.203412 


0.273574 


30 . 1 1 


1 . 000 




081 


2 LENGTH SQ 


-0.326689 


~0. 105673 


65. 520 


l.OOO 




293 


3 WIDTH 


0.243936 


0.SS2233 


42.634 


1 . 000 




094 


4 WIUfH SQ 


-0.503292 


-0. 3786'?9 


155.976 


J . 000 




273 


5 LEN X WID 


O. 527293 


0.214063 


216.726 


l.OOO 




006 


EQUATION 


CONSTANT = 


14.991 686 











Fig. 16. Final, six-variable regression results, showing very good fit of the regre.ssion equation 
lo the data, and very good significance of independent variables. Note that a probability of 
l.OOO does not mean certainty thai the results could not have been obtained by chance from 
random data, but only better than a 0.9995 probability (due to rounding). 







Regression 


Analysis Trials 








RESIDUALS OF 


DATA VS. ESTIMATES | 


OBS.» 


DEP. VAR. 


EST. DEP. VAR. 


RESIDUAL 


NORMALIZED 


1 


15 


13.B606 


1. 1393B 


1- 17441 


2 


22 


20.6476 


1.35241 


1 . 39399 


3 


12 


10.B741 


1. 12591 


1. 16053 


4 


8 


B. 50867 


- . 50B673 


-.524311 


5 


12 


12.7317 


-.731744 


-.754239 


6 


19 


IB. 7646 


. 235427 


. 242664 


7 





-.0641159 


. 064 1 1 59 


. 066087 


8 


3 


2.79BS1 


.201489 


. 207683 


9 


15 


1 6 . 4265 


-1.42654 


-1 .4704 


10 


20 


20.64O7 


-.640652 


-.660347 


11 


5 


4 . 904 1 2 


. 0958779 


.0988254 


12 


21 


21.0827 


-.0827178 


-.0852607 


13 


22 


21.3614 


.638591 


. 658223 


14 


20 


19.B911 


. 108861 


. 1 12208 


15 


12 


12.7274 


-.727388 


-.749749 


16 


18 


18,8444 


-.B443S2 


-,B70309 




SUM OF RESIDUALS 


= -3.577!2E-!4 








Reg r ess i on 


Analysis Trials 




3000 


TRANSFORMATION SUBROUTINE 




SOlO V(6)=V(3) : 


V<5)=(V(l)-7)t(V<2)-4.5> !V(4) 


=(V<2)-5)C2 :V(3)=V(2) :V<2)=(V<1) 


-B) 12. 










9000 RETURN 








Fig- 17 


Final, six 


variable regression results, showing 


comparison between the actual values 


of the dependent variable and those predicted from the regression equation. Fig. 16. Note \ 


that the transformation subroutine 


is printed following the last regression printout to give a \ 


permanent record. 









and the others zero. If treatment 4 is 
used, the third dummy variable is set to 
one, and the others zero. This can be 
done easily by using the transformation 
subroutine. Then the magnitude and 
significance of the difference of each of 
the other treatments from the "stan- 
dard" treatment 1 is readily determined. 

On your own problems, if some in- 
dividual observations are outliers (have 
very large residuals), and appear to be 
in error, you may wish to rerun the re- 
gression analysis without them. To 
make this easier, it is possible to delete 
up to 50 different observations as the 
data are being read from the tape. These 
observations are noted as deleted on 
all outputs. 

Now that we have a good regression, 
what do we do with it? We can look at 
the beta coefficients to see which inde- 
pendent variables are important to the 
dependent variable (have greatest ef- 
fect). A beta coefficient of 0.5 indicates 
that as that independent variable moves 
one standard deviation, the dependent 
variable will move 0.5 of its standard 
deviadon. (A beta coefficient greater 
than 1 .0 indicates an error in how the 
regression was run.) The coefficient F 
ratio and its probabihty then measure 
the significance of the effect shown by 
the beta coefficient. It is possible lo 
have high importance with low signifi- 
cance, or the opposite. 

Perhaps you want to see what value 
the dependent variable is estimated to 
have at some level (or levels) of the inde- 
pendent variables. You could calculate 
this manually, adding the equadon con- 
stant, plus variable one times equadon 
coefficient one, plus variable two times 
equation coefficient two, and so on. 

This becomes tedious and error 
prone, especially if transformations 
were used. Why not let your computer 
do it? It's much simpler to key in syn- 
thetic data with the desired values for 
the independent variables, and save it 
on tape as a raw data file. Then use this 
synthetic data in place of the real data 
for a residuals analysis. While the other 
values will be meaningless, the Esti- 
mated Dependent Variable column will 
have the desired values. 

A plot of the sample problem made 
in this way is shown in Fig. 18. Now you 
can visualize what the data mean. 

A caution: Assuming that your 
regression equation is quite significant 
with an overall probability of nearly 
1 .0, interpolation (predictions with 
values within your data set) is fairly 
reliable. However, extrapolation (pre- 
dictions using values beyond those in- 
cluded in your data set) becomes 
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increasingly uncertain as you leave your 
known area. 

Program Limits 

Up to 9999 observations may be 
used. This limit is due to the formatted 
space for printing the observation num- 
ber, not to a calculation limit. I thought 
that few users would wish to key in over 
9999 observations! 

On a 16K TRS-80, up to 13 variables 
{including the dependent variable) may 
be entered, or formed by using the 
transformations. If you need more, and 
do not wish to use trans formadons, you 
may delete lines 3350-9000 of the pro- 
gram, then enter up to 18 variables. If 
that still isn't enough, you may use the 
standard program compression tech- 
niques, such as deleting all spaces within 
the program and deleting all remarks. 
However, do not delete the lines con- 
taining the remarks, as they are refer- 
enced by GOTOs and GOSUBs. 

A 32K TRS-80 tape system can ac- 
commodate up to 45 variables, and a 
48K up to 63 variables. Disk systems 
hold fewer variables: 53 for a 48K disk 
system. 

Actually, it would not be too prac- 
tical to key in and run such large 
problems directly, due to the time de- 
lay to update the matrix after each 
observation has been entered. With 
13 variables, it takes about four sec- 
onds to update the matrix for each 
observation. This time increases ap- 
proximately as the square of the 
number of variables, to nearly a min- 
ute for 45 variables. A better way 



Height 



"This program checks 

the available memory, 

then dimensions 

arrays and clears 

string space to fit. " 



would be to use the transformation 
option to form a dummy three-vari- 
able matrix from your 45 variables 
while you are keying them in and re- 
cording them on tape. Then you can 
be doing something else while the 
program reads in all of the observa- 
tions from tape and forms the matrix 
you will use. 

Matrix inversion also takes apprecia- 
ble time for large problems. While a 
13-variable matrix will invert in only 
about 75 seconds, a 45-variable matrix 
requires nearly an hour; the time in- 
creases approximately as the cube of the 
number of variables. 

Calculation accuracy should not be a 
problem with this program. 

Calculations 

The calculation of regression analy- 
ses is very subject to error. On ordinary- 
looking data, the results may end up 




Length 

Fig. 18. Contour plot oj the surface generated by ihe regression equation of Fig. 16. This gives a visu- 
al indication of what the .sample data represented and shows why the preliminary trials failed 
to fit the. data. 



having no significant digits accuracy. 
This is due to the very large number of 
calculadons involved, especially those 
of subtraction. If even a little inac- 
curacy occurs during each calculation, a 
substantial error can accumulate. 

If two numbers of widely varying 
magnitude are subtracted, the result is 
accurate only to the extent that the sig- 
nificant digits of the two numbers over- 
lap. Conversely, if two numbers that 
are almost identical are subtracted, the 
result is accurate only to the extent that 
the leading digits of the two numbers 
are different. 

In this program, two methods are 
used to improve accuracy: The most ob- 
vious is to use double-precision calcula- 
tions. This increases the accuracy po- 
tential from six to 16 digits. In addition, 
accurate algorithms are employed. 
These methods seem self-evident, but 
are often ignored. 

As an example of more accurate al- 
gorithms, this program does not accu- 
mulate a sums-of-squares-and-cross- 
products matrix, then try to invert it. 
Instead, the matrix is adjusted for each 
added observation, then converted to a 
correlation coefficient matrix before in- 
version. This minimizes both subtrac- 
tion inaccuracies mentioned above. 

In calculating standard deviadons 
and correlation coefficents, it is neces- 
sary to find double-precision square 
roots. Since the Basic functions are only 
single precision, an iterative routine 
based on Newton's method is used to 
correct the square roots to 16-digit 
accuracy. 

Though most calculations are in dou- 
ble precision, many results are given in 
single precision for output formatdng; 
even though two to six digits accuracy 
are commonly lost during calculadons, 
the resuhs given will be correct. 

For convenience, this program 
checks the available memory, then dim- 
ensions arrays and clears string space 
(for names of variables) to fit. This not 
only allows the program to be used un- 
changed for 16K, 32K, and 48K 
TRS-80S, but it also automatically ad- 
justs for any machine-language printer 
driver, long transformation subroutine, 
and so on that you may be using. 

The CLEAR 50 statement in lines 
2560 and 2570 reduces the string space 
back to normal so the next program 
won't crash. ■ 



Delmar Hinrichs (2116 S.E. 377 
Ave., Washougal, W A 98671) is a re- 
search chemist. 



80 Micro, November 1982 • 111 



HARDWARE 



This month add 32K RAM. 



Hardware Hacker— Part II 



Philip M. Van Praag 

1630 West Jagged Rock Road 

Tucson. AZ 85704 



Add 32K memory to your 16K 
RAM Model I, Level II 
TRS-80forafull64KTRS-80:16K 
of ROM, video memory, and re- 
served/keyboard addresses; and 
48K of RAM. Combine this proj- 
ect with the Centronics-compat- 
ible printer interface {presented 
last montti) or disk controller 
projects (to be presented next 
month) or use it alone with the 
TRS-80 to enhance the opera- 
tion of your favorite programs. 

Consider Scripsit: While Ra- 
dio Shack advertises that the 
tape version of Scripsit func- 
tions with a 16K Level li system, 
they do not mention that 16K al- 
iovi/s only about one page of text 
in resident memory at a time. 
You can output each text page 



The Key Box 

Basic Level II 
Model I 
16K RAM 



to cassette as you type to ac- 
crue many pages, but manipula- 
tive ability (for example, global 
commands) is limited to the text 
currently in RAM. With this mod- 
ification, you can store over 
eight pages of text in memory 
using Scripsit. 

All circuitry for the modifica- 
tion (except the power supply) is 
contained on a single printed 
circuit (PC) board plugged into 
the 40-pin keyboard connector. 
You do not need to cut any 
TRS-80 circuit traces. If you 
have the older style keyboard 
(identified by key tops parallel to 
the desk top rather than con- 
toured toward the operator) you 
may mount the circuit board in- 
side the keyboard cabinet- The 
modification requires 16K of 
resident RAM; the 4K RAM ad- 
dressing scheme is incompati- 
ble with this circuit. You can 
also install V2 the total RAM ca- 
pacity now (doubling existing 
16K RAM) and add the other half 
later. 

How the Circuit Works 

The heart of this circuit is the 
4116 random access memory 
(RAM) device. It is arranged in a 
16K bit (actually 16,384 bit) by 1 
bit pattern and has 16K storage 
bins for single binary bits. By ap- 
plying a particular address to 



the 4116's seven address lines 
(A0-A6) we can access any indi- 
vidual storage bin. We may store 
a logic high or logic low bit at 
this address (i.e., write into this 
location) or see what is already 
stored there (read from this loca- 
tion). Since there are eight bits 
per byte in the TRS-80 eight 
RAMs allow 16K storage bins for 
the eight bit words. 

To minimize the number of 
pins on the 4116 integrated cir- 
cuit (IC), a multiplexing scheme 



is used for addressing. Storage 
bin selection is arranged in a 
column and row matrix. Figure 1 
illustrates this arrangement. 
The row decoder decodes the 
row address coming from A0-A6 
when told to do so by the row ad- 
dress strobe (RAS) signal. Seven 
address lines allow 128 possible 
binary combinations; each com- 
bination activates one of the 128 
row decoder output lines. The 
column decoder activates the 
appropriate column output line. 



RAS- 

CAS- 




Fig. 1. Multiplexed addressing of the 4116 RAM 





RAM 

Group 


Lowest binary address for eact) group 

MSB LSB 


Highest binary address for eacti group 

MSB Lse 


Equivalent Decimal 
Address Range 
(Base 10) 


A15A)4A13A12A11 A10 A9 A8 A7 A6 A5 A4 A3 A2 Al AO 


At5A14A13A12A11A10 A9 A8 A7 A6 A5 A4 A3 A2 Al AO 


(R/S Provided) 


010DOOOOOOOOOOOO 


111111111111111 


16364-32767 


Lower {New) 


1 OOOOOOOOODOOODO 


10 11111111111111 


32768-49151 


Upper (New) 


1 10000000000000D 


1111111111111111 


49152-65535 


Table 1. A14/A15 status with respect to RAM group selection 
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michael shrayer's 



word£i vcessing system 



Easy to Learn - Like lightning you will be up anckrurtning with a comprehensive and sophisticated word 
processor. Our manual says you can be an expert in one pour, our users tell us it takes less than 30 minutes. 
The manual's 1 28 pages are packed with figures, illdfetral'ipns and examples for the beginner and"old pro". 

Easy to Use - With the ELECTRIC PENCIL you ferocess words, not commands. ELECTRIC PENCIL'S 
menus and simple two keystroke commands keeps'yoiit mind on your worK NOT on your manual. ELECTRIC 
PENCILissoeasytouseyoursecretary will WANT to us»*4t.>. so sophisticated you'll be glad she did. David Ahl, 
the editor of Creative Computing says, "ELECTRIC PEN'^IL 2.0 is the most user friendly word processing 
package available." ^ 

Features- ELECTRIC PENCIL has^flHjfext buffer (48 kfi*«k system), supports disk, tape and Stringy 
Floppy files{disk version}* and hasevery rriSjofleature you want in\ word processor. It is'bullet proof- Data 
recovery is a built-in feature. The exclusive DICT-A-MATIc'leatureEves your office the flexibility of dictation- 
word processing without fancy equipment. Your dictation playback^^ontrolled from the computer keyboard. 

• Flexible - It is the only word processing system that is designed Kke an operating system. You can add 
new programs and features to ELECTRIC PENCIL, such as RED and ^UE PENCIL dictionary/correction- 
with a 50,000 word dictionary {sold separately) - without patches ahdlupgrades. Simply press one of the 
control key combinations and new additions to your system are instantly \^ilable. Add automatic proofing, 
spelling correction, dynamic print formatting, proportional printing, communickions. graphics and typesetting 
and many other add-on features when you need them. \ 

• Versatile - ELECTRIC PENCIL runs on TRS-80 model I and model III completers under all versions of 
TRSDOS, and NEWDOS without modification or patching (Patches required for otiier operating systems). It 
also supports parallel and serial printers as well as single and double density disp systems. 

ELECTRIC PENCIL is the choice of thousar^s- make it yours for^g^^d^^disj^^jgion) or $79.95 (tape 
and Stringy Flopgy. versions). Manual only $' 

ELECTRIC PENCIL is available at computer stores, selected B. Daltoi 
Booksellers and selected independent book dealers. If your dealer is outjof ' 
stock, order direct (specify disk tape or Stringy Floppy version). Include \^ 
$4.00 for shipping and handling. Foreign residents add $1 1.00 plus purchase { 
price, in U.S. funds. y '^ 

'Tape and Stringy Floppy versions support tape and stringy files only j 



■I 

I 



SIrinyy rio|i[iy troiiluiiurk EXATRON Co'p 
NEWDOS ruiJym.iik APF^ARAT, Inc. 



TRS80, TRSDOS tiaJeniaiK lANDYCoiii 



Table 2. Parts List 



32K Memory Board 

U1-U16 

U17,25 

uie 

U19 

U20,26 

U24 

U27 

R1-R4 

R12-19,22 

C 15,18,21 

Cn-14,16,17, 

19,20,22 

023,24.25,26 

R20 

R21 

Power Supply 

U21 

U22 

U23 

SCR1 

LED1 

Z1 

Z2 

Z3 

CI 

C2 

C3 

Cd 

C5 

C6-C9 

CIO 

R5,6 

R7 

R8 

R9,11 

RIO 

R23,24 

D1-D3 

T1 

F1 

XT 

S1 



TMS-25 or equivalent (use of "super fast" versions is not 

recommended) 

74LS367 IC 

74LS32 IC 

74LS0OIG 

74LS157IC 

74LS139IC 

74LS175 1C 

4.7 K ohm. Vi W resistor 

IK ohm, V'l W resistor 

10 uF, 16 V, tantalum capacitor 

.1 uF, 50 V, mylar capacitor 
.1 uF, 50 V, ceramic disc capacitor 
270otim, V4 W resistor 
470otim, Vi W resistor 

LM340T-5 IC 

LM311N IC (do not substitute) 

LM340T-12 IC 

R122B (R/S 276-1067 or equivalent) SCR 

diffused, red (Digikey NSL5053 or equivalent) LED 

5.1 V,5%. Vz W(1N5231B)zener diode 
4.3 V, 5%, Vz W(lN5229B)zener diode 

6.2 V, 5%, 1 W{1N4735);ener diode 

4700 uF, 25 V, electrolytic capacitor (or (2) 2200uF caps ) 

220 uF, 25 V. electrolytic capacilor 

220 uF, 10 V, electrolytic capacitor 

4.7 uF. 10 V, electrofylic capacitor 

.001 uF, 25 V, mylar capacitor 

.1 uF, 50 V, ceramic disc capacitor 

10 uF, 25 V, electrolytic capacitor 

390 ohm. Vj W resistor 

2.2K ohm, V4 W resistor 

1,2Kohm, 'A W resistor 

IK ohm. '/* W resistor 

lOOKohm, v,W resistor 

10K ohm, y. W resistor 

1A, 100 PIV, diode (1N4002 or equivalent) 

25 VAC, 2A center-tapped transformer 

1A, 3AG (fast acting} luse 

MPS3705 transistor (general purpose, NPN) 

SPST switch 



MIscellarteous 

PC boards,* power supply cabinet, in-line fuse holder, 5-pin DIN plug/jack, 
ac line cord. IC sockets (optional— see text), hardware, heat sinks. 

' Readers of 80 Micro are welcome to use the etch patterns contained in this 
article to construct the memory add-on for their own personal use only. 

Each PC board set consists of elched and drilled epoxy-glass PC boards tor 
the memory add-on and the power supply. (Jhe memory add-on PC board 



has plated-through holes to facilitate soldering and allow use of sockets.) 
The cost for each set is $32.95 postpaid in the U.S. 

A complete kit of parts Is also available, including PC boards {but without 
sockets dtie to keyboard cabinet hetgfit restrictions) as follows: $127.95 for 
the32K memory mod, $114.95 for the 16K version, both postpaid in the U.S. 
These kits are tailored tor the older style keyboards, which allow the memo- 
ry mod PC board to be mounted inside the keyboard cabinet. If you have the 
newer style keyboard, you may purchase eitlier kit without the power supply 
cabinet since you will have to provide a larger cabmel to house the memory 
mod PC board. Simply deduct £3 50 from the appropriate kit price. The 
cabinet provided in the kit is not pre-drilled. 

PVP Industries, P.O. Box 35667, Tucson, AZ 85740. 

Arizona residents add 4 percent sales tax. 





CONNECTOR 


32K 


TRS-80 LOGIC BOARD | 


PIN NUn/IBEft 


MEMBD 


IC 


PIN 


25 


AO 


Z33 


8 


27 


At 


Z33 


7 


40 


A2 


Z33 


6 


34 


A3 


Z33 


5 


31 


A4 


Z33 


4 


35 


A5 


Z33 


3 


38 


A6 


Z33 


2 


36 


A7 


Z33 


1 


11 


A8 


Z33 


23 


17 


A9 


Z33 


22 


4 


A10 


Z33 


19 


9 


A11 


Z33 


18 


5 


A12 


Z33 


21 


6 


A13 


Z35 


3 


10 


A14 


Z38 


11 


7 


A15 


Z38 


9 


30 


DO 


Z68 


9 


22 


D1 


Z68 


3 


32 


D2 


Z68 


5 


26 


D3 


Z68 


7 


18 


D4 


Z67 


9 


28 


D5 


Z67 


3 


24 


D6 


Z67 


5 


20 


D7 


Z67 


7 


15 


RD 


Z49 


5 


1 


RAS 


Z68 


14 


13 


WH 


Z49 


14 


8 


GND _ 






Table 3. TRS-80 


logic function 


cross reference 


for memory 


board interface. 









TRS 80™ Model I & III External Mini Disic Drivel 



CompuAdd Corp. • Tandon TM IOO-I BareOriv 



13010 Research Blvd. 

Suite 207 
i'sAustin, Texas 787 
%J,-(5I2)-250-l 



51/4", sJtigle sided, 40trk, 48tpi. Capable of single or d< 
recording making it fully compatible witfi TRS80™ M 

Tandon TM 100-1 w/ 






209 



Fully assembled silver . 
easy cable installation', 



**:*"J^r* • 






Tandon TM 1 



TOLL FR 






' \''. double sided, 40trk, ■ 
^rding making ir fully compatible witli 






Tandon TM 100- 









Model I ^,'., 



M 9 J k- ^ ^ ' 



How to order — Order by cai 
can also order by mail. Orders 
accept personal checks. We pay 

All hardware has a 1 20 Day Limited Warranty. 






Free 
hipping 



Free 
iiipplng 



KrQw>:. 



i-salfe'ra* 



TRS 80 is a Trademark of Tandy Cori 
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STRIKE GOLD 

with the most sophisticated TRS-80 operating system available! 



am. in LM'"^ *'^**' 

LDDS 





LDOS can't really turn your TRS-80 gold, but you'll think you've made the 
4 DOS strike of the decade when you turn your micro on to LDOS. You'll find 
a bonanza of features like full keyboard type-ahead; a true background spooler; 
file backup by date, class, and between different drive types; hard disk support; 
data transportability between Model I and III; and a complete communications 
utility including disk file send and receive. Support for Radio Shack's Doubler 
and selected others is also provided. With our Job Control Language, you get true 
"hands off' running of your application programs - give a single command and then 
walk away. The 400 page manual includes examples of all commands and utilities. 
The Operator's Guide gives you step by step instructions on how to use LDOS with 
your applications. Stop running uith only "half a computer! Let LDOS provide 
the missing features to speed up and simplity your TRS-80 computer system! 
Visit a dealer or contact LSI for more information on the most popular sophisti- 
cated operating system for your TRS-80. 

LDOS is available worldwide through thouseinds of dealers lOGICAL 
for just $129. I SYSTEMS 

TRS-80 IB a trademark of Tandy CoiTKiraiion. LDOS is auallabie for the TRS-80 Model-l and Modci-lll. 
Prices and sp«cificalions subject to change wilhout notice. LDOS 15 a product of UjgicaJ Syaienis.Iiic, 

Ugical Systems, inc.. 11520 N. Port Washington Rd. Mequon. Wis. 53092 (414) 241-3066 
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•73% IN 1980 - 67% IN 1981! • ,g 

w 

!f you have never heard about handicapping professional football using 
your computer let me tell you about PRO FOOTBALL - THE GOLD 
EDITION. 

We have been selling pro football handicapping programs for 4 years 
with many happy users, in fact in 1980 our program vi/as 73% against 
the line (44 wins, 16 losses) and in 1981 it was 67% (40 wins, 20 
losses) tor its upset predictions. One of our users last year won $60,000 
using our program. Imagine the pay-offs from betting football cards! 
Another amazing fact Is that in 1981 taking every game from the first 
regular season game to the last, our program out-performed the winner 
of the prestigious Castaways $100,000 handicapping contest against 
the consensus Las Vegas line. 

The Gold Edition represents the state of the art in sports prediction 
systems. It is the finest on the market today and is for the handicapper 
who expects the best, and demands a system with a solid history ot suc- 
cess. The Gold Edition has more features than any similar program on 
the market. These features include: • POINT SPREAD AND OVER- 
UNDER PREDICTIONS • AUTOMATIC SCHEDULING OF THE ENTIRE 
SEASON- 1982 IS INCLUDED. (Enter your own schedule file next year 
- no need to purchase it each year.) • 7 TYPES OF REPORTS AND 
GRAPHS GENERATED TO A PRINTER (Allows for easy tracking of 
technical trends) • 50 PAGE LEATHER-BOUND COMPREHENSIVE 
MANUAL • COMPLETE DATA FILES FOR 1980 AND 1981 {Run any week 
or a whole season with a keystroke and verify the power of The Gold 
Edition). 

Computer Sports Systems 

has been in the personal 

computer software business 

for 4 years as "Joe 

Computer" and we have 

proven our dependability. 

Pro Football - The Gold 

Edition. Available for 

TRS-80* Mod I or III, IBIVI 

PC, or Apple II - $195,00 

Calltornia residents add 6% sales tax. 

Computer Sports Systems also 

carries horse-race handicapping 

programs such as Dr. Quinn's 

for $49.95 & PHD-1 for $29.95. 

We also have books on beating horses, 

Blackjack, and Roulette by computer. 

SEND FOR FREE CATALOG. 

DEALERS; QUANTITY PRICES AVAILABLE. 




MasterCard & Visa accepted. 



^^^^^M 
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22456 Ventura Blvd., Ste. E 
Woodland Hills, CA 91364 ^ 256 
{213)992-0514 

'TRS-80 Is B tradsmark ot Tandy Corpora t(on 



Internal latching of the row ad- 
dress retains the row informa- 
tion while the column address is 
applied. The intersection of acti- 
vated row and column lines is 
the desired address location. A 
one-of-two selection at the array 
output completes the selection 
process. Thus we have 128 
times 64 times 2 (16384) possible 
address combinations using on- 
ly seven input address lines. 

See Fig. 2 for a block diagram 
and Fig. 3 for a schematic dia- 
gram of the memory add-on cir- 
cuit. The address lines are com- 
mon to all 16 RAMs, as are the 
RAS and write (WR) command 
lines. The RAMs are arranged in 
two groups of eight, each group 
operating over a different range 
of 16,384 addresses. Two col- 



umn address strobe (CAS) in- 
puts are supplied to the RAMs, 
one common to each group. 
This provides the means for se- 
lecting a particular group. This 
group selection technique and 
the 4116's tristate (capable of 
high, low, or high impedance 
states) output characteristic al- 
low the data input and output 
lines to be paralleled between 
the two groups. The DO data line 
is connected in parallel to the 
DO RAM data input in both 
groups. AM other data input and 
output lines are connected in a 
similar fashion. 

The TRS-80 address bus is in- 
terfaced to the new RAMs via 
U20 and U26. These devices, 
called "quadruple 2-line to 1-line 
data selectors/multiplexers," 



OUTPUT/SELECT 

eUEFER 




\„>^, ALL OOD NO 'a 
RAMS (LOWER 



ALL EVEN NO'd 
RAMS (UPPER 
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Fig. 2. 32K memory logic circuitry block 




Mr cS * 

• '•'SS 




'"■'^■M 








At last! QWERTY 3.0 is available for the 

DAISY WHEEL III Finaify, owners of the 
Daisy Wheel II can make their printers do 
what they were designed to do. Pro- 
duce scores of special symbols and ac- 
cents! Add footnotes and borders to 
text! Bold print, double underline, even 
underline spaces! Print superscripts and 
subscripts, simultaneously! Print a single 
page of text without resorting to copy- 
markers! Stop printing to change wheels 
or insert text' 

Once you use DAISY, you'll wonder how 
>ou worked without it. We guarantee you 
will agree! If not, return DAISV within 
fourteen days for a prompt refund. That's 
how confident we are! 

DAISY FEATURES 

Easy transition between the three print 
pitches, One command changes pitch 
and resets formats for optimum appear- 
ance in that pitch. 

Over 1 00 new symbols, including foreign 
language accents, Greek letters, and math- 
ematical symbols, all using the standard 
Courier wheel. Allov^ tildes, carats, and 
overbars to be placed over any character- 
Any character can be used as a super- 
script or subscript, singly or simultaneously 
Extra high superscripts for integrals. Fine 
space controls to make superscripts and 
subscripts look perfect. 

Underiining, double underlining, and bold 
printing, witti our without underlining of 
spaces. 



Special provision for printing ratios of 
one long expression over another (as in 
algebra). 

Provision for putting FOOTNOTES on a 
page in such a way that they remain on 
that page despite later editing, 

TABLE and MABLE commands enable exact 
positioning of the print head anywhere 
on the line. Invaluable in printing neat 
data tables, columnar material, etc. 

PRETTY command enables one to print 
repetitions of a chosen character,- com- 
bined with TABLE or MABLE, it becomes 
easy to produce attractive borders, even 
in headers and footers, 

PAGE END allows the user to discover 
where pages will end, when they are 
printed, without actually printing. 




Special commands allow the phnting of a 
single page anywhere in the text, with 
correct page number, footer, and head- 
er, without the use of copy-markers. A 
special command will reset the default 
format parameters, to allow use of 
copymarkers without having to insert a 
format line to adjust for format changes, 

FOLIO format enables one to produce 
print-outs in two or three columns per 
page, as for newsletters, indices, etc. 
FOOTNOTES, footers, headers, and PAGE 
END will work correctly 

Access to disk directory and ability to kill 
files from within DAISY without losing any 
text. 



Special code in the text will stop printing 
until user restarts it; use it to change print 
wheels. One can insert up to 60 charac- 
ters of text at this point, as for form 
letters. 

Special print-outs allow one to keep re- 
cords of DAISY commands used to create 
a certain effect 

Flaws in SCRIPTSIT's widow supress are 
corrected. SCRIPSIT's problem with typ- 
ing two spaces after a period is fixed. 
SCRIPSIT's scrolling speed is doubled, with 
instructions for user modification. 

CAUTIOUS BUYERS; Ws invite you to buy 
the DAISY manual. This is without a doubt 
one of the clearest, most well-written 
manuals ever produced for any piece of 
software. Over 1 10 pages, Indexed. In a 
custom B-ring binder. NXfe will credit the 
full $10.00 price when you decide to 
buy DAISY. 

DAISY REQUIRES: A TRS-80 Model 1 or 
Mode! Ill with 48K, at least one disk drive, 
and a copy of Model I SCRIPSIT. Please 
specify which machine and how many 
drives in your system. 

QWERTY 3,0 is also available for the 
Centronics 737, 739, and Lineprinter IV. 

DAISY complete package $74.95 

DAISY manual alone 10.00 

QWERTY 3.0 complete package 74.95 

QWERTY 3.0 manual alone 10.00 

Please add $2.00 for shipping and han- 
dling. Add $4,00 for first class postage or 
UPS. Overseas orders add $4.00 for sur- 
fece mail, $12,00 for air mail. 
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Fig. 3. 32K memory logic circuitry schematic 
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• CONNECT TO POWER SUPPLY CABINET 



ANODE 



Fig. 4. Power supply schematic 



1HE 

Your Software MTERNKTE Put together your order, 

Department Store... SOURCE & call for our best price! 

>ooooooooooooo OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOOOOOOf 



NFORMATION DEPARTMENT 




TAS Programmer's Journal • Past Issues 

TAS Volume I & II (both book torm) 

Model III TRSDOS Commented 

Model 111 ROM Commented 

Disk Interfacing Guide • Inside Level II 

BASIC Decoded • BASIC Faster& Better 

Disk Mysteries • Custom TRS-80 

DOSes & DISKS 

Allenbach disks: box (10), bank (10), bulk 

NEWDOS/80 Version 2.0 • DOSPLUS 

LDOS 



GAME DEPARTMENT 

Fortress • Space Castle • Eliminator 

Alien Defense • Adventures 1-12 
Missile Attack • Lunar Lander • FLY 
Caterpillar • Star Fighter • Planetoids 
Defense Command • Space Intruders 



WORD PROCESSING DEPT. 

Lazy Writer • E:ectric Pencil 2.0 
Hexspell 2.0 • Quill Driver 



o_ 



HARDWARE DEPARTMENT 

Epson Ribbons & Reloads • Sprinter II 
LNW Interface • Disk & Printer Cables 
Smith Corona Printers • Epson Printers 
Cassettes (10-20-30) • Cassette Labels 
Disk Banks • Joystick Kits • Memory 
Comp/Set' Typesetter Interface to I/Ill 



UTILITY DEPARTMENT 

TASMON • KBE • TRAKCESS 

STOPPER • TASORT • MODEM 80 

ADVENTURE SYSTEM • DDSD • ISAR 

EDITOR ASSEMBLER PLUS • INTASM 

SUPER UTILITY • ZAPSiT • FASTER 



COMING SOON 

EDM, the programmable editor! 
TRAKCESS for the Model III 



ASK FOR 

Information sheets • Games flyer 

Current flyer • Inventory Listing 

Listing of closeout specials 



PLEASE NOTE: 

We carry software products by all of the 
companies listed below, not just what you 
see here. Put together the best order you 
can. and give us a call! We'll give you the 
best discount we can! We'll be happy to 
meet or beat other offers you find. 

Adventure International • Cornsoft 

Big Five • Med Systems • Soft Sector 

MISOSYS • Racet Computes • IJG 

Breeze/QSD • Microsoft • Acorn 

Instant Software • Hayden • Mumford 



We actively support and 

serve Model I and III TRS-80 

owners - check our bingo 

number for a free flyer, or 

send your name and address 

on a postcard for immediate 

SERVICE! 



doooooooooooooooooooooooooooooooooooooooooooooooooooooocooocooo 




704 North Pennsylvania Avenue 
Lansing, Michigan 48906 



Ph. 800-248-0284 
Ph.517-482-8270 ^69 

'Comp/Sel IB a Iradeniark ot AM International. 



Add $3 shipping charges, $1 .75 COD. 
Visa & Master Card welcome. 



^See l/s( of Advertisers on Page 455 
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Photo 3. Typical placement of noise-suppression 
components 
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Fig. 5b. Memory boaro eicn patt^i:!, iL-:ij;6: .•■■.. 

Circle 318 on Reader Service card 



THE LEMON SOURS SURGES 




Our crop-The Lemon™, The Lime™, 
and The Orange™ are designed to 
eliminate undetected submicrosecond 
ovepk/oltage transients from electrical - 
circuits. Commonly referred to as 
"spikes'", or "glitches", these tran- 
sients can cause hardware and soft- 
ware damage to unprotected circuits. 

Today's electronic products are often 
microprocessor controlled - mini and 
micro computers, televisions, video 
cassette recorders - to name a few. 
Each of these products is sensitive to 
fluctuations in electrical power lines. 
Power switching devices such as 
refrigerators coming on and off or air 
conditioners starting up can be respon- 
sible for a momentary surge or spike of 
electricity in a circuit. Even your local 



utility stepping-up transformers to add 

power at peak load times or an elec- 
trical storm passing through can trigger 
surges. Such surges can cause equip- 
ment to falter at times, not to work at 
peak performance or fail completely. 
An entire data base can be lost. 
Now you can prevent this from 
happening to you with an AC Surge 
Protector from Electronic Protection 
Devices. Each Protector is a solid state 
clamping device with 6 outlets utilizing 
mocjern high speed semiconductor 
technology. Using our Protectors is as 
simple as plugging it into any standard 
three wire duplex outlet then plugging 
what needs protection into it. Each 
Protector exceeds the IEEE 587-1980 
Guide for Surge Voltages in Low 



Voltage AC Power Circuits. 

When you compare the cost of 
computer hardware, software and your 
time with the price of a Protector {from 
$59.95 to $139.95), you'll want to sour 
your surges with one of the AC Surge 
Protectors from EPD, which are 
available through your local dealer, 



Electronic Protection Devices 

5 Central Avenue 

Waltham. Massachusetts 02154 

In Massachusetts Call: 
{617) 891-6602 

Outside Massachusetts Call: 
1-800-343-1813 

Dealer Inquiries Invited 
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JUMPER WIRE FROM D7 
TO UI5, 16 PIN 2 



I PIN I IC ORIENTATION 

* COMMON COMNECTION POINT FROM PIN 15 OF ALL UPPER-GROUP RAMs. 

** NOT USED FOR RIBBON CABLE ATTACHMENT. SEE FIG. 6b AND TEXT. 



F/g, Qa. Memory board parts placement and external connections. See Fig. 6b for U27 placement. Drill a 
5/16-inch hole at the + location to allow passage of a keyboard housing post through the board. The 
large donut in the lower right corner denotes a board attachment site if the 32K mod will not be housed in 
the keyboard cabinet. Note that pin 1 orientation of IC's U9-U16 is opposite to that of the other ICs. 



act like switches. For U20, pic- 
ture the output pins 4, 7 and 9 as 
wipers of a 3-pole, double-throw 
(3PDT) switch. Similarly, picture 
U26 pins 4, 7, 9, and 12 as wipers 
of a 4PDT switch. Pin 1 of these 
ICs controls the position of the 
switches; since these pins are 
tied together U20 and U26 func- 
tion together as a 7PDT switch. 
The multiplex (MUX) signal alter- 
nately provides the RAM ad- 
dress input terminals with 
A0-A6, then A7-A13. The lower 
address lines are selected when 
the MUX line is low, occurring at 
RAS time. The upper address 
lines are selected with MUX 
high, at CAS time. 

The RAS input from the 
TRS-80 is buffered through U25, 
then directly connected to all 
RAMs. The CAS and MUX lines 
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are not used due to potential 
noise and distorted signals by 
the time they reach the memory 
add-on board. Instead, new CAS 
and MUX signals are generated 
by U27 using existing WR and 
read (RD), plus a "borrowed" 
clock signal {more about the 
clock signal later). U27 is a guad 
D latch in which three sections 
effectively produce two delayed 
versions of the RAS signal. The 
first to appear is used as the 
MUX signal, the second is the 
CAS signal. A section of U19 
prevents generation of the MUX 
and CAS signals unless either 
WR or RD signals are present. 
The frequency of the clock 
source determines the delay be- 
tween RAS, MUX and CAS. 

The new CAS input is divided 
into two signals. One enables 



the lower and the other enables 
the upper RAM group. U24 and 
U18 perform this function, U24 
decodes the A14 and A15 ad- 
dress lines to determine when to 
enable one of the new RAM 
groups. The Radio Shack 8-RAM 
group is enabled for addresses 
16384 through 32767. For these 
addresses A14 is high and A15 
(s tow; thus neither of the new 
RAM groups are enabled. For 
addresses32768 through 49151, 
A14 is low and A15 is high, 
enabling the lower RAM group. 
Addresses 49152 through 65535 
result in A14 and A15 high, 
enabling the upper RAM group. 
Table 1 illustrates the binary/ 
decimal relationships in these 
address ranges. 

The RD input from the TRS-80 
is inverted, then gated through 



U19 pin 8 before being directed 
to the enable input of all RAM 
data output buffers. The gating 
function prevents either RAM 
group from outputting data 
when addresses below 32768 
are present. The data lines are 
bi-directional, providing data to 
RAMs during the write cycle, 
and directing data from RAMs 
during the read cycle. 

The power supply is shown in 
Fig. 4. U22, XI. and SCR1 form a 
protection circuit for the RAM 
ICs. The 4116 RAM data sheet 
states that the -5 volt (V) sup- 
ply must be applied before and re- 
moved after the -1-12 and -f5V 
supplies. Otherwise, excessive 
dissipation may destroy the de- 
vice. During powerup this situa- 
tion is satisfied by the shorter 
delay time through the relatively 
simple - 5V supply. During pow- 
erdown the very smaii load cur- 
rent on this supply allows it to 
drain off slower than the -1-12 
and -f-5V supplies. But what if 
the -5V supply fails? The pro- 
tection circuit provides the an- 
swer by sensing impending fail- 
ure and immediately shutting 
down the -Fl2 and -t-5V sup- 
plies via an SCR shunt, U22 and 
XI function as an extremely fast 
logic level slicer detecting the 
failing supply at - 4.3V and trig- 
gering the SCR. 

Construction 

The parts list for this project 
is in Table 2. I recommend a PC 
board for the 32K memory cir- 
cuitry. While you could hand- 
wire or wire-wrap the circuit the 
wiring is rather complex. Wiring 
errors might be difficult to trou- 
bleshoot dynamically, and 
could cause IC failures. The 
power supply wiring is not criti- 
cal, although the PC board will 
speed things up a bit. 

Figure 5 contains a full-size 
etch pattern for the memory 
board (a double-sided PC board). 
If you decide to build your own 
include plated-through holes. 
This facilitates soldering and al- 
lows use of IC sockets. If you in- 
stall the complete 32K RAM, a 
keyboard cabinet clearance 
problem could occur unless you 
use low profile sockets and very 
careful piggy-back solder tech- 
niques to assure minimum 
height. Do not attempt to install 
sockets on the memory board if 





The experts are excited about QRAMMATtK 

Seldom does a new software product receive the universal praise from the 
experts of major microcomputer magazines that Grammatik has. Read for yourself: 



Alan R. Miller, Interface Age, May 1982: 
"The ciitiiT manuscript of my Fortran hook was given to 
Grammatik. Grammatik flagged many locations throughout 
the book. Several doubled words were correctly flagged. Other 
flagged passage.'^ truly needed attention." "Grammatik found a. 
very important pattern: the expre.Hsion 'iii this cane' appeared 
fiG times. This phrase expressed four different concepts, and 
most of the examples were reworded." "Profile can be used to 
determine the frequency of word usage in a document." 
"Crvammatik is a useful aid for professloval writers. It is the 
perfect complement to n spelling checker." 

A. A. Wicks, Computronics , June 1982: 

"The manual for Granunatik is better than average. The gen- 
eral text and explanations are thorough, detailed, and con- 
cise." "When the program was 'test run' on some old articles of 
mine still on disk. I was emharras.'^ed by some of the over- 
worked, wordy, or trite phrases thai I had used. Nevertheless. I 
had to agree with what Gramm.atik was saying, and vow to 
avoid these pitfalls in the future. " "This is one of the most inter- 
esting anil useful programs that I hare had the pleasure to re- 
new. All functions operated as ."Stated with no problems, or 
even a hint of a problem. And no guessing was required about 
exactly what ."some of the directions implied. Anyone involved 
with word processing in any way. whether u'Hling manuals, 
letters, brochures, ncwscopy. reports, etc. is encouraged to get 
this excellent program." 

Stephen Kimmel, Creative Computing, June 1982: 
"/ don't get excited about many program,^. I am crcited about 
Grammatik." "it is difficult to imagine the program being any 
easier to «.se. " "/ had decided that the progra m would he useful 
to a professional writer if only because it checks for double 
u'ords." "I have a higher enthusiasm threshold than that. 
Grammatik can also he expanded to include phrases of parti- 



cular significance to you. ft ran become your personal editor 
and English coach. I love to .start sentences with 'and'. That's 
not a pa rticula rly good idea. So I added the ph rase '.And' with 
the note to be careful not to overuse it. Now I get a reminder 
every time I do it. There are other words that I use too often. My 
copy of Grammntik checks for them, too, and gently tells me to 
watch out. " "I like Grammatik a great deal. It is a worthy and 
useful addition to your word processing software." 

Bob Louden, InfoWorld, December 7, 1981: 

"Grammatik is the next .step beyond spelling checking for seri- 
ous word processors. Gruvimatik analyzes writing style at the 
word and sentence level while, at the .^ame time, it checks for 
subtle spelling and typographical errors that go t)eyond the 
capabilities of conventional spelling-checking programs. If 
you use a word processor and a spelling checker, theri you 
should investigate the unique capabilities of this program." 
"Although skeptical at first. I proceeded to run. several of my 
published articles through Grammatik. None were free of 
error.s." "Grammatik is a surprisingly fast and easy tool for 
analyzing writing style and punctuation. " 

Dona Z. Meilach, Interface Age, May 1982: 

"The programs together (Aspen Software's spelling checker 
Proofreader and Grammatik) offer a dynamic tool for compre- 
hensive editing beyond spelling corrections. It can begin where 
your college English teacher left off and help you analyze your 
docu7ne}ds in a way you may never hare thought possible." 

Eric Balkan. The Computer Consultant, Vol 2 No 9: 
"As a reviewer. I'm impressed the mo.^t with the imagination 
that went into this product. With all the me-too software on the 
market, it's good to .see .something original come out. It's also 
good to see that the program author allowed the user as much 
freedom as he did — you can use your own imagination to ex- 
tend the uses of the program." 



CtRammatIK^^-^ ^m^f 



m\ = NO ERRORS 



Together, Grammatik and the Aspen Software Company spelling checker Proofreader form an unequalled document proof- 
reading system. Proofreader features an official version of the RANDOM HOUSE® Dictionary for a word list that you can trust! It 
also features immediate on-line access to the dictionary for spelling help while making corrections interactively. Proofreader is the 
best spelling checker available. Write or call for more details. (On-line dictionary not available on TRS-80 version.) 



CP/M and IBM-PC DOS Grammatik - S'SOOC, Proolrgafler - $129 00, Bolh - SZ50 00 TRS-BO Model II Grar 
SE9 00, Prootreadei ■ SB9 00, Bolh -$139 00 Manuals Only $8.00 each, $15.00 bolh 

IMPORTANT OflDEfllNG INFOHMATION: Vou MUST Bpecily computer moael operaling system, memory size and formal 

ana number o( fliik drues wtien ordBnng eriner 50t1v,a'e or manual! alune All U S , Canada and Mp.ico orders include lirsl 

crass snipcmg m price We accepi cash cbecK money order VISA and Masler Card CosI on manual only orders car he 

crediTeb to imal purchase NM residenis add -1% sales ran 

[Dealer and OEM jnquiries weltome? 

RanoomHouseisa reqtsleied Iradpmark al RanOom House. Inc Qlherrogisicred trademarks. CP.'M Digital Researcli. TflS-BO 

Tandy Corp . MS-DOS Mierosntt IBM IBM Proolreader, Grammatik Aspen Sotlwsre Co 



atil(-S99 00, Proofreader -$99 00. Both -$179 00 TRS-aO lulodel I/Ill Grammatik- 



Distributed By: 

SOFTlVIPb 

DIGIT>1L/V1y4RKETING 

JIGI:-I tl-^PkETIf:---'^ 




DIGITAL MARKETING COBPOBATION 



P.O. Box 339-M Tijeras, NM 87059 - (505) 281-1634 ^65 




^See List of Advertisers on Page 455 
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Become a "Crazy Painter" 

and create a masterpiece 

...if you can. 

A mischievous puppy, snakes and poisonous turpentine 
buckets force changes in your painting. In higher skill 
levels, "paint eaters" start chewing up your work. 
Suddenly, everyone's a critic. Can you overcome them? 



And on top of it all, in the £xc/us/ve Challenge Mode, 
you have to catch an army of runaway puppies. Crazy 
Painter \^ Joystick compatible. 

$15.95 tape, $19.95 disc plus $1.50 shipping and 
handling charges. Indiana residents add 4% sales tax. 
Master Card or Visa orders accepted, Also available at 
your software dealer. 

The Coffisoft Group 

6008 N. Keystone Ave.. Indianapolis. IN 46220 • (317) 257-3227 



-319 



Crazy Painter copyright 1982 by The Cornsoft Group. 



TRS 80® Is a registered trademark ol the Tandy Corporation. 



it does not have plated-through 

holes; there would be no way to 
solder the pads on the compo- 
nent side. Without plated- 
through holes, insert a wire into 
all pads that do not contain 
component leads and solder the 
wire on both sides of the board. 
(This means of transferring the 
conductor path from one side to 
the other would otherwise be 
handled by the plated-through 
holes.) Figure 6 is a parts layout 
guide for the component side of 
the memory board. You must 
add several noise suppression 
components on the other side, 
as will be shown later. Carefully 
note the pin-1 orientation of the 
ICs before soldering. If you use 
sockets, line up the dot or notch 
on the socket with Fig. 6 to aid 
subsequent !C insertion. The 
RAMs are metal oxide semicon- 
ductor (MOS) devices, and must 
be carefully handled to avoid 
static electricity. Leave the 
RAMs in their conductive pack- 
aging until you are ready to in- 
sert them in the board. Use a 
grounded soldering iron and 
avoid shuffling your feet on the 
carpet. 

The RAMs are piggy-backed 
in groups of two on the circuit 
board, saving space, and mini- 
mizing wiring complexity. (Be- 
fore installing the upper group 
of RAMs complete all other con- 
struction, installation, and test- 
ing to be sure that you have not 
made any catastrophic errors. 
This limits your initial liability to 
eight instead of 16 RAMs,) Once 
you have plugged in (or sol- 
dered) the lower group of RAMs, 
slightly bend the leads of each 
upper-group RAM inward to 
form a snug fit when placed over 
each lower-group RAM. The only 
exception is pin 15 of each up- 
per-group RAM, which must be 
carefully bent outward, perpen- 
dicular to the other leads. Once 
properly oriented over the lower 
group of RAMs, carefully solder 
all corresponding pin pairs ex- 
cept pin 15. Use only a minimum 
of solder (.030 inch or thinner, 
and a fine-tipped iron) to avoid 
bridging between adjacent pins. 
Interconnect pin 15 of all upper- 
group RAMs using fine gauge 
(#30 or 28 American wire gauge 
solid) insulated hook-up wire. 
Route this common connection 
lo the component-side "donut" 



"^NEW VERSIONS OF THESE SIGNALS 
ARE GENERATED BY U?7, THEREFORE 
DO NOT CONNECT THE TRS-80 RIBBON 
CABLE WIRES FOR MUX AND CAS TO 

THESE PADS. 




COAXIAL CABLE BRINGING CLOCK SIGNAL TO U27, 
BE CAREFUL TO AVOI D SHORTING THE COAX LEADS 
TO ADJACENT BOARD PATTERN. IF USING THE "TRS-80 
CLOCK SOURCE" OR THE "DISK CONTROLLER CLOCK 
SOURCE" ISEE FIG,8) DO NOT CONNECT THE COAX 
SHIELD AT THE MEMORY MOO SOARO END OF THE 
CABLE. 



Fig. 6b. Detail connections forU27. The coaxial cable brings clocl< signal to U27. Avoid shorting the coax 
leads to adjacent board pattern. H using the TRS-80 or disk controller clock source (see Fig. 7), do not 
connect the coax shield at the memory mod board end of the cable. 



pad in Fig. 6. (Photo 1 shows a 
detail of the piggy-back/pin 15 
wiring.) Then connect a jumper 
from the pad adjacent to U15/16 
pin 2 to the pad adjacent to the 
D7 data line input as shown in 
Fig. 6a. 

You may add short pieces of 
insulated sleeving on some of 
the capacitor leads (depending 
on size and shape) before instal- 
lation to prevent leads from 
shorting against adjacent cop- 
per foil traces. 

After installing all compo- 
nents shown on Fig. 6a, proceed 
to Fig. 6b. This figure shows the 
connections for U27. U27 is 
piggy-backed over U25, but only 
pins 8 and 16 (ground and +5V, 
respectively) are actually sol- 



dered to U25. Carefully bend all 
other pins outward before sol- 
dering U27 in place. Pins 2, 3, 7, 
11, and 14, not connected to 
anything, may be trimmed off 
about one-eighth inch from the 
IC body. The jumper wire con- 
nections going to the MUX and 
CAS pads are the new MUX and 
CAS signals generated by U27. 
It is possible to make the memo- 
ry mod work properly using TRS- 
80-generated MUX and CAS sig- 
nals, but more reliable operation 
uses the U27 circuitry. 

Figure 7 illustrates three 
methods of obtaining the U27 
clock signal. Use the TRS-80 
clock source if the memory mod 
is to be installed in the keyboard 
cabinet; use the disk controller 



clock source if the memory mod 
is to be constructed together 
with the disk controller (to be 
presented next month). If the 
memory mod is housed in its 
own cabinet, you must build a 
separate oscillator. Figure 7 is 
an example — just about any 
TTL-level oscillator in that fre- 
quency range should work. 

Figure 8 contains a full-size 
etch pattern for the power sup- 
ply board. Parts placement is 
shown In Fig. 9. U21 and U23 re- 
quire heat sinking but SCR] 
does not. The U23 heat sink 
should allow about 4 watts dis- 
sipation. U21 and U23 may be di- 
rectly mounted to the cabinet to 
provide the necessary heat sink- 
ing. Take care when mounting 
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TRS-SO CLOCK SOURCE 



ADD SLEEVING AS 

NEEDED TO PREVENT SHORTING 



LOWER RIGHT CORNER OF TRS- BO LOGiC BOARD 



a. TRS-80 dock source 



B-IOMHz CRYSTAL 




TYPICAL "SEPARATE CABINET STYLE " CLOCK SOURCE 



c. Typical "separate cabinet-style" clock source 

Fig. 7. Clock signal sources for U27. Miniature coaxial cable such as 
RG174 is the preferred means of transferring the clock signal to the 
memory mod. 



the rectifiers, polarized capaci- tation matctiesttiatof Fig. 9. R5 
tors, ICs, SCR, transistor, LED and R6 should be mounted 
and zener diodes that the orien- about one-quarter inch above 
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Keep your issues of 80 Micro together, handy and 
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binders. Both styles bound in dark green leather- 
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DISK CONTROLLER CLOCK SOURCE 



b. Disk controller clock source 



the PC board to aid heat dissipa- 
tion. 

Cabinetry for the power sup- 
ply should be metal for shielding 
purposes. Photo 2 shows typical 
placement of the transformer, 
PC board, LED, and cabling. 
Mount a solder iug on one of the 
transformer screws to provide a 
ground connection from the cir- 
cuit board to the cabinet. To 
avoid a ground ioop, the power 
supply ground is isolated from 
its own 117VAC source, and 
rather, is tied to the main TRS-80 
ground potential. 

I chose a 5-pin DIN connector 
to provide the -h5, -5, -i-12V 
supplies and ground to the logic 
board. Capacitors 015, 18, and 
21 are memory board filters for 
iocal power supply; their values 
are based on a 30 inch cabie 
length between the power sup- 
ply and the logic board. Longer 
cable lengths may necessitate 
larger capacitance values. 

Installation 

Do not perform disassembly 
or internal work of any kind 



while the TRS-80 is connected to 
the ac line. Even with the l<ey- 

board power switch turned off, 
ac and dc voltages are present 
in the l<eyboard housing as long 
as its external supply is plugged 
in. Check the no-load power sup- 
ply voltages at the bare-wire end 
of the memory mod supply cable 
with a voltmeter before connec- 
tion to the memory board. 
Faulty supply voltages or 
crossed wires can destroy the 
ICs; doubie-check these critical 
voltages through the entire sys- 
tem up to memory board con- 
nection. 

Connections to the memory 
board consist of a power supply 
cable and a 40-conductor ribbon 
cable. All memory board con- 
nection points are identified in 
Fig. 6a. Solder appropriate pow- 
er supply cable wires to the 
-5V, +5\J, -I- 12V, and ground 
pads. Refer to Fig. 10 and Table 
3 to aid installation. Figure 10 
shows the proper ribbon cable 
conductor usage. Only 28 of the 
40 conductors are used. Table 3 
lists the TRS-80 keyboard con- 
nector pin numbers and logic 
board destinations. After solder- 
ing these cables install the 
noise-suppression components 
as shown in Fig. 1 1 and Photo 3. 
These components include re- 
sistors R12 through R22 and ca- 
pacitors 023 through 026. The 
memory board fits over one of 
the keyboard housing posts. No 
mounting is required, but be cer- 
tain the cables are dressed to 
prevent pinching or shorting of 
the wires. 

Operation 

This circuit is an integral part 
of the computer memory hard- 




Fig. 8. Power supply etch pattern 
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F/g. 9, Power supply parts placement 



ware. After powerup the PRINT 
MEM command should reply 
with about 31956 for a 16K add- 
on, and 48340 for a 32K add-on. 
If it does not, shut down the 
power immediately and find the 
cause. 

The TRS-80 power switch 
does not de-activate power to 
the memory board or completely 
de-activate power in the TRS-80. 



All computer-related power 
cords should be plugged into a 
common switchable ac power 
strip, off when the computer is 
not in use. Do not apply power to 
the memory add-on by plugging 
in the ac connector. Power is 
often connected and discon- 
nected rapidly several times 
before the plug is fully inserted, 
causing detrimental voltage 



transients and conceivably fool- 
ing the -5V protection circuitry 
into firing the SCR. Instead, use 
a power sw/itch on the power 
supply cabinet. 

Leave it in the off position if 
you do not need the additional 
memory during a particular ses- 
sion. The powerup routine in the 
TRS-80 includes a subroutine to 
see how much RAM is available 



for use; subsequently, the 
TRS-80 ignores any additional 
memory switched-in via the 
memory mod power switch. 
Turn on the memory mod before 
powering up the TRS-80 when- 
ever you might need the addi- 
tional storage space. 

The power supply LED should 
always be lit when the memory 
mod power switch is on, regard- 



BEYQNDaASIC 



' Al Ic 
"ACROSS" i X 

"DOWN" ;v 

■ Drau 



10 REM Bpyond-BASIC I 

/O G05UE "CLEAR SCREEN" 

la RESTORE 10 ■■ DIM A(5) : 

413 DATA 5. "..3, 2. 1 

50 NU» = "01234567B9. " 

60 INPUT LEN=3. USING NU«. 

70 INPUT LEN=2, USING NU«. 

80 PLOT (S.ai-lX.V) 

90 SHAPE«="PDPDPfiPRPUPUPLP" 

100 INPUT U5ING NU». "SCALE" :A 

lia INPUT USING NU». " ROTATE" iB ' 

l.:a PLOT (X.V), S=A,fi=F, SHAPE* ■ 

130 DEF FNI (LO, HI, LOCAL N) 

110 INPUT 'ENTER A NUMBER" iN 

15a IF N^LO OR N'HI THEN 140 

l.'i0 RETURN N : FNEND 

170 PRINT FNI ( 1, IBJ-'FNI (X. Y) 

180 SORT A : PRINT "SORTED flPRfly: 

190 MAT PRINT Ai : DOS 

laa 'CLEAR SCREEN' 

210 CLE ! POKE 3Ca0H. 

220 MAT 1 

230 RETURN 

240 END 



Act ion 

' See line 

MAT READ fl 

: ' Dd<ts for 



- art-ay A 
1 g i ta on ly 



Define small sQuiire 
'. l=sma 11, .! 1 = lar ise 
0-36B degrees 
Draui the shape 
Define a function 

to be this entire 

subrout ine 

Input 2 nunisi add 

Return to TRSDOS 
Named 5ubi"ou+ine 



EEYOND-EASIC DEMO' 

' iTPOr-e A<0l 



last, a truly 



v1^: ''■ Boyond-BASIC Pm 

■^'■^■■^'i.,^ . il^ labels, RESTOK^'tcif^B^'-ii**^ 
^^:i^^^VHILEAVEXIT/WEND, command shorthand, 
>'feX-*;;;tei^i(^^le programs in memory, and much, much moj^ 
pDisk $49.99 Tape $39.99 o :j/>>: 

Beyond-BASIC Package 11 include*. . ^'J'^";?!?'^.;; 
':~r. All this plus'super graphics, multi-statr' ' "* ' 



^^ Disk $64.99 Tape $49.^? 

Beyond -BASIC Package III Inclu 

'-] Everything in I and II plus array -^- 



Disk $79.99 Tape $5'_ . 
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Ribbon cable connections to the mem mod board, 
with cable and board oriented as stiown, from top 
to bottom: 



Pl\ 40- - 

Set this cable along the 
bottom of the lower half 
of the keyboard cabinet 
(below logic board) 



his cable above the TRS-80 logic board 

Attach to underside of mem mod PC board. 



NC 

All 

AI4 

«IS 

GND 

AlZ 

AI3 

NC (C4S1 

AID 

RAS 

NC 




Memory mod PC board. (Proper orientation is with 
ICs facing down. That is the underside of the board 
as shown here.) 



After cutting all unused wires short, wrap electri- 
cal tape around the cable at this point to prevent 

shorting at the cut cabie ends. 



nsorl all rjbtion cable wires upward through un- 
derside of board, allow.mg about 1/8 inch of each 
lead to protrude above the board to facKitate com- 
ponent installation (see Fig. 12). 



NC = NO CONNECTION 



Fig. 10. Ribbon cable conductor usage. Using an insulation-displacement type connector (see the parts list), clamp cable to tbe connector 
using an ordinary vise. Total cabie length should be 30 inches. The MUX and CAS ribbon wires are not connected to the board. However. MUX 
and CAS pads are provided on the board and must be skipped over wfien connecting the ribbon cable. Double-check Fig. 6b for the location 
of these pads. 



Successful construction of 
this project does not require an 
extensive background in elec- 
tronics or computer theory. 
However, it assumes a basic fa- 
miliarity with electronic compo- 
nents and careful attention to 
detail. The importance of care- 
ful soldering and visual check- 
out after soldering cannot be 
overstated. Follow the instruc- 
tions in the construction section 
vi/ith regard to RAf^ installation. 
Using good lighting and a mag- 
nifying glass, inspect each sol- 
der connection of the piggyback 
RAMs to be certain that no sol- 
der bridging exists from lead-to- 
lead or lead-to-copper foil. 



less of the operating state of the 
TRS-80. If the LED is off when ac 
power is applied the power sup- 
ply has failed or the memory 
board Is short-circuiting the 
power supply output. In either 
case, remove ac power immedi- 
ately. As with theTRS-80, do not 
connect or disconnect the mem- 
ory mod's DIN power supply 
plug when ac power is applied. 
The 32K memory board great- 
ly enhances the power of 
your TRS-80 for both program 
and data storage. Welcome to 
the world of expanded RAM 
memory! ■ 
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WR 
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INTERCONNECT THE COMMON GROUND LEADS 
ON THIS SIDE USING INSULATED WIRE, IF 
NECESSARY, TO INSURE THAT THE LEADS DO 
NOT SHORT TO THE PC FOIL PATTERN. 



SOLDER THE SHORT- 
ENED COMPONENT 
LEADS ON THIS SIDE 
TO THE PROTRUDING 
RIBBON CABLE WIRES. 



Fig. 11. Noise-suppression component placement. Install these after soldering ribbon cable to the other 
side of the PC board. Install C23-C26 close to PC board, keeping leads very short. 
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CYBORG A TRS-30 Classic by Bill Dunlevy and Doug Frayer. 'Incredible geaphics". The screen slides smoothly in all direcjions. "Mind boggling 
speed" put your Anti Grav sled in fourth and you will see what tasi graphics are. This is not a worked ovef arcade game: it is something totally new. This 
game has more new features then any arcade game ever written tor the TRS-80. 
TAPE $15.95 DISK ....$19.95 

JOVIAN Another hit from Dunlevy and Frayer using the fantastic new graphic techniques developed in CYBORG and expanded upon in JOVIANt 
Mission: Destioy Jovian space stations while fighting alien space ships and dodging asteroids and space mines. 

ARACHNID Wntten by Charles Quanfe, A real time arcade game with great graphics and sound. You must shoot the spiders before they get you! 
Arachnid comes ma special arcade package with two other programs BAJA acarracegameandWARZONE a strategy game. Three excellent and 
totally different games for only $24.95 disk or tape. 



Order from you favorite dealer or call Toll Free: 
1-800-392-8881 



COMPUTER SHACK 

1691 Eason • Pontiac, Micfiigan 48054 (313) 673-2224 
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SERIES 



The Calculating Geni 




by Rick Cook 




^harles Babbage invented the speedometer, the 

railway cowcatcher, and the occulting light- 
^house — as well as the first digital computer. 



Pick up any general book on comput- 
ers and you will find Charles Babbage 

mentioned in the first chapter. Over and , 
over the books will tell you this 19th- 
century British mathematician spent 50 
years and thousands of pounds at- 
tempting to build a mechanical digital 
computer, but died with his machine 
unfinished. If you see a picture of one 
of Babbage's creations, you can easily 
believe that Babbage was doomed from 
the start by the complexity of his 
machine. 

Most computer books don't discuss 
much more about Babbage. After all, 
Babbage's work led nowhere. When 
computers were developed, they were 
built as electrical devices rather than 
mechanical ones. Babbage is interest- 
ing, but he is not part of the mainstream 
of computer evolution. Questions nag 
al the curiosity, though. What sort of 
man was Babbage? How did he propose 
to build something as complex as a digi- 
tal computer without electricity? Why 
did he want to do it? And most tantaliz- 
ing of all, could it have worked? 

The answers range from simple to 
complex. But one conviction emerges 
— he was one of the most original and 
modern thinkers of Victorian science. 

Charles Babbage's secret was his 
modern approach to the science and en- 
gineering of the 19th century. His writ- 
ings contain constant surprises. 

A short note at the end of a religious 
tract outlines the science of dendro- 
chronology (tree-ring dating). A couple 
of pages in his autobiography give the 
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basic rules for teaching a computer to 
play a game. A few paragraphs in an- 
other book discuss the oxygen process 
for steel making. In another place he 
describes how he instrumented a rail- 
way carriage to gain information on the 
roadbed and the forces acting on trains 
in tnotion. On the next page he pro- 
poses fitting trip recorders to all loco- 
motives to provide a record in case of 
accidents and to improve economy of 
operation. 

And yet none of it goes any\vhere. As 
brilliant and far-seeing as these notions 
are, they are not the foundation of later 
work. Although Babbage was a well 
known scientist and his books were 
widely read by other scientists, there 
was no further development of most of 
his ideas. 

ir we limit ourselves to what Babbage 
actually did and ignore what he con- 
ceived, we find his achievements limited 
to inventing the speedometer, the rail- 
way cowcatcher, the opihalmoscopc, 
the occulting lighthouse, and helping to 
reform British mathematics. That is a 
respectable list of accomplishments and 
it earned hhn a secure niche in the his- 
tory of science, but it falls far short of 
what he proposed. 

The nature of Babbage's genius is 
one of the keys to his failures. Like a 
modern engineer, and unlike most of 
his contemporaries, Babbage under- 
stood the importance of quantifying 
knowledge, and much of his effort was 
devoted to doing just that. At a time 
when most engineering was cut-and-try 



and most scientists were only beginning 
to appreciate the advantages of con- 
trolled, repeated experiments, his meth- 
od was not only revolutionary, it was 
nearly incomprehensible. 

Babbage's other problem was that he 
kept answering questions no one was 
asking yet. The people around him 
couldn't understand what the fuss was 
about. This lack of comprehension 
plagued all his projects, especially his 
Analytical Engine. 

Only a few of his contemporaries 
could understand the potential of a digi- 
tal computer and they were not in any 
position to help him. 

Early Life 

Charles Babbage was bom December 
26, 1791, in London. His father was a 

member of a merchant banking firm 
and the family was well off. Young 
Charles was educated first by a series of 
tutors and then at a private school. By 
his early teens he had developed a con- 
siderable taste for mathematics, and by 
the time he entered Cambridge in Oc- 
tober, 1810, he was familiar with all 
three of the notations used for calculus 
in his day. 

Tliere were three notations because 
three men working independently had 
developed calculus. Newton and Leib- 
nitz had invented it more or less simul- 
taneously and Lagrange had later gone 
back to first principles and tried to elim- 
inate some intuitive concepts and make 
it more rigorous. 

One result was that to be fully literate 
in calculus, you had to be able to work 
in Leibnitz's notation (dx), Newton's 
fluxions (x), and Lagrange's system (x). 
This was particularly hard on British 
mathematicians because they were 
trained in Newton's system and the 
most important work was being done in 
Leibnitz's notation. 



This was a thoroughly unsatisfactory 
situation and Babbage and some of his 

friends resolved to do something about 
it. Babbage, George Peacock, John 
Herschcl and several others formed the 
Analytical Society for the purpose of 
promoting Leibnitz's differential nota- 
tion at Cambridge and making it the 
universal system of notation in 
England. The group published several 
books and papers, including Babbage's 
translation of Lacroix's Differential 
and Integral Calculus. 

The Analytical Society won a major 
victory in 1817 when Peacock was ap- 
pointed as one of the moderators for the 
mathematics examination at Cam- 
bridge. He prepared all the calculus 
questions in differential notation and 
anyone who wanted to pass the exam 
had to know the notation. The faculty 
conservatives didn't like it, but there 
was nothing they could do. 

Eventually differentia! notation came 
to be universally accepted in the Eng- 
lish-speaking world. 

Continental ideas were free to How 
inio the musty world of British mathe- 
matics, and within his lifetime, Babbage 
saw the flowering of the field under 
such workers as Boole. 

By the time Peacock pulled his coup, 
Babbage was no longer at Cambridge. 
He graduated in 1814 with a first in 
mathematics from Peterhouse College, 

and in June of that year he married 
Georgiana Whitmore, the daughter of a 
country squire. In November the couple 
moved to London where Babbage made 
his home for the rest of his life. 

Over the next five years Babbage was 
involved in a number of projects. He 
did a study of the cost of mail service 
that convinced him thai one-price post- 
age was feasible— one of the first exam- 
ples of what we now call operations re- 
search. He contribiued an article on 
submarine navigation to the Encyclope- 
dia MeiropolHana that included a 
descriptionof a military submarine. His 
work was diverse, ingenious — and 
unprofitable, 

Babbage decided not to enter his fa- 
ther's bank, and looked instead for an 
academic position. He was repeatedly 
disappointed because he could not or 
would not bring the influence of highly 
placed friends to bear. He was a firm 
believer in advancement by merit and 
was rather shocked by the part connec- 
tions played in obtaining such positions. 
He was hardly poor, but took his fail- 
ures in bad grace and began to show 
signs of the streak of bitterness and cyn- 
icism that grew broader and deeper as 
the years went on. 




All our games are $15.95 for tape $19.95 for disk except 

the Penetrator that Is $24.95 for both disk and tape and 

Panik which Is $1 9.95 tape and $24.95 Disk. 



SPECIAL 10% DISCOUNT IF 

Simon and Merfunkle 

A new game by Kyle Hoyt... An ex- 
cellent game for kids from 6 to 60, Easy 
to learn fun to play. Based on the game 
Simon. Play music with flashing graphics 
and you must repeat the graphics or the 
music. Two different games. ... SI 5.95 



NOVEMBER TOP TEN 

1. CYBORG Computer Shact, 

2. PENETRATOR Metbourne House 

3. DEMON SEED Trend Software 

4. OUTHOUSE Soft Sector 

5. PANIK Fantastic Software 

6. CATAPILUR Soft Sector 

7. ALIEN DEFENSE Soft Sector 

8. VENTURE Horizon Software 

9. SCARFMAN Cornsott Group 

10. ELIMINATOR Adventure Int. 

We have a panel of expert game playeis who 
will give a monthly rating of the best games on 
the market. It will change monthly, so Iook 
every month. If you would like to send in your 
top ten games we would be glad to have it 



Dungeon Escape 

A truly exciting game based on Dungeon 
and Dragons'" it has real time action, graph- 
ics, great sound and best of all it has a totally 
random drawn dungeon so the game is 
completely different every time you play. 
Rated in the top ten for the last three 
months (This is Computer Shacks best sell- 
ing game). 

NEW LOWER PRICE only S15.95 for tape 
and SI 9.95 for disk. 

STARFIRE Our favorite game for the COCO 
based on the arcade game DEFENDER'" 

only S19.95 

DFT now for the COCO see our ad in the 
Modem section, a terminal program for only 
S19.95 



YOU ORDER TWO OR MORE. 

New Games! 

OUTHOUSE a hilarious new arcade game 
by SoftSector. The first funny arcade game. 
You must zap the bad guys before they 
steal the toilet paper out of your outhouse. 
Highly recommended. 

CYBORG our reviewers all said it is the best 
arcade game they have played. 

PANIK 

A new arcade game by William Demas. 
He has taken Donkey Kong", and made it 
into a Space type real time arcade game. 
A very nice game. 

DEMON SEED a great new game by two 
unknown Michigan Kids. The game is based 
on the arcade game PHOENiX" and it has 
many outstanding graphics. This is a fast 
action packed arcade game that comes 
highly recommended. 

Oldies but goodies! 

VENTURE a great arcade type game 
from Horizon software. Exciting and fun to play. 
Great graphics and sound. 
PENETRATOR. a dazzling space type shoot 
em up game with some new wrinkles never 
seen before on a TRS-80. This game by 
Melbourne House should be in every collection. 

ALIEN DEFENSE Has exciting graphics, was 
the fast est gamefortheTRS-80 until Cyborg. A 
must for any serious gamer 

GREYMOON it arcade games aren't your style 

tryGREYMOON this is a thinking man's game 
based on your being the ruler ot a Middle age 
kingdom. Fun, interesting and very we 1 1 written. 

DEFENSE COMMAND protect your fuel cans 

from mvading monsters Good graphics and 
well written. 

GHOST GOBBERS $19.50 

A very good Pac Man'" type game. 

Color Intenslflar for Color TV makes colors 

on color games deeper & brelghter 13X10 

size $19.95 

Other sizes fi/ special order. 



• COLOR TAPE COPY • 

This tape will copy any tape machine language, basic or data files on the coir 
computer. Only $15.95 

COLOR SCARFMAN MASTER CONTROL 

New 4K Color Scarf man tape, .,, $19.50 For Color Computer only $19.95 

COLOR BONANZA 

50 Programs from Soft Sector LIST $49.95 SALE $39.95 



1691 Eason • Pontiac, Michigan 48054 Info: (313) 673-2224 Orders; (800)392-8881 

Ivlnster charge and Visa OK. Please add $3,00 tor shipping in USA - $5.00 lor Canada of Mckico - 
Proper postage outside of US - Canada - Mexico. ' . ' 

Dealers: We are distributors for all items in this ad. Write for cur catalog and price list. ^ 
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Later in his life he was offered a 
knighthood and a baronetcy and turned 
both of them down, in part because 
they were marks of favor and not ac- 
compHshment . 

In 1820 Babbage helped found the 
Royal Astronomical Society and served 
on the committee to draw up its rules. 
Then, along with his college classmate 
John Herschel, he was appointed to cal- 
culate some astronomical tables for the 
Society. The experience was the genesis 
of his life's work. 

Tables and the Difference Engine 

There are two storiqs of how Babbage 
came to the idea of his first calculating 
machine — both involve mathematical 

tables. 

According to Babbage in his autobi- 
ography, he was sitting in the Analytical 
Society's room at Cambridge one day in 
1812, dozing over a book of logarithms. 
Another member came in and asked 
what he was dreaming about. 

"I am thinking how all these tables 
might be calculated by machinery," 
Babbage replied. 

The other and somewhat more au- 
thoritative version goes to the work that 
Babbage and Herschel did for the Royal 
Astronomical Society. At one point in 



''His work was 

diverse, ingenious — 
and unprofitable. " 



the tedious business of checking their 

calculations, Babbage looked up and 
said in exasperation, "I wish to God 
these calculations had been executed by 
steam!" 

"It is quite possible," Herschel 
replied. 

Whatever the origin of the idea, it 
was shortly after his work with Herschel 
that Babbage turned his mind seriously 
to the problem of building a machine 
that would calculate and record tables 
automatically. 

Unlike most of Babbage's ideas, 
the use of this one was apparent to his 
contemporaries. The period between 
1770 and 1850 was marked by the 
birth or wide acceptance of disci- 
phnes that demanded tables of con- 
tinuous functions — more of them and 
more elaborate ones every year. In 
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spite of the ingenious methods adopt- 
ed to calculate them, mathematicians 
were in danger of falling behind the 
demand. 

The growth of mathcmaiical literacy 
went hand in hand with increased com- 
merce and banking. Merchants needed 
tables of compound interest. Engineer- 
ing wa.s emerging as a profession and 
engineers needed log and trig tables for 
their work. More land was being sur- 
veyed scientifically and surveyors need- 
ed their books of tables loo. Astrono- 
mers needed tables of the motions of 
newly discovered planets and asteroids; 
mathematicians needed tables of new 
functions. 

But for the average Englishman, the 
most important need for tables came 
from mariners. The art of celestial navi- 
gation was increasingly practiced and 
this called for tables by the hundreds. 

Every heavenly body used for naviga- 
tion required a set of tables to show the 
navigator where it was at every instant. 
Theoretically, he could work from just 
one star or planet and gel his position. 
In practice he needed tables for as many 
heavenly bodies as he could get. A sin- 
gle body might be below the horizon, 
obscured by clouds, or otherwise invisi- 
ble for long periods of time. What's 
more, accurate navigation required 
double and triple-checking by compar- 
ing the sights taken on several bodies. 
To 19th-century England, which lived 
by commerce on the seas, accurate navi- 
gation and its attendant mass of tables 
was a matter of national importance. 

Everyone made blunders in compil- 
ing tables. Calculators checked and re- 
checked their work before sending it to 
the printers, but the volumes still 

emerged festooned with errata notices. 
Frequently, there would follow further 
errata notices pointing out errors in the 
corrections and sometimes there would 
be corrections to the corrections of the 
corrections. 

Babbage proposed to remedy the sit- 
uation with a machine that would calcu- 
late the tables and prepare printing 
plates automatically. Nearly all the ta- 
bles needed were for continuous func- 
tions or functions that were continuous 
within predetermined limits (sines and 
cosines, for example). In practice these 
were calculated by difference methods 
rather than successive compulations 
from the formulas. Using differences, 
the calculations were reduced to a series 
of simple additions. 

The French mathematician Prony 
took advantage of this during the 18th 
century when he set out to prepare a 
massive set of log and trig tables for the 
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post-revolutionary French government. 

Two skilled maihematicians were giv- 
en the job of calculating ilie different 
formulas, six or seven highly trained 
calculators translated tliose formulas 
into numbers and 80 or so people who 
kne\y the rudiments of arithmetic did 
the actual calculation. It was this last 
group that Babbagc proposed to replace 
with his Difference Engine. As he ex- 
plained in his autobiography: 

". . .Ttie melliod of differences supplied a 
general principle by which alt tables might be 
computed through limited intervals by one 
uniii)iin process. Again, the method of dif- 
ferences required the use of a mechanism for 
addition only. In order, however, to ensure 
the accuracy of the printed tables it was nec- 
essary that the machine which computed the 
printed tables should set them in type, or else 
supply a mold in which stereotype plates of 
these tables could be cast. 

I now began to sketch out arrangements 
for accomplishing the several partial pro- 
cesses which were required." 

The Method of Differences 

Babbage's machine was designed to 

use the fact that each succeeding value 
in any continuous function on an inter- 
val can be approximated as closely as 
necessary by adding the appropriate dif- 
ferences to the value immediately 
previous. 

Take lor example the function Y = X^ 
+ X (sec Table I). If you subtract each 
value of Y from the succeeding value, 
you get a regular progression called the 
first difference. Subtract each first dif- 
ference from the succeeding difference 
and you get the second difference. If 
you coiUinue this process long enough 
you get a constant. By adding that con- 
stant fo the differences so obtained and 
that total to the previous value of the 
function you get either the next value or 
a number very close to it. How many 
differences it takes to get a constant de- 
pends on the highest power in (he origi- 
nal polynomial function. In Table 1 the 
highest power is two (X^), so the con- 
stant is obtained on the second 
difference. 

To make the difference method work 
you do nol need to know the polynomi- 
al. All you need is a sufficient number 
of successive values of the function and 
you can extract the difference. 

Of more interest to small-computer 
users is the ability to save memory and 
computing time when working out suc- 
cessive values of a function. This is es- 
pecially useful where the function is 
quite involved or you need to find the 
next value quickly, in computer graph- 
ics for instance. 
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If you do use difference methods, 
there are two things you need to watch 

out for. These are problems that also 
explain something of the nature of Bab- 
bage's design for his Difference Engine. 

First, the method often only approxi- 
mates the correct answer. In these cases 
the cumulative error builds up until it 
reaches an unacceptable level. When 
this happens, you need to change the 
constant difference used in the calcula- 
tions. Typically, it has to be increment- 
ed or decremented by one. The higher 
the power of the approximating polyno- 
mial, the more accurate the approxima- 
tion — and the more differences you 
have to take to get a constant dif- 
ference. 

The other thing is that you need suffi- 
cient precision in the numbers you are 
calculating. If you try this method with, 
say, a standard five-piece trig table, you 
will find that the final difference fluctu- 
ates at irregular intervals. This is the re- 
sult of rounding off the values in mak- 
ing the tables. The more places you 
work to, the less chance there is of hav- 
ing this problem. 

Design of the Difference Engine 

The process of addition might be 
siinple, but building a machine that 
would work to Babbage's exacting 
standards wasn't simple at all. For 
maximum utihty it would have to be 
able to work to as many differences 
as possible, and to prevent problems 
with round-off error, it would have to 
work to as many decimal places as 
possible. These requirements took it 
very much out of the run of ordinary 
mechanical adding machines. 

There had been mechanical adders 
before, of course (notably Pascal's 
four-function machine built around the 
middle of the 17th century). But most of 
them were Just gear trains with numbers 
on the gears, the type that can be built 
into a child's pencil box today. 

This type of mechanism was unsatis- 
factory on several grounds. For one 
thing, all the gears are constantly en- 
gaged, resulting in very long gear trains 
with a cumulative backlash that could 
cause errors in a machine the size Bab- 
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bage envisioned. For another, the force 
needed to drive such trains is excessive, 
causing heavy wear on the parts and 
making backlash errors even more like- 
ly. Since Babbage was thinking in terms 
of a machine that worked in 15 places 
through six differences, these were ma- 
jor difficulties. 

There was also the matter of speed. 
Babbage wanted something that had at 
least some advantage over a trained cal- 
culator. Rapid starting and stopping of 
long gear trains would mean large accel- 
erations of the parts, making them even 
more prone to failure. 

These were all problems that plagued 
the designers of mechanical office ma- 
chines at the end of the 19th century. 
Babbage's solutions were, on the whole, 
more elegant and carefully thought out 
than the ones adopted by business- 
machine makers half a century later. 

The definitive version of Babbage's 
machine met these difficulties by split- 
ting the process of addition into sub- 
tasks. Intelligent design kept the masses 
to be put in motion at any one time 
small and the chains of driven parts 
short. There were never more than six 
moving parts in a driven chain; the mo- 
tions required were small and masses 
light. Babbage paid special attention to 
compensating for wear and designed 
fail-safe mechanisms to prevent the ma- 
chine from giving wrong answers due to 
misalignment. 

To get maximum speed and keep 
down the masses in motion simultane- 
ously, Babbage resorted to an ingenious 
method of phasing the motions 
together. Each cycle of operation was 
divided into four equal sections with 
tasks divided among the sections in the 
same way a computer divides the task of 
addition over several clock pulses. 

To help him keep it all straight Bab- 
bage developed a sophisticated system 
of mechanical notation that allowed 
him to describe exactly the states and re- 
lationships of any mechanical device at 
any instant. It is a pity that this system 
was never popularly adopted because it 
is very difficult to describe how the Dif- 
ference Engine operated without it. 

Probably the best description of the 



fully developed engine is found in Dr. 

Dionysius Lardner's 1834 article in the 
Edinburgh Review (reprinted in Charles 
Babbage and His Calculating Engines 
—see bibliography). 

The machine Dr. Lardner described 
was capable of working with 1 8 places 

of figures to six differences. This meant 
there were seven sets of figures dis- 
played, counting the result or table 
figure. 

Physically, the machine would have 
fit into a large closet. A person opening 
the door of the closet would have found 
himself facing a mass of gears and 
mechanism with seven columns of disks 
ranged one beside the other. Each disk 
was about five inches in diameter and 
1 Vi inches high with the numbers zero 
to nine engraved on the edge. These 
were the display wheels and each col- 
umn represented a number. The column 
furthest to the left was the difference 
column where the constant difference 
used in the calculation was set. Since it 
was used only to enter a number, it had 
no adding mechanism. 

In operation the Difference Engine 
was as impressive as a pinball machine 
or an old Linotype. Something was 
happening constantly as parts moved, 
stopped, and moved again in response 
to the machine's program. 

The machine added and carried in 
separate operations with the even col- 
umns working while the odd columns 
received the results of their work. As the 
main driving wheel moved from zero to 
90 degrees, columns 1, 3, and 5 (count- 
ing from the right) moved, adding and 
entering the results in the even columns, 
but not carrying tens should any car- 
riages be needed. From 90 to 180 de- 
grees, the carriages for this sequence 
were performed. From 180 to 270 de- 
grees, the even-numbered columns add- 
ed to the odd columns and from 270 to 
360 degrees, the carriages for this series 
of operations were carried out. 

However, all the wheels in a column 
did not start moving at once. The ones 
on the bottom (units) row started first 
and each succeeding row started a little 
behind the one below it. The carriages 
were made the same way. This de- 
creased the number of parts that had to 
be put in motion at any one time, mak- 
ing the operation smoother and cutting 
down on wear. 

The result was that the machine add- 
ed and carried in ripples, starting from 
the lower left corner (the units wheel in 
the constant difference column) and 
working up and to the right. The entire 
operation of calculating and printing a 
table entry was carried out in one cycle 



of the main driving wlieel no matter 
how many differences or carriages were 
involved. 

It would have been a sight to see in 
operationl 

In spile of its complexity, the ma- 
chine was composed of one fairly sim- 
ple subassembly repeated over and 
over. Each colnmn was composed of 19 
such subassemblies stacked on top of 
each other and attached to the same 
three shafts. The shafts for each column 
were arranged one behind the other 
with the rear shaft carrying 19 melal fin- 
gers mounted in a spiral. These fingers, 
one per subassembly, provided the ini- 
tial impulse on each cycle of the ma- 
chine's operation. Arranging the fingers 
in a spiral provided the basic timing for 
operations in each column. 

The heart of each subassembly was 
the counter mechanism on the mid- 
dle shaft. This consisted of a pair of 
gears with teeth around the eircum- 



"In spite of its 
complexity, the machine 

was composed of one 
fairly simple subassembly 
repeated over and over. " 



fcrence and on one side, bottom side 
for the top gear and top side for the 
bottom gear. There was also a bolt 
that could be slid in between the side 
teeth by the action of the finger on 
the third shaft, and a cam on one of 
the gears that would shde the bolt 
back out again at a given point in the 
mechanism's rotation. Although the 
shaft all this rode on was turning, 
the counter mechanism itself didn't 
turn under its power until the bolt 
was slid home. 

The front shaft carried the display 
wheel and part of the carry mecha- 
nism. Both addition and carriage 
were done in stages, Set and Execute. 
When a display wheel passed from 
nine to zero, it cocked a ratchet-sear 
mechanism mounted on the frame 
next to it. When the Carry part of the 
cycle was reached, the sear on the 
subas.sembly above would be tripped 
and the display wheel and associated 
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mechanism would aidvance. 

An addition operation in a subassem- 
bly actually started during the previous 
addition segment of a machine cycle. 
That is, if the subassembly was in an 
odd column, it started during the even 
part of the cycle. As the display wheel in 
the even column advanced, it moved the 
lower gear in the counter mechanism in 
the column to its right (an odd column) 
forward by the appropriate number of 
places. If the display wheel showed a 
three, for instance, the lower gear in the 
adjacent column would move ahead 
three places. This had no immediate ef- 
fect on the rest of the subassembly, but 
it entered [he number in "memory" 
ready to be added to the number show- 
ing on the display wheel during the ap- 
propriate part of the cycle. 

The upper wheel of the counter 
mechanism was geared directly to the 
display wheel, and its position rellected 
the number appearing on the display 
wheel of that subassembly. 

As the addition cycle progressed, the 
finger on the third shaft would come in- 
to position and force the bolt home, 
locking the upper and lower gears to- 
gether and both of them to the turning 
shaft. The wheels would advance to- 
gether, advancing the display wheel and 
the lower gear in the counting mecha- 
nism to the right. After the counter 
mechanism had advanced the appropri- 
ate number of places, the cam on the 
lower gear would slide the bolt out, end- 
ing the addition. 

The printing mechanism, which was 
attached to the final (or table) column, 
was equally ingenious. The printer used 
a lever to read a snail cam at the top of 
each subassembly in this column succes- 
sively. The lever controlled the motion 
of a frame shaped like a sector of a cir- 
cle, which in turn contained punches 
bearing figures from zero to nine. 

The position of the cam controlled 
the position of the sector, and therefore 
which punch -was presented to an im- 
pression lever. The impression lever 
pressed against the punch and forced it 
into a copper plate mounted on a plat- 
en. The read lever moved down to the 
nc.Kt cam, a spring withdrew the punch 
and the process was repeated. The plat- 
en could be used as a printing plate or 
stereotypes could be made from it. 

In addition to this basic mecha- 
nism, the Difference Engine included a 
system for alerting the operator when a 
preset number had been reached. This 
let the calculator preset the mechanism 
to the interval required by the differ- 
ence formula. 

Babbaee discovered that he could use 



this feature to let the machine find the 

rational rooi of an equation by trial and 
error. It could also tell if the roots of an 
equation were imaginary. This discov- 
ery set him thinking about an Analytical 

Engine. 

Developing (he Difference Engine 

When Babbagc started designing in 
1820, he didn't have anything this ele- 
gant in mind. His first model had three 
display wheels in the table column, two 
for the first difference column and one 
for the second difference. He had the 
parts constructed and assembled them 
himself. He had to rebuild the frame to 
make it stronger and had a new set of 
gears cut, but in 1822 he produced a 
machine capable of calculating 44 dif- 
ferences a minute and driven by a fall- 
ing weight. 

Forty- four calculations a minute 
wasn't any faster than a human could 
work, but it proved his principle. 

On June 14, 1822, Babbage read a 
paper describing his work to the Royal 
Astronomical Society. He also pro- 
posed a much larger machine to calcu- 
late useful tables. The response from 
the members was overwhelmingly 
favorable. 

On July 3 of the same year he wxotc 
Sir Humphrey Davy, the president of 
the Royal Society, explaining his work 
in greater detail and asking Davy's aid 
in obtaining backing for his larger ver- 
sion. In his letter, Babbage mentioned 
he had designed several other calculat- 
ing machines, including a device for do- 
ing multiplication, a machine for con- 
structing tables that had no constant 
difference, and most intriguing of all, a 
machine that would calculate all the 
primes between one and 10,000,000. 
But Babbage told Davy that the Differ- 
ence Engine was the furthest along of 
his designs and probably the most 
useful. 

Babbage said that while the Differ- 
ence Engine would be useful, it was un- 
likely ever to be a paying proposition. 
He said his personal resources weren't 
enough to build it and outside help 
would be needed. 

Shortly after he wrote Davy, Bab- 
bage wrote to the Treasury asking for 
support (0 build the Difference Engine. 
The Tords of the Treasury kicked the 
matter back to the Royal Society, and 
that body established a committee to 
look into the proposal. On May I, 1823, 
the committee reported they considered 
that Babbage's machine could be con- 
structed and that it would be worth- 
while. They urged that the government 
support the project. 



The cximmittee's verdict was not sur- 
prising. After all, Davy was solidly be- 
hind Babbage and most of the commit- 
tee members were his friends. However, 
it was highly unusual. 

It was almost unheard of in 1823 for 
any government to provide financial 
support for an inventor. The closest 
that the British government usually 
came to funding research and develop- 
ment was to offer prizes for useful in- 
ventions, but these were supposed to be 
granted only after the device was com- 
plete and tested. 

Neither the government nor Babbage 
had any experience at making develop- 
ment agreements, and that was at the 
root of much of the trouble that 
followed. 

In July, 1823, Babbage received a 
gold medal from the Royal Society for 
his work. That same month, he had an 
interview with Frederick J. Robinson, 
Chancellor of the Exchequer, on getting 



''Babbage expected to 

finish the Difference 

Engine in three to five 

years at a cost of 5, 000 to 

5,000 pounds," 



money for the Difference Engine. In- 
credibly, the results of that meeting 
were never reduced to writing and ap- 
parently there was never a complete un- 
derstanding between them. Both of 
theni later had different versions of 
what had been decided. 

Babbage thought the government 
had agreed to pay the cost of building a 
Difference Engine, which would then 
be government property. Robinson 
thought the government had agreed to 
grant Babbage a fixed sum to let him 
build ills engine and that that was the 
end of the government's obligation. 
Worst of all, neither Robinson nor Bab- 
bage realized at the time that there was a 
misunderstanding. 

At tlie time it didn't seem to matter. 
, Babbage expected to finish the Differ- 
ence Engine in three to five years at a 
cost of 3,(X)0 to 5,0(X) pounds. The 
Treasury had agreed to advance him 
1,500 pounds, and he didn't expect to 
need more unfil after the machine was 
completed. 

Even if things had gone, well, Bab- 

p' See List of Advertisers on Page 455 
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'Babbage suffered from a chronic 
case of designitis — the inability 
to quit tinkering with a design. " . 



bage's estimates of lime and money 
were extremely optimistic. The first 
problem Babbage faced was working 
out the design fully. He quickly learned 
the folly of trying to skimp on this step. 
Several times he rushed ahead to con- 
struct parts of the mechanism, only to 
have to discard them because they were 
unworkable or superceded by a better 
way of doing things. 

Although it is usual lo speak of 
Babbage's Difference Engine as a 
single machine, the name actually 
refers to a succession of machines 
designed in overlapping sequence 
from 1832 to 1834. Much of this was 
justified as Babbage attempted lo 
overcome design problems and to 
make the machine more efficient. But 
Babbage also suffered from a chronic 
case of designitis — the inability to 
quit tinkering with a design. It is an 
ailment not unknown to modern engi- 
neer.s, but unlike modern engineers, 
no one warned Babbage of the conse- 
quences: cost-overruns and schedule 
slippage. 

While the design work was going on, 
Babbage employed Joseph Clement, 
one of the pioneers in the design and 
construction of machine tools, to help 
build the engine. Oement spent most of 
his time on the project building tools to 
make the parts. Babbage's indexing 
mechanism for the stereotype plates was 
adapted and applied to a crude shaping 
machine. A turret lathe was invented. 
Work was done on precision grinding of 
parts. A system of pressure casting was 
worked out to make gears for the 
machine. 

Clement was a good match for Bab- 
bage. He was brilliant In his own right 
and famous for his ability to work to 
close tolerances. One of the men Cle- 
ment employed on the project was 
.loseph Whitworth, who later made ma- 
jor contributions of his own lo modern 
industry, including the first standard- 
ized system for nuts and bolls. Later, 
Babbage was fond of saying thai he 
made Whitworth, and through him, 
modern industry. There is probably 
some truth in that. 

But the work took time. Clement and 
his men could probably work as accu- 
rately as today's average machine shop, 



but not nearly as quickly. Not only were 

they inventing techniques as they went 
along, but metallurgy was in its infancy 
and high-speed steel hadn't even been 
thought of yet. The Difference Engine 
was being built to gauged standards — 
another first — but much of the final 
work had to be done by hand. 

The End of the Difference Engine 

By 1827, rumors were circulating in 
London that the engine was a failure, or 
worse, a fake. Babbage had his support- 
ers, but even they had to admit the work 
was going slowly. 

In August 1827, Babbage's work on 
the Difference Engine stopped com- 
pletely. His wife, pregnant with their 
seventh child, died in childbirth. 

The previous January Babbage's fa- 
ther had died, and before the year was 
out, two of his children died as well. 
Coming on top of the strain of his work 
and the growing mutterings, it was all 
loo much. Babbage suffered a nervous 
breakdown and took an extended trip to 
continental Europe. 

Babbage's sojourn on the Continent 
may have been good for his nerves and 
it certainly provided him with material 
for several books and scientific papers, 
but it was the kiss of death for the Dif- 
ference Engine. Work continued after a 
fashion as Babbage corresponded with 
Clement about the project, but it was 
much slowed and the rumors continued 
to grow. 

While Babbage was in Europe, an ar- 
ticle appeared in the Record criticizing 
his handling of the work. The writer 
claimed that Babbage had been given 
money by the government to finish his 
engine and that it was long overdue. 
The writer demanded an accounting 
from Babbage or his friends. 

John Herschel answered for Babbage 
in the Times, saying he was overseeing 
the project in Babbage's absence. Enor- 
mous progress had been made, 
Herschel said, and none of the money 
had been wasted. It was a forceful re- 
buttal and probably accurate, but the 
fact remained there was little to show 
for nearly six years of work. 

Before Babbage returned to England 
in 1828 he came to the conclusion that 
more money would be needed. Accord- 
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New NRI Home Study Course 
Shows You How to Make Money 
Servicing, Repairing, and 
Programming Personal and 
Small Business Computers 
Seems like every time you turn around, somebody 
comes along with 2 new computer for home or business 
use. And what's made it all possible is the amazing 
microprocessor, the tiny little chip that's a computer 
in itself. 

Using this new technology, the industry is offering 
compact, affordable computers that handle things like 
payrolls, billing, inventory, and other jobs for businesses 
ofeverysize...perform household functions including 
budgeting, environmental systems control, indexing 
recipes. And thousands of tiobbyists are already owners, 
experimenting and devek^jjig (heir.own programs, 

Growingjr(*inand for 
Computer Technicians 

This is only one dppie growth factors influencing 
the increasing opportunities for qualified computer 
technicians. The U.S. Department of Labor projects over 
a 100% increase in job openings for the decade through 
1985. Most of them new jobs created by the expanding 
world of 'the computer. 

Learn at Home 
in Your Spare Time 

NRI can train you for this exciting, rewarding 
field. Train you at home to service not only micro- 
computers, but word processors and data terminals, too, 
TVain you at your convenience, with clearly written 
"bite-size" lessons diat you do evenings or weekends, 
without going to classes or quitting your present job. 

Your (raining is built around the latest model of 
the world's most popular computer. It's the amazing 
TRS-80™ Model 111, witfi capabilities and features to 
perform a host of personal and business functions. No 
other small computer has so much software available for 
it, no other is used and relied on by so many people. And 
it's yours to keep for personal or business use. 

You get plenty of practical experience. Using the 
NRI Discovery Lab® that also comra as part of your 
course, you build and study circuits ranging from the 
simplest to the most advanced. You analyze and trouble- 
shoot using the professional 4-function,LCD digital 
multimeter you keep to use later in your work. Then you 
use the lab and meter to actually access die interior of 
your computer, , .build fecial circuits and write pro- 
grams to control diem. You "see" your computer at 
work and demonstrate its power. 
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Computer 
Assisted Inslriiction 

Your TRS-80 even helps train you. "ibu 
receive 4 special lesson tapes in BASIC computer 
language. Using them in your microcomputer, you 
"talk" to it as you progress. Errors are explained, 
graphics andanimation drive home key points. Within 
a matter of minutes, you'll be able to' write simple 
progranis yourself 

Become the 
Complete Computer Person 

In addition to training in BASIC and advanced 
machine language, you gain hands-on experience in 
the operation and application of computers to business 
and personal jobs. You're trained to become the fully 
rounded, new breed of technician wiio :aii iiiicrfaa' 
with the operational, pro- 
gramming andservice facets 
of today's computers. You're 
ready to take your place in 
the new electronic age. 
Other 
Opportunities 
NRI has been giving 
ambitious people new elec- 
tronic skills since !9l4. lb- 
day's offerings also include 
TV/Audio/Video Systems " 
servicing with training on 

our exclusive Heath/ZeniUi 

computer-programmable 
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ingly, he wrote his brother-in-law, 
Woiryche Whitmore, a member of Par- 
liament, asking him to talk to Robinson 
(now Lord Goderich) about another 
grant. 

Now the confusion about the original 
agreement surfaced. Robinson refused 
to advance any more money and denied 
any obligation to do so. When Babbage 
returned to England, he went to see the 
Chancellor himself, but to no avail. 

Babbage's next step was to apply to 
the Prime Minister, the Duke of Well- 
ington, for help. Although the Duke 
was somewhat anti-intellectual, Bab- 
bage and Wellingion seem to have got- 
ten along very well and Babbage got his 
money. 

But first another committee of the 
Royal Society was appointed to look in- 
to the stale of the project. The group in- 
spected the drawings, tools, and plans 
and came to the conclusion that the 
work was about 60 percent completed 
and could probably be completed in an- 
other three years. The project was un- 
questionably worthwhile, the commit- 
tee said, and they expressed admiration 
for the work that had been done. Bab- 
bage's old friend John Herschel was the 
chairman of the committee. 

On the basis of the report, the gov- 
ernment granted another 1 ,500 
pounds, but that was just a drop in 
the bucket. Babbage estimated he had 
spent 6,000 pounds of his own money 
up to that point. 

In May of 1829, a group of 
Babbage's friends and supporters, in- 
cluding Herschel and the Quke of 
Somerset, met to discuss the work and 
Babbage's relations with the govern- 
ment. They came to the conclusion that 
it would cost at least 4,000 pounds more 
to complete the projea and that the 
money ought, in justice, to come from 
the government. They decided to apply 
again to the Duke of Wellington. 

The Duke inspected the work and 
recomniended that the government pay 
out another 3,000 pounds. At the same 
time, Babbage sought to clearly estab- 
lish just who had what rights and duties 
in respect to the engine. 

After some negotiation, the govern- 
ment was willing to advance another 
3,000 pounds, but they could not guar- 
antee to complete the project. On the 
other hand, once the Difference Engine 
was finished, the government would be 
willing to consider any claims for addi- 
tional compensation that Babbage 
might put forward. 

This was better than the original 
agreement, but it did not completely 
settle the question of ownership and 
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"After 1834 

the Difference Engine 

was dead. '' 



therefore left Babbage's role in the proj- 
ect unclear. Babbage believed he was 
acting as prime contractor for a govern- 
ment project, while the government of- 
ficials still considered the Difference 
Engine Babbage's private project that 
was receiving government support. 

For Babbage, a more immediate 
problem was the process of paying the 
bills. Under the scheme set up by the 
government, Clement submitted his 
bills to Babbage, who turned them over 
to a firm of government-appointed en- 
gineers for checking. The engineers re- 
turned the bills to Babbage, who for- 
warded thein to the Treasury, which 
would issue a draft to Babbage, who 
would then pay Clement. Since there 
was no provision for advance pay- 
ments, and the process could take 
months, Clement's pay was constantly 
in arrears. 

The matter came to a head in 1833 
when the workshop, offices, and fire- 
proof storage building the govern- 
inenl had constructed near Babbage's 
house were rea^y. When the time 
came tp niovp everything, Babbage 
told Clement that from now on, he 
would not advance nioney for the 
work. This did not sit at all well with 
Clement and he demanded hefty com- 
pensation for moving the work out of 
his own shops and into the new build- 
ings. Babbage felt the demands were 
exorbitant and refused to pay. Cle- 
ment then shut down work on the 
project and dismissed the men. 

In a letter to Babbage on March 26, 
1833, Clement set out his case. He 
had dealt with no one except Bab- 
bage, he wrote, and as far as he was 
, concerned, it was up to Babbage to 
see that he got paid on time. Bab- 
bage's arrangements with the govern- 
ment were none of his concern and 
unless Babbage or someone would be 
responsible for paying him on time, 
there would be no further work. 

Clement's most ruinous step was to 
keep all the special tools and fixtures 
built to aid the project. Since these rep- 
resented most of the work and much of 
the money spent so far, Clement's ac- 



tion effectively killed the Difference 
Engine. 

Under the law of the time, Clement 
was within his rights. A workman 
owned any tools he had constructed, 
no matter who had paid for them. Be- 
fore the century was out the law 
would be changed, but once again 
Babbage paid the price for being too 
far ahead of his time. 

Babbage tried to salvage something 
from the situation. First he tried to 
set up a new payment scheme with 
the Treasury to get the bills paid more 
promptly. The government was agree- 
able but Clement wasn't. Then he tried 
to buy the tools and drawings for them 
back from Clement. Clement wouldn't 
sell at Babbage's price. 

There the matter lay. After 1834 the 
Difference Engine was dead. 

Babbage used some of the completed 
subassemblies to put together a small 
working model of the machine. The 
model, which worked to three differ- 
ences of six places each, was used by 
Babbage for some preliminary calcula- 
tions. Later it was placed in the Science 
Museum in London. This is the ma- 
chine usually described as "part of Bab- 
bage's Difference Engine." 

Dr. Lardner's description of the ma- 
chine appeared in the July 1834 issue of 
^Inburgh Review. Several others made 
a stab at building the machine. An Eng- 
lish clergyman built a small difference 
engine for his own amusement. Swedish 
printer and publisher Pehr Georg 
Scheutz built a machine that would 
work to four differences with 14 figures 
in each place and print the results on 
lead tape, which could be cut to length 
and used to make stereotype plates. It 
took Scheutz and his son nearly 20 years 
to finish their machine — its final design 
was very different from Babbage's. 

Wt^en the Swedish machine was an- 
nounced in 1855, Babbage did every- 
thing he could to promote it. He was in- 
strumental in seeing that the machine 
was awarded a gold medal by the 
French government when it was shown 
at the Paris Exhibition that year.B 



This is the first of a two-pan series. 
Part one covers Babbage's achieve- 
ments through the Difference Engine. 
Part two will discuss his attempts to 
build the Analytical Engine. 



Rick Cook can be reached at Box 
15193, Phoenix. AZ 85060. 



The LAZY 



ITER word processing system by David Welsh 




WHAT REVIEWERS ARE SAYING 
ABOUT LAZY WRITER: 



"Author David Welsh has packed every feature he could think of into 
the program and the result is a highly sophisticated piece of software in 
both Modei I and Modei Ml versions . , , For complex printing tasks, 
LAZY WRITER is hard to beat/' - Dan Robinson, 80 micro 

"This program enjoys some of the best manufacturer support I've 
encountered . . , LAZY WRITER is one of the most sophisticated TRS- 
80 word processing packages around. It has excellent features, 
documentation and support, and can be expected to provide ongoing 
utility for even the most demanding user." - T. A. Daneliuk, InfoWorld 

"LAZY WRITER is proof that simple and powerful can coexist. It is 
among the easier word processing packages to learn. It's one ot the 
few that allow you to sit down and begin entering text a few minutes 
after loading the software." - David D. Busch, Interface Age 



LAZY WRITER GIVES YOU: 

• zao CODE, for fast execution of commands. 

• Control codes ANYWHERE in text to let you get 

compressed or expanded type, super/subscripts, etc. 

• Page breaks BEFORE you print. 

• CUSTOMIZED printer defaults, cursor size, shape, 
speed, etc- 

• DISK DIRECTORY plus kill or verify files without 
going to DOS. 

• LONG DOCUMENTS print automatically, white 
preserving page numbering and titling. 

• 10 USER DEFINABLE function keys. 

• BACK OUT of inserts and deletes. 

• A NEWSLETTER for users. 

• SET TABS, CHANGE CASE, move or delete NAMED 
blocks of text. 

• MEMORY KEY returns cursor to a screen & cursor 
position. 



LAZY WRITER l^^odel I & lll$175.00 

NEW EXTENSIONS MAKE LAZY WRITER 
EVEN MORE POWERFUL! 

• LAZYDOC — Standard Legal forms are a snap! 
Let LAZYDOC prompt you tor the changes, then 
automatically insert those changes into your 
document. Many features; send for more 
information $59.95 

• LAZYCALC — Use LAZY WRITER to create 
reports with numerical data, then total your figures 
with LAZYCALC. If you work with figures, you'll 
find this a powerful addition to word processing 
$29.95 

• LAZYTAB — It's easy to enter data in tabbed 
columns, but LAZYTAB aligns decimals too I $15.00 

• LAZYDRAW — Create graphics on the screen, then 
send the results to your printer; works with any 
printer that supports TRS-80 block graphics. 

• LAZYDO — Automatically load LAZY WRITER and 
any text file, set printer commands, even print text! 
LAZYDRAW + LAZYDO $19.95 

• SPECIAL: LAZYTAB, LAZYCALC, 
LAZYDRAW and LAZYDO $39.95 



Ask your dealer for LAZY WRITER or call us direct. 

^476 

ABC SALES, 13349 MICHIGAN AVE., DEARBORN, Ml 48126 (313) 581-2896 

c^ See Lis! of Advertisers on Page 455 80 MicrO, November 1982 • 141 



REVIEW 




+ 



by William Barden, Jr. 



^here's a new member of the family — EDTASM + 
for the Color Computer. Bill Barden got his 
hands on a copy, and he's ready to tell all. 




• • • 1/2 

EDTASM + 
Radio Shack 
cat. ^6-3250 
Color Computer 

$49.95 cassette 

EDTASM + for Ihc Color Computer 
is the offspring of EDTASM + for 
the Model 1. It has a subset of the fea- 
tures found in its dad, but unfortunate- 
ly, is not much like the old man. 

Any $49.95 Color Computer editor/ 
assembler sold by Radio Shack thai is 
reasonably well done is going to sell. 
EDTASM + is reasonably well done, if 
not very well done, if you don't have a 
disk system, chances are EDTASM + 
will be your editor/assembler. 

EDTASM + comes in a ROM car- 
tridge. Its $49.95 price probably pre- 
vents all but the most dedicated hacker 
from relocating it to a RAM file on his 
64K system. 

EDTASM -I- is made up of three 
parts: the editor, the assembler, and a 
debug package called ZBUG. 

The Editor 

The editor contains standard Radio 

Shack editing commands, such as the' 
ones in Extended Color Basic: 

• D100:200— Deletes lines 100-200 

• EKX)— Starts edit line 100 

• FLEAX— Finds string "LEAX" 

• H 100:200— Prints out copy 

• 1121,1 — Inserts line 121 and in 
elements by one 
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• L FILE— Loads file "File" from 
cassette 

• N100,IO— Renumbers lines from 100 
with an increment of 10 

• P100:200— Displays lines 100-200 on 
screen 

• Q — Returns to Basic 

• R 1 00— Replaces a line 

• T100:200--Like H, but prints with- 
out line numbers 

• V FILE— Verifies like Basic's SKIPF 
command 

• Z— Goes to ZBUG. 

The editor also contains two interest- 
ing commands not seen on other Radio 
Shack editors: C, which copies a block 
of lines; and M, which moves a block of 
lines. These are handy commands that 
should be in all editors. 

Once in the edit mode {the E com- 
mand), there are subcommands as in 
Extended Color Basic lo manipulate the 
characters in the line — Change, Insert, 
List, and so forth. 

Is this a good editor? Yes, I think so. 
It's compatible with the Basic editor 
{more or less) and contains 90 percent 
of what should be in an ultimate editor. 
One thing that might have been added is 
a replace on a string basis. 

The Assembler 

The assembler uses 6809E mnemon- 
ics only. This is not a detriment unless 
you have existing 6800 code that could 
be converted to a 6809E system, and 
that is not easily done given the config- 
uration differences between systems. 

The 6809E mnemonics are standard 
Motorola mnemonics for the instruc- 



tion set. Pseudo-ops are also standard 
Motorola mnemonics. 

The assembler uses the following 
pseudo-ops {for those of you who are 
new to Assembly language, pseudo-ops 
arc simple commands to the assembler 
that instruct it lo generate data or per- 
form other functions): 

• END— End program 

• EQU — Equate label to expression 

• FCB— Forms a constant byte {gener- 
ates one data byte) 

• FCC — Generates a text string 

• FDB— Forms a double byte (gener- 
ates one data word) 

• ORG— Set origin 

• RMB — Reserve memory bytes {re- 
serves space) 

• SET— Similar to EQU, but can be 
redefined 

• SETDP— Sets DP {direct page) 
register. 

These are all unexciting pseudo-ops 
that are standard for all assemblers 
(with the exception of SETDP, a 
68(^E-related pseudo-op). 

One glaring deficiency is the lack of 
multiple arguments for FCB and FDB. 
In other words, to build a table, you 
would have: 



lABLE FCB $82 
FCB S92 
FCB SAA 



;A to D sine wave values 



instead of simply: 



lAHLL FCiJ S82, S92. SAA, SDA,. 



There are a large number of operat- 
ors that you can use in the assembler. 
You cannot only do things like: 



1 .\H[ }' 


FCB 


S80 + 2 




FCB 


$80 + 23 




FCB 


$80 + 9 


FABLS/, 


EQU 


.-TABLE 



:gei iable ^Its 



and use addition and subtraction, but 
you can also do shifting: 



lUB MSB<8 + LSB 



;M61i'236 t LSli 



lation Software for Your Money, 
Soft Sector Marketing, Inc. 



r^ 
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LIEN DEFENSi 

by Larry Ashmun 

PilotJr^g your ship across the 
horizontally moving terrain, you 
must battle the various enemy 
spacecratt. You are under at- 
tack almost constantly from missiles and bombs, to 
moke matters worse, your ground patrol people are 
being picked up by the alien landers. To save them 
you must shoot the landers and swoop down to 
"catch" the falling man. This fast-action game 
requires skill and rapid reflexes. The Model III version 
makes excellent use of that model's special graphic 
features and both Mod I and Mod III disk versions 
TALK. Arcade simulation 1982, 




by Lorfy Ashmun 

You are being attacked by a 
raging caterpillar. As he creeps 
\ ' ''^^ i down the valley, you must des- 
troy it or be destroyed. If you escape from the first you 
will have only survived to fightanother. Beware of the 
trained killer moth and tumblebugs. Another arcade 
simulation brought to you by Soft Sector Marketing, 
Inc. 




FORTRESS 

by Larry Ashmun 

A super-fast paced arcade 
game. Defend your fortress from 
alien fighters, but watch out for 
the sneak attack. The game 
starts out slow but speeds up very quickly. 

■"■■(■ices oer iicnse- 

TRS-80 16K Level II Mod'l/Mod II! Cass $15,95 

TRS-80 16K Level II Mod I/Mod III Disk $19,95 

10% discount for 2 items, 15% for 3 or more. 
Talking and sound effects ore playable through the cassette AUX 
plug. High scores are outomaticallv saved after each game on 
disk versions. 

Call or write us for our complete catalog! 
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SOFT SECTOR MARKETINQ,] 

INCOnPOnATED 

6250 Middlebelt • Garden City, Michigan48135j 
Order Line 800-521-6504 

^ Michigan Orders & Questions 313-425-4020 



uy Larry Ashmuri 

First there was invaders Plus. 
-^ as^^ Updated and even more chal- 
g^ •, <',;;j||||^| lenging was TRS-Super Invaders. 
ANl for those who thought Space Invaders 

was mastered once and for all, there is SUPER 
VADERS,Thegamegottougherl2 Players-10 levels. 
Scores to 16,000. Demonstration mode, Move and 
fire at the some time! The war has only just begunl 
1982 rated the best Space Invaders game. 




^ , 

by Mark Barlow 

•'You are fiying above on ever 
changing terrain. Missile after 
missile is launched at you from 
below, while you battle oncoming gun fire, only to 
enter an ominous cove where danger is tripled, Only 
skill will guide you through. 




OUTHOUSE 

by Factory Programming 

Is there no place sacred? Even 
the outhouse has been invad- 
ed. Word off intruders who creep 
up to the outhouse to snatch the paper supply. At 
the same time you must defend yourself from their 
firing ships in the sky, Be very careful, when your 
paper supply is gone , , , so ore you! With sound and 
disk version talks. 
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CHICKEN 

Coming Soon! 





, PAYMENT-Davmen'accepted.Dvcria'ge peiKii^o'i'epSeck 
or COD only ondei t"e iQiiowinq conaiticns Charges 
D'ocessea wfien se^ooed. usua^iv witninJe nours Psrtonal 
Check* aeiav sh;pDing. oending 3 weetis to cieot CO.O- 
0rder5 are certtiea c^'ecti cr casn cniy. add SI 50 Ml lesidenTs must add -iX idles tdx 
»(IPPING ft HANDUNG - Shipping ChargvK Send Iheicrger amount 2% or S2 tO unless 
siiDLiiatedotnerwise AnvcrcerrecewedwimoutsncDingdnd handling wiiiDesfiiDpedlwight 
collact Air Moil Shipping outside of NonnAmencd. piedse send the larger amount 10% or" 
S1000 Ovefpovmeni w"! De refunded 



.-■See List of Advertisers on Page 455 
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division and muitipHcation: 



TABLE FDB ADDR.DiV.256 ;gei page 

number 
FOB FLD'16 + 3 ; align field 



modulus; 

TABLEC FCB HRS.MOD.60 ;gei minutes 

and logical operations: 



LDA mXTWDP.AND.S 
LDB #LSTWDP.OR.4 



;mask off 3 Is 

biis 

;sct bit 2 



Iii-nicmor> Assembly 

The mosl powerful feature that the 
assembler portion of EDTASM + gives 

you is the abihty to do in-mcmory 
assembly. 

In-memory assembly lets you take the 
source code in the edit buffer, assemble 
it, and store the resulting object code in 
memory. The object code is stored after 
the edit buffer and symbol table, prop- 
erly relocated without your having lo 
specify any absolute origins. 

After the Assembly listing on the 
screen, you'll see a dump of the symbol 
table, such as: 

BASCN 098A 

CDFIN 097C 

TABLI OCDC 

TARL2 OCEC 

Of course, you'll also have the sym- 
bols on any listing printout you have. 
You can use the symbols in ZBUG for 
symbolic references. 

This in-memory assembly makes for 
very rapid debugging. Typically, you'd 
follow these steps to debug an Assem- 
bly-language program in many larger 
computer installations: 

• Load the editor 

• Key in your latest version and create a 
source file 

• Load in the assembler 

• Assemble. If errors, go to I, other- 
wise create object file 

• Load object file and debug package 

• Debug and patch. When enough 
patching has been done, go to step one 
to get a new assembly, and so on. 

With integrated editor/assembler/ 
debug packages such as EDTASM -f , 
though, you can go directly from one 
function to another. You don't have to 
laboriously patch the program, but you 
can simply type E, enter the editor, 
make the changes, type A/IM to assem- 
ble in memory, type Z to enter ZBUG, 
and voila! The object is there. 

EDTASM -I- is highly intcracdve, to 
say the least. 1 wish I'd had such a 
system 10 years ago on the Redcor 
RC-70. 



Shortcomings 

Sins of Omission Department: What 
happened lo that beautiful macro capa- 
bility of the Model 1 EDTASM +? 
There may be good reasons for not 
including macro capability in 
EDTASM -I- (memory constraints? too 
sophisticated for most CC owners? 
$1,000 extra from Microsot^t?), but I 
wish it had been left in. 

For you beginners, macros are de- 
fined sets of instructions thai can be in- 
voked by a single macro call. Suppose 
you needed a macro for a disk 1/0 
operation. You could define a macro 
like this: 

DISKIO MACRO !ARG1,IARG2,!ARG3,!ARG4,!ARG5 



I. DA 


(CARGI 


STA 


DRIVE 


LDA 


#ARG2 


STA 


SECTOR 


LDA 


WARGS 


STA 


TRACK 


LDA 


#ARG4 


STA 


FUNCT 


LDX 


MRG5 


STX 


BUFFER 


LBSR 


DISKIO 


ENDM 





Ihereafler, lo call the macro, you'd 
have something like: 

LOCN DISKIO I,5,10,READ,S4aX) 

The arguments in the DISKIO call 
would be put into the proper places in 
the macro definition, and the 11 in- 
structions in the macro would be 
generated in-line. 

You can get along without macros 
very well, but I'd be willing lo pay dou- 
ble just to have the capabihty. 

Anoiher thing that would have been 
nice is conditional assembly. Condi- 
tional assembly lets you assemble 
bracketed code segments conditionally. 
If you had a cassette and a disk version 
of a program, for example, you might 
have an equate: 

CDFLAG EQU ;0 = cassette, l=disk 

Later in the source code, you'd have: 

IF CDFLAG ;assemble this part if cassette 

LDA #12 ;for header 

BSR SETHD ;w rite header 
ENDIF 

This is more of a frill, but on the 
other hand, including conditional as- 
sembly would not take much coding ef- 
fort or memory. 

Another feature that would have 
been nice is a pretty printing capabil- 
ity—things like Title, Page (to skip a 
page), and other amenities. 

There are other features found in big 
assemblers, but the addition of these 
items wouid have the typical Assembly- 
language programmer less grouchy in 
the mornings. 



Is the assembler a good assembler? 
Yes, except for the single arguments on 
the FCB and FDB. I haven't forgiven 

them for the macros, either. 

ZBUG 

The third segment of EDTASM + is 
ZBUG, a debug package. ZBUG does a 
lot. Among other things, it gives you a 
disassembly capability that allows you 
to list any data area in memory, with the 
assumption that it contains 6809E in- 
structions; the output is the equivalent 
6809E mnemonics. Here is a sample 
listing: 

#A7BD/ IRJ- A,B 

0A7BF/ JSR<9F 
0A7CI/ CMPBSOOAA 

Given the disassembly and several 
hundred hours, you too can uncover the 

secrets of the Extended Color Basic 
ROM. 

Here's an overview of the ZBUG 
commands: 

• C — Continue after breakpoint 

• D — Display all breakpoints 

• E — Re-enter editor 

• GIOOO— Execute address 1000 

• ENAME — Load machine-language 
file name from cassette 

• PNAME 1000 1400 1000— Dump 
memory from 1000-14(X) as cassette file 
name with start address 1000 

• R — Display all registers 

• TIOOO 1010— Display locations 
1000-1010 

• THIOOO lOIO— Print locations 
|{X)0-IOIO 

• UIOOO 1200 100— Copy block at 
1(XX)-10EE to 1200 area 

• VNAME — Verify file name on 
cassette 

• XI 000 — Set a breakpoint at location 
1000 

• YIOOO — Reset breakpoint at location 
1000. 

With the exception of the U com- 
mand, these are all standard debug 
commands you'd find in most de- 
buggers. 

One command I'd like to see that is 
not included, is a Find command. This 
lets you find a specified byte or address 
value. 

I implied previously that symbolic de- 
bugging was a powerful feature. It is. 
Imagine having a table called TABLI in 
your source program. With the sym- 
bolic capability of ZBUG, you can 
examine the location by entering: 
^ABLl/ OFF. Furthermore, you 
can refer to locations TABLl-34, 
TABLI +$17, TABLI. DIV. 2, or 
TABLl.AND.SFFFE. If the symbol is 
in your Assembly listing, ZBUG will 
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find it from the symbol table and use it 
in any expression with any allowable 
operators. 

You can also input in symbolic form. 
If you wanted to change a location 
thai currently pointed lo TABLl to 
TABLl +2, for example, you'd have: 

POINT/ TABLl TABLl +2. 

ZBUG allows a great deal of flexibili- 
ty in input and output formats. You can 
display memory in the byte mode (one 
byte at a time), word mode (two bytes at 
a time, as in addresses), mnemonic 
mode (disassembly), or ASCII mode, 
and in numeric form or symbolic foriu. 
The input and output number bases can 
be octal (base 8, not too useful), 
decimal, or hexadecimal. You can enter 
data in mixed formats. ZBUG shines in 
this area. 



With the exception of the Find com- 
mand, I can't think of much to add to 
ZBUG. Oh, sure there are big system 
features such as tracing and snapshots 
that might be helpful, but the current 
features fulfill most Assembly-language 
needs. 



Cassette-based Sysleni 

If you have a cassctic-based system, I 
definitely recommend HDTASM + , 
with no restrictions. It will be the stan- 
dard for the Color Computer. 

If you are a beginner, you'll find the 
EDTASM + manual adequate in the 
operation of EDTASM + , but com- 
pletely inadequate in descriptions of the 
6809E instruction set and how to pro- 
gram. You'll need a good CC-oriented 
Assembly-language book on 6809E 



programming. 

If you are an intermediate-level As- 
sembly-language programmer, you'll 
find the EDTASM + easy to work with, 
highly interactive, and generally 
adequate. 

I f you are an advanced programmer 
on a cassette-based system, you will 
be continually griping about ED- 
TASM + 's omissions but you'll use it 
anyway. 

Disk-based Systems 

I hope Radio Shack comes out with a 
disk-based version of EDTASM + by 
the time this hits the stands. If not you 
can always check out other editor/as- 
semblers or use the inevitable patches to 
EDTASM -f to provide a disk capabil- 
ity (as Apparal did to Ihe original ED- 
TASM for the Model !).■ 
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THi 



COLCIMM 



C ITOH F-10 $1339 
5 MEG HARD DISK 

W/DOS (MOD 111 OrSLY) 

$1649 



Offer Ends October 31, 1982 

FOR ORDER ONLY CALL TOLL FREE 

1-800-633-2252 

EXT. 720 



BARGAIN 


PRICES i 


• M>r^anf»'a,?^M«!S» 


EXPAMSlOfl [TfTERFACES 






rHECB023 


CALL 


LfiW RESEARCH: 






SMTTH COROfHA TP 1 


»695 


BARE BOARD i69 


W/GOLD S95 






METAL CASE 




$55 


CRT MONITORS 




ASSWjTST/GOLD/ CABLE/CASF 




S349 


Bt W 100 


»89 


MICRO DESIGN: 






GREEM 


)159 


MDX-2 BARE 469 


ASSWTST 


»349 


COLOR 


WM 


MDX-3 BARE »69 


ASS/^TST 


1299 


RGB 


M3g 


ALUM. CASE FOR MDX-2 




M5 


nODEns 




HOL«'\ES ETHG ADD-ITi ^ItMORY' 






MICROPERIPHERAL 




32K W/RAM i/9 


48K W/RAM 


5129 


MODEL I/IB/COLOR 


}ie9 


DISK DRIVES 






ATHCHOR AOTO/AATTOrH; 




BASF 40 TRACK S/,S 




5215 


SJCriALMAfi DiR conn 


J8 


rAMOON iOOl 40 TRACK S/S 




»225 


TR8-80 COMPATIBLES 




AM ELECTRONICS: 






PMCfll 


»565 


5 MLG HARD DISC W7LK)S 




*l67i? 


LrW-80 


*1295 


PRINTERS 






SOFTWARE 




CEMTROMICS 739 




5499 


LAZV WklltJ< 


»159 


C rrOH F 10 PAR 




S1365 


tliL 1 HIC WElto 1 tk 


t149 


C rrOH PROWRfTER PAR 




S469 


MAXI MANAGER 


»9 


EPSOM MX«0 S435 


MX-80/FT 


S559 







MICHiCAM RESIDENTS ADD 4% TAX — CALL FOR POSTAGE — PRfCES ARE DlSCOCimiD FOti CASH AMD MONEY 
ORDERS (MOW CERTinED CHECKS ALLOW 3 WEEKS TO CLEAR) - MASTTIRCAHD & VISA ADD 3% -NO C.QD. - MAIL 
ORDER ONLY 



l/F^D A COMPUTER OUTLET 

W fc^B #%16727Patton.OetrQit,Mi482l9.(313)53 



-518 



5381 112 



WELCOME TO THE NEW KID ON THE BLOCK! 

BAUDY HOUSE COMPUTER PRODUCTS 

GRAND OPENING SPECiALS 



DOSPLUS single or double density 

SUPER UT+ MOD Vs 

NOW HOW ABOUT GAMES 

Disc 

ALIEN DEFENSE MOD Vs $17.95 

BOUNCEOIDS MOD '/3 17.95 

ASYLUM MOD '/a 15.95 

FORBIDDEN PLANET MOD 'h 



$115.00 

35.00 



I ape 
$14.95 
14.95 
13.95 



OR HOW ABOUT BOOKS 

DOS RANDOM ACCESS AND BASIC FILES 
MOD III ROM COMMENTED 
TRSDOS COMMENTED 

MX-80 Ribbons NEW!!! 



$24.95 
19.95 
19.95 

14.00 each 



FORBIDDEN CITY 



MOD 



32.95 
32.95 



N/A 

N/A We have a full line of color computer programs. 



CALL 
31 3-683-8388 Order Line 
313-683-5076 Data Line 
Ml residents add 4% sales tax 



or 



WRITE 
BAUDY HOUSE COMPUTER PRODUCTS 

950 Scott Lake Road 
Pontiac, Ml 48054 



All orders add $3.00 for shipping and handling. 



^^ 184 
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The facts. 
And nothing but the facts. 

Epson. 
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Our MX Series printers are the best-selling 
dot matrix printers in tiie entire world. This 
is why. 

Fact One: We've got your type. 

Epson invented correspondence quality 
printing. And we still do it better than any- 
body. 

But more importantly, we do more of it than 
anybody. On every Epson MX printer, you 
get a choice of sixty-six different type styles, 
including italics, a handy subscript and 
superscript for scientific notation and small 
print, enough international symbols to print 
most Western languages, and one-pass 
underscore. All in a tack-sharp, easy-to-read 
9x9 matrix with full descenders. 

If print quality is important to you, your 
next printer is an Epson. 

Fact Two: Ultra-high resolution graphics. 

There simply is no higher resolution graphics 
than GRAFTI^X-PLUS. And it comes stan- 
dard on every MX. 

. You get bit image graphics free of wander, 
walk and jitter; graphics with blacker blacks 
and better definition because you can pre- 
cisely place a dot at any of 25,920 positions 
inside a square inch (that's 120 DPI h x 216 
DPI v); graphics that make our printers rival 
plotters. 

If graphics is what you want, your next 
printer is an Epson. 

Fact Three: Feature shock. 

The Epson MX Series is packed with the fea- 
tures printer fanatics want most. A bidirec- 
tional print head with logical seeking of the 
shortest line. Programmable tab, form length 
and right margin. Top of forms recognition. 
Skip over perf. Software printer reset. True 



backspace. Self test. The world's only dispos- 
able print head. And more. Lots more. On 
our MX-lOO and MX-80 F/T, you even get 
both friction and tractor paper feed. 

If you want performance, your next printer 
is an Epson. 

Fact Four: Incredible reliability. 

Epson MX Series printers are the most reli- 
able printers ever made. And the reason is 
precision. 

Take a look inside one and youTl under- 
stand. Notice the simplicity, the fit, the 
finish. That's why Epson has an out-of-box 
reliability rate others can only envy: 98%. 
And why our mean cycles between failures 
(MCBF) is over five million lines. 

The whole package is neatly wrapped in a 
rugged plastic injection- molded case de- 
signed to look good — and stay looking good. 

If you want a printer that works, and keeps 
on working, your next printer is an Epson. 

Fact Five: World's best seller. Period. 

Within months after we introduced the Epson 
MX-80, it was the best selling dot matrix 
printer in the world. It still is. Not because of 
anything toe said, but because tens of thou- 
sands of computer enthusiasts went out and 
did some serious comparison shopping. Theif 
decided it was the best printer for the money 
they could buy. And who are we to argue? 

If you want the world's best seller, your 
next printer is an Epson. 

Fact Six: Quality dpesn't cost more. 

Don't take our word for it. Check it out. Look 
at what they give you. Then look at what we 
give you. Then look at the price. 

There is only one logical choice. Epson. 

And that's the truth. 

Your next printer. 



"In my judgment, 
this is the 
best printer 
you can buy." 





EPSON AMERIG 



AA, llNw. 



COMPUTER PRODUCTS DIVISION 

3415 Kashiwa Stiteet 
Torrance, California 90505 
(213)539-9140 
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LOAD 80 



Heat Stress Index 



by Donald B. Heckenlively 

T. Adams 

S. R. Heisey 

S. Mingela 



D 



oes your job get you hot under the collar? 
This program determines whether the heat from 
your workplace is harmful to your health. 



Many workplaces impose a physio- 
logically stressful heat load. Sometimes 
the stress is subtle— rooms on the south 
side of a glass-walled building can be ex- 
posed to enough solar thermal radiation 
to make them uncomfortable. More of- 
ten, though, the heat load is obvious — 
high temperatures "come with the terri- 
tory" for bakeries, steelworks, glass 
factories, and similar industries. People 
exposed to these conditions should 
know when their envirormient is merely 
uncomfortable and when it is thermally 
hazardous. 

The Heat Stress Index (HSI) was de- 
veloped by Belding and Hatch {Heat- 
ing, Piping, and Air Conditioning, vol. 
27, pp. 129-136, 1955) to assess levels of 
human heat stress using easily measured 



The Key Box 

Model I or III 

16K, 32K 

Cassette or Disk Basic 



environmental factors and an estimate 
of work rate. 

Application of the index is cumber- 
some, because its calculations are com- 
plicated, so programming the calcula- 
tions was an obvious step. 

The HSI program described here 
offers diagnostic and optimization 
graphing. 

Background Information 

A stable body temperature results 
from a dynamic balance between fac- 
tors of heat gain and heat loss, so that; 

AH = M ± CD ± CV ± RD - E 

where 



AH = 


= change in body heat content 


M = 


= metabolic heat production due 




to work 


CD - 


thermal conduction 


CV = 


thermal convection 


RD = 


= thermal radiation 


E = 


= evaporauve heat loss. 



When AH = 0, body temperature is 
constant, and the person is in thermal 



balance. Physical work and exercise 
produce heat (M), which can be a 
significant source of heat stress during 
prolonged or intensive exertion. 

Heat is transferred by conduction 
(CD) between objects in contact with 
one another, if they are at different 
temperatures. For example, if the sur- 
face of an object is cooler than that 
part of the body with which it is in con- 
tact, then the person loses heat. If the 
object is warmer, then the person gains 
heat, even to the point of raising tissue 
temperature enough to produce dam- 
age and pain. Heat exchange by con- 
duction isn't evaluated in the HSI, 
because it usually is not a major factor 
for heat stress in humans. 

Convection (CV) differs from con- 
duction in that air that has been heated 
by the body can rise to be replaced by 
cooler air. Forcibly circulating air that 
is cooler than skin plays an important 
role in body heat loss by convection. It 
can be a significant source of heat gain 
if the air is warmer than the skin. 

Radiation (RD) is the exchange of 
heat as infrared energy from a warm 
surface to a cooler one. It is an impor- 
tant source of heat gain for steelwork- 
ers, for example, who are exposed to 
hot surfaces of furnaces. 

Evaporation (E) is only a means of 
heat loss, because heat is absorbed as a 
fluid changes from a hquid to a gas. 
For this reason, the evaporation of 
sweat (or any other liquid on the body 
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surface) carries away heat. pA'apora- 
tion requires, however, that the vapor 
pressure of the air be less than that at 
the body surface. Most people have ex- 
perienced the discomfort of a muggy 
day when swcal doesn't evaporate 
readily. Many factors interact to influ- 
ence net heat exchange. For example, 
increasing air flow not only increases 
heat transfer by convection, but it also 
increases evaporation, as felt by the in- 
creased cooling effccls of a fan, even 
on a humid day. 

Calculations for the HSI assume 
that evaporative heat loss must offset 
heat loading from other sources to 
maintain a stable body temperature, 
thai is: E - M + RD -K CV, and 



H S I - 1 1> I Evaporation ne e ded for st able body temp . 
Evaporation poiiible under the conditions 



The HSI is calculated on the basis of 
five factors: dry-bulb (ambient) temper- 
ature, wet-bulb temperature, globe 



temperature (a measurement of thermal 
radiation), air flow, and heat produc- 
tion due to physical work (see Fig. 1). 
Figure 2 relates an HSI score to the 
severity of the physiological strain. If 
the HSI is less than 100, an individual 
may be uncomfortable but is still able to 
maintain body temperature. If HSI ex- 
ceeds 100, heat cannot be lost fast 
enough lo keep body temperature con- 
stant, and safe exposure time is limited. 

Using the Program 

When you execute the program, the 
first video screen pane! gives an intro- 
ductory statement and then requests 
either metric or English units. Subse- 
quent input prompts and the output 
are consistent with the declared units 
system, although there are opportuni- 
ties later in the program for redesignat- 
ing units. Input data are assumed to be 
based on actual measurements, so er- 
ror traps are minimal at this stage. 
Figure 3 shows the input for a typical 
evaluation. 



BTU/hr Watts Acliviiy 

240() n— 7(Xl Hardest sustained work 



heavy 

work 



2000 ^'r— 580 Intermittent heavy iitling, pushing or pulling (e.g., pick and 
^ I shovel work) 

400 ■^ 

— 400 Standing with moderale work al machine or bench with some 
walking about, or walking about with moderate lit'ling or 
pushing 



~- 



moderate 
work 



lighl 
work 



NK 



800 



7(X) - 



-iC 



600 - 



5(X) 



400 



300 



2(X) 



Sitiing with heavy arm and leg niovcinents 

Standing doing light work ai bench or machine with some 
walking about 



Sitting with moderate arm and leg movements (e.g., driving a 
car), or standing doing light work ai rnachuic or bench 



_— 150 Sitting with moderale arm and Irunk movements (e.g.. desk 
work, typing) 



V 



200 J 



100 



Sitiing quietly 



Sleeping 



Fig. 1. Typical heat production rates for an adult male. Modified from The Etiology, Preven- 
tion, Diagnosis, and Treatment of Adverse Effects of Heat, TB MED 157/NAVMED 
P-5052-S/AFOSH, Sid, 161-162. Washington, DC. 1978. 



Output {Fig. 4) is divided into three 
video screen panels. The first panel 
summarizes test conditions, presents 
the HSI, and describes its severity. If 
the HSI exceeds 100, a nominal safe ex- 
posure time is given. Al the end of the 
first panel, options are provided for 
either continuing to the second panel, 
terminating output, or recycling to the 
input phase. The second panel shows 
the relative importance of each avenue 
of heat transfer and its percentage of 
the total heat load. The third panel 
presents a diagnostic analysis of the 
test and recommendations for reduc- 
ing heat strain. 

Optimization Graphing 

After the diagnostics output, the 
program provides an option for assess- 
ing the effect of each of its factors. HSI 
can beploitedasafunctionof air flow, 
relative humidity, or radiant tempera- 
ture. Individually plotting each en- 
vironmental factor provides a basis for 
predicting optimal changes that will 
alleviate net heat stress. For example, 
in Fig. 5a, increases in air flow above 
600 ft./min. would have little addi- 
tional effect on reducing HSI. 

Error traps set a range for each vari- 
able. For exatnple, minimum air flow 
is 20 ft./min. (0.12 m./sec). Maxi- 
mum air flow is checked only to ensure 
that it is greater than this so the graph- 
ing routine functions properly. Rela- 



HSI 


Level of Thermal Strain 

Exceeds tolerance — 

Limit exposure 


100 




90 




80 


Very severe 


70 




60 




50 




40 


Severe 


30 




20 


Mild 


10 







None 


Fii^. 2. Heal Stress Index (HSI) evaluation. 
Modified from Belding and Hatch ^eat- 
ing, Piping, and Air Conditioning, 
27:129-136, 1955). 
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, 79-STANDAHD-plu8 



FOR TRS-60 MODEL I OR III 
IBM PERSONAL COMPUTER 

MORE SPEED 

10-20 1 1185 'aatef man Interprated BASIC. 

MORE ROOM 

Vsfy eomB»el compi'etJ code ofLS VtPTUAL MEMORY 

mikes your RAM act laraer Variable rumber Of block 

butlers. 31-cfiar.-unlaue wcranamea jse only 4 bytes Ir 

tiaaaer! 

MORE INSTRUCTIONS 

Ada VOUR co-nmanos to n 

iratrijClion set' 

Far mere compleie ttian moat Forttia: ainijle S doub'e 

precialon arrays, strlnQ-llftnailna, Clock, graphics ilBM 

fotv-'es gives B'W and 16 color or ZOO tint color dlaoiay} 

MORE EASE 

ExcB.ient 'uii-screan Editor, structursd 3 modular 

Crosram-nlrg 

Word search Ltmty 

THE NOTEPAD letter wller 

Dplmized tar you' 'RSaO or IBM wltti Keyboard tspBBtB, 

ucper'lower case Qisp ay driver, full ASCII. 

MORE POWER 

Forth oparatlng ayatam 

Concurrent Intaipreter AND Compiler 

VIRTUAL 110 lor video and printer, disk and tape 

(10-Megabyte herd Qlak avallablei 

Full 8080 0' 8088 Asaamblar aboard 

(Z80 Assembler alao available tor TRS-801 

Intermix 3S- 1o 80'trsck disk drives 

IBM can raaO, write and run M.3 disks 

M.3 can read, write and run M.1 disks 




THE PROFESSIONAL FORTH SYSTEM 

FOR TRS-aO& IBM PC 

(Tnouaands ot ayslems iri use) 

MMSFORTH Dpsk System (raqurras 1 disk drive. 32K RAMi 

V2.0 tor Radio Shack TRS-80 Model I or III t12S.95- 

V2.1 lor IBM Parsonal Computer |80-cOI. screen) . . . f!«9.95' 

AND MMS GIVES IT PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Nevisleller 

Mary demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Frogramming stall can provide advice, modifications and 

custom programs, lo Irt YOUR needs. 

MMSFORTH UTILITIES DISKETTE: includes FLOATING POINT 
MATH IBASIC ROM routines plus Complex numbers, Rectan- 
gular-Polar coordinate conversions. Degrees mode, more); a 
powerful CROSS-REFERENCER to lisl Forth words by block 
and line, plus ITRS-80) a tull Forthstyle Z80 assembler 
(requires MMSFORTH va.O, 1 drives 32K RAM). . . $39.9S' 

FORTHCOM communications package provides RS-232 
driver, dump terminal mode, Iransler ol FORTH tilocks, and 
host mode to operate a remote FORTHCOM system (requires 
MMSFORTH V2.0, 1 drive 8 32K RAM) S39.BS' 

THE OATAHANDLER a ver/ last database management 
system operable by n on- prog rammers (requires MMSFORTH 
V2 0. 1 drive &32K RAMI SS9.95* 

FORTHWSITE: last, powerful word processor w'easy key- 
strokes. Help screens, manual 8 demo tiles. Full proportional 
wflabs, outdenllng. Include other blocks, documents, key- 
board inputs, S OATAHANDLER Melds— ideal lor form letters 
(requires MMSFORTH V2.0, 2 drives 8 4BK RAM) S175.00' 

MMSFORTH GAMES DISKETTE real lime graphics & board 
games w/sogrce code Includes BREAKFORTH, CRASH- 
FORTH, CRYPTOQUOTE. FREEWAY (TRS-BO), OTHELLO & 
TICTACFORTH (requires MMSFORTH V2.0. 1 drive 8 32K RAM) 
S39.95- 

Othei MMSFORTH products under develogmsnt 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL - wfo Appendices . . . S17.M' 

STARTING FORTH -best! S15.95* 

THREADED INTERPRETIVE LANGUAGES - advanced, 
analysis of FORTH internals S18.9S' 

PROGRAM DESIGN 8 CONSTRUCTION - iniro. to structured 
programming, good tor Forth $16.00" 

FOHTH.79 STANDARD MANUAL - official reference to 
79.STANDARD word set, etc S13.95- 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1980) - A col- 
lector's item lor Forth users and beginners (4.00* 

• - ORDERING INFORMATION: Soltwara pnces include 
manuals and require signina ol a single computer license for 
one-person support. Describe your hardware. Add %2 00 S'H 
plus S3.O0 per MMSFORTH and SfOO per additional book: 
Mass- orders add 5% tax. Foreign orders add 20°/g. UPS COD. 
VISA and MIC accepted; no unpaid purchase orders or refunds. 

Sena SASE lo: iiee MMSfOH'H mio'/nsnon 
Good dealers soughl 

Gei MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 . 
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120 
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140 
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160 



Program Listing 

HUMAN HEAT STRESS INDEX (HSI) 

D. B. HECKENLIVELY, T. ADAMS, S. R. HEISEY, & S. MINGELA 

HILLSDALE COLLEGE, MICHIGAN STATE UNIVERSITY, AND FORD 

MOTOR CO. 

VERSION 11.2 - 9/81 

ADAPTED AND EXPANDED FOR TRS-80 FROM A PROGRAM FOR THE 

HP 41C BY ADAMS, MINGELA, AND HEISEY 

NO. 00755C, HP USER'S LIBRARY 

CORRESPONDENCE ON PROGRAM DIRECTED TO: 

DR. D. B. HECKENLIVELY 

HILLSDALE COLLEGE, HILLSDALE, MI 49242 
PROVIDES "HEAT STRESS INDEX" (HSI) AND NOMINAL 
EXPOSURE TIME, AS WELL AS CERTAIN INTERMEDIATE 
CALCULATIONS AND PROJECTIONS OF CHANGES IN 
PARAMETERS 
PRINCIPAL REFERENCE: 

BELDING & HATCH, 1955. INDEX FOR EVALUATING HEAT STRESS 
IN TERMS OF RESULTING PHYSIOLOGICAL STRAIN. HEATING, 
PIPING, AND AIR COND. 27:129-136. 



Listing continues 



(a.) Introductory panel calling for units and input: 

HUMAN HEAT STRESS 

THIS PROGRAM CALCULATES A 'HEAT STRESS INDEX' (HSI) AND NOMINAL 

EXPOSURE TIME FOR A PARTICULAR SET OF ENVIRONMENTAL AND WORK 
CONDITIONS. 

DA rA MAY BE ENTERED IN METRIC OR ENGLISH UNIl S. 
(SPECIFY: <M>ETRIC OR <E>NGl.ISH)? E 

ENTER DRY BULB TEMPERATURE (DEG. F)? 85 

ENTER WET BULB TEMPERATURE (DEG. F)? 80 
ENTER GLOBE TEMPERATURE (DEG. F)? 90 
ENTER AIR VELOCITY (FT/MIN)? 50 
DO YOU NEED HELP TO ESTIMATE WORK RATE? 
(ENTER: <Y>ES OR <N>0)? Y 

(b.) Optional table of work in BTU/hr or Watts: 

BTU/HR WATTS " ACTIVITY ** 

700 • HARDEST SUSTAINED WORK 



2400 
2000 
1600 

1200 1 

800 

400 

200 



600 
500 
400 
300 
200 
100 



* INTERMITTENT HEAVY WORK 
(LIFTING, SHOVING, PULLING) 



* STANDING, MODERATE WORK 
(MODERATE LIFTING, ETC.) 

• SITTING, HEAVY ARM & LEG MOVEMENT 

* STANDING, LIGHT WORK 

• SITTING, LIGHT WORK (E.G., DRIVING) 

* SITTING QUIETLY 

♦ SLEEPING 

(PUSH SPACE BAR TO CONTINUE) 



(c.) Continuation of input to get work rate: 

DRY BULB TEMPERATURE 85 (DEG. F) 

WET BULB TEMPERATURE 80 (DEG. F) 

GLOBE TEMPERATURE 90 (DEG. F) 

AIR VELOCITY 50 (FT/MIN) 

ENTER ESTIMATED WORK RATE (BTU/HR)? 700 

Fig. 3. Input for a representative case study. These conditions might !?e encountered in a com- 
mercial kitchen wiih poor ventilation. Water vapor given off by the cooking would elevate 
relative humidity. .Airflow is low due to poor ventilation and air temperature is high. Slaves 
and ovens present a radiant heat load. 
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After three years of selli 
my Model I and Model HE 
programs, I've earned back 
my development costs. 

So I can lower 



Now I'm offering my Model I and Model III 

programs for $75 each. 

They've been checked out by thousands of 

TRS-80* users, most of whom get in touch w^ith me, 

Irwin Taranto. Thousands of phone calls later, these 

systems are completely developed, checked out, 

glitch-free. 

When people call, we've heard all the questions 

and w^e can answer them right off. I don't have to 

get on the phone and work through problems like 

I used to. 

Since I'm getting off so easy, the least I can 

do IS drop the price- 50% for General Ledger, 

25% for the rest. 

These are my Model I and Model III programs : 

Accounts Payable It links to the General Ledger, 

calculates and prmts checks and makes reports. 

It's an invoice-linked system. 

Accounts Receivable It keeps track of billed 

and unbilled invoices, open and closed items 

and aging. It prints statements and links to 

the General Ledger. 

General Ledger It keeps track of data by month, 

quarter, year and the previous three quarters. 

It even includes a Cash Journal. 

Inventory Control It gives an immediate read- 
out on any item inquiry, including quantity and 
dollar total. 



Invoicing It prints your detailed invoices 
and links to Accounts Receivable and the 

General Ledger. 

Payroll It keeps the files, computes pay and 

deductions, prints forms and checks, figures 
taxes, overtime and piecework pay in any state 
tax routine, and prints the 941 -A and W-2 forms. 

-They're all yours, for $75 each. You also need 
documentation when, you run our systems. The 
Osborne books -one for Accounts Payable and 
Receivable, one for General Ledger, one for Payroll- 
cost $20 each. Our invoicing book costs $10. 

Just send me the coupon, or call us toll free. 
We'll- ship within 48 houjrs. 



r 



Please send me the following programs at $75 each 



n 



booktdJ 



Accounts Payable 






Accounts Receivable 




General Ledger 






Inventory Control 




iiPI 


Invoicing 






Payroll 














AMOUNT Enclosed 





If yoii need the books, add $20 each. The invoicing book is S10 
Mastercharge D Visa D No . Expires 



I Please send me information on other Taranto business 
programs, including TRS-80 Model 11 accounting systsras. 



Your name 

Company name- 
Address ™ 



City /State /Zip_ 



&L ASSOCIATES, INC. 
The Total System Store," 121 Pau! Drive, San Rafael, 
CA 94903. Mail inquiries to PO. Box 6216, San Ralael, 
CA 94903. Outside California, toll free (800) 227-2868, 
j In Caiiforma, (415) 472-2670. [ 



"A trademark of the Tandy Corporation 



-70 



i^See LtsI ot Advertisers on Page 455 
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If you 
ever wished that 
you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 

Now you can create your own com- 
mand files that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 

Although designed for teaching and 
ideal for that purpose. PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

Both random and sequential access 
files are supported, without cumber- 
some format statements. 

PASCAL 80 offers most of the 
features of ISO Standard Pascal as well 
as a number ni u-,cti'l extensions, in- 
cluding CLS, I'l t K POKE. CALL and 
graphics -omiiuuids. Pascal 80 exten- 
sions mvlude the use of READ and 
WRITE V'lth fx'i ord oriented files, 
ELSF in C A.SE ^uatements, and other 
useful features. 

PASCAL 80 allows you to create files 
on the .TRS-80® Model I, Model III. 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS^, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Pius. 

PASCAL- 80 

PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte. Creative Computing, 
and other magazines. 

You get ail of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 

Nl^_CJrASS!CS SOFT WARE 

239 Fox Hill Road ^^^ 
Denville, NJ 07834 ^^T 
(201) 625-8838 ^255 ^^ 



^ 



TRS-80»and TRS-DOS are irademarks iiT Radio Shack, 
LNW-SO of LNW Research, PMC-80 of Personal Micro 
Computers, LOBO, LDOS, and MAX-80 of Lobo Syslcms. 
DOS-Pius of Micro Syslems Software, NewDOS and 
NewDOS 80 of Apparat, and DBL-DOS of Percom. 
PASCAL 80 is a trademark of New Classics Software. 
Pointer Variables, Variant Records, NtW, DISPOSE, 
WITH. GET, and PUT are not implemened in PASCAL 80. 
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Listing continued 

INITIALIZE 

170 DIM TDB(2) ,™b(2) ,TG(2) ,VEL(2) ,M(2) ,CV(2) ,RD{2) ,EREQi 
EMAX(2) ,TPS(2) ,VLS{2) ,WKS(2) ,VL(2) ,VH(2) ,V7 { 2) ,V8(2) , 
TH(2) ,T7(2) ,T8(2} ,T5(2) ,T6(2) 

180 TP$(1)="DEG. C": TPS{2)="DEG. F" 

190 VL$(1)="M/SEC": VL$ ( 2) ="FT/HIN" 

200 WK$(1)=''WATTS'': WK5 ( 2) ="BTU/HR" 

210 Wl$="####.# % %": W25="####.## ": W3$="####.# %" 

220 BS=CHR$C135)-(-STRINGS(4,131) : Bl S=CHRS ( 135 ) +ST.RING$ ( 8 , 

RS(139} 

230 A1$=CHR$(149) : A2$=STRINGS { 4 , 45) +CHRS ( 43) : 
A3$=CHRS(157) : A4$=STRING$ ( 4 ,140) +CHRS (156) 

240 ' 

INTRODUCTION & INPUT 

250 CLS: PRINT, "HUMAN HEAT STRESS" 

260 PRINT"THIS PROGRAM CALCULATES A 'HEAT STRESS INDEX' (HSI) AN 

D NOMINAL 

EXPOSURE TIME FOR A PARTICULAR SET OF ENVIRONMENTAL AND WORK 

CONDITIONS. ": PRINT 

270 PRINT"DATA HAY BE ENTERED IN METRIC OR ENGLISH UNITS." 

Listing continue 



(a.) Summary of the conditions, with HSI and exposure time; 

**CONDITIONS** 



DB TEMP: 
GLOBE TEMP: 
WORK RATE: 



85.0 DEC. F 

90.0 DEC. F 

700.0 BTU/HR 



WH TEMP: 
AIR VEEOCITY: 



80.0 DEC. F 
50.0FT/MiN 



HEAT STRESS INDEX (HSI) = 145.01 



10 



20 



30 



40 



50 



60 
T 



70 



90 



100 



I 



EXPOSURE: EXCEEDS MAXIMUM TOLERANCE 
EXPOSURE TIME: 1 HR 17 MIN 

DO YOU WANT INTERMEDIATE CALCULATIONS? 
(ENTER: <Y>ES OR <N>0)? Y 

(b.) Intermediaie calculations and partitioning of heat load: 

INTERMEDIATE CALCULATIONS 
EVAPORATIVEHEAlLOSSRhQUIREDFORTHERMALBALANCE 626,0 BTU/HR 



MAXIMUM EVAPORATIVE LOSS FOR CONDITIONS: 
RADIANTHEATLOSS 
CONVECTIVE HEAT LOSS 
INTERNAL HEAT 
RELATIVE HUMIDITY 
PARTITION OF HEAT LOAD: 

DUE TO RADIANT EXCHANGE 
DUETO CONVECTIVE EXCHANGE 
DUETO WORK LOAD 

(HIT SPACE BAR FOR DIAGNOSTICS) 



431.7 BTU/HR 

-6.1 BTU/HR 

-68.0 BTU/HR 

700.0 BTU/HR 

80.5% 

-1.0% 
-10.9% 
111.8% 



(c.) Diagnostics output with recommendations: 

ANALYSIS AND DIAGNOSTICS 
RELATIVE HUMIDITY IS VERY HIGH, AMBIENT TEMPERATURE MAY BE 
CALLED WARM, WORK LEVEL IS MODERATE. AND AIR FLOW^ IS SLIGHT. 
THE RESULTING HSI (145.01) IS IN AN INTOLERABLE RANGE. 
CONDITIONS MAY BE IMPROVED BY: 
REDUCING RELATIVE HUMIDITY 
REDUCING AMBIENT TEMPERATURE 
INCREASING AIR FLOW- 
OPTIONS FOR FURTHER ANALYSIS: 
(0)= END ANALYSIS 

(1) = SYSTEMATICALLY VARY ONE CONDITION 

(2) = CHANGE CONDITIONS AND TRY ANOTHER ANALYSIS 
(ENTER: 0, l,OR2)? 1 

Fig. 4. Oulpul Panels for the Case Study in Fig. 3 
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I've paid off 
the costs on my 

Model II TRSDOS* 

systems, too- 

So now they're 50% 
cheaper. 

A couple of months ago, I realized I'd paid 
off the development costs on my Model I and 
Model III programs. I could lower the price 
without cutting back one bit on my support. 

The response was fantastic. Enough so that 
I can do the same for the TRSDOS versions 
of my Model 11/16 programs. 

These are my systems, and my new prices. 

General Ledger 

It gives year-to-year comparisons in dollars 
and percentages. It figures budgets and even 
has a report generator. It was $299, it's now $150. 

Accounts Payable/Purchase Order 

It generates purchase orders and posts the items 
to payable when the goods come in. It calculates 
and prints checks and aged ledger reports, 
linking fully to the General Ledger. Was $349, 

now $175. 

Accounts Receivable 

You can choose either an open item system or 
a balance forward system which works on a cash 
or an accrual basis. The open item system does 
invoicing and sales analysis by product code and 



figure in salesmen's commissions. They both 
generate mailing lists by customer code and 
zip code for up to 2000 customers. Open Item/ 
Invoicing was $349, it's now $175. Balance 
Forward was $399, it's now $200. 

Payroll/Job Costing 

A huge capacity. It accommodates up to 300 
employees in multiple departments, with any 
state tax routine. It also figures piecework, 
overtime and tips. Was $299, now $150. With job 
costing option, was $399, now $200. 

Inventory Control 

It stores up to 5000 items. It reports by vendor, 
tells you when you're out of stock, or when you 
need to reorder. It updates price or cost automat- 
ically and integrates fully with my invoicing 
system. Originally $399, now $200. 

These programs aH work with one, two, three 
or four-drive and hard disk systems. They're 
designed to integrate with the General Ledger, 
and, where it helps, with each other. 

They also get what I firmly believe is the 
most thorough support in the microcomputer 
industry. If you have a problem, call us and 
we'll straighten it out. Even if I have to do it 
myself, personally, right there on the phone. 

Michael Tannenbaum, the "80 Accountant" 
thought my systems vuere "a very impressive 
product at a very reasonable price." Even when 
they cost twice as much as they do now. 

Just call, and take advantage of me. 



,^70 



Taranto 

& ASSOCIATES, INC. 



121 Paul Drive, San Rafael CA 94903 

Outside California, toll free (800) 227-2868, in California, (415) 472-2670. 

'A trademark of the Tandy Corporation. 



.^ See List of Advertisers on Page 455 
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or call 1-313-648-2341 collect (FREE CALL) 
FREE CALL'! I COMPARE PRICES!" CALL TODAY"! 

> TI-1^ < 

> COMF>LJ"rE:Ft < 

> F>X ^cre < 



36 North Elk Sandusky MI, 48471 
PARTIAL LISTING' CALL FOR ANYTHING 



( Order i 


Descnotion 


H.^^- 


U 


Retail ti 


VQUR 


» Cooe « » 


of ites 




U 


Dnce ii CQBT 


01001 C 


Color Space invaders 






$21,95 


17.95 


0!Oi}2C 


Space War 






121.95 


17.95 


01003C 


i^eteorioCE 






$21.55 


17.95 


OlOOAC 


Battle Fleet , 






$21.95 


17,95 


01065C 


Soace Trader 






$14.95 


12.95 


01006C 


Hadness and tfve Min 






$19.95 


15.95 


01007C 


Ghost Gobbler 






$21.95 


17.95 


01008C 


Color Scarfsart 






$19.95 


15.95 


0U109C 


Lothar-s Labyrinth 






$14,95 


12.95 


0101 OC 


Alcatraz ii 






$11,95 


9.^5 


OIOllC 


L355r CofBstand 






$10.95 


6,95 


91012C 


Cosnic Super Bowl 






fl4.95 


12. '^S 


01013C 


Color Bonanza 






$49.95 


39.95 


01501C 


Typing Tutor (tape ijt 


iht 


j) 


$1^.95 


15,95 


01502C 


haster Control (tape 


util 


ity 


$24.95 


19.95 


0t503C 


Haster Control I! (disk) 




$29.95 


24.95 


01504C 


Taoe Directorv (taoe 


util 


ity 


$14.95 


12.95 


01505C 


Si5355eibler 680^ (tape) 




$14.95 


12.95 


01801C 


LoMer Case Option (ht 


rdHsrei 


$79.95 


69.95 


01801 C 


M-M Ribbons (in case) 




$14.95 


7.95 



it HODEL 

018014 
015014 
015024 
015034 
015044 
015064 
Gaaes - 
010014 
010024 
010034 
010044 
010054 
010064 
010074 
1 - 
tnt COLOR 

CALL US ■ 



I S( HI t HODEL I ?. lil I HODEL I fe HI ti 

Lvnx Telephone Hodei 
Buq + (tape utility} 
Tape Copy itape utility} 



$299 

$14.95 

$14.95 

$4^.v5 

$125 

$24, ''S 



239 
12.95 
12.95 
42.95 
99 
19,95 



TCIB/KAKE K (diski 
Postsan 2.0 \mi\ utilitvj 
Hi-PRO idiBk) 

Saffies - Gases - Gaees - SaiBes - Sanies - Gases 
Caterpi Her (0)19.95/17.95 (T)15. 55/13. 95 
Alien Defense 1:0)19,95/17.95 U) 15.95/13,95 
Portress (0) 19.95/17,95 (T) 15.95/13.95 

Siiper Vdders 10)15,95/17,95 lt)15. 95/13. 95 
Super fJova (D! 19.95/17.95 (T) 15,95/13.95 
Galaxy Inva5ion(D)19. 95/17, 95 (T)15. 95/13. 95 
CosiBic Fiqhter(Dil''.95.'17.95 (l! 15. 45/13. v^ 

-eoo— <^:2 ± — ^3"7::2 

COHPUTER - HODELS I/HI - HODEL II - MODEL 16 (III 
• HE GET TO YOU HHAT VOU WANT - FAST - GUARANTEED 



MAJOR CREDIT CARDS WLCOHE, CHE«, C.O.D,, or HOMFY ORDER 
PRICES SUBJECT TO CHAtlGE ilTHOUT NOTICE 3.00 SHIPPING 
FREE CALL'!! COMPARE PRICES'!! CALL TODAY!'! ,.36/ 



("iTPStUF);")"; 
('';TP$(UF) ;") "; 



Listing continued 

280 INPUT" (SPECIFY: <M>ETRIC OR <E>NGLISH) " ; US 

290 IF LEFTS(US,1)="M" THEN UF=1 : GOTO 320 'UF = UNITS FLfiG 

300 IF LEFT5(U5,1) ="E" THEN UF=2: GOTO 320 

310 PRINT"ENTER EITHER 'M' OR ' E ' . . . TRY AGAIN": GOTO 280 

320 PRINT 

330 PRINT"ENTER DRY BULB TEMPERATURE 

340 INPUT TDB(UF) 

350 PRINT"ENTER WET BULB TEMPERATURE 

36U INPUT TWB(UF) 

370 PRINT"ENTEB GLOBE TEMPERATURE ( " ; TPS ( UF) ; " ) " ; 

'im IMPUT TG(UF) 

390 PRINT"ENTER AIR VELOCITY ( " ; VLS (UF) ; " ) " ; 

40il INPUT VEL{UP) 

410 PRINT"DO YOU NEED HELP TO ESTIMATE WORK RATE?" 

420 INPUT" {ENTER: <Y>ES OR <N>0) ";Y1$ 

430 IF LEFT$(Y1S,1)="Y" THEN GOSUB 2830 

440 PBINT"ENTER ESTIMATED WORK RATE { " jKK S ( ['F) ; " ) " ; 

450 INPUT H(UF) 

460 ' 

CONVERT UNITS FOR CALCULATIONS 



470 If Ur-1 THEM 480 ELSn 54C 



Listing continue.-: 



a. The Heat Stress Index as a F'unction of Air Flow: 



200 - 
190 - 
160 - 
140 - 
120 - 
100 - 
80 - 
60 - 
« - 
20 - 

2 



SE 



-??\.»M_ 






214 412 m 

AIS aSK tfWMlNi 



■r-"r""r 



\m 



«!>=: ANOTHER PLfll, <2>= ENDPLO! flNfiLVSlS)? 1- 



b. The Heat Stress Index as a Function of Relative Humidity: 



'm.^" 



«l^^ 



200 - 
180 - 

140 - 
riSI MO - 
120 - 
100 - 
BO 
40 

40 - 
20 - 

RELATIVE HUniDin [%] 
«1J= flNDTHER PLDl, (2>= END PLOT flMLYSISJ? 



luu 



c. The Heat Stress Index as a Function of Radiant Temperature; 



200 - 
180 - 
140 - 
HSI MO - 
120 - 
100 - 
90 - 
60 - 
40 - 
20 - 



-y- 



y- 



-/- 






■V"T™'"rT™^:r^"io 



6L0BE TEHPESflfURE 1DE6. f, 
Kl>= ftNOIHEP PLOT, <2)= END PLDT fiHBLYSlS)'' 1 

Mg. !. Optimization graphing of HSI as a function of environmental 

ivndittons. In each case, all variables are kept constant at the values de- 
lermined by the input in Fig. 3 except the factor being varied. 
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Listing continued , 



480 
49W 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 



TDB(2)-(9*TDB(l)/5)+32 
■rWB{2)-[9*TWB(l)/5)+32 
TG(2)-(9*TG(l)/5)+32 
VEL(2) -VEL{1)/. 00508 
M(2)=M(1)*3.4144 

GOTO 590 
TDB{l)^(TDB{2)-32) *5/9 
TWB(l)=(TWB(2)-32)*5/9 
TG{l)-(TG(2)-32)*5/9 
VEL(1)=VEH2)*.0 508 
M(1)=H{2)/3.4144 
IF VEL(2) < 20 
THEN VEL(2)=20: 
VEL[1)=VEL(2)*. 00508 

CALCULATIONS 



'METRIC 
'TO 

'ENGLISH 



'ENGLISH 

'TO 

' METRIC 



•STILL AIR = 20 FT/MIN 



610 
620 
630 

640 

650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

750 
760 

770 

7 80 

790 
800 
810 
820 
830 

840 
850 



(WATER VAPOR PRESSURES FIRST) 
T1=TWB(1)+273.16 

CN=LQG(10) 'CONVERTS LN TO LOG 

LW=2 8.5 90 51-8.2*LOG(T1)/CN+.00 2 4 8*T1-3142.31/T1 
LW=LW*CN 'CONVERT LOG TO LN 

PWB-EXP(LW)*1E3 'WET BULB H20 PRESS 

T2=TDB(1)+273.16 

LD=2 8.590 51-8.2*LOG(T2)/CN+.002 4 8*T2-314 2.31/T2 
LD=LD*CN 



PDB=EXP(LD) *1E3 
PH2O=PWB-0.67 4825*(TDBI 
PV=.75*PH20 
RH=i00*PH2O/PDB 



'DRY BULB H20 PRESS 
-TWB ( 1 ) ) 

'VAPOR PRESSURE, MM HG 
'RELATIVE HUMIDITY 



IP PV >= 42 THEN FL=1 ELSE FL=0 

(EREQ £, EMAX & INTERMEDIATES) 
MRT=TG(2)+{TG(2)~TDB(2) )*0.13*VEL(2 
RD(2)=l5*{MRT-95) : 
RD(1)-RD(2)/3.4144 
CV(2]-0.65*VEL(2) [ . 6* (TDB { 2) -95 
CV(1)-CV[2)/3.4144 
EREQ ( 2 ) =:M ( 2 ) +CV { 2 ) +RD ( 2 ) : 
EREQ(1)=EREQ(2)/3.4144 
EMAX(2)=2.4*VEL(2) [.6*(42-PV) 
IF EMAX(2) > 2400 THEN EMAX(2)=2400 
KMAX{1)=EMAX[2)/3.4144 
HSI-100*EREQ(2)/EMAX(2) 
IF HSI >= 100 

THEN XPT=250/ (EREQ(2) -EMAX 
IF XPT < THEN 860 
X1PT=INT(XPT) : 
X2PT=INT((XPT-XlPT)*60) 



.5 



'RADIANT LOAD 



'CONVECTIVE LOAD 



'TOTAL HEAT LOAD 



'MAX. POSSIBLE EVAP . 



'HEAT STRESS INDEX 



ELSE XPT= -1 



'EXPOSURE TIME, HR, HIN 



'% RADIANT LOAD 

'% CONVECTIVE LOAD 

'% WORK (INTERNAL) 



(PARTITION HEAT LOAD) 
870 PRD=100*RD(2)/EREQ(2) 
880 PCV-100*CV(2)/EREQ(2) 
890 PM=100*M(2)/EREQ(2) 
900 ' 

TABULAR OUTPUT 

910 CLS: PRINTTAB(23) "** CONDITIONS **" ■ 

920 PRINT-DB TEMP :"; TAB ( 13 ); USING Wl S ; TDB ( UF) ; TP? ( UF) ; 

930 PRINTTAB(35) "WB TEMP :"; TAB ( 49) ; USING Wl S ; TWB (UF ) ; TP$ (UF) 

940 PRINT"GLOBE TEMP: " ; TAB ( 13 ) ;USING Wl $ ; TG ( UF) ; TP$ (UF) ; 

950 PRINTTAB(35) "AIR VELOCITY :"; TAB ( 49) ; USING Wl S ; VEL ( UF) ; VLS ( UF 

960 PRINT"W0RK RATE :"; TAB ( 13 ); USING Wl $ ; M [ UF ) ; WK S ( UP) 

970 PRINT 

IF PL=0 THEN PRINT''HEAT STRESS INDEX (HSI) = ";USING W2S;HEI 
IF FL=1 THEN PRINT-HEAT STRESS INDEX (HSI) CANNOT BE CALCULA 



i$; : NEXT I: PRINT Bl§ 
1449+1*5,1*10;-: NEXT I 



98 

99 

TED" 

1000 PRINTTAB(3) ; : 

FOR 1=1 TO 10: PRINT 
1010 FOR 1=0 TO 10: PRINT 
1020 PRINT^515,CHR$(157) ; 
1030 FOR 1=1 TO 53 
1040 IP 1=5 OR 1=15 OR 1-30 OR 1=50 

THEN PRINT@515+I,CHR5(156) ; ELSE PRINT^515+I ,CHRS ( 14 
1050 NEXT I: PRINT CHR$(174) 
1060 X9=INT(HSl/2+.5) : IF X9 > 58 THEN X9=58 



IF FL=1 THEN PRINT@540 , " (NOT SCALED)"; 
PRINT@640,'"'; 



107 

160 

1080 PRINT@515+X9,"I" 

1090 PRINT"EXPOSURE: "; 

1100 IF HSI < 10 THEN PRIN'r"MINIMAL'' : 

1110 IP HSI < 30 THEN PRINT''MILD" : 

1120 IF HSI < 60 THEN PRINT"SEVERE" : 



:PRINT[a640 ,"" ; :GOTO 1 



GOTO 1150 
GOTO 1150 
GOTO 1150 



1130 IF HSI < 100 THEN PRINT"VERy SEVERE": GOTO 1151 



Listing continues 



live humidity is limited to 0-100, since 
it is expressed as a percentage. 

Radiant temperature is checked to 
ensure thai the upper temperature is 
higher than the lower one. If inappro- 
priate values are chosen for radiant 
temperature, HSI calculations will be 
off scale, resulting in empty axes. 
When this happens, radiant tempera- 
ture graphing is simply repeated with 
higher or lower limits. 

At the end of optimization graph- 
ing, the program provides an option to 
recycle to the inpMt phase to enter 
new data. 

Program Notes 

Variables that rhight be expressed as 

either English or metric units are sub- 
scripted. The dimension statement at 
line 170 declares these variables as two- 
clement arrays (e.g., DIM TDB(2)). 
The program would function proper- 
ly without the dimension statement, 
since Level II Basic allows subscript- 
ing by default for up to 10 elements 
for any variable, but explicit declara- 
tion of variables is a cleaner pro- 
gramming style. 

Declaration of units at the start of 
the program sets a units flag (UF=1 
for metric, UF^2 for English) that 
governs which subscript element will 
be used, including unit labeis in the 
output. For example, unit labels for 
temperature are defined: 

180 'IPS(l)- "Dt-Ci- C": TP$(2) = ".DEC. F" 

and input of temperature data is then 
coded: 

330 PKlNl"hNrt-;R I3RY BULB TEMPERA- 
TURE-: (■';TP$(UF);")"; 
340 INPUT TDB(UF) 

350 PRINT"ENTER WET BULB Tt::MPERA- 
TURE (";TP$(UF);")"; 
360 INPUT TWB(UF) 

370 PRINT'ENtER GLOBE TEMPERA- 
TURE (";TP$(UF);")"; 
380 INPUT TG(UF) 

If the units flag is set for metric 
(UF = 1), then line 330 labels the re- 
quest for dry-bulb temperature with 
TP$(!), or "DEC. C." In the follow- 
ing line, the units flag causes the data 
to be entered into TDB(l). The same 
strategy is used for all the iriput values. 

Calculations for the HSI require a 
mixture of English and metric units 
(Table 1), so some unit conversions are 
necessary regardless of the input units. 
All the input variables are converted so 
that they are available in both English 
and metric units for the calculations 
and output. The units flag controls the 
direction of the conversions; 
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To 

Model 3 TW 

EPROM Storage 
Alternative to 
Tapes and Discs 

Need reliable turn-key 
operation tor your TRS-80"? 

Can't afford tapeJdisc problems? 

Plug Bug Systems has the cure! 
15 day money back guarantee 

THE IDEA 

A Modularized REPROGRAMMABLE EPROM" memory system for 
jser creation ot up lo 24K burned' in BASIC or MACHINE 
LANGUAGE programs, instantly accessible wilhour tapes or discs, 
tor Model 1 and til, 48K options available No soldering or EPBOM 
handling: all jnits have Iheir own power supplies! 

THE SYSTEM 

A CONTROLLER MODULE is plugged into the TflS 80V Individual 
"untiurned" 1 2K or 6K EPROM memory packs are then plugged into 
the conlroller. Under direction of Our System solI*afe, the user 
loads his target program and "burns" it into 1 or 2 packs, thus pro 
viding up to 24K storage Tr>e CONTROLLER MODULE also provides 
lt\e interlace tor transterring the "t)urned" programs or data into 
RAM avoiding tape and disc load errors! BASIC and MACHINE 
LANGUAGE programs'data can be called up by Me name and start 
executing immediately. Disc and cassette lunctions still valid. 

OR 

Programs can tie executed directly from a pack without the CON 
TROLLER MODULE by plugging them into the TRSBO* 
(Model I 1 6K. 32K) keyboard connector bus. 

SYSTEM SUPPORT 

Plug Bug RAW 

6K static read; write memory tor program development includes a 
write protect switch, thereby simulating EPROMs. Programs 
executed directly or accessed via CONTROLLER MODULE. 

SoHwar* 

PRBURN cassette system control program supervises bum. verily 

and lilespec naming ot programs. Can be transferred to disc. 

Documantatlon 

Complete, straightforward instructions. Machine language know 

ledge not required. 

Burn Svrvica 

We provide a reprogramming service (or your Plug Bug packs (non 

disclosure agreement provided). 



PLUG BUG PACKS 

6K (EPROM) $84.95 

12K (EPROM) »94.95 

48K (EPROM SVSTEM) ...INQUIRE 

6K (RAM) $94.95 

CONTROLLER MODULE $119.50 

■BURN" SERVICE PACK . $14.95 

To order, -ieiid cjshiefs Check or money orripr lo 

PLUG BUG SYSTEMS 

HfO 3. Rw 300 

Ml Kisco, N,V 10549 

914 666 7672 

C on request: 

add $3 00 tor shipping and handling 

add S5 00 tor Canada and Mexico 

•Trade Mark Tandy Radio Shack Corp, 

■ ' P^cKK eiiisabls with ultra-violet lamp, t^ 377 



Lisring continued 

1140 PRINT"EXCEEDS MAXIMUM TOLERANCE" 
1150 IF HSI >=100 

THEN PRINT''EXPOSURE TIME: ";X1PT; "HR" ;X2PT; "MIN" 

ELSE PRINT"EXPOSURE TIME: UNDEFINED" 
1160 PRINT: PRINT"DO YOU WANT INTERMEDIATE CALCULATIONS?" 
1170 INPUT"{ENTER: <Y>ES OR <N>0)";YS 
1180 IF LEFT$(YS,l)="y" THEN 1230 

1190 PRINT"DO YOU WANT TO TRY ANOTHER COMBINATION OF CONDITIONS? 
n 

1200 INPUT" (ENTER: <Y>ES OR <N>0)";Y2$ 

1210 IP LEFT$(Y2$,1)="Y" THEN CLS: GOTO 280 ELSE 3080 
1220 ' 

INTERMEDIATE CALCULATIONS OUTPUT 

123 CLS: PRINT , "INTERMEDIATE CALCULATIONS" 
1240 PRINT"EVAPORATIVE HEAT LOSS": 

PRINTTAB(5) "REQUIRED FOR THERMAL BALANCE"; 

TAB [45} ; USING WlS;EREQ(UF} ;WK$(UF) 
1250 IF FL=1 THEN 1270 
1260 PRINT"MAXIMUM EVAPORATIVE LOSS FOR CONDITIONS;"; 

TAB(45) ;USXNG WIS; EMAX (UF) ;WKS(UF) 
1270 PRINTTAB(5) "RADIANT HEAT ";: 

IF RD(UP) > THEN PRINT"GAIN"; ELSE PRINT"LOSS"; 
1280 PRINTTAB(45) ;USING Wl S ; RD ( UF) ;WK$ (UF) 
1290 PRINTTAB(5) "CQNVECTIVE HEAT ";: 

IF CV{UP) > THEN PRINT"GAIN"; ELSE PRINT"LOSS" ; 
1300 PRINTTAB(45) ;USING Wl$; CV(UF) ; WK$ (UF) 

1310 PRINTTAB(5) "INTERNAL HEAT" ; TAB ( 45) ; USING Wl$;M (UF) ; WK$ (UF) 
1320 PRINT"RELATIVE HUMIDITY "; TAB ( 40) ; USING W3$;RH 
1330 PRINT"PARTITION OF HEAT LOAD:" 

1340 PRINT, "DUE TO RADIANT EXCHANGE" ; TAB ( 45) ;USING W3S;PRD 
1350 PRINT/'DUE TO CONVECTIVE EXCHANGE" ; TAB ( 45) ; USING W3$;PCV 
1360 PRINT, "DUE TO WORK LOAD" ;TAB( 45) ;USING W3$;PM 
1370 PRINTiPRINT"(HIT SPACE BAR FOR DIAGNOSTICS)" 
1380 Z1$=INKEY&: IF Zl$=" " THEN 1400 ELSE 1380 
1390 ' 

DIAGNOSTICS OUTPUT 

1400 CLS: PRINT, "ANALYSTS AND DIAGNOSTICS" 

1410 PRINT"RELATIVE HUMIDITY IS "; 

1420 IF RH < 20 THEN PRINT"VERY LOW";: GOTO 1480 

1430 IF RH < 40 THEN PRINT"LOW";: GOTO 1480 

1440 IF RH < 60 THEN PRINT"NORMAL" ; : GOTO 1480 

1450 IF RH < 80 THEN PEINT"SOMEWHAT HIGH";: GOTO 1480 

1460 IF RH < 90 THEN PRINT"VERY HIGH";: GOTO 1480 

1470 PRINT"EXTREMELY HIGH"; 

1480 PRINT", AMBIENT TEMPERATURE MAY BE 

CALLED "; 

40 THEN PRINT"COLD"; : GOTO 1560 
60 THEN PBlNT"CHILLY"f : GOTO 1560 
70 THEN PRINT"COOL"; : GOTO 1560 
80 THEN PRINT"COMFORTABLE"; : GOTO 1560 
90 THEN PRINT"WARM" ; : GOTO 1560 
< 95 THEN PRINT "UNCOMFORTABLY HOT";: GOTO 1560 

PRINT "OPPRESSIVELY HOT"; 

PRINT", WORK LEVEL IS "; 

< 400 THEN PRINT"M1NIMAL"; : GOTO 1620 

< 650 THEN PRINT"LIGHT"; : GOTO 1620 

< 1300 THEN PRINT"MODERATE"! : GOTO 1620 

< 2000 THEN PRINT"HEAVY";! GOTO 1620 



1490 IF TDB(2) 
1500 IF TDB(2) 
1510 IF TDB(2) 
1520 IF TDB(2) 
1530 IF TDB(2) 
1540 IP TDB{2) 
155 
156 

IF H(2) 

IF H(2) 

IF M(2) 

IF M(2) 
1610 PRINT"VERY HEAVY"; 
1620 PRINT", AND AIR 
FLOW IS "; 
1630 IF VEL{2) 
1640 IF VEL(2) 

IF VEL(2) 

IF VEL(2) 

PRINT"STRONG.'' 



1570 
1580 
1590 
1600 



165 
166 
167 
16 8 



< 20 THEN PRINT"MINIMAL.": GOTO 1680 

< 100 THEN PRINT"SLIGHT.": GOTO 1680 

< 400 THEN PRINT"MODERATE. " : GOTO 1680 

< 700 THEN PRINT"BREEZY.": GOTO 1680 



IF FL=1 

THEN PRINT"CONDITIONS ARE OUTSIDE THE CALCULABLE RANGE FOR 

HSI."t 



GOTO 17 

1690 PRINT"THE RESULTING HSI 



__.,_ ..,„ ;";INT(HSI*100)/100;") IS IN A"; 

1700 IF HSI < 10 THEN PRINT" MINIMAL RANGE.": GOTO 1750 

1710 IF HSI < 30 THEN PRINT" MILD RANGE."; GOTO 1750 

1720 IF HSI < 60 THEN PRINT" SEVERE RANGE.": GOTO 1750 

1730 IF HSI < 100 THEN PRINT" VERY SEVERE RANGE,": GOTO 1750 

1740 PRINT"N INTOLERABLE RANGE." 

1750 IP HSI < 45 THEN 1760 ELSE 1770 

1760 PRINT"THE HSI INDICATES TOLERABLE AND REASONABLE CONDITIONS 

THAT 
MAY NOT BE COST EFFECTIVE TO REDUCE FURTHER," 
1770 IF HSI >- 45 THEN 1780 ELSE 1840 
17B0 PRINT"CONDITIONS MAY BE IMPROVED BYi" 
1790 IF RH > 70 THEN PRINTTAB( 5) "REDUCING RELATIVE HUMIDITY" 

Lisring continues 
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I.niifs^ cifrilmui/d 

1600 IF TDB(2) 

E" 

1810 IF VEI,{2) 

1820 IF TG(2) 



> 80 THEN PRINTTAB{5) "HEDUCING AMBIENT TEHPERATUS 

< 400 THEN PRINTTAB(5} "INCREASING AIR FLOW" 
■ 95 THEN PRINTTAB( 5) "REDUCING RADIANT TEMPERATURE 



1830 IF FL=1 THEN 1190 

1840 PRINT: PRINT"0PTIONS FOR FURTHER ANALYSIS: 
(0) = END ANALYSIS 

(1)= SYSTEMATICALLY VARY ONE CONDITION 
{2)= CHANGE CONDITIONS AND TRY ANOTHER ANALYSIS 

1850 INPUT" (ENTER: 0, 1, OR 2)";A9 

1860 IF A9+K1 OR A9+l>3 OR A9+10INT ( A9+1 ) THEN 1850 

1870 IF A9=0 THEN 3000 



i.hrin^ ciniinui" 



Pwb = 

T" = 

Pdb = 

PH,oOrPV- 

MRT = 

RD- 

CV = 
F — 

HSI = 
RH = 



Wel-bulb Tcmperalure, "K 

7' = 'i;,b (+273.16 

Saiuraiod Waier-vapur Pressure ai Wet-bulb Temp, mbar 

logl\,, -28.59051 -8.2loBr + ,00248T'-3l42.31/'r 

P.^h = antilog(iog P^,b)* 1000 

Dry-bulb Temperature, °K 

T" = Tdbx + 273.16 

Saturated "Water-vapor Pressure at Dry-bulb Temp, mbar 
log P,jh= 28.5905] --8.2!ogT"-.00248T"-3142.3!/T" 
Pjh = antilog(logPat,)*IOOO 

Prevailing Water-vapor Pressure, mbar or mm I-Ig 

PH,o-Pwb--274825(Tdbx-Twb^c) 

PV 0.75(P,,,0 

Mean Radiam lernpcralure, °F 

MRT = Tgop + 0. 13(air veI)-5(Tg.p - T^b-p) 

Radiant Heat Exchange, RTU/hr or watt.'^ 

RD-15(MRT-95) 

RD' = RD/3.4144 

Convective Heat Exchange, BTU/hr or waits 
CV = 0.65{air vd)'6(T(|b-F " 95) 
CV' = CV/3.4144 

Evaporative Heal Loss Required for Thermal Balance, BTU/hr 

Ereq = M±RD±CV 

E,,q'=E„q/3.4144 

Maximum Evaporative Heat Loss, BTU/hr or watts* 
E^3,^^2.4(airvel)-S(42-PV) 

^max ~ '^max' ^■4I44 
Heat Stress Index, percent 

HSI = IOO*-p— ^ 

Nominal Exposure Time, hrs (only ij' HSI>100) 



(mbar) 
(mm Hg) 



(BTU/hr) 
(watts) 

(BTU/hr) 
(watis) 
or watts 

(BTU/hr) 
(watts) 

(BTU/hr) 
(watts) 



t,.v„ = 



250 



Relative Humidity, percent 



Rii-](X)* 



(^) 



I'artilioning Heat Load: 

Percent Radiation, %RD= IO()*(RD/Ej-eq) 
Percent Convection, 'VoCV^ 100*(CV/Ereq) 

Percent Work. WoM = !0()*(M/E|,,,|) 

*Maximum possible t,!,^ is 24()0 BTU/hr 

Table I. Variables and calculations for the Hem Stress Index. Units in the calvulutions: Dry- 
bulb temperature is in both Fahrenheit and Celsius {T^b-por T^ti'di wet-bulb temperature is in 
Celsius (Ty^b'c)' globe temperature is in Fahrenheit (T^ofJ; air velocity is in ft./rnin.; water- 
vapor pressures are in either mbar or mm Hg; and heat is expressed as BTU/hr (English) or 

waits (metric). 



470 [F UF = 3 THEN 480 ELSE 540 * 

480 TDB(2) = (9*TIDB(l)/5)-(-32 'METRIC 

490 TWB(2)-(9»TWB(l)/5)-i-32'TO 

500 TG(2) = (9*TG(l)/5)-t-32 'ENGLISH 

510 VEL{2) = VEL(l)/.O05O8 

520 M(2) = M(1)*3.4144 

530 GOTO 590 

540 TDB(l) = (TDB(2) - 32)*5/9 'ENGLISH 

550 TWB(l)-(TWB(2)-32)*5/9'TO 

560 TO(l) = (TG(2)-32)*5/9 'ENGLISH ■ 

570 VEL(1)=VEL(2)*.00508 

580 M(1) = M(2)/3.4144 

Table 1 summarizes the calculations 
required for the HSI. Most of the 
equations translate directly into Ba- 
sic. One exception might be the cal- 
culations for saturated water-vapor 
pressures from wet and dry-bulb tem- 
peratures. The computer uses base-e 
logarithms (in), while vapor pressure 
calculations are in base-10 logs. To 
take base-10 logs of dry-bulb and wet- 
bulb temperatures (°K), the program 
uses the base-conversion strategy: 



.v = 



loge Y In Y 
loggX in X 



To extract the antilog, the logxY val- 
ue is converted back to base-e by mul- 
tiplying back through by In X. The an- 
tilog is then obtained with the EXJ* 
function for raising e to a power, since 
e In X = X. This sequence for saturated 
water-vapor pressure at the wet-bulb 
temperature (P^b — compare Table 1) 
looks hke: 

610 T1=TWB(1) + 273.16 'TI -T^^-k 

620 CN = LOG(10) 'aclual!yln{10) 

630 LW = 28.59051 -(8.2*LOG(Tl)/CN)-(- 
(.00248*TI)-(3142.31/^i) 'LW = log(P„b) 
640 LW = LWCN 'now LW = ln(P^i,) 

650 PWB = EXP(LW)*1E3 'antilog = Pwb 

The procedure is the same for saturat- 
ed water-vapor pressure at dry bulb 
temperature (Pdb)- 

HSI calculations reveal some inter- 
esting properties of heat transfer. Al- 
though normal body temperature is 
between 98° and 99 °F (the core tem- 
perature, measured with a rectal ther- 
moiiieter), the body surface is usually 
several degrees cooler. Most environ- 
mental heat exchange depends upon a 
temperature difference between the en- 
vironment and the body surface, not 
the core. The equations for body heat 
exchange are based on a nominal body 
(skin) temperature of 95 °F. 

Mean radiant temperature (MRT) 
varies as a function of the square root 
of the air velocity and the difference 
between globe temperature and dry air 
temperature: 
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l.i^li'i); Lf'nliiiiii'd ' I 

1880 IF A9--1 THEN 1910 

1890 IF A9=2 THEN CLS : GOTO 2S 

1900 ' 

OPTIMIZATION GRAPHING 



;hsi) may be examined as a fun 



1910 ,CLS: PRINT''HEAT STRESS INDEX 

CTION 

OF THE FOLLOWING:" 

1920 PRINT" (1) AIR FLOW 

(2) RELATIVE HUMIDITY 

{3) RADIANT TEMPERATURE" 
1930 INPUT" (ENTER: 1, 2, 3, OR TO END ANALYSIS) "; A8 
1940 IF A8+1 <1 OR A8+1 > 4 OR AE+l <> INT(A8+1) THEN 1930 
1950 IF A8=0 THEN 3080 
1960 ON A8 GOSUB 2030 ,2220 ,2380 
1970 PRINT@896,""; 

1980 INPUT" (<1>- ANOTHER PLOT, <2>= END PLOT ANALYSIS) "; A4 
1990 IF A4<1 OR A4>2 OR A4<>INT{A4) THEN 1970 
2000 IF A4=l THEN 1910 
2010 IF A4=2 THEN CLS: GOTO 1840 
2020 ' ' 

(air" FLOW) 
2030 VL(1)= 20*, 00508: VL(2)=20: 

VH(1)= 1000*. 00508: VH.(2)=1000 

CLS: PRINT"REC0MMENDED RANGE FOR AIR FLOW IS BETWEEN ";VL(U 



2040 
F);" 
AND 
2050 
2060 

2070 
GOTO 
2080 
2090 



";VH(UF) ;" ";VLS{UF) 

INPUT"ENTER LOWER LIMIT FOR AIR FLOW" ; V7 ( UP) 

IF UF=1 THEN V7(2) = V7(l)/. 00508 

ELSE V7(l) = V7(2)-*. 00508 
IF V7(2) < 20 THEN PRINT"STILL AIR IS" ; VL (UF) ; " ";VL$(UF)! 
2050 

INPUT "ENTER UPPER LIMIT FOR AIR FLOW" ; V8 ( UF) 
IF UF=1 THEN V8(2)=V8(1)/. 00508 

ELSE V8(1)=V8(2) *. 00508 

<= V7(UF) THEN PRINT"IT WON'T WORK, ..TRY AGAIN": 



2100 IF VB{UF 
GOTO 2050 

2110 RG=V8(2)-V7(2] 
2120 X7=V7(UP) 



'RANGE FOR CALCULATIONS 

'MIN. FOR GRAPH LABEL 
2130 X6"(V8(UP)-V7(UF))/5 'FOR GRAPH LABELS 
2140 X8»V7(2)' 'MIN, FOR CALCULATIONS 
2150 GOSUB 2700 'DRAW AXES & LABEL 

2160 PRINT % B52,"AIR FLOW { " j VLS (UF) f " ) " f 
2170 X2 - V7(2) 'X2 S. X3 ARE LOOP LIMITS 
2180 X3 - V8(2) 

2190 GOSUB 2550 'GENERAL LOOP. 
2200 RETURN 
2210 ' 

(RELATIVE HUMIDITY) 
2220 CLSjPRINT"RECOMHENDED RANGE FOR RELATIVE HUMIDITY IS BBTWEE 
N 20 

AND 100 PERCENT." 

2230 INPUT"ENTER LOWER LIMIT FOR RELATIVE HUMIDITY" ; LR 
2240 IF LR < THEN PRINT" IMPOSSIBLE ... TRY AGAIN": GOTO 2230 
2250 INPUT"ENTER UPPER LIMIT, FOR RELATIVE HUMIDITY";UR 
2260 IF UR > 100 THEN PRINT" IMPOSSIBLE ... TRY AGAIN": GOTO 2250 
2270 IF UR <- LR THEN PRINT"IT WON'T WORK... TRY AGAIN": GOTO 22 
30 
2280 RG=UR-LR 

/ t'iin% com'mue\ 



MRT = Tg=F + 0.13 (air vel)-5(Tp.p'-Tdb=F) 

The radiant heat, exchange (RD) de- 
pends upon the difference between 
mean radiant temperature and skin 
temperature: 

RD= 15(MRT-95). 

Conveclivc heat exchange varies as a 
function of the 0.6 power of the air ve- 
locity and the difference between dry 
air temperature and skin temperature: 

CV=0.65(airvcl)'XTjh r-*^-^). 

The total heat load that has to be dissi- 
pated by evaporation (Ej^gq) ^s the sum 
of the internal heat being produced by 
work (M) plus radiant and conveclive 
heat exchange: 

E,eq-M t RD l-CV. 

If either radiant or convective transfer 
is a heat loss, Eigq is reduced. 

The maximum possible evaporation 
(Eiiiax) varies wiih the 0.6 power of air 
velocity and the walcr vapor pressure 
difference between the skin and the air: 

E,„.„ = 2.4{air vel)-''(42 - PV) 

where PV = ambient vapor pressure 

and 42 is the saturated water-vapor 
pressure at 95 °F. The maximum possi- 
ble Emax i^ 2400 BTU/hr. 

Optimization graphing is handled as 
rnodular subroutines that are called 
from a menu (lines 1910-2010). Sepa- 
rate subroutines are used for air flow, 
relative humidity, and globe tempera- 
ture to input minimum and maximum 
values for each. Two modules require 
unit conversions, since calculations for 
air flow and globe temperature are 
mostly in English units. If the program 
is being used in metric, input of 
graphing limits is taken in metric, and 



GENERAL GRAPHING LOOP AIR FLOW (VEL) RHLATIVE HUMIDITY (KM) GLOBE TEMPERATURE lit') 


(AS=1) (A8 = ) (A8 = 3) 


X9- Variable Being Changed X2 = Min, How (fi/min) X2 = Min, RH (%) X2 = Min. Tgop 


X3 = Max. no* (ft/min) X3 = Ma)i. ^^{^ti) X3 = Max, Tgop 


RG = X3 - X2 RG = X3 - X2 RG = X3 - X2 


FOR X9 = X2 TO X3 STEP. RG/100 




The flag (A8) for choice of 


\W = TG(2) + ,13'X9t.5'(TG(2)- lDlii2» 


My-MRT 


M9-Xy-f ,L3-VLU2)I.5'(Xy- iUB(2j) 


factors to be varied determines 


R4=15*(M9-9i) 


R9 = l3'(M9-95) 


R9 = 15'(M9-95) 


branching to the appropriate 


C9 = .65*X9t.6'(TDB(2) - 95) 


C9 = .65-VEL(2)t.6*(lDm2)- y_^) 


09 = .6S*VEL(2)t .6*(TDB(2) - 95) 


calculation for each inter- 


E9 = M(2) + C:9 + R9 


E9 = M(2) + C9 + R9 


E9 = M(2) + C9 + R9 


mediate variable. 


P9 = PV 


P9=.75*(X9* PDB/100) 


P9 = PV 




E8 = 2.4*X9t.6'(42-P9) 


ES = 2.4'VEL(2)1.6»(42 - P9) 


E8 ^ 2.4*VEL(2)t.6*<42 - P9) 




Y9=100*ABS<E9/E8) 


Y9=100*ABS(E9/E8) 


Y9=IOO*ABS<E9/EB) 


(GOSUB TO PLOT POINTS) 








NEXT X9 




Fig. 6. Parlilioning of the general graphing loop (lines 2470-2610). In each case, X9, Ihe loop counter, is substituted into the equations involving the 


factor being varied. Equivalence for the intermediate variables: M9 - Mean radiant temperature (°F), R9 = Radiant heat exchange. C9 -^ Conva- 


tive heal exchange, E9 = Evaporation required to dispel the heat load, ES = Maximum evaporation for the conditions. P9 = Prcvailiii'^ vapor 


pressure (mm Hg), and Y9 Ilea! Stress Index. The graphing suhrouiiiie plois )'9 li\ a function of X9. 
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INTERFACE EXPANSION SYSTEMS FOR THE TRS-80' COMPUTERS 



The MDX Series Interface Expansion Boards provide a wide range of features for the TRS-80* Computers. 

Fully assembled units offer immediate, inexpensive expansion; or choose the bare or partially assembled 
units for even more savings. Since assembly of the board in sections is possible, you can build In the 
features you need, as you need them! P.C. Boards are soider-masked and silkscreened for easy assembly; 
each comes with the illustrated User's Manual. 



TRS-80* Model I EXPANSION ^-, 

Our MDX-1 and MDX-2 Interface Expansion Boards are field 
tested/field proven and offer more options for the Model t 
than any on the market. Also compatible with the PMC-80 and 
LNW-80 Computers. Custom Case Available for MDX-2. 




FEATURES: 

• MEMORY EXPANSION to 48K 

• ON-BOARD SUPPLY, fully protected 

• PHONE MODEM, 0-600 baud, direct connect, 
"answer" and "originate" modes 

• REAL TIME CLOCK, software programmable 

• PARALLEL PRINTER PORT 

• SERIAL P0RT-RS232 and 20ma loop 
compatible 

• EPROM OPTION for user firmware 

• DUAL CASSETTE LINE 

.•FLOPPY DISK CONTROLLER: The MDX-2 
■ has all the feature? of the MDX-1 plus Floppy 
Disk Controller. The Controller is compatible 
with any single or double-sided floppy disk 
drive that is configured for use with the 
TRS-80 computer. 



MDX-1 


MDX 


/ 


J 


/ 


J 


•/ 


y 


■J 


/ 


y 


y 


y 


/ 


•/ 


/ 


J 


y 




y 



ALL MDX SERIES BOARDS ARE WARRANTED AND SERVICE 
IS AVAILABLE. 



TRS-80* Model III EXPANSION ^,7 

The MDX-3 Interface Expansion Board is desinged to mount 
inside the Model III Computer. Connectors provide external 
access to the Floppy Disk Controller {for external drives) and 
RS232 port. 

FEATURES: 

• DOUBLE-DENSITY FLOPPY DISK CONTROLLER -1 .8 times 
the normal single density storage; digital data separation; controls 
up to 4 drives, 

• SERIAL PORT- RS232and 20ma loop compatible, 110-19,200 baud 

• PHONE MODEM- 0-600 baud-direct connect- "answer" and 
"originate" modes. 

• FULLY COMPATIBLE with all Model III software. 



IVIDX-5: Also for the TRS-80* Model III 

For the user who already has disk we offer the MDX-5. This 
board mounts next to the Floppy Disk Controller Board in 
the Model Ml. 
FEATURES: 

• SERIAL PORT-RS232 and 20ma loop compatible, 1 10-19,200 baud 

• PHONE MODEM— 0-600 baud-direct connect-"answer" and 
"originate" modes, 

• Fully compatible with all Model Ml Software 



PHONE MODEM ^7e 

The MDX-4 Phone Modem utilizes the same Direct Connect, 0-600 
baud design as used in the other MDX series boards and: answer/ 
originate modes, solder-masked & sill<screened; on-board power supply. 
Compatible with any RS232 port. 



*TRS-aO is a trademark of Tandy Corporation, 



Accepted 



For a free brochure 
contact: 



Our Expensive Expansions Are Not Cheap. They Are Inexpensive. 



Ban' V.V.. Board & L"wjr\ Miuiisal 

Faliy Assembled 

Insiallaiioii Kit for Model Iff Drive 

Custom Case ^4o.UU 

Any inaimai urdt^R'ci -leparatfl)-, %''i.'=)% phi,'; $3.i!0 pcj.sli^sff' & liaiKlling. 

All hoard orders," add So,i)0 lor po.stage & handlitiu;. (Ti'^a;- residruis aM .t' 

'W (]ast; and powi'v traiisl'onne?'- minor avwiiibly inquired. 



MDX-1 


'vD'JX-S MDX-3 


Mnx-4 


MD.\-5 


^ m::' 


. ■:, $74,95 


S 29.95 


ft i9.9o 




''- ■ ■■■>' HWdM'-, 


N'A 


$224,95 




5119.13,5 







!a,K.i 




6301 Manchaca Rd. Suite I 
Austin, TX 78745 



Texas Res, only (512) 441-7890 



^ See list of Advertisers on Page 455 
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The eye is 

still faster 

than the 

hand, true. 

But when 

RAPID 

passes its hand, you have the 

most reliable backup in less than 

45 seconds, with Verify /lA/D 

Error Correct. 

TRS'80 Modem w/2disi<^64K 



ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



Eight good reasons 
for using a Mod III: 

l.iHinthlH" General Ledger 
Accounting System 

2. Accounts Receivable 

3. Accounts Payable 

4. Full-Service Payroll 

5. Order Entry & Invoicing 

-with Inventory Interface 
-with Accts. Rec. Interface 

6. Fixed Assets Accounting 

7. Job Cost Accounting 

8. Cost Estimating Systems 

-for Manufacturing 
for Food Service 

At selected Dealers or 
from the publisher 

Nppfuthi' IJnuuama 

44 Third Ave., Ste, F 
Chula Vista, CA 92010 

7ia-<i35-550! y" 



E&G UMLOR ENTERPRISES 
RFD#1,BOX48A 
(RT# 119 EAST) 
FITZWILLIAM, NH 03447 
(603) 585-3142 

MODIII 48K DUAL DISK DRIVE 

For RS-232-C add $100.00 
$1750.00 40 IRK Single/Side 
$2000.00 40 IRK Double/Side 
$2200.00 80 IRK Double/Side 

All orders prepaid 

Shipment in 4 weeks 

•* 180 DAY WARRANTY '* 

VISA/MC users add 4% 

shipping extra 

Other products and services 

available on request t^^oi 



/ iMtnn I'Oriliniii'il 



2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 

2380 

2390 

EN"; 

AND 

2400 

2410 

2420 
2430 

2440 
24 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 

2550 
2560 
2570 
2580 
2590 
2600 

2610 
2620 
2630 

2640 
2650 
2660 
2670 
2680 
2690 

2700 
2710 



2720 
2730 



27 40 



2750 
2760 

2770 
2780 
2790 
2800 
2810 
2820 



X7=LR 

X8=LR 

X6=(UR-LR) /5 

GOSUB 2700 'AXES AND LABELS 

PRINT @ 852, "RELATIVE HUMIDITY (%)"; 

X2=LR: X3=UR 

GOSUB 2550 'GENERAL LOOP 

RETURN 

(RADIANT (GLOBE) TEMPERATURE) 

TL(1)= (65-32)*5/9: TL(2)=65: 

TH(1)- (150-32)*5/9: TH(2)-150 

CLS: PRINT"RECOMMENDED RANGE FOR GLOBE TEMPERATURE IS BETWE 
TL(UF) ;" 
";TH(UF) ; " ";TP$(UF) 

INPUT''ENTER LOWER LIMIT OF GLOBE TEMPERATURE" ; T7 ( UP) 

IF UF=1 THEN T7(2)=(9*T7{l}/5)-l-32 
ELSE T7(l)=(T7(2)-32)*5/9 

INPUT"ENTER UPPER LIMIT OF GLOBE TEMPERATURE" ; T8 ( UF) 

IF 0F=1 THEN T8(2) = ( 9*T8 (l)/5) +32 
ELSE T8(l) = (T8(2)-32)*5/9 

IF T8(UF) <= T7{UF) THEN PRINT"IMPOSSIBLE . . . TRY AGAIN":GOT 
)0 

RG=T8(2)-T7(2) 

X7=T7(UF) 

X6=(T8(UF)-T7(UF) )/5 

Xa=T7(2) 

GOSUB 2700 'AXES AND LABELS 

PRINT @ 852, "GLOBE TEMPERATURE ( " ; TP$ (UF) " ) " ; 

X2^T7(2) : X3=T8(2) 

GOSUB 2550 'GENERAL LOOP 

RETURN 



GENERAL GRAPHING LOOP 
FOR X9 = X2 TO X3 STEP RG/100 

IF A8=l THEN M9=TG ( 2) -f- . 13*X9 [ . 5* [TG ( 2) -TDB ( 2) ) 
IF A8=2 THEN M9=MRT 

IF A8=3 THEN M9=X9-H . 13*VEL ( 2) [ . 5* (X9-TDB [ 2) ) 
R9=15*(M9-95) 
IF A8=l THEN C9= . 65*X9 [ . 6* (TDB ( 2) -95) 

ELSE C9=,65*VEL(2) [ . 6* (TDB ( 2) -95 } 
E9=M(2)-HC9-HR9 

IF A8=2 THEN P9= . 75* (X9*PDB/100) ELSE P9=PV 
IF A8=l THEN E8=2 . 4*X9 [ . 6* ( 42-P9 ) 

ELSE E8=2,4*VEL(2) [.6*(42-P9) 
IF E8>2400 THEN E8=2400 
Y9=100*E9/E8 

GOSUB 2770 'PLOT POINTS 
NEXT X9 
RETURN 

SUBROUTINE FOR GRAPH AXES 
CLS 

FOR I-l TO 11: 
PRINTTAB(10)A1?; : 

FOR J=l TO 10: PRINT A2$;: NEXT J: 
PRINT: 
NEXT I 

PRINTTAB(10) A3$; : 

FOR J=l TO 10: PRINT A4$;: NEXT Js 
PRINT 
H9=200: 

FOR 1=68 TO 646 STEP 64: 
PRINT @ I,H9;TAB(9) "-"; : H9=^H9-20: 
NEXT I: 

PRINT e 256, "HSI"; 
KJ=0: 

FOR J=776 TO 826 STEP 10: 

PRINT@J,INT( (X7+KJ) *100)/100; : KJ = KJ+X6! 
NEXT J 

PRINT@832,"";: RETURN 
I 

PLOTTING SUBROUTINE — X,Y ENTERED AS X9,Y9 
YP=34-(33*Y9/200) 
XP=20-l-(X9-xa) *100/RG 

IF XP < OR XP > 120 OR YP < OR YP > 34 THEN 2B1[ 
SET(XP,YP) 
RETURN 

SUBROUTINE FOR WORK ESTIMATE TABLE 



2830 CLS: PRINTTAB(5) "BTU/HR" ;TAB (14) "WATTS" ;TAB( 29) "** ACTIVITY 
2840 PRINTTAB(5) 2400;TAB(14) 700;TAB(22) "* HARDEST SUSTAINED WORK 

Lis ling continues 
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From Our Most- 
Requested List For 
TRS-80 I & III 




Astroball 

By John Allen 
More features, thrills and sound than even out famous 
Pinball! With a flying saucer, moving spaceships, 
meteors ... even blacl^ holes that can swallow tfie 
ball. 5 skill levels. 

16KTapeor Disk, $19.95* 




Space Rocks 

By Steven Kearns 

Avoid and destroy gigantic space rocks. Fast game 

with sound. 

16KTapeor Disk, $19.95 




Pinball 

By John Allen 

Lots of sound, machine language speed and flashing 

graphics make It very reallsticl 5 speeds. The ail-time 

favorite! 

16KTape, $14.95* 16K Disk, $20.95* 




Invaders 

from 

Space 

By Carl Miller ^^^^^^^=^^= 

Tlie classic, possibly addictive, space game. Aliens 
move, drop bombs and overrun your bases while you 
move and simultaneously fire at the invaders. 

16K Tape, $14.95* 16K Disk, $20.95* 

'plus $2.00 shipping and handiing 



Evade 




*Tun-tastic" Collection of Arcade Games! 
Our Very Newest Plus Familiar Favorites. 




By Tim Knight 

You're in charge of the USS Krestan, a tri-ship on in- 
terstellar exploration. You must defend yourself 
against groups of enemy aliens, each requiring a dif- 
ferent strategy. Then you can go for the big points by 
docking with another ship. Be careful, or your ship will 
be vaporized! Now you're ready for the evil Mali- 
cians. . .and the meteor showers. Not for the faint- 
hearted! 

16K Tape or 32K Disk: TRS-80 I & 111. 
$19.95 plus $2.00 shipping and handling 





Demise 




King 
of the 
Jungle 

By Patrik Vandewalle 

An unusual combination of fast pinball action plus 
the challenges and dangers of an arcade game. Score 
points as you maneuver your ball from obstacle to 
obstacle, while moving through the jungle searching 
for the hidden crown. You start with 5 balls and gel 
another for each 10,000 points. Choice of 3 screens; 
Joystick compatible. 

16K Tape or Disk: TRS-80 I & 111. 
$19.95 plus $2.00 shipping and handling 



By P 

Shoot down the enemy ships which are coming— and 
firing— at you. After obliterating them all, you mu3t 
carefully navigate a tunnel before you are in the clear. 
You can move your ship left, right, up, down and 
diagonally; your weapons include a laser cannon and 
"smart bombs" that render all ships on the screen im- 
potent. You start with 5 ships and gel anoiher ship 
and "smart bomb" for each 10,000 points. 3 levels of 
play; great sound effects. 

16K Tape or Disk: TRS-80 I & til. 
$19.95 plus $2.00 shipping and handling 

Enemy 
Evasion 

By Raul Rivera 

An original fast-paced arcade style game requiring 

quick mental and physical reflexes. You must control 

your Rover to avoid oncoming Bovelan Ramcraft. You 

gain points for each successful pass through the 

"death lanes", but the Ramcraft speed increases as 

you play. If you reach the double bonus mode, watch 

out for the land pellets they drop! Joystick 

compatible. 

32K Disk: TRS-80 I & III. 

$19.95 plus $2.00 shipping and handling 




Q Acorn Products . Inc. 
634 North Carolina Avenue, S-E. Washington, D.C. 20003 ^7; 
We've Grown On You. 

To Order By Phone CALL: (202) 544-4259 

Dealer Inquiries Only, Call Computer Software Distributors: (800) 424-3708 



I Please send these Acorn Programs: 



D Please send your catalog 



I 



Charge to: 

Z VISA n MASTERCARD D CHECK ENCLOSED 



TOTAL: $^ 



CARD NO. 
Name 



EXP. DATE 



T-11 



I Address, 
I City 



State 



Zip. 



&1. / 



Listing coniinui'ti 

5850 PRINT: PR1NTTAB(5) 2000;TAB(14) 600; TAB(22) "* INTERMITTENT HE 

AVY WORK" 

2860 PRINTTAB( 24) "(LIFTING, SHOVING, PULLING)" 

2870 PRINTTAB(5) 1600;TAB{14) 500 

2880 PRINT: PRINTTAB ( 14) 400;TAB( 22) "* STANDING, MODERATE WORK" 

2890 PRINTTAB(5)1200;TAB(24) "(MODERATE LIFTING, ETC.)" 

2900 PBINTTAB(14)300;TAB(22) "* SITTING, HEAVY ARM S LEG MOVEMENT 

2910 PRINTTAB(5) 800;TAB(22)"* STANDING, LIGHT WORK" 
2920 PRINTTAB(14)200;TAB(22)"* SITTING, LIGHT WORK (E.G., DRIVIN 
G) " 

2930 PRINTTAB(5)400;'PAB(22)"* SITTING QUIETLY" 
2940 PR1NTTAB(14) 100 
2950 PRINTTAB ( 22) "* SLEEPING" 
2960 PRINTTAB(5) 200; 

2970 FOR J = 3 TO 46: SET{23,J): NEXT J 
2980 SET(22,3): SET{22,10): SET(22,17): SET{22,24): 
SET(22,38) : SET(22,45) 
SET(24,34) : SET(24,28) 
SET(24,9} : SET(24,3) 

PRINT (3 936," (PUSH SPACE BAR)"; 

PRINT la 1001, "( TO CONTINUE )"; 

Xl$ = INKEY$: IF X1S=" " THEN 3030 ELSE 3020 



SET(24,21) : 



SET(22,31) 
2990 SET(24,41) 

SET(24,15) 
3000 
3010 
3020 
3030 CLS: PRINT "DRY BULB TEMPERATURE ";TDB(UP);" ("!TP$(UF)j' 



3040 PRINT "WET BULB TEMPERATURE ";TWB{UF);" 
3050 PRINT "GLOBE TEMPERATURE ";TG{UF);" 
3060 PRINT "AIR VELOCITY "fVEL(UF);" 

307 RETURN 
3080 END 



(";TP$(UF) ;")" 
(";TP$(UF) ;") " 
(";VL$(UF);")" 



OUTPUT WHEN CONDITIONS EXCEED CALCULABLE RANGE FOR HSL 



DBTCMP: 
CI.OBKTHMP: 
WORK RATE: 



** CONDITIONS** 

98.0 DEC. F WBTEMP: 

94.0 DEC. F AIR VELOCITY: 

200.0 BTU/HR 



96.5 DEC. F 

200.0 FT/M IN 



HF AT STRESS INDEX (HSI) CANNOT BE CALCULATED 

I r — \ r 







10 



20 



30 

T" 



"I \ r 

4b 50 60 
(NOT SCALED) - 



"T 

80 



90 



100 



DO YOU WANT INTERMEDIATE CALCULATIONS? 
(ENTER: <Y>ES OR <N>0)? Y 

INTERMEDIATE CALCULATIONS 
EVAPORATIVE HEAT LOSS 

REQUl RED FOR THERMAL BALANCE 

RADIANT HEAT LOSS 

CON VECTIVE HEAT GAIN 

INTERNAL HEAT 
RELATIVE HUMIdITY 
PARTITION OF HEAT LOAD: 

DUE TO RADIANT EXCHANGE 

DUE TO CONVECTIVE EXCHANGE 

DUE TO WORK LOAD 

(HIT SPACE BAk FOR DIAGNOSTICS) 



121.5 BTU/HR 

125.3 BTU/HR 

46.8 BTU/HR 

200.0 BTU/HR 

94.6% 

-103.1% 

38.5% 
164.6% 



ANALYSIS AND DIAGNOSTICS 
RELATIVE HUMIDITY IS EXTREMELY HIGH, AMBIENT TEMPERATURE MAY BE 
CAl-l.ED OPPRESSIVELY HOT, WORK LEVEL IS MINIMAL, AND AIR FLOW IS 
MODERATE. 

CONDITIONS ARE OUTSIDE THE CALCULABLE RANGE FOR HSI. 
CONDITIONS MAY BE IMPROVED BY: 

REDUCING RELATIVE HUMIDITY 

REDUCING AMBIENT TEMPERATURE 

INCREASING AIR FLOW 
DO YOU WANT TO TRY ANOTHER COMBINATION OF CONDITIONS? 
(ENTER: <Y>ES OR <NX))? N 

Fig, 7. Typical Output for High-Temperature, High-Humidity Environmental Conditions Ex- 
ceeding Calculable Range for HSI 



the graph is labeled in metric, but 
calculations arc done in converted 
English units. 

Ail the input modules call the same 
subroutines for constructing and label- 
ing the graph axes (lines 2700-2750) 
and for calculations (the general 
graphing loop, lines 2550-2680). All 
three modules use X2 for the mini- 
mum, X3 for the maximum, and RG 
for the range going into the general 
graphing loop. 

Figure 6 provides a breakdown of 
the branching in the general graphing 
loop to partition calculations accord- 
ing to which factor is being varied. The 
choice of factors from the menu sets a 
Hag (A8) that determines the branch- 
ing in the general graphing loop. The 
points are actually plotted in a separate 
subroutine (lines 2770-2810) that is 
called from within the general graph- 
ing loop. 

Limitations of the Program 

The MSI program was written on a 
Model 1 TRS-80, but it is compatible 
with a Model III, except that output is 
entirely uppercase. . The program is 
large, over 13K, and is a tight fit on a 
16K machine, causing a slight degrada- 
tion in response time. 

The program coding style is only 
moderately compact — a. compromise 
between clean, readable style and effec- 
tive use of memory. Yon can improve 
response tirne slightly by omitting some 
documentation, shortening all variable 
names to two characters, and using 
more multiple-statement lines. 

The HSI has limitations when hu- 
midity is very high, because water can- 
not then evaporate. HSI calculations 
are uot designed for such a condition, 
and an appropriate flag (fL) is corre- 
spondingly set in our program. Some 
diagnostics are possible, but optimiza- 
tion graphing is not. Figure 7 shows 
output for these conditions. 

Tolerance to heat stress varies widely 
among people depending on age, phys- 
ical condition, and other personal 
characteristics. Also, if someone works 
in the heat for several weeks, his body 
adjusts to improve his heat tolerance. 
For these reasons, the HSI cannot be 
accurately or safely used to predict 
tiicrmal tolerance for a specific person. 
The index is more useful as a guide in 
comparing the influence of different 
environmental factors and work rate 
on heat stress. ■ 

Donald Heckenlively (Hillsdale Col- 
lege, Hillsdale, MI 49242), a zoologist, 
enjoys railroad history and opera. 
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EXPENSIVE ■ The/.A'VV 
System Expansion II and built-in '•ir*:???^*,-'-.^ 
comes with a full 32K of 200ns RAM;;V-'^'- ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider <iur heavy gauge 
steel case, power indicator lamp, goid-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there i.s the floppy dii^k controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more, 

CHEAP - Our price is $:-i99.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
lOC'o TRS-80 Model I compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WK ARE #/ - Number one in price, features, 
reliability, performance and delivery. LNW is 
comtnitted to 'expensive' features and quality at 
reasonable prices. LNW is committed ti.i support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 9268U 
(714) 641-8850 (714) 544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or L182, 720 bytes - 77-track 
double-density, double-sided. 

The LNDoubler's unique 5/8 bwitch allows you 
to boot from 5- or 8-inch system diat^s and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present U!-track. single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80''(; increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model ITl! 




'H" drive iiperaiion requires special cable, H" 
double-denhity requires ;5.55MHz CPU speed-up 
miidii'icalion or LNW-BO ■IMHz ccimpuler. 



GAME 



Make those Model I games more fun. 



More Color Conversions 



Jimmy L. Freeman 

PSC Box 1025 

APO New York, NY 09289 

Being in the Air Force has some definite 
disadvantages. One was being sent to 
a country (Turkey) where my favorite hobby 
{amateur radio) is not permitted. And my 
daughters couldn't watch tv for amusement 
— they couldn't understand a word. 

I finally invested in a Color Computer. I 
Itept busy, converting Model I programs, 
and my daughters have new games to play. 

First, Some Work 

Converting Model i Or III programs 
without graphics was simple. 1 Just had to 
change the line length to fit the 32-char- 
acter screen and add some "hit enter to 
continue" routines to mal^e up for lost print 
space. 

Programs with graphics presented an- 
other problem. First, I cut everything in half. 
Then I adapted for the joysticks and added 
a few simple sound routines. The programs 
came to life— in color! 

Now, Some Piay 

Program Listing 1, Subdestroy, was writ- 
ten by John Cominio (80 Micro, June 1981). 
This program does not require joysticks and 
is basically the same as it appeared origin- 
ally. I opted for contact depth charges in- 
stead of setting them for depth. I also 
moved the score and charges remaining in- 
formation above the destroyer to prevent 
the data from being momentarily erased 
when a depth charge is dropped. 

Program Listing 2, Lunar Lander, was 
written by John Beringer (80 Micro, June 
1981). In the original program, the PEEK rou- 
tine looked at the keyboard scanning matrix 



The Key Box 

Color Computer 
Color Basic 
16K RAM 



to get the burn rate for the rocket motors. I 
simply used the joysticks to determine the 
burn rate of the rocket motors. 

Program Listing 4, Missiles from Mars, 
was written by Charles E. Gillen {80 Micro, 
January 1982). 1 deleted one of the cities 
due to space limitations on the Color Com- 
puter screen. You could put it back in, but 
virtually every missile that made it past your 
defenses would score, 1 also lowered the 
total number of hits required to finish the 
game because my daughters found it al- 
most impossible to obtain 25 hits before 
losing both missile bases or the entire pop- 
ulation. In the original program, John filled 
the screen with character strings so a trail 
would be left by the attacking missiles. I left 
this feature out but it could be easily added 
by changing line 330. Instead of resetting 
the graphics symbol that represents the 
missile, set it to a different color. 



If you don't have joysticks and would still 
like to try Lunar Lander make the changes 
shown in Listing 3, This allows you to use 
keys 1-5 for your rocket motors and the <> 
keys for lateral movement. For Missiles from 
Mars delete line 340 and change lines 
350-390 and 690 as shown in Listing 5, 

To speed up the action, POKE 65495,0 
before running these programs. The pitch of 
the sound routine increases but I have not 
experienced any difficulties with the action 
of the programs themselves. Remember, 
you must slow the clock down (by pushing 
reset) before saving a program on tape or 
loading a new one, 

I hope these color conversions prompt 
more of them. It's not too hard after you get 
started— give it a try! ■ 

Jimmy Freeman enjoys his Color Com- 
puter as well as amateur radio. 



DESTROY " ;PRINT:PRINT:PRINT "DO 



Program Listing 1. Subdestroy 

10 ' SUB DESTROY 

20 ' ORIGINAL BY JOHN COMINIO 

30 ' FOR TRS-80 MODEL I 

40 ' PUBLISHED BY 

60 ' 80 MICROCOMPUTING 

60 ' JUNE 1981 

70 ' TRS-80 COLOR COMPUTER 

80 ' CONVERSION BY 

90 ' JIM FREEMAN 

100 CLEAR400 

110 CLS 

120 PRINT " SUB 

YOU WANT INSTRUCTION (Y/N) ?" 

130 RS=INKEY$: IFRS=""THEN130 

140 IFR$=^"Y"THEN1160ELSEIFRS = "N"THENCLS(0) :GOTO150ELSE13 

150 Q=JJ;Jl=20 

160 GOSUB170:GOTO300 

17 E1S=CHR$(128)-(■CHR$(128)-^CHR$(128)-^CHRS(128) 

188 E2S=CHR5(l28)+CHRS(128)-FCHRS(128)-rCHRS(128)-t-CHR$(128)-hCHRS(l 

28) 

190 A=RND(95) :S=A+RND(150) 

200 Z=RND(512) :IFZ>480ORZ<192THEN190 

210 IFZ-HA>5120RZ-FA<192THEN19B 

220 IFZ-^A-l-S>512ORS+A-^S<192THEN190 

230 X^480 

240 LS=CHRS(62) 

250 B2S-CHR$(243)-^CHR$[2 47)^-CHRS{2 55)-^CHRS(251)+CHR$(243) 

260 BS=CHR$(131)-rCHRS(135)-(-CHR$(13 9)+CHR$(131) 
27 B1$=CHR$(147)-^CHRS(151)-^CHR$(155)^-CHRS(147) 

Listing 1 continues 
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Listing 1 Continued 



280 

9) 

290 
300 
310 
3213 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
+Q1 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
530 



S$=CHRS(17 9) +CnRSC17 9) +Ci!RS(183) +CHR$(187) +CIlR$(li?3] +CnR$C17 

RETURN 

GOSUB310:GOTO330 

FOR V/-54 TO 95:PRINT[aw,CHR$(172) ; :NEXT:RETURN 
A5=INKEi$:IFA$=""THENGOSUB310 

IFA$=CHRS( 32) THENQ1=0:J1=J1-1; SOUND 200 , 2 : GOSUB430 
GOSUB3 80 
GOSUB 320 
END 

RETURN 

IFO>5 8THENQ=33:PRINT@5 8,E2?+CHR$(12B) ; 
GOSUB720 
GOSUB4/0 

PRINT@Q-1,E1$;:PRINT@Q,SS;!Q=Q+1:RETURN 
GOTO7 20 

IF Q+Ql+32>48e THEN PRINT @Q+Q1 ,"****";: SOUND 1,10:PRINT (3 Q 
, El$;: RETURN ELSE 440 
GOSUB6 40 :PRINTE)Q+Q1+3 2,CHR$(177) ; 
GOSUB47 

PRINT(aQ+Ql + 3 2,CHR51128) ; : Ql-Ql+33 :GOTO43 
PRINT@Z+4,BS; :Z=Z+1 
PRINT (az-l,ElS; 
IFZ+A+S>500THEN550 
PRINTC^Z + S+A+4,B2$; ; S = S + 1 
PRINT@Z+S+A-1 ,E15; 
PRINT(dZ+A+4,BlS; :A=A+1 
PRINT (az+A-l,El$; 
RETURN 
FOR W=4G0 TO 510 : PRIKT@W,CHR$ ( 128) ;: NEXT 

PRINTga+3,El$; 

S^Q+Q1+32<480^THEN PRINT 9 Q+Ql+32, CHR$ ( 128) 7 : ELSE GOTO590 

GOSUB640 ^„„ 

Z=0:A=0:S=0:Z=RND(504) : IFZ >3 840RZ <192THEN600 

A=RND(95) :S=RND(75) 
IPZ+A>3 84OR'Z+A<192TnEN6 

IFZ+A+S>50 4ORZ+A+S<192THEN610 

Listing 1 Continues 




currently a^y^ri^d .prii^^ffof ,:--■,.- 
TRS-80 softii«3ri^; you .S^t'Ufee,)^ 
diskette or cassette with your 
purchase. Just for calling or 
writing, you get a free 6 month 
subscription to "COMPUTER 
TIMESr the up-to-date review of 
all the latest software and hard- 
ware including handy-hints for 
beginning and advanced users. 



CompuWc 



P.O. Box 7622, Long Beach, CA 90807 

(2131 548-6647 

Micronet No 70635.365 

Master Card/Visa Accepted 

I, nOS $99.95 -'*^ 



m arathon: 



SOFTWARE 




1982 




64% 

ACCURATE 

AGAINST 

POINTSPREAD 

FOR 1981 

SEASON 

(Games 2-16) 



A COMPLETE FOOTBALL PREDICTION PROGRAM FOR THE 
1982 NFL PROFESSIONAL REGULAR SEASON STARTING SEPT. 12, 1982* 

• •*••■*■ 

ONLY 20 MIN. DATA INPUT PER WEEK WILL GIVE YOU THE EDGE ON EVERYONE** 




CAN BE UPDATED FOR 1983 



$24 



95 



INCLUDES: 



PHONE 

LINES 

OPEN 

24-HOURS - 7-DAYS 




NAM 




flnnRFiq 


riTV ST 71 P 

PIKEM 24'^ PAYMENT ENCLO □ 

VISA n MASTERCHARGE D m 






























MY CARD EXPIRES' DD DD 



DATA DISKETTE 
COMPLETE INSTRUCTIONS 

SPECIFY: 

TRS80 MODEL I/Ill 
AT LEAST 32K 



-FEATURES- 

• DISPLAYS PREDICTED SCORES 210 GAMES 

• DISPLAYS ACCUMULATED STATS EACH TEAM 

• DISPLAYS AVERAGE STATS EACH TEAM 

• GIVES PRINTOUT: PREDICTI0N3-STATS-AVE 

• AUTOMATICALLY STORES DATA - NO 'SAVE' 



DATA NFEDED TO RUN PROGRAM 
AVAILABLF IN LOCAI NFWSPAPFRS 



IF PROGRAM IS BOUGHT AFTER SEA- 
SON STARTS - ALL PREVIOUS STA- 
TISTICS WILL BE INCLUDED - NO 
CHARGE. 



DEALER INQUIRIES INVITED 

STAT SERVICE AVAILABLE 
FOR ALL 16 WEEKS OF SEASON 



FOR MORE INFORMATION CONTACT: 

MARATHON SOFTWARE DEPT. (Vt 

P.O. BOX 1493 
JACKSONViLLE, TEXAS 75766 

(214) 586 8212 
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STOCK MARKET DATA 
over 20 YEARS on 
DISK or TAPE 

MOW AVAI LABLE- 

OVER 2 YEARS OF WEEKLY OR DAILY 
CLOSING PRICE DATA ON D I SK OR TAPE 
FOR THESE PROVEN MAFa<ET [NDICATORS 

1962 - \aaz 

• DOW JONES IrffiUSTRIAL 

• DOW JONES TRANSPORTATION 

• DOW JONES UTILITY 

• STANDARD AND POOR ■ S 5 

ALSO INCLUDES- 

PROGRAMS TO MAINTAIN THESE FILES, 
CREATE F I LES FOR YOUR OWN STOCKS . 
AND SAMPLE PROGRAMS ILLUSTRATING 
RUNNING AVERAGE AND CYCLIC MARKET 
ANALYSIS TECHNIQUES. 

MEEKLY DATA 

n 101 MODEL I / I I I CASSETTE .534,99 
C 102 MODEL 111 DISKETTE, . .S34. 99 

C 103 HARDCOPY PRINTOUT. . . .322. S3 

DAILY, DATA 

□ 104 MODEL I / 11 1 CASSETTE. S4 4. 9S 
- 105 MODEL 111 DISKETTE. , .«4 4. 9 9 

n 106 HARDCOPY PR ( NTOUT . . . . 33 2 . 99 

FREE SHIPPING WI1>IIN CCWTINENTAL USA 
(ADD 10% FOR SHIPPING ELSEWHERE) 

24 HOUR toll-free; order line 

\Tf", 1-800-227-3800 EXT. 942 li', A ~A 



YOUNG IDEAS , INC, 
^ 172 

655 N. NEW BALLAS • SUITE 310 
ST , LOU I S . MO 6 S I 4 1 



fPliP/TElnl announces two great new 
machine language arcade games w/sound 
for TRS-80 MOD I or III, disc or tape 




it trying 10 get to your covel 
highways and rivers-dodge moving cars and truoks-iLimp 
from boat to boat - ar incredible journey. Gets harder 
ahd harder and. . . . High scores saved on disc usrsion 




Play fast paced indoor soccer agarnsl a 
friend or the computer. Dribble, pass, steal the 
ball, use the boards-control the whole team!! 
When you're done, lay down-exhausted. ^^ 324 



Pil/Tglk 

P.O. BOX 1026 
SOUTHAMPTON 
PENNA. 18966 
215-947-2334 



* Specify Mod I or III. disc (32) 

or tape (16k) 
■K- Add S2.00 postage and handling 

* Phone oi mail / S » ^ acceplad 
^ Dealers inquiries welcome - 

* Pa. residents add e% saPps toi 



Listing 1 continued 

640 GOTO650 

650 Z2 = Z+A-HS+4: Zl=Z+A+4: Z4 = Z-f4 

660 Q3-Q+Ql + 32:Q3=Q3-f32 

670 IFQ3>=XANDQ3<^X+3 2T1IEN6 80ELSERETURN 

6 80 IFQ3> = Z4-lANDQ3<=Z4+4THEMJ-J-t-5:GOSUB890:GOTO710ELSE6 90 

6 90 IFQ3> = Zl-lANDQ3< = Zl-H4THENJ=J+10:GOSUB9 80:GOTO710ELSE7 00 

7 00 IFQ3> = Z2-lftNDQ3< = Z2-f5THENJ-J+3 0;GOSUB107 0:GOTO710ELSERETURN 
710 Q1=0:Z2=0:Z1=0:Z4=0:A$-"":GOSUB720:FORT-1TO1000:NEXTT:GOTO32 


7 20 PRINT@0,"sco!:e"; J; : PRINT @15 , "charges " ;Ci!RS(128) ; "lef t " ; Jl ; : P 
RINT^22,CHR${128) ; 

730 IFJl=0THEN7 50ELSERETURK 

740 Q1=0 

7b0 GOTO77 

760 GOTO7 6 

770 CLS 

78W IFJ<35THENPRINT(a0,"THE GAME IS OVER, YOU HAD" ; J+JA; : PRINT "T 

OTAI. POINTS. "; : GOTO136 0ELSE7 90 

790 IFJ>34ANDJ<=150THENJl=2 

800 IFJ>150ANDJ<200THENJl=6 

810 IFJ>=200ANDJ<=300THENJl-9 

820 IFJ>300ANDJ<=500THENJl-14 

830 IF J>500THENJl=20 

840 PRINT@0,"THE GAME IS OVER, BUT YOU ARE LUCKY." 

850 PRINT"YOUR SCORE WAS"fJf"AKD THAT-rPRIKT "ENTITLES YOU TO";J 

1; "BONUS" 

860 PRINT "DEPTH CHARGES." 

870 PRINT "CREDIT GAME WILL RESUME VfflEN THETIMER REACHES ZERO." 

8 80 FORR=500TO1STEP-1:PRINT027 ,R; : NEXTR: CLS { 0) : Q=33 : JA-=J : J = : GO 
TO17 

890 SOUND 1,10:PORP=10TO110 STEP 10 : PRIKT@Z4-32 , "glug ";: SOUND P, 



1 

90( 

91( 

92[ 

931 

94( 

951 

96( 

971 

98( 

1 

99[ 

101 



IFZ4>-503THENPRINTiaz4-3 2,E2S; : RETURN 

PRINT@Z4,BS; 

FORR=1TO100 :NEXTR 

PRINT^Z4-32,E1S; 

PRINT@24-I,E1S+CHRS(128) ; 

FORR^1TO100 :NEXTR 

Z4=Z4+32 

NEXTP 

SOUND 1,11 



:FORP-10TO110 STEP 10 : PRINT@Zl-32 , "glug ";: SOUND P, 



IFZ1>=50 3THENPRINT@Z1-3 2,E2 5; : RETURN 

PRINT@Zl,BlS; 
1010 PORR=1TO100:NEXTE 
1020 PRINT@21-32,ElSf 
1030 PRINT(azi-l,El$+CHR$(128) ; 
1040 FORR=1TO100:NEXTR 
1056 Zl=Zl+32 

NEXTP 

SOUND 1,10:FORP=10TO110 STEP 10 : PRIKT@Z2-32 , "glug ";: SOUND P 



106 

107 

,1 

108 

109 

110 

111 



IFZ2>=503THENPRINT(az2-3 2,E2 5; : RETURN 

PRINT@Z2,B2$; 

FORR-1TO100:NEXTR 

PRINT [az2-32,El$; 
1120 PRINTiaz2-2,E2S+CHR5(128)+CHR$(128) ; 
1138 FORR=1TO100:NEXTR 
1140 Z2=Z2+32 
1150 NEXTP 

1160 CLS:PRINT "**** SUB DESTROY ****' 
1170 PRINT-.PRIKT "THE OBJECT OF THIS GAME IS TO 
HE SUBMARINES" 

1180 PRINT "TRAVELING BELOW YOU. YOU CAN ACCOMPLISH THIS BY D 
ROPPING" 

1190 PRINT "DEPTH CHARGES FROM YOUR DESTROY-ER SHIP CRUISING AT 
THE SURFACE" 
1200 PRINT "OF THE OCEAN." 

PRINT 

PRINT "TO DROP YOUR CHARGES JUST PRESS THE SPACE BAR." 

PRINT: PRINT "(HIT -ENTER- TO CONTINUE) ";: INPUT R$ 



TRY AND SINK T 



121 
122 
123 
124 
125 
126 
127 



CLS 
PRINT 

PRINT 
PRINT 
1280 PRINT 
1290 PRINT 
1300 PRINT 
1310 PRINT 
US CHARGES 
1320 PRINT 
1330 PRINT 
LL RECEIVE 
TART WITH. 



SCORING IS AS FOLLOWS:" 

'30 POINTS FOR THE ORANGE SUB" 
'10 POINTS FOR THE YELLOW SUB" 
'5 POINTS FOR THE GREEN SUB" 

IF YOU SCORE WELL ENOUGH YOU WILL RECEIVE BON 



BONUS CHARGES YOU WI 



THE HIGHER YOU SCORE THE MORE 

:PRINT "REMEMBER, YOU ONLY HAVE 20 CHARGES TO S 

PRESS ENTER WHEN READY."; 
1340 RS-^INKEyS:IFR$=""THEN1340 

1350 IFRS=CHRS(13)THENCLS(0) : GOTO150 : 6 0ELSE1340 

1360 PRINTiPRINT "HIT <ENTER> FOR NEW GAME" ;: INPUT RS : IFR5=" "THE 
N 110 
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Program Listing 2. Lunar Lander 

10 'LUNAR LANDER 

20 'ORIGINAL BY JOHN BERINGER 

30 'FOR TRS-80 MODEL I 

40 'PUBLISHED BY 

50 '8B MICROCOMPUTING 

60 'JUNE 1981 

70 'TRS-8H COLOR COMPUTER 

80 'CONVERSION BY 

90 'JIM FREEMAN 

100 GD=0:BD-0 

110 CLS:PRINT@74, "REAL TIME" : PRINTglSV , "LUNAR LANDER" : PRINT: PRI 

NT"YOUR NAME, CAPTAIN" ;: INPUT NAS 

120 IF Y<1 THEN Y=l 

130 CLS 

140 PRINT(a8,''A L E R T 1 ": PRINT : PRINT" EMERGENCY, CAPTAIN ";NA$:P 

RINT:PRINT"NAVIGATIONAL COMPUTER FAILURE" : PRINT:PRINT"YOU WILL H 

AVE TO LAND BY THE SEAT OF YOUR PANTS!" 

150 PRINT''LAND AS NEAR THE BASE AS POSSIBLE ": PRINT: PRINT" 

PRESS ANY KEY TO START" 

160 FOR N=1TO50:NEXT N:PRINT@8," ";:FOR N=1TO50 : NEXTN: 

SOUND100,1:PRINT@8,"A L E R T !";:IF INKEYS="" GOTO 160 

17 CLS(0) 

180 PRINT@17 2,CHRg(2 47) ; : PRINT@173 ,CHRS ( 251) 

190 PRINT ^203 ,CHR$(2 47) ; : PRINT@2 04 ,CHRS { 25 5 1 

} ; : PRINT @206 ,CHRS{251) ; : PRIKT@212 ,CHR$ ( 247 ) ; 



:PRINT@205,CHRS(255 
PRINT <a213,CHR$(251) 



:FORX=3 25T03 44:PRINT@X,CHR5(25 5) ; :NEXT:P 
:PORX-3 5 4T037 7: PRINT @X,CHRS (255) ; :NEXT:P 



200 PRINT@234,CHRS(247) ; : FORX-235T023 8: PRINT@X,CHR5 ( 255) ; :NEXT:P 

RINTia239,CHR5{251) ; : PRINT@242 ,CHRS ( 247 ) ,- : F0RX-243TO245 : PRINT @X ,C 

HRS(255) ; : NEXT: PRINT@246 ,CHRS(251) ; 

210 PRINT@263,CHR${2 47) ; : F0RX=26 4T0271 : PRINTgX ,CHR5 { 25 5) ; :NEXT:P 

RINT@272,CHR$(251) ; : PRINTg273 ,CHR$ ( 247 ) ; : F0RX-274T0278 : PRINT^X ,C 

HR$(255) ; : NEXT: PRINT@27 9 ,CHRS { 251) ; 

220 PRINT 0294 ,CHRS(2 47) ; : F0RX=295T0311 : PRINT@X ,CHRS ( 255) ; :NEXT:P 

RINT0312,CHRS(251) ; 

230 PRINT@324,CHR5(247) 

RINT@345 ,CHRS(251) ; 

240 PRINT(a353 ,CHR$[247) 

RINT(a378,CHRS(251) ; : 

250 PRINT@3 84,CHRS(247) ; : FORX=3 85TO410 : PRINTlax , CHR$ ( 255) ; :NEXT:P 

RINT@411,CHRS(251) ; : FORX=412T0415 : PRINT@X , CHR? ( 179) ; : NEXT 

260 GRAV=6.4 

270 VEL-RND[25) +10 

280 TIWE=.5:FUEL-600 

290 IF GD>4 AND GD<10 THEN FUEL=550 ELSE IF GD>9 THEN FUEL =500 

300 PIC=8 

310 Ly=2jLX=2:X=2:ALT-430 

320 HI=0 

330 PRINT@416, "FUEL: ":PRINT@448, "VELOCITY: ": PRINT @4 80 , "ALTITUDE : 

"; :PRINT@444,"BASE"; 
340 IF FUEL>0 THEN GOTO 350 ELSE BURN-0:GOTO 360 
350 aZ=JOYSTK(0) :BURN=J0YSTK(l)/6 

360 FUEL-INT(FUEL-BURN*TIME) :IF FUEL<1 THEN FUEL -0 
370 PRINT (3423 , FUEL; :VEL-INT(VEL-BURN*TIME+GRAV*TIME*TIME) :PRINT 
@459,VEL; :ALT-INT(ALT-VEL*TIME) :IF ALT<1 THEN ALT=0 
380 PRINT0491,ALT-10; iY=43-INT (ALT/10 ) 
390 IF ALT>0 GOTO 660 
400 IF Y<1 THEN Y-1 
410 IF VELM5 GOTO 61 
420 IF VEL<=0 GOTO 670 
430 IF Y=41 THEN Y=42 
440 RESET(LX,LY) : RESET ( LX+1 ,LY-1) :RESET ( LX+2 ,LY) :SET(X,Y,5) :SET( 

X+1,Y-1,5) :SET(X+2,Y,5) „ ^ 

450 IFLX>55ANDLX<63THENGOSUB780:FORT=1TO1000:NEXTT:CLS:PRINT"NIC 

E LANDING, SPORT" : ELSEIFVEL>0THEN500ELSEGOTO410 

460 G-RND{3):0N G GOSUB 470 , 480 , 4 90 : GOTO800 

470 PRINT"RIGHT ON THE MONEY !": RETURN 

480 PRINT"PROMOTION ON THE WAY!":RETURN 

490 PRINT"YOU'RE A NATURAL" : PRINT"STAR PILOT" : RETURN 

500 IF Y=41 THEN Y-42 

510 RESET(LX,LY) : RESET ( LX+1 ,LY-1) : RESET ( LX+2 ,LY) : SET (X, Y+1 , 5) :SE 

T(X+1,Y,5) :SET(X+1,Y+1,5) : SET ( X+2 , Y+1 , 5) 

520 IF X>0 THENSET(X-1,Y,5) 

530 IF X<60 THEN SET(X+3,Y,5) 

540 F0RT=1T03 : FORI-150TO17 5 : SOUNDI , 1 : NEXTl sNEXTT: FORT=1TO1000 : NE 

XTT-CLS-G=RND(4) :0N G GOSUB 560 , 57 , 580 , 590 ; FORT=0TOi000 iNEXT 

550 IF LX>55ANDLX<62THENGOSUB780:PRINTia32,"AND YOU HIT THE BASE! 

!";:GOTO 790 ELSE GOTO790 

560 PRINT@64,"YOU SAVED THE CARGO" ;: PRINTia96 , "BUT YOU SMASHED TH 

E CREW! "; : RETURN 

570 PRINT@64,"YOU SAVED THE CREW" ;: PRINT@96 , "BUT YOU SMASHED THE 

CARGO! !"; : RETURN 
580 PRINT@64,"UPF! "; :PRINT096 , "SHE'LL NEVER FLY AGAIN !"; :RETURN 
590 PRINT@32,"NOT SO GOOD, " ; : PRINT@64 , "L lEUTENANT M " ; : 
RETURN 



ELSE IF VEL>5 GOTO 500 



Listing 2 Coniinues 



TRS-80* 

Models 
I 8(111 



hilTltb Prices! 



Do you have these bestsellers?! 

Your Cost 
Tape/ Disk 

- ^i.ao 

- 31.90 
-n 19.90 

- /99.90 

-■'111.90 



Business 

Mail List (Precision Proto.) 
Form Letter ( Precision Prolo.) 
Maxi Manager & Util (Adv. Int 
Newscript7"o (Prosoft) 
NewBCript & Labels (Prosoftl 
Games 

Defense Command (Big Five) 12.70.'15.90 

Stellar Escort {Big Five) 12.70;15.90 

Galaxy Invasion (Big Five) 12.70.15.90 

Cosmic Fighter (Big Five) 12.70.15.90 

Robot Attack (Big Five) 1 2.70.'15.90 

Star Fighter (Adv. Int.) 19.90.''23.90 

Eliminator (Adv. Int.) 15,90.'19.90 

Dunzhin (Med Sys.) 23.90:23.90 

Asylum II (Med Sys.l 15.90.'18.30 

Laser Defense (Med Sys.) 1 1 .9O.'14.30 

Home /Education 

Little Bed Riding Hood (Adv. Int.) 1 1,90.' - 
Old McDonald's Farm (Adv. Int.) 11. 90.' - 
Money Master (Med Sys.) 11 9O.i4.30 

The Playful Professor (Med Sys.) 11 9014.30 
Personal Check Mgr. (Adv. Int.) - 19.90 

Checl( reader service for our catalog. 

RIMES COMPUTER PRODUCTS 

262Tracey, Dept. 11 A 
Grand Island, N.Y. 14072 ,'4ec 
(716)773-2519 

Add $1 .50 for shipping Add $1 .50 for COU 

For fastest service send M.O. or cert, check. 

MastercardA'isa also accepted. 

Allow 2 weel<3 for personal checks. 

New York Residents add sales tax 

*TRS-80 is a trademark of Tandy Corp. 




Ilvcisioii Srieii4:c S»fhvsire 



OPERATIONS 


STATISTICAL 


ECOPAK 


RESEARCH 


PACKAGE 




LP 


REGRESS 


FUTURE VALUE 


DYNAM 


MULTI-REG 


ANNUITY 


NETWORK 


MATRIX 


EFFECTIVE 1 


PERT 


FUTURE 


DEPR 


EOQ 


FORECASTING 


SALVAGE 


LOT SIZING 


MARKOV 


NET PRESENT 


FORECASTING 


QUEUfc 


VALUE 


DECIDE 


SIMULATION 


DCF RATE OF 


MRP 




RETURN 



TRANSPORTATION 



TRS-80' model I and III 

APPLE II 

16 K- 1 Disk Drive 

-minimum system requirement 

$29.95 to 249.95 - 



DISCOUNTS ftHILAELE OW MULIIPLt OFtDERS 

for informauon 



DECISION SCIENCE SOFTWARE 

865 Castle Ridge Road 
Austin. Texas 78746 

(512) 327-1463 



-394 



VISA' 



"tr.idemsrk of the Tandy Corp 



■See Lis! of Advertisers on Page 455 
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mooe:!— Ill 
F>FtoF=- ii_e:* 

Us«rs, would you likei 

Fast, indexed access to records? 
Enhanced search capabilitiei? 
Multiple report foriats? 
HuUiple-linc reports? 
Hailing labels? 

i=>Ror>E:x 

CAN PROVIDE IT! 

•59.95 (H0,C0D,Check-2t(i(S to clr) 
Kaine residents add 5X sales tax 

For sore intonation, call or nritei 

Down»««tMicrocomputing 

P.O. Box &e 
Coluibia Falls, He. 04&23 
(207) 483-4400 (ipi-lOpe) 

tPRQFILE is a ti of Tandy Corp. 



MODEL I/Ill 

WE HAVE ATJALOG TO DIGITAL 

AND DIGITAL TO ANALOG 

CONVERTERS TO GET YOU 

STARTED IN HARDWARE 

ADC-kit $59 
DAC-kit $59 

other kits available 

DAYTONMICROSUPPORT 
P.O. BOX 482 W.B. BR. 
DAYTON, OH 45409 



^ 4-1^ 




Dysan 

^/corporation 



Solve your dtec problems, buy 1 00% surf bcv 
tested Dysan Smkettvs. All ordns ahlpped 
froni stock wHhln 24 hours. Call toll FREE 
(800) 23S41.')7 foe prln^ and biiomnaltOIL 
V^aa hnA Mastei (jrd at.tfpte(L 



PACIFIC 
EXCHANGES 

100 Fooihill Blvd 
San Luis Obispo, CA 
93401. (InCal. call 
fHOSl '■S4'?-I037.) 





Lii^ting 2 Continued 

600 RESET{LX,LY) : RESET ( LX+1 ,LY-1) : RESET {LX+2 ,LY) : RESET {X+1 ,Y) :Y= 

Y+1:SET(X,Y-1,5) : SET (X+2 , Y-l , 5) :RESET{X,Y) : RESET (X+2 ,Y) :RESET(X+ 

1,Y-1) 

610 IF X>0 THEN SET (X-1 ,^-2 , 5) 

620 IF X<60 THENSET(X+3,Y-2,5) 

630 IF POINT(X+1,Y)=0 THEN SET(X+1,Y,5) 

6 40 SOUND1,22:FORT-=1TO1000:NEXTT:CLS:IFX<55ANDX>0THENPRINT"COULD 

N'T YOU SEE THAT":FRINT"MOUNTAIN, " ; NA$; " ? " :GOTO790ELSEPRINT"YOU 
DESTROYED THE BASE ! ! " : PRINT"NOTE THE NEW LUNAR FORMATION ...": PR 
INT"IT IS THE CRATER OF ";NAS 

650 PRINT "WERE YUU TRYING TO DRILL A": PRINT "TUNNEL TO THE OTHE 
R SIDE?" :GOTO790 

660 RESET(BX,BY) :IF Y<0 GOTO 680 ELSE IF POINT (X,Y+2) <>0 OR POIN 
T(X+2,Y+1)<>0 OR POINT(X+2,y+2) <>0 GOTO 770 
670 RESET(BX,BY) 

680 IF Y<2 THEN RESET ( LX , LY) : RESET ( LX+1 ,LY-1) : RESET [LX+2 ,LY) 
690 IF FUEL<5 GOTO 710 ELSE IF ZZ>50 THEN X-X+1 :FUEL-FUEL-5 ELSE 

IF ZZ<15 THEN X-X-1 : FUEL=FUEL-5 
700 IF X>b0 THEN X=l ELSE IF X<0 THEN X-X+1 
710 IF X=LX AND Y=LY GOTO 760 ELSE IF Y<1 GOTO 750 
720 RESET[LX,LY) : RESET(LX+1 , LY-1) : RESET ( LX+2 ,LY) 
730 IF PICO0 THEN SET{LX+1 ,LY+1 , 5) 

740 SET(X,Y,5) : SET (X+1 ,Y-1 ,5) : SET (X+2 ,Y , 5) :LX^X : LY-Y : BX=X+1 :BY^Y 
+ 1 

750 PIC=POINT(BX,BY) ; IF BURN>1 THEN SET{BX,BY,5) 
760 GOTO 3 40 
770 IF ALT<440 GOTO 400 ELSE GOTO 680 

FORX-1TO20:SOUND20 , 1 : SOUND100 , 1 : NEXT: RETURN 

BD-BD+1:G0T0 810 

GD=GD+1 

IF FUEL^0THENPRINT:PRINT"NEXT TIME, CAPTAIN "; NAS; ",": PRINT" 
WATCH YOUR FUEL MORE CLOSELY! U" 

820 PRINT: PRINT: PRINT "GOOD LANDINGS SO FAR - " ;GD : PRINT: PRINT"B 
AD LANDINGS SO FAR - "; BD: PRINT: PRINT"TRY YOUR LUCK AGAIN? (Y/N) 
?" 

830 R$-INKEYS 

840 IF R$="Y" THEN 170 ELSE IF RS="N" THEN 850 ELSE GOTO 830 
850 PRINT:PRINT "HOW ABOUT ANOTHER CAPTAIN? (Y/N)"; 
860 R$=INKEiS 

870 IF RS="Y" THEN RUN ELSE IF R$-"N" THEN END ELSE GOTO 860 
880 END 



7BU 
790 



810 



350 IF PEEK{339) =239THENBURN=1:GOTO360 

351 IF PEEK(340) =239THENBURN=2:GOTO360 

352 IF PEEK(341] =239THENBURN=4;GOTO360 
3 53 IF PEEK (342) ^23 9THENBURN=8 : GOTO3 6 

354 IF PEEK(343)=239THENBURN=12:GOTO360 

355 BURN=0 

690 IF FUEL<5 GOTO 710 ELSE IF PEEK ( 344) =247 THEN X=X+1 : FUEL^FUE 
L-5 ELSE IP PEEK{343)=247 THEN X-X-l : FUEL=FUEL-5 

Program Listing 3. Lunar Lander 



Program Listing 4. Missiles from Mars 



10 'MISSILES FROM MARS 

20 'ORIGINAL BY CHARLES GILLEN 

30 'FOR TRS-80 MODEL I 

40 'PUBLISHED BY 

50 '80 MICROCOMPUTING 

60 'JANUARY., 1982 

70 'TRS-SB COLOR COMPUTER 

80 'CONVERSION BY 

90 'JIM FREEMAN - APRIL 1982 

100 CLS:GOSUB660 

120 CLEAR200:LN-100:MW-LN:LNS-"LONDON":MWS= 

DIS="DELHI":BLS=CHR5(191)+CHRS(191)+CHR$(19 

)+CHR$(l91) :E$=CHR$(128)+CHR${128) :BS=" 

130 S$=CHRS(94) :SB$=''<>":KS-CHRS(23 6)+CHR5( 

135 ElS=CHR$(128)+CHRS(128)+CHRS(l-28)+CHR${ 

140 CLS0 

150 PRINT@384,CHR$(165) ; : PRINTCJ3 86 ,CHR$ ( 162 

) ;:PRINT@410,CHRS(I62);CHRS(170) ;CHRS{161) ; 

16 PRINTia416,CHR5(167) ;CHR$(17 5) ;CHRS(171) 

CHRSC175) ;CHRS[163) ;CHR5(163) ;CHR.?(163) ;CHR 

HRS(I63) ;CHRS(163) ;CHRS(163) ;CHR$(163) ;CHRS 

163) ;S5; 

165 PRINT CHR$(163) ;CHRS(163) ;CHR$(163) ;CHR 

(163); 

170 PRIKT@442,CHR$(175) ;CHR$[175) ;CHRS{167) 



"MOSCOW" :COS="CAIRO" : 
l)+CiIR$[191)+CHR$[191 

236) 

128)+CHR?{128) 

) ; :PRINT@388,CHR$(161 
CHRS(170) f 

;CHR$(167) ;CHR$(175) ; 
$(163) ;CHR5(163) ;SS;C 
(163) ;CHRS(163) ;CHRS( 

$(163) ;CnR5(163) ;CHR$ 

;CHR$(171) ;CHR$(167) ; 

Listing 4 Continues 
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JUST FOUiP 





$1.50 -*■ 
CamS='UTBR SHUPPSR 

The Nalianmde Marketplace tor Computer EquipmBnl 



Much 15, 1981 



t1 par yaur 



w: 



SPECIAL PJRCHASE Cg"Po>i» 



"51 



IIIK Ml( IfODI \l( I ■- 



■MX-80RIBB0NS$3!J 







Computer Shopper is your link to 
individuals who buy, sell and trade . 
computer equipment and software 
among themselves nationwide. No 
other magazine fills this void in the 
marl<etplace chain. 

Thousands of cost-conscious com- 
puter enthusiasts save by shopping 
in Computer Shopper every month 
through hundreds of classified ads. 
And new equipment advertisers offer 
some of the lowest prices in the nation. 

Computer Shopper's unbiased 
articles make for some unique 
reading among magazines and 
there's a "help" column to answer 
difficult problems you may have with 
interfacing, etc. 



For a limited time you can subscribe 
to Computer Shopper with a 6 
month trial for $6 or 12 months for 
$10. 

You risk nothing, because if you're 
hot 100% satisfied after receiving 
the first issue, you may cancel and 
receive a full refund. No questions 
asked! 

If you want faster service, call in 
your subscription and charge on 
your MasterCard or VISA account. 

Our business office is open from 
8 a.m. to 5 p.m. Monday through 
Friday. Call for charge card orders 
or send your check or money order 
TODAY while the offer is still good. 



or 12 months for MO 



P.O. BoxF-324» Titusvllle, PL 32780 
305-269-321 1 



•39 





0RAM^ 



sen FILES 

WITH 



€' 



Cu/viti wiTn 

LIST SOURCE 

AND BRUM UTILITY 

SEND CHECK OR 
MONEY ORDER TO 



CT^ 



CO. 



130 CENTER ST. 
EAST 5TROUDSBURG ^487 

PENNSYLVANIA 18301 

ALLOW TWO WEEKS DELIVERY 



S-80 



COMPUTER 
DISCOUNTS 

• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• 100% Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 E North Delsea Drive 
Vineiand, N.J. 08360 
800-257-0426 
NJ 609-691-7100 ,^sio 



TRS-80 MODEL r^ 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss doe to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
hoard card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498-4242 

*TRS-80 is a trademark of 

Tandy Corp. 



Listing 4 continued 

CHR$(175); 

190 PRINT(a448,LNS;TAB(9) ;C0$;TAB(17) ;DI$;TAB(25) ;HW$;" "; 

200 PRINT(a0," MISSILES PROM MARS "iMK;" HITS "; 

210 IF LK<0THEKLN=0 

220 IF MW<0THENMW=0 

230 IF LN>0TH£NPRINT@48g,LN;ELSFPRINT@480,El$; 

240 IF MW>0TH£NPRINTia506 ,MW;ELSEPRINT@506,E15; 

250 FORTD=0TO 95 0: NEXT :FORI=1TO3:FORTDF=15TO2 0: NEXT: NEXT 

260 RV=0:FORTD=1TORND(500) : NEXT: X-l-(-RND( 45) 

27 IFX<30THE1^Z=1ELSEIFX>40THENZ=-1 

280 R=200:FORY=4TO26 :R=R-Hl 

290 IFY<18THEN330 

300 IFRND(10) >3THENRV=1 

310 IFRV=0ANDZ-^-1THEN2=1:RV=1;GOT6330 

320 IF RV^BAND2=1THENZ=-1:RV=1 

330 SET{X,Y,4) : SOUNDR, 1 :RESET (X , Y) :X-X+Z 

340 P=JOYSTK(0) 

350 IFS=0THENPS-JOYSTK(1) : IFPS<20THENSA5=SBS : PP=320+RND { 30} :PRIN 

T@PP,SAS; :S=1 

360 IFS=1THENP=JOYSTK{0) 

370 IFP<10THENPRINT@PP,ES; : PP=PP-2 : IFPP<320THENPP=32B :GOTO390 

3 80 IFP>53THENPRINT@PP,ES; : PP=PP+2 : rFPP>350THENPP-3 50 

3 90 PS=J0YSTK{1) : IFPS>43THENSA5^K$:K=1 

400 IFS=1THENPRINT@PP,SAS; 

410 IFP0INT(X,Y+1) =7THENGOTO430 

420 NEXTY:GOTO440 

430 MK=MK-H:SOUND1,10:PRINT@PP,E$; : S=0 : IFMK=>2lTHEH610ELSE180 

440 IFX-60RX-7THENLNS="" : LN-0 :GOTO510 

450 IFX=570RX=58THENHWS-"" : MW=0 : GOTO490 

460 IFX>20ANDX<25THENCO5="":GOSUB56 0:PRINT@427,CHR$(17 9) ; :S0=1:P 

RINT@457 ,BS; 

47 IFX>36ANDX<41THENDIS="":GOSUB56 0:PRINT@435,CHR$(17 9) ; :SL=1:P 

RINT@465,B$: 

480 IFSO=1ANDSL=1THEN570 

490 IFX>52THENMW==MW-(10+RND(10) ) :GOSUB560 

50 IFMW<lTHENMWS="":PRINT(a441 ,BLS; : PRINTEi473 ,BS; 

510 IFX<12THENLN=LN-(10+RND[10) ) :GOSUB56 

52 IFLN<1THENLN$ = "" :PRINTia416 ,BLS; : PRINT@448 , BS; 

530 IFLN-0ANDMW=0THEN600 

540 SOUND100,10 

550 IFS-lTHENPRINTiapp,E$; : S=0 : SA$-" " : GOTOl 80ELSE180 

56 F0RTT=1T07 : SOUND25 , 2 : SOUND20 , 2 : NEXT : RETURN 

570 FORT=1TO15:SOUND150,1:SOUND200,1:NEXT:PRINT@96,"DOTH OF YOUR 

KILLER-SATELLITE BASES WERE DESTROYED BY THE KARTIAN HISS 
ILES." 

560 PC=INT( ( (LN-hMW)/200) *100) :PRINT''HOWBVER";FC;"PERCENT OF EART 
H'S":PRINT"POPULATI0N SURVIVED TO REBUILD AND FIGHT ON." 
590 GOTO640 

600 FORX=lTO15:SOUND100,l:5OUND150,l:NEXTiPRINT@96,"ALL OUR CITI 
ES WERE DESTROYED BYTHE MISSILE MEN FROM THE RED PLANET. YOU 

CONTINUD FIGHTING TO THE LAST, BUT THE MARTIANS FINALLY CONQ 
UERED THE EARTH ." :GOTO640 

610 FORX-1TO15:SOUND100,1:SOUND200,1:NEXT:PRINT@96,"YOUR ANTI-MI 
SSILES BLASTED 21 OFTHE DREADED MARTIAN INVADERS OUTOP EARTH'S S 
KIES. CONSIDERING THE DAMAGE SUFFERED BY OUR CITIES, YOU' 
RE FINAL RATING IS: "; 

620 FR=HK*1000-H( (LN-^MW) *1000) : IFS0-10RSL-1THENFR=INT (FR/2) 
630 PRINTER 

640 PRINT:PRINT"HIT <ENTER> FOR NEW WAVE" 
650 IF INKEYS<>CHRS(13)THEN650ELSERUN 
660 PRINT" MISSILES FROM MARS" 
670 PRINT:PRIKT" A FLEET OF INVADING MISSILES 
LANET IS APPROACHING EARTH AT HIGH 



FROM THE RED P 
SPEED." 



680 PRINT" THE CONTROLS OF YOUR KILLER- 



690 PRINT:PRINT" PUSH UP TO LAUNCH KILLER 
RM KILLER PUSH LEFT/RIGHT TO MOVE" 

700 PRINT:PRIi^T"INTERCEPT THE MARTIANS AND SAVE EARTH. 

I"; 

710 IF TNKEYS=""THEN710ELSERETURN 



SATELLITE BASES ARE: 



PUSH DOWN TO A 



PLEASE 1! 



350 IFS=0THENPS=INKEY$:IFP$-S$THENSA$=SB$:PP=3 20+RND(30) :PRINT@P 

p,SAg; :s=i ,■; ■, 

360 IFS=1THENP=PEEK(343) : IFP=2 47THENPRINTiapP, E$ ; : PP=PP-2: IFPP<32 

0THENPP=320:GOTO3 90 

370 IFS=1THENP=PEEK{344) : IFP-247THENPRINTgPP , E$; : PP=PP-l-2 : IFPP>35 

0THENPP=350 

3 80 IFPS-CHR$ [9)THENPRINT(apP,ES; ; PP=PP+2 : IFPP>3 5 0THENPP=3 5 

3 90 P=PEEK(342) : IFP=2 47THENSA$=KS : K=I 

6 90 PRINT: PRINT" UP ARROW LAUNCH KILLER DOWN ARROW 

ARM KILLER LEFT ARROW MOVE LEFT RIGHT ARROW 

MOVE RIGHT" 

Program Listing 5. Missiles from Mars 
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MICROSETTE 



TES CASSETTES 




We now offer 5'X-inch single sided, 
soft sector, single or double density 
diskettes^ in addition to our quality 
short length cassettes. 

Our Prices Include 
Boxes and Shipping 



'*:?:Stl»SETTES 


Ik^rn lOPdck 


50 Pack 


C40 


$ 7.50 


$ 32.50 


C-20 


9.00 


39.00 


C-60 


11.00 


50.00 


C-90 


15.00 


70.00 


DISKETTES 5V4.inch 


MP-5 i $25.00 


$110.00 



' UPS shipment in continental 
U.S.A. only. 
Wc cannot ship to R O. Boxes. 



Item 


Qty. 


Price 


Total 


















SUBTOTAL 




Calif. Cust. add Sales Tax 




TOTAL 





Shipping address enclosed D 
Check or money order enclosed D 
Charge to: Visa n MasterCard D 
Account No. 

Expiration Date 



Signature 



MICROSETTE CO. 

475 Ellis St.. Mt. View, 
€A 94043 (415)968-1604 




SOFTWARi 



Proven bottware Solutions 

for the TRS-80, PMC-80 & 81 User 

At VERY Special P s 




Advanced Opeiating Syalems 
+ VOYAGE OF THE VALKYRIE 






D32K 1 Sill 


39.95 


32 00 


T16KI8 III . . , 


29.95 


24.00 


Adventure Internatior 


al 




ARMOR PATROL 






D32KI« III 


24 95 


19.00 


T16K1 8 III 






COMBAT 






D32K 1 Sill 


20.95 




T16KiaiM 






CONQUEST OF CHESTERWOOD 


33KI S III 


20 95 




T IfiKISIII 


19.95 


15.00 


t DEMON VENTURE «1 


— 




REIGN OF THE RED DRAGON 




D32K 1 S IN 


24.95 


19.00 


ELIMINATOR ■ 






, D32K laill . . . 


24,95 


19.00 


T16KI8 III ... . 






GALACTIC EMPIRE 






T16KISMI 


14.95 


12.00 


GALACTIC REVOLUTION ' 




T16KISIII 


t4.95 


12.00 


GALACTIC TRADER 






T 16KI am .... 






+ GALACTIC TRILOGY 






D32K laill 


39.95 


30.00 


LUNAR LANDER 






D32K 1 SIN .. . 


20.95 


16,00 


T16K ISlIt ... . 


14 95 


11,00 


MACESSMAGIC SI- 


BARLOG 










MACES S MAGIC 1(2- 






STONEOFSISYPHUJ 












MACES 8 MAGIC #3- 






MORTON'S FORK 






D 32K 1 


29.95 


23.00 


MISSILE ATTACK 






D32KI Sill 


20 95 


16,00 


T 16K 1 &III 


14.95 


11,00 


OTHER VENTURE #2 


_ 




CROWLEY MANOR 






D32KI* III . . 


20.96 


16.00 


T16KI8 III 


19.95 


15.00 


OTHER VENTURE #3 


— 




ESCAPE FROM TRAAM 




D32KI Sill 


20 95 


16,00 


T 16K 1 Sill ... . 


19 95 




OTHER VENTURE #4 


^ 




EARTHQUAKE SF 1906 




D32KI8 til 


20.95 


16.00 


T16KIS III 






OTHER VENTURE *5 






+ DEATH PLANET 






T ISK 1 Sill 


19.95 


15,00 


PLANETOIDS 






D32KI8 III .... 


20 95 


16,00 


T 16K1 Sill 


19.95 


15,00 



SCOTT ADAMS' ADV ((I; #2 S #3 

D32K I Sill 39.95 31.00 

SCOTT ADAMS' ADV. #4, KB 8 H6 

D32KI8 III 39,95 '31.00 

SCOTT ADAMS' ADV (17, #8 S #9 

D32KI8III 39,95 31.00 

SCOTT ADAMS' ADV »10, #11 8 #12' 

D32K ISIII , ,., 39.95 31 00 

SEA DRAGON 

D32KI S.lfl 24,95 19 00 

T16K I am 19 95 15.00 

SHOWDOWN 

D32K tSIII ... , 20,95 16.00 

T16KI8 III 14,95 12.00 

+ SILVER FLASH-PINBALL 1 

D32KIS III 19.95 15 00 

T16K I SMI 14,95 12.00 

SKY WARRIOR 

D32K I 8 III 20.95 16 00 

T1-6KIS III 14.95 11 00 

SPACE INTRUDERS 

32KIS III , ,, 20.95 16,00 

T 16K1 Sill , ,, 19,95 15 00 

STAR FIGHTER 

D32KI8III 29,95 23.00 

T16KI8 111 24,95 19.00 

STAR TREK 3,5 

D32K I SMI 19.95 15.00 

T16KI 8111 14.95 11,00 

TREASURE QUEST 

D32K I8 1II 19,95 15.00 

T16KI8 III 14,95 11.00 

Aulomated Simulations (EPYX) 

CRUSH, CRUMBLE 8 CHOMP 

D32K IS III 29.96 23 00 

TIBKISIIt ,, , 29,95 23.00 

DUNJONQUEST— 

HELLFIRE WARRIOR 

D32KI S III , ,, 39,95 30.00 

T16KI8 til 39,95 30.00 

DUNJONQUEST- 

KEYS OF ACHERON 

D32K I Sill , , , 19,95 15.00 

T1SK I SMI ... , 19,95 15,00 

DUNJONQUEST— 

SORCERER OF SIVA 

D32KI8 III 29,95 23,00 

T 16K1 S III 29.95 23,00 

DUNJONQUEST— 

TEMPLE OF APSHAI 

D32KI Sill ,,, , 39,95 30.00 

T 16K I SMI 39,95 30,00 

DUNJONOUEST- 

UPPER REACHES OF APSHAI 

D32KI8 til 19.95 15.00 

T16KIS 111 19.95 15.00 

+ RICHOCHeT 

32KISIII 19,95 15,00 

T 16K I am 19.95 15,00 



ATTACK FORCE 






. D32K 1 a III 


19.95 


15,00 


T16KIS 111 


15.95 




COSMIC FIGHTER 






D32KI SMI 


19.95 




T16KI8 III 


15.95 




DEFENSE COMMAND 




D32KISItl ,,, , 


19,95 


15.00 


T16KI8 III 


15.95 




GALAXY INVASION 






D32KI SIH , ,,, 


19,95 


15.00 


T16K 1 am 






METEOR MISSION 






32K1SIII ,, , 


19.95 




T16KI Sill .,, , 






ROBOT ATTACK 






D32KI8 III 


19.95 




T16KI Silt 






+ STELLAR ESCORT 






D32K IS til 


19.95 


15.00 


T16KI8ltl 


15,95 




SUPER NOVA 






D32KI Silt ,. ,, 


19,95 


15.00 


T16K 1 S III 


15,95 


12.00 








+ B0UNCEOIDS 






D32KI am 


19.95 




T 16KI ant 


15.95 


12,00 


SCARFMAN 






D32KISIII 


19,95 


15.00 


T 16KI Slil 






SPACE CASTLE 






D32KI8 til 


19,95 


15.00 


T16KIS III 






Med Systems 






ASYLUM . 






D32KISIII 


22,95 


18.00 


T i6K( sm 






+ ASYLUM II 






D32K18 til 


22.95 




T16KIS III .. , 






DEATHMA2E5000 






D32K laill 


17 95 


14.00 


T16KI8 III 


14,95 




LABYRINTH 






D32K 1 am 


17.95 


14 00 


T16KI8 III 


14,95 


11,00 


WARRIOR OF RAS— 


DUNZHIN 




48KI8 III 


29.95 




T48KISIII .,, , 


29.95 




WARRIORS OF RAS- 


- KAIV 




D4eKi am ,, ,, 


29.95 


23,00 


T4aKI8 III ,, ,, 


29,95 


23,00 


WARRIORS OF RAS- 


- THEWYLDE 


D48KI8 III ,,, , 


29.95 




T48KIBIII , , 


29,95 








PENETRATOR 






D32K 1 Sill 


24.95 




T16KISIII , ,, 


24.95 


20.00 




EDUCATION 

Advanced Operating Systems 
MOSTLY BASIC 
EDUCATIONAL PKG, 7 PRG, 

T16KI SHI 24,95 

MOSTLY BASIC 
SCIENTIFIC PKG, 7 PRG, 

T16K 18 III 24,95 

TIME DUNGEON- 
AMERICAN HISTORY 

T.16K I a III , ,,, 24,95 
TIME DUNGEON — 
+ WORLD HISTORY 

T16KI am 24.95 

Automated Simulations (EPYX) 
JABBERTALKY 

D32KI am 29.95 

T16K I SIM 29,95 



20.00 
20,00 
20.00 
20,00 



WORD PROCESSING 

Aspen Software 
GRAIUIMATIK 

D32KI 59,00 46,0( 

PROOF EDIT 

D32KI 30.00 23. 0( 

PROOFREADER 

D32KI 54.00 42, 0( 

SOFTSCREEN 

D 43K I 69.00 54.01 

SOFT-TEXT 

D4BKI 69.00 54. 0( 

Michael Shrayer Software 
ELECTRIC PENCIL 

T16KI 100 00 24 01 

INFO. PROCESSING 



Adv 



■Inte 



BUSINESS 



Small Business Systems Group 
ACCOUNTS PAYABLE 

D48KI SHI ,, ,, 195.00 
ACCOUNTS RECEIVABLE 

D48KI SMI , 196.00 

GENERAL LEDGER 

D48K I 8 III 195.00 

INVENTORY CONTROL 

D4eK I 8 Hi 195.00 

PAYROl L 

D JSKI S III 1915 -M 



155.00 
155,00 
155.00 
155.00 
155 00 



+ MAXICRAS 

D4eKI8 III 99.95 79.00 

MAXI MANAGER 

D48KIS III 99.95 79,00 

+ MAXI MANAGER UTILITY PACK HI 

D4BKI8 III 49.95 39.00 

+ MAXI STAT 

D4BKI8 III 199.95 147.0C 

Auk's 
^COMPUTER FILING SYSTEM (CFS| 

D32KI&III 69.00 55,00 

Dan Haney Associates 
ELECTRIC SPREADSHEET 

D32KI SMI 69,95 65,00 

T16KISI1I 3495 30 00 



OPERATING SYS. 

Micro Systems Software 
DOS PLUS V3 3S 

D32K I , 100 00 80 00 

UTILITIES 

Adventure Inleinationdl 
+ DIRECTORY INFO, MGT II (DIM II) 

D32Kt8 III ,,, , 24,95 19 00 

Howe So It ware 
M0N3 

T 16K t 39.95 

M0N4 

D32K I 49.95 

STERM 

T16KI 69.95 

SYSTEM DIAGNOSTIC 

D32KI SMI 99 9S 



31.00 
39,00 
55.00 

?9 00 

MISCELLANEOUS 



Adventure Internationa 
HINT SHEET for single 
Adventure #1 ttiru (112 

Software Affair 
ORCHESTRA 85 

T16KI 

D16KI 



99.95 
99,95 



95,00 
95,00 



NEW 



4'f 



475 Ellis St, Mt. View, CA 94043 

: (415) 962-0318 Information: (415) 962-0220 



Tar, lb. fORFAETDELIVERY.sendcertlfieactiectffi. money orders, VISA or MasterCardnurnber and eiipiratioridate.'Personatcliecks require 3 wsekb, 
U,S A. sales only. PRICES INCLUDE UPS contineniai Oeliuety (Oo not use P.O. BoxJ. CALIFORNIA customers add 6WW tax. Prices suBjecl to cDange, 



^See List of Advertisers onPage 453 
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DISPLAYED VIDEO IS DRIVING I 
PRICES ON DISKS! 

DISPLAYED VIDEO is now offering TRS-80* MODEL III with TANDON disk drives, one of the most reliable 
disk drive systems on the market, for incredibly low prices. 

MODEL III with 48K, dual 40 track double density j^#4drives, complete systems with TRSDOS and ONE BOX 
OF DISKETTES A^Xl ^ ^ — - ^ ^ ^ 

PLUG ITINAN^^. ...... $1,749.00 

MODEL III with 48K, dual 40/40 track double density disk^ ives, complete sysiems with NEWDOS 80 and ONE 
BOX OF DISKETTES _ i>-v^-^^^^ 

PLUG IT IN ANDiXm ! ,. d^, 149. 00 

MODEL III with 48K, dual 80 track double ^nsfc^k cto%^Qi^te systems with NEWDOS 80 and ONE 
BOX OF DISKETTES %_.|, / %-^"^ ^ ^ ^ -^ ^^ 

PLUG IT IN Aim Qm^ . $2,149.00 

MODEL III with 48K, dual 80/80 track double de'&f A dnves complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES -*. ^ - - ^ ^ ^ 

PLUG IT IN AND GO $2,449.00 

MODEL III 16K w/Free Shipping $839.00 

16K Color Computer $459.00 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket, 

dual power supply, all hardware cables and connectors (gold plated) $359.00 

MODEL 16 w/1 drive /w/2 drives .' CALL 




IMMEDIATE DELIVERY 

120 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 

Visit Our Two ^^M\]^ 13 lAPl A Vc rv i— ^rr— ^ ■ ^^^^ Shipping in the U.S. 

NEW RETAIL LOCATIONS: I^^^^T^^^m^^l^J *" *-' /^S^l^ "^ Contiguous States 

886 Ecorse Road, Ypsilanti, MI 48 1 97 
(313) 426-5086/ (313) 4824424 

111 Marshall Street, Litchfield, MI 49252 
(517)542-3280 

Grand Openin«f of%t^ I^dio IShack Authorized Dealership at: 

111 Marshall Street, Litchfield, Michigan 49252 ^P142 

To Order: Call (313) 42^^p5%r (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO, 

o86 EcorsG Road, Ypsilanti, Michigan 48197 

'TRS-80 is a trademark of the Tandy Corporation Prices bubject to change without notice 
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DISPLAYED VIDEO IS DHIVING DOWN 

PRICES ON DISKS! 

80 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY' 
40 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY 

•*^f 239.00 -'-^^f ■ 

TWO DRIVE CABLE $^3^99 

8Bt '^ With Gold Plated Connectors 

NEWDOS80 $115.00 MODEL I OR III 

'^P ^f Bare Drives & Cases Available Upon Request 

By the time you see this ad, DISPLAYED VIDEO'S Hard Disk will be available to you. 
Call for the Lowest Prices Available 

VERBATIM CLEANING KIT 






EPSON PRICES 

We're not going to make you call for prices. 
Here they are in black and white!! 

MX 80 (W/GRAPHTRAX) PLUS $459.00 

MX80FT (W/GRAPHTRAX) PLUS $565.00 

MXlOO (W/GRAPHTRAX) PLUS $719.00 

PRINTER CABLE $23.99 

With Gold Plated Connectors 
We Carry A Full [jne of OKIDATA Printers 




Stop in to our Two 
New Retail Locations: 

886 Ecorse Road, Ypsilanti, Ml 48197 

(313) 426-5086/ (313) 482-4424 

or 

1 1 1 Marshall Street. Litchfield, MI 49252 

(517)542-3280 

.^62 




displayed 
7d 




IMMEDIATE DELIVERY 

90 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 



Free Shipping in the U.S. 
48 Contiguous States 



Grand Opening of our Radio Shack Authorized Dealership at: 

-*»^ H 1 Marshall Street. Litchfield. Michigan 49252 *P1 42 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO. 
,,,^1^^^ 886 Ecorse Road, Ypsilanti. Mithiyan 48197 

*TRS-80 is a trademark of the Tandy Corporation Prices subject to change without notice 



GENERAL 




icros in the Lab 



by Tom Hager 



M 



icrocomputers are not yet used extensively in 
scientific exploration, but some pioneering 
scientists are leading a micro revolution. 



Dr. Howard Whitlock is a respect- 
ed research chemist, a member of the 

faculty at the University of Wisconsin, 
Madison, and a self-described "under- 
ground computer guerrilla." He, and a 
new breed of scientists like him, are 
pioneering the use of microcomputers 
in the laboratory. They are finding new 
ways to lie Apples to astronomy and 
PETs to paleontology. They are testing 
the power of computers against the 
secrets of nature. 

And it looks like the micros are 
winning. 

"It's had an incredible effect on our 
productivity," says Whitlock, describ- 
ing a microcomputer system he and his 
students pieced together to improve the 
efficiency of a common laboratory 
instrument. 

Not long ago, graduate students 
working in his lab would sit intermin- 
ably in front of a spectrophotometer, 
an instrument used to measure the light 
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passing through a solution. First they 
would analyze a test sample; then, on 
the same machine, they would manipu- 
late their newly-obtained data. One re- 
searcher doing one experiment could tie 
up the spectrophotometer for hours. 
Work began to bottleneck. Short of 
buying more of the costly instruments, 
Whitlock's junior researclicrs had no 
choice but to line up and wait. 

Not any more. Whitlock now uses an 
Apple to separate data acquisition, slill 
done on the spectrophotometer, from 
data manipulation, now done on the 
microcomputer. While one investigator 
is conducting an experiment, another is 
analyzing data and putthig it into read- 
able form on the Apple. 

"Relaying data from measuring in- 
struments to higher machines has tri- 
pled our efficiency," says Whitlock. 
"This sort of thing is duck soup 
with micros." 



And it's a major reason more and 
more scientists are buying them. Tedi- 
ous, repetitive testing composes much 
of research science. Whitlock and a 
number of other ground-breaking sci- 
entists around the country are freeing 
lab personnel from this monotony by 
hooking laboratory equipment into mi- 
crocomputers. The micros not only 
work long hours without complaining, 
they also record the data accurately and 
play it back to the investigator in what- 
ever form is desired. A British personal 
computer company labels its product 
"1 he ideal lab assistant," and, to hear 
some scientists talking, that's an 
understatement. 

But, there are problems. Connecting 
a microcomputer to a spectrophotome- 
ter may be duck soup for a computer 
fan like Whitlock, but other scientists, 
not so well versed in computer lore, 
have been slow to take advantage of this 
new technology. In fact, scientific use 
of inicrocomputers is still in its infancy. 

This is not what you'd expect. Theo- 
retically, scientists, constantly con- 
cerned with staying on the cutting edge 
of knowledge, should be the first to put 
micros to work. But, in fact, people do- 
ing active scientific research spend most 



of their waking hours reading about 
developments in their field, devising ex- 
periments, and writing grant proposals. 

This doesn't leave much time for taking 
ail iiuroductory microcomputer class or 
perusing 80 Micro. 

Steeped in narrow disciplines, trained 
on equipment common twenty years 
ago, and hampered by a lack of com- 
puter systems and software designed to 
fit their needs, most scientists have ig- 
nored this potentially valuable tool. It is 
ironic that the premier technological ad- 
vance of the last decade has found wider 
use in the enieriairmient, business, and 
military fields than in the sciences; it is 
sobering that certain kinds of advanced 
microprocessor technology are more 
common in video game arcades than in 
the laboratory. 



"A few ingenious 

scientists are interfacing 

off-the-shelf micros 

with their 
research equipment. *' 



ij 



rr 



n 



Hut this is beginning to change. A few 
ingenious scientists are interfacing off- 
the-shelf micros with their research 
equipment. Some are taking advantage 
of a rapidly growing number of labora- 
tory instruments with built-in micropro- 
cessors called "smart machines." Still 
others are buying entire micro-based 
systems, complete with software, 
designed specifically for scientific 
applications. 

Last year the prestigious science jour* 
nal Nature introduced a special issue 
devoted to computers by telling its 
readers that "computers can wring 
more out of an experiment, or a scries 
of observations, than is possible with 
more traditional techniques of data 
handling." About microcomputers, the 
journal .said, "the benefits are certainty, 
speed, and the saving of a research as- 
sistant's time. The cost is often small." 
And, it sliould have added that micro- 
compulers can also improve a scientist's 
Leaching effectiveness as well as speed 
up his ability to communicate with 
other researchers. 

The micro revolution in the sciences 
is just beginning. A look at some of the 
first "computer guerrillas" in the field 

^ See List of Advertisers on Page 455 



I BOUGHT IT 

My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BASIC 
is spent 
inserting 
my diskette." 

SCOTT ADAMS - PHES OT ADVENTURE INTL. 



ReduCe your programming time significantly with Snappware's EXTENDED 
BASIC. The program is written entirely in machine language for super fast 
execution and is fully integrated into the TRSDOS* BASIC interpreter, re- 
quiring no user memory Here are just some of the ways EXTENDED' ^ 
BASIC can make your programming task easier: 




Single character abbr,.. 

commands. .-:■■.■. .■;,;,..,.:■■.■ 

* Six single key stroke commands to list the first, last, previous, 
next or current program line. Even edit current line. 

• A powerful cross-reference facility with output to dispir 
and/or printer 
Ability to trace a variable through the co^ 

- Determine easily if a variable is in u§fS^ 



'program variables. ^^^:.^:^^u-i-Ji-:> 



Li^ts each element of any array sepacat#p::^-;vi- '-^ --fc. j.';V,,.^ 
Program line renumbering facilities allowing for specificatlotpif; ;;;;;.' 
an upper limit of the block of lines to be renumbered, relocation, ';'; 
of renumbered blocks of code and duplication of blocks of code. 

• Cross reference facility for key words and character strings including 
global replacement of key works. 

. • Compresses your BASIC program to an absolute minimum by remov- 
ing extraneous information. . , , , . 
Merge lines. ■' ^'■\./Jy■-:■^:^i '-'c-U-- '^ :■'''■'• 
Deletes statements that could not be exe^ip^lA^v^?'-''-'^^- '"■ ^'^ 

If you consider your programming time to be w6f thltibney, cafi us and let 



S^ . . :$200.00 

■fc.... $125.00 



ime s^ffig^power 



CALL TOLL FREE: ^ 

1-800-543- 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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may show where it is taking us. 

Some Examples 

Dr. William Rieclel, Chairman of the 
Geological Research Committee at the 
University of California, San Diego, is 
trying to put together a family tree. Un- 
fortunately for Dr. Riedel, the family 
he's interested in has hundreds of 
members. Some have been extinct for 
millions of years. None can be easily 
seen without a microscope. 

They are radiolarians, tiny, one- 
celled organisms thai lloai in fresh and 
salt waters around the world. Some of 
them build incredibly intricate exoskele- 
tons out of silica. These exoskeletons 
sink when ihey die, gradually building 
up a radiolarian ooze that, over millions 
of years, is compressed into stone. 

Scientists need to know one radio- 
larian from another because the fossil- 
ized remains arc used in geological 
dating. But only a handful of the hun- 
dreds of living and extinct species have 
been well studied. Dr. Riedel is trying to 
change that — with the help of a micro- 
compuicr. He and his co-workers are 
digitizing tv images of magnified ra- 
diolarians and feeding the digitized 
pictures into a microcomputer. A string 
of descriptive terms for the organisms is 



fed in at the same time. Now; when a 
scientist wants to know which radio- 
larians have, for example, x number of 
spikes on the y portion of their exo- 
skclclon, the computer can tell him. 

The microcomputer is making it 
possible for Riedel and his lab workers 
to look at radiolarians in terms of com- 
mon characteristics rather than depend 
on outdated, sketchy taxonomic list- 
ings. Fossil radiolarians can be com- 
pared to living radiolarians, and fresh 
water organisms can be compared with 
those that live in the ocean. Microcom- 
puters are changing the way scientists 
look at the radiolarian family tree. 




Riedcl's technique, though effective, 
is fairly simple. Feeding in masses of 
data and then searching for common 
items is old hat for computers. To find 
a more ingenious method of using 
micros, you have to travel 1 ,000 miles 
up the coast, to Fugenc, OR. 

Dr. Michael Fosner, a nationally re- 
nowned research psychologist, wants 
to know how thought processes occur 
at a very basic level, and microcomput- 
ers are his primary research tools. He 
has programmed his machines to run 
simple psychological tests that help 
him build a picture of how the brain 
works. His laboratory at the University 
of Oregon is dominated by a closet- 
si/cd black plastic cubicle that, on any 
work day, contains a tv screen on a 
table, a chair, and an experimental 
subject. The subject sits on the chair, 
head immobilized and pressed against 
a viewer, electrodes attached near the 
eyes, fingers on a response button. 
Posner's microcomputer flashes pat- 
terns on the tv screen. The subject's 
eyes dunce in response, fhe electrodes 
pick up the movement and feed the 
data to the microcomputer. The com- 
puter gives a different cue, and the sub- 
ject's finger punches (he response key. 






The KEL-CO SYSTEM, developed by Dr, A.S, Kelsey, Professor of Mathematics, and Mike Cox, un expert in iiorse racf handicapfung, has been 
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with DOS 3.3, 48K; enquire about others! ^ i?7 



The computer stores the new data. 

Posner is using this system to answer 
some simple questions. For instance: 
When you try to recall the letter A, 
does your mind "see" A first, or does 
it "say" A? To answer this, Posner 
programmed his microcomputer to 
flash pairs of letters on the tv screen. 
Some of the pairs were identical visual 
matches (AA), others were identical 
verbal matches, but differed visually 
(Aa), Subjects watching the screen 
were instructed to press the response 
key as quickly as possible when either 
match came up. 

Posner found that subjects respond- 
ed to the visually identical pair 80 to 
100 milliseconds faster than they did to 
the pair that was the same in name on- 
ly. It appears from such experiments 
that visual cues are more accessible in 



* Microcomputers are 

helping Posner 

look into 

the human mind. '* 



■ 



the brain than verbal cues. You have to 
rummage deeper in your mind for the 
names of things than you do for their 
shapes. 

This kind of split-second work — 
which helped Posner win the 1981 
Distinguished Scientific Contribution 
Award from the American Psychologi- 
cal Association — would be nearly im- 
possible without microcomputers. 

While microcomputers are helping 
Posner look into the human mind, 
another scientist is using them to track 
pollution in wilderness lakes. Dr. Stan- 
ley Burden and his students at Taylor 
University in Upland, IN, are examin- 
ing the effects of a recent oil discovery, 
and the subsequent population 
growth, on some pristine lakes in 
northern Michigan. Burden's group 
collects water samples from the lakes 
and tests them with electrodes that can 
detect very small quantities of pollu- 
tion-related ions. These finicky elec- 
trodes once had to be hand-calibrated 
before each experiment. Now, the mi- 
crocomputer does that automatically, 
besides performing a complex analysis 
of pollutants in the water. 

Not only does his Apple-based sys- 

^ See List of Advertisers on Page 455 
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tern make gathering data easier, 
Burden says, but the color graphics 

capability makes it possible for him to 
display his rcsuUs more effectively. 
"This setup represents a huge saving in 
terms of operator time," he says, "and 
it improves the quality of time for 
upper-class students by freeing them 
from the simple logging of data." 

The era of pale laboratory assistants 
keeping night-long vigils over labora- 
tory instruments may soon be over. 
But it's not going to happen right 
away. Unfortunately, many scientists 
still see this kind of work as too special- 
ized for micros, which arc viewed in 
some labs as toys, or, at best, as fanci- 
fied calculators. 

Not John Zimmerman. This 
Wabash University (Crawforsdsville, 
IN) chemist has just finished a study on 
the usefulness of commercially avail- 
able microcomputers in laboratory 
work. He cites the limited 8-bit resolu- 
tion of most micros as the main reason 
they haven't found more niches in 
research. 

"Apart from teaching, 8 bits just 
doesn't do it for a chemist," he says. 

But he's quick to add that newer mi- 
crocomputers with greater resolution 
have all the power needed for scientific 
appUcations. 

"We're getting to the point where 
serious work can be done with off-the- 
shelf items, which you couldn't do a 
few years ago," he says. 

Amateur astronomer David Skill- 
man has been running an Apple-con- 
trolled observatory in his back yard for 
the last two years. , Skillman pro- 
grammed his microcomputer to keep 
track of specific stars as they wheel 



overhead .at night. The computer 
orders Skillman's homemade telescope 
to turn an appropriate number of de- 
grees, keeping the star in its sights 
for hours. So far, the system has 
worked well. 

Even with amateurs showing the 
way, many scientists have neither tiie 
skill nor the inclination to concoct their 
own laboratory microcomputer sys- 
tems. But they're still interested in the 
benefits micros can offer. To tap this 
market, microcomputer entrepreneurs 
are offering science packages, com- 
plete with hardware and software, for 
specific rescarcli applications. 

Two years ago a group of former 
Massachusetts Institute of Technology 
(MIT) men started Laboratory Com- 
puter Systems in Boston. They've de- 
signed a microcomputer package that 
measures the volume of small biolog- 
ical structures by "reading" pictures 
from a microscope and then comput- 
ing three-dimensional volume from the 
two-dimensional data. Biovolume is an 
important measurement in many 




studies, but until now its estimation 
has been too time-consuming to be 
practical. 

Another company is selling a com- 
plete microcomputer system that mon- 
itors a classic behavioral psychology 
experiment: The running of rats 
through a maze. Columbus Instru- 
ments Inc. has hooked an Apple II to 
infrared sensors that tell the computer 
the time a rat spends travelling, resting, 
even turning in circles while negotiat- 
ing a maze. The company's software 
converts the data to a printout that 
once took a researcher hours to 
prepare. The company has also devel- 
oped a Skinner Box package in which 
the microcomputer delivers electric 
shocks or rewards to an animal, and 
then analyzes their response data. 

Microcomputers that can do it 
all — conduct an experiment, gather the 
data, and then analyze it — may be the 
coming thing. As John Zimmerman 
says, "We'regradually moving toward 
a system where the whole lab is under a 
sort of computer control." 

But that's still in the future. Right 
now, microprocessor technology is 
making its biggest scientific impact on 
a much smaller scale. The new labora- 
tory fad this season is the microcom- 
puter's little brother — the smart 
machine. 

This new type of equipment is sim- 
ply a standard laboratory instru- 
ment—a spectrophotometer, a column 
chromatograph, or a scintillation 
counter — souped up with a built-in mi- 
croprocessor. All this requires is re- 
moving the CPU heart of a microcom- 
puter and transplanting it into another 
machine. The result: A relatively inex- 
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pensive instrument that can be pro- 
grammed for desired activity sequenc- 
es and is mucii easier to run than a full 
microcomputer. 

There are disadvantages. Smart ma- 
chines are iniierently limited in func- 
tion and scope, and the machine's abil- 
ities cannot be expanded. But scientists 
with no programming or hardware 
skills can at least have the luxury of 
some computer power, so the smart 
machines' popularity is understand- 
able. As Zimmerman says, "You don't 
buy an instrument any more without a 
micro inside." 

In science, the most precious com- 
modity is new knowledge. Next to 
making a discovery (and getting grant 
money), the most imponaht task foi a 
scientist is to keep current with othei 
research in the field. This is done pri 
marily ' through .scholarly scicmific 
journals, refereed by panels of experts 
who decide which findings are worth) 
of printing. Getting published in a 
journal can be a lengthy process. More 
than a year can pass between the time 
of a discovery and its publication. 

Enter Comlex, a small Iwo-year-old 
company that is planning this fall to 
offer the first electronic journal for 
scientists. Comtex president Frederick 
Plotkin plans to have submissions 
judged and on line in the breathtaking- 
ly short span of six to qight weeks. The 
research papers will be stored in a cen- 
tral computer with reports available, 
for a fee, to any scientist in North 
America equipped with a phone line 
and a microcomputer. 

Feelings about the planned system 
are mixed. One editor of an established 
biology journal has already called 
Comtex "an electronic garbage heap." 
But others are more enthusiastic. The 
prospect of getting new information 
within weeks of discovery rather than 
months means that research as a whole 
can move ahead faster. 

Despite these positive trends, almost 
everyone involved in the scientific use 
of microcomputers points to one cen- 
tral problem that blocks their full in- 
corporation: inadequate education. 
Older investigators need to be intro- 
duced to the technology. Younger re- 
searchers must be taught the easiest, 
most productive ways to integrate 
micros into their labs. And science 
students from grade school through 
college should be taught about the uses 
of microcomputers in all fields. 

Steps arc being taken in this direc- 
tion. In the last few years the National 
Science Foundation, the nation's larg- 
est source of money for scientific re- 



"I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
AUTO MAP and 
AUTOFILE is 
spent inserting 
my diskette." 



WW 



SCOTTADAMS 



ADVENTURE INTL. 




When, 
and Auto.,. ^p 

Autofile is designed to automate for the BASIC programmer the task of. ... 
moving data elements to and from a direct file. Previously, this was asv;-'.f 
time consuming chore because the FIELDed variables may not be directly 
referenced by user logic. The FIELD statement was eliminated, thereby 
relieving you of the guessing game as to where the FIELDed variable is. 
In addition, the'LSET and the CVx functions are performed automatically. 
The software, when installed, 'becomes part of your BASIC interpreter 
providing the enhancements without additional memory. 

Automap is designed to automate for the BASIC programmer the task 0>: 
presenting information on the video display and accepting informations;,' 
from the keyboard operator. The software consists of two main comp^^-- 
nents: the OFF-LINE COMPONENT used to describe to the system ^^<- 
screen formats and the ON-LINE COMPONENT from within your BASIC 
program to initialize a screen, send data to the video display and receive 
data from the keyboard operator This facility when installed, becomes 
part of your BASIC int^rpretef. 

Both products complement one another and, if u; 
save a significant amount of programming time. . 

If you consider your progranrtming time to be worth money, call us and let 







le MODEL II 
MODEL II 



V 


3P': 




i?";:!i;hi!;=;'^'- 






ir "' -/ 




1 





. . . .$100.00 
.$75.00 
.$ 75.00 

....$ 60.00 



ng power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantel! 
Cinti., Ohio 45236 



^See List of Advertisers on Page 455 



80 Micro. November 1982 • 179 



search, has funded dozens of programs 
using microcomputers in science 
educations. 

One of these, at the University of 
Mississippi, is designed to teach 
primary and secondary school science 
teachers how to use microcomputers in 
the classroom. Jean Shaw, organizer 
of the program, grew enthusiastic 
about microcomputing after joining a 
TRS-80 club. Shaw beUeves that more 
and more children will have access to 
personal computers in the home, and 
she wants to make sure thai science 
teachers keep up with the youngsters. 

*'The teachers coming through the 
program will at least be familiar with 
what they'll be surrounded with when 
they're out teaching," she says. 

David Moursund, editor of The 
Computing Teacher, agrees that 
micros will have an important effect on 
science education, although he sees 
teachers, not students, as the moving 
force. 

"Our educational system is com- 
pletely dependent on how teachers 
view the world," he says. "If teachers 
can't adjust to using computers, to this 
change in the world, then it's going to 
be very, very hard for the kids to adjust 
to it." 



Whether it's led by students or 
teachers, the move to bring micros into 

science education is growing. Chemis- 
try teachers arc using microcomputer 
graphics to show moving three-dimen- 
sional chemical diagrams (in color) to 
their students. Psychology teachers 
program microcomputers to give Iheir 
students the same kind of psychologic- 



'Our educational system 

is completely 

dependent on how 

teachers 
view the world. " 



al tests given to their patients. The stu- 
dents not only learn about psychology, 
they learn about themselves, and have 
fun doing it. Physics professors teach 
complex numerical analysis to college 
students with a microcomputer pro- 
gram that simulates the decreasing or- 
bit of a spaceship near a black hole. 



Biology professors have developed 
programs in which students try to save 
herds of bison or pods of whales from 
extinction in the face of environmental 
changes. Other biology programs sim- 
ulate the effects of various pollutants 
on water ecosystems. 

Computer-assisted instruction of 
this sort is exciting for the students, but 
it doesn't teach them how lo use micro- 
computers in the lab. To do that, you 
need a class like the one developed by 
Bruce Rafert and R.C. Nicklin at Ap- 
palachian State University in Boone, 
NC. These two physics professors 
leach their students how to interface a 
KlM-1 microcomputer board to com- 
mon laboratory equipment. They 
avoid programming language and dia- 
gramming details as much as possible, 
concentrating instead on hands-on wir- 
ing and getting systems to work. Their 
conclusion after successfully running 
the class; "...micros should be as 
common as voltmeters and scopes al 
all levels." 

Why Not More? 

Microcomputers. Their potential 
seems unlimited, they're cheap, and 
they're available. So why doesn't every 
science laboratory have one? 
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The most obvious reason is inertia. 
Contrary to popular conception, scien- 
tists fear new and complex technolo- 
gies almost as much as anyone else. 
Scientific research moves ahead at a 
dizzying pace already, and microcom- 
puters threaten to speed the process 
even more. Some scientists fear that 
the little machines will make them out- 
moded. They're scared. 

Those who decide to take the plunge 
and buy a micro for the lab face 
another problem. Retail computer 
dealers are notoriously ignorant of 
scientific needs. They may be able to 
talk for hours about the latest video 
game, but they're woefully ignorant of 
ways to hook their machines into lab 
sensors. Support for scientists is 
therefore poor, and well-documented 
interfacing material is rare. None of 
that would matter much if adequate 
scientific software existed, but it 
doesn't. While microcomputer hard- 
ware is, or soon will be, adequate lor 
most laboratory applications, good 
software is lagging far behind— a prob- 
lem not limited solely to science. 

Hut all these problems are slowly be- 
ing solved. There's a feeling across the 
field that we're on the edge of a micro- 
computer explosion in the sciences. 
More science students are becoming 
computer literate. More micros are be- 
ing built whh the power needed for 
research. More firms are designing 
microcomputer systems for the 
sciences. Software is gradually being 
developed by scientists who can't wait 
for computer companies to catch up. 
As more important data is collected 
through the use of micros, resistance 
should gradually die down. 

Soon every science department in 
every school may resemble the Chemis- 
try Department at the University of 
Wisconsin, Madison, where 35 Apples 
and PETs are scattered among the 
faculty. Pockets of activity like this 
will grow, says computer guerrilla 
Howard Whitlock, even though there 
may be resistance at the highest levels. 

"The most interesting part of micro- 
computers in the University is that the 
school administration is scared to death 
of them," he says. "Most people in the 
University don't know anything about 
computers. They hear the drums beat- 
ing in the bush, and they see a few 
guerrilla raids here and there, but they 
don't know there's a revolution — 
yer."B 



Tom Hager can he reached at 868 W. 
10th Ave., Eugene, OR 97402. 

y-See Lisl ol Advorlisers on Page 455 
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UTILITY 



Control your Model II's cursor. 



Curse You, Cursor! 



Joseph L. Frese 

The Software Service Company 

37W829 Pine Needles Court 
Batavia. IL 60510 



Ron Balewski's article "Block 
That Cursor" in the April 
1981 issue of 80 Microcom- 
puting scored a real hit with me. 
I, too, find a non-blinking block 
cursor more comfortable than 
the standard TRS-80 cursor. 

Ron's Model I solution 
couldn't be applied directly to 
my Model II system. Fortunate- 
ly, an entirely different solution 
proved easy to implement on the 
Model II. This method has some 
other interesting applications 
as well, and now I wouldn't be 
without it in my collection of 
systems subroutines. 

Why Control Your Cursor? 

The cursor is an important 
part of the interface between the 
computer and its user. A blink- 
ing cursor calls attention to its 
position on the screen, while a 
non-blinking cursor seems less 
insistent. A fast-blinking cursor 
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demands attention, appropriate 
when special attention is re- 
quired for an unusual situation 
(an error condition, for example). 
When you write information on a 
partial screen rather than a line 
at a time, the cursor should be 
turned off so it doesn't flicker 
annoyingly while moving about 
the screen. 

Different cursor sizes are ap- 



fect you Intended. It is often 
helpful to adapt the cursor for- 
mal to the situation. 

Model II Basic and TRSDOS 
give cursor conlroi limited to 
having the cursor blink, not 
blink, or not show. That's help- 
ful, but really not enough. And 
then the system is always trying 
to change back to the standard 
format when you least want it. 



Bit 7 (Most Signt(icanl) 
Bits 6-5 



—Not Used 
—Cursor Display Mode 



Bits 

Binary 
00 
01 
10 

11 



Byte 

Hex 

00 

20 

AO 
60 



Byte 
Decimal 
OO 
32 

64 



Meaning: 

Non-blinking cursor 
Nocursordisplayed 
Biink double speed 
Blink normal speed 



Bits 4-0 



—Cursor Start Line twithin the 
7 by 10 dot matrix of a character) 
Tfie value Is from 0-ft 
gives a full block cursor. 
9 gives an underline cursor. 

Note: TRSDOS rtormal value tor this byte is decimal 101 or hex 65. 

Tabic 1. Register 10 layout 



propriate for different situa- 
tions. For example, when filling 
In a large number of blank 
spaces indicated by underscore 
characters, a non-blinking un- 
derscore cursor is not a pre- 
ferred shape. Or, when entering 
data into a reverse video field 
(black characters on a white 
background), a block cursor 
creates the illusion of two re- 
verse video fields separated by a 
space or white on black char- 
acter. This probably is not the ef- 



The subroutine below gives 
nearly total cursor control, can 

be loaded anywhere without 
modifying the code, uses only 
16 bytes of memory, and it's 
free. Such a deal! 

Method of Operation 

The Model II uses a Motorola 
MC6845 CRT Controller to oper- 
ate the display. This controller 
contains 19 registers or high 
speed memory locations, ac- 
cessible via the system bus, 



which tailor the controller chip 
for a given application. 

The ability to set register 
number 10 provides all capabil- 
ities discussed above. Table 1 
shows the layout of the bits in 
register 10. Control the cursor 
by choosing a particular com- 
bination of bits and putting 
them into that register. 

However, TRSDOS 2.0 and 
other programs have the nasty 
habit of putting their own bits 
into the register every so often. 
(They are just making sure that 
the cursor is turned "on.") 
Therefore, to do the job right, 
you must also modify the byte 
which TRSDOS and these other 
programs will put into register 
10. This magic byte is stored in 
memory location 06B1H (in 
TRSDOS 2.0). It is sent to the 
CRT controller just before every 
TRSDOS Ready command 
prompt, and also when you call 
the Cursor (SVC 26) operating 
system call with a non-zero 
argument. 

Set It and Forget It 

To change the cursor perma- 
nently for a given application, 
just PATCH location 06B1H on 



The Key Box 



Model II 
32K RAM 
TRSDOS 2.0 



V i^-^-I^- 



Dtoihutor 



MiCRaso - 

284 Goodwood Rood S:, o.^: 
Clarence Pork ; :;: 

Adelaide South Australia \ 
ftHP^ 2117224 ^^ 

DIGI-TEK SYSTEMS ' ' : 
65 Thornridge Circle 
Kitchener Ontario N2M-4V9 
Ph-(519)742-8205 : 

STRAWFLOWER ELECTRONICS 
50 North Cabrillo ^ i. 

Half Moon Bay - . : - 

California 94019 - 
Ph-(415) 726-9129 ;^,^.., : , :•> 

COMPUTERMAGIC ; VU 
115 Wiltshire Avenue ^ ", 

Louisville, Kentucky 40207 : 
Ph-(502) 893-9334; .:^;^^:- ; / 

E-CDATA ir^ : -J 

■ TornevangsveJ 88!' ■ ; 

PO.ail6 ■ . :*; ' 

DK-3460 ■■■^:-';':>'i-;:'7:; 

Birkerod, Denmark " "^ , '; ^ ii' 
Ph +45/2/81/8191 ' ; /' 

SYSTEMSOFT - t V: ^: 

49, Dunvegan Drive 

Rise Park 

Nottingham, England . - , 

NG5 5DX 

Ph-(0602) 275559' '■ -■ ;; ; ':;■ 

CUSTOM COMPUTING: ■ ; ■ 
104 Bushwick Rd. 
Poughkeepsie, NY 12603 ~ :.' 
Ph-(914>-471-9318 : , ,.; :-^ 

AEROCOMP. ^:-^'vV 

Redbird Airport ■_,; ,,;;■';' 
Hanger 8 ; ■/ -' ; 'i -X 

Dallas, Texas 75232 ;; : 
Ph-(214)339-5ip4... >;^.':^ 





**■. 



" ' ■■ . .'■•j^' 









fW. 









Snappwa^Jt^^your prog^%|||f;iine is valuable. Ttiat's why we are 
: offering a tnaffjackage that v^lilttitVour programming time up to 75%! - 

,;■ This unprecedented offer allows you to judge for yourself the value of our 

/. software using your hardware aXyour convenience. Our five best selling 

- products: EXTENDED BASIC, EXTENDED BUILT IN FUNCTIONS, COLLEGE 

,:■ EDUCATED GARBAGE COLLECTOR. AUTOMAP and AUTOFILE. are all 

■ available to you on a trial basis for only $50.00 for the Model II and 

, $35.00 for the Model III. We're convinced that after you see how well our 

software helps you perform programming tasks, 'ygu will py^qh^e them 

■ like thousands of others have. ■;;;: \^ , - 



llllIlN iT 



Cj^gse price for the trial package will be 
any software Snappware sells. 



if for any reason you are not satisfied, just return the trial diskette and 
.■■,;.;■:, working copy and we will refund your money, no questions. asked. With 






'*""™"''l««Hi 



II Trial Package $50.00 

. Ill Trial Package ...,..$35.00 



saving power 



IAllll<l-Ut 



CALL TOLL p&E: , 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891^4496 
3719Mantell 






>^See List of Advertisers on Page 455 
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oaiio 


THIS 


SUBROUTINE ALLOWS USERS OF BASIC OH THE TR5-B0 MODEL II TO TAKE 






aaizo 


FULL 


CONTROL OF TMEIH CURSOR 






oono 


WRITTEN BY J. L. FREEE, (312) 879-9335, ON MAY 24. 1901. | 






ODMO 










00 150 


THE 


ROUTINE IS SELF-RELOCATING - THAT IS TO SAY IT MAY BE LOADED AT 






DO UO 


ANY 


DESIRED MEMORY LOCATION WITHOUT MODIFYING THE MACHINE CODE 






00170 










00 ISO 


WHEN 


CALLED FROM BASIC, THE SINGLE PARAMETER IS AN INTEGER (!6-BlTS> 






00 1 90 


THE 


LEAST SIGNIFICANT BYTE OF THIS INTEGER IS THEN OUTPUT TO THE CRT 






00200 


CONTROLLER REGISTER 10, WHERE THE FOLLOWING BIT FIELDS CONTROL THE 






002 10 


CONTROLLER ACTIONS OESCRIHED BELOW 






00220 




HIT 7 (MOST SIGNIFICANT) -- NOT USED 






00230 




BITS 4-5 -- CURSOR DISPLAY HODE 






0DZ40 




00 - NON-BLINK 






OOZSO 




01 = NON-DISPLAY 






00240 




10 = BLINK, 2X SPEED 






00270 




1! = BLINK, NORMAL SPEED 






00280 




BITS 1-0 -- CURSOR START LINE (0 TO 9) 






002»D 




MEANS BLOCK CURSOR, 9 






00300 




MEANS UNDERLINE AS CURSOR 






003 10 










00320 


, AT ENTRY FROM BASIC: 






OQ330 




REGISTER A -- TYPE CODE OF PASSED PARAMETER (2 FOR INTEGER) 






00310 




REGISTERS HL -- ADDRESS OF INTEGER IN THE ARGUMENT STORAGE AREA 






00350 




INTEGER IS STORED IN NORMAL Z-80 ORDER, LEAST 






00360 




SIGNIFICANT BYTE FIRST 






00370 










00380 


; UPON 


RETURN TO BASIC ■ 






0D3V0 




REGISTERS AND THE ARG STORAGE AREA ARE NOT MODIFIED 






D04DD 




THE VALUE RETURNED IS THE CALLER'S ARGUMENT 






Q0410 










00420 


; OPERATING SYSTEM DEPENDENCIES; 






00130 




THE ORG IN LINE 170 AND THE LOAD TO MEMORY LOCATION OiBIH IN 






00440 




LINE 580 DEPEND UPON THE USE OF TRSDOS 2.D 






D04S0 










00440 






FOOD 




00170 
Q04B0 
00490 
00500 




ORG OFOOOH , ORIGIN OK FOR TRSDOS 2 IF VOU ARE NOT USING 
;ANY HIGH MEMORY COMMUNICATIONS ROUTINE 
.TRSDOS 2.0 PROTECTS MEMORY DOWNTO OFOOOH FROM 
;THE BASIC INTERPRETER. 


FOOO 


FE02 


00510 


SETCSR 


CP 2 ;TEST FOR INTEGER ARGUMENT 


F002 


CO 


00520 




RET NZ ;IF INVALID, RETURN WITHOUT ACTION 


F0D3 


F5 


00530 




PUSH AF ;SAVE AF 


F0D4 


3G0A 


00540 




LD A, 10 ;ADDHESS CRT CONTROLLER REG 10 


FOOi 


03FC 


00550 




OUT (OFCHJ.A .INFORM CRT CONTROLLER 


FDOB 


7E 


00560 




LD A,1H1,) ;GET CONTROL BITS FROM USER PROGRAM 


F009 


D3FD 


00570 




OUT (OFDH),A ,MOVE TO CRT CONTROLLER REG 10 


FOOB 


32Bia& 


00580 
OOSfO 




LD (04B1H),A .ALSO MODIFY MEMORY WHICH TRSDOS 2 
;AND OTHERS USE TO RESET CURSOR "ON" 






OOiOO 


INOTE ■ 


THE PREVIOUS INSTRUCTION MAY BE OMITTED THIS WILL CAUSE 






ooiio 




YOUR CURSOR MODIFICATION TO BE ONLY TEMPORARY TRSDOS 






QD«ZD 




AND SOME OTHER PROGRAMS WILL UNDO YOUR CHANCE BY WRITING THE 






oo&ao 




CONTENTS OF LOCATION 06B1H TO THE CRT CONTROLLER WHEN THEY GET 






00i40 




AN OPPORTUNITY TO DO SO (I E. THEY WILL EXECUTE THE "CURSOR" 






DO&SO 




SVC WITH AN "ON" ARGUMENT.) 


FOOE 


Fl 


DO&iO 




POP AF .RESTORE AF 


FOOF 


C9 


00470 




HET , FINISHED SO RETURN 


DOOD 




QO&aQ 




END 


OOOOa TOTAL 


ERRORS 














Program Listing 1. SETCSR 



the System disk used to load 
TRSDOS 2.0 for that application. 
The change will take effect the 
next time you reload the system 
(at power up, or at reset time) us- 
ing the patched System disk. 
Figure 1 shows how to make the 
patch setting a non-blinking full 
block cursor. Obtain other cur- 
sor formats with different values 
(as shown in Table 1) for the C 
parameter on the PATCH com- 
mand. As in Fig. 1 , 1 alw/ays buiid a 
DO file containing each patch ap- 
plied to TRSDOS. This documents 
exactly what was changed, and 
simplifies later removal, if that 
becomes desirable. Removal Is 
especially easy if you have a pro- 
gram like UNPATCH/BAS by Ken 
Snapp, Jr. (April ^9Q^, TRS-80 Mi- 
crocomputer News). His program 
reverses the F and C values on the 
PATCH commands in a DO file to 
undo a patch. 

Change It at Will 

Perhaps you need a more 
dynamic method for controlling 
your cursor. In that case, use the 
SETCSR subroutine In Program 
Listing 1 to adjust your cursor 
from a Basic program or from 
Basic command level. Notice 
that any integer passed to the 
subroutine wiii be sent out to 
the CRT controller. You can't do 
any real harm with some 
strange value, although you 
may have an unusual cursor for 
a while. SETCSR is also self-re- 
locating; load its 16 bytes at any 
available address without mod- 
ifying the SETCSR code. 

Also notice that the memory 
address given above applies to 
TRSDOS 2.0 only. It is quite 



—ATTENTION ALL TRS-80^ OWNERS— 

No matter how your Model I, II or IN is used, whelher it be Business of pisasure, Ihis product can benefit yoy. 

The FATIGUE FIGHTERTW reduces the operator fatigue (irritated, watery eyes and headaches) caused by ihe harsh while video 
display thereby making computer use more effictent and/or enjoyable. The graph "at the right will help e/plam how w works 
Superimposed on the standard eye sensitivity curve is the band pass curve of the FATIGUE FIGHTERtm as recorded by a speciro- 
photometer. A marlcer is also on ihe graph at the ideal psychological tolerance color. As you can see, the green color of me FATIGUE 
FIGHTERTM takes advantage of both sye sensitivity and psychotogir;al tolerance to make the display less irritating 

The FATIGUE FIGHTERTM is made of tough. Vn inch thick aery he sheet which adds absolutely no distortion or fuzzmRSS to the 
display anci is industry proven to beanexcellentrrvateriaMor optical liltenng (e.g lenses for laser salety goggles) It installs easily on all 
threeTRS-80*models with a pressure sensitiveadhesive which will not letthefilterfall of? yet allows easy removal if necessary. Finaliy. 
the black and silver border design makes it a perfect match for the computer styling. 

If you v^ant a FATtGUE FIGHTERTM of your own but prefer not to orcter by mail, check with your local computer stores fo see if they 
have them in stock. Otherwise follow the ordering instructions below. 

THS-80 IS H TANDY COHP.THAOEKIARK. 

TO ORDER: 

Send Same S Adrtress TypBdnr Clearly Printeil with Check or Wonsy 
OrQet lU.S. FUNDS] lor SH.95 tach. Including Shipping. Canadian 
lirdersatidSt.OOEach All DthEr Foreigrt Orders Adii S2 GO Eacli lor 
Shipping. NO CREDIT CftRD ORDERS CODs jU S. ORDERS ONLY] are 
i25i) Additional Per Order S aie Aci^efiled by Mail er by Calling 
904 378-2494 9-5 M-F. Florida Residents Arid i\ Sales Tai. 

MAIL ORDERS MUST BE SENT TO THE U S ADDRESS. 



-DEALER INQUIRIES INVITED- 




SOUTHERN INNOVATIVE DESIGN 
1 520 NORTHEAST 12TH STREET 
GAINESVILLE. FLORIDA 32601 ^^35 



-CANADIAN DEALERS ONLY- 

For pricing and ordering inlormation contact: 

MICRO-COMP ENTERPRISES INC., 955 Brock M. S . Unit 3 

Pickering, Ontario LIW 2X9 Phone: 416-839-4561 
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Teach Y0U7 lis 80' R Second Lanquaqe. 




Your TRS-80 Mode! Ill already speaks BASIC and now you 
can teach it APL too, thanks to STSC's APL*FLUS*/80 
Application Development System. Once you've run APL 
on your TRS-80, we' re sure you' II both think of it as your 
first language. 

OurAPL*PLLIS syjilem features increase Ihe well-known power and 
productivity of the APL language. You' II develop and maintain pro- 
grams in one-fourth to one-tenth the time needed with BASIC, and 
you'll write applications you'd have thought twice about attempting in 
any other language. 

Take a look at the following example. How long would it have taken 
you to program it in BASIp 

Develop d subroutine which' etiumerates all the combinations of N things taken 
from a population F, Its result is a table showing each of the possible 
combinaliqns in a different row. Example.^ 



COMB 4 
12 3 

12 4 

13 4 
2 3 4 



COMB 
1 2 
1 3 

1 4 

2 3 

2 4 

3 4 



1. 3 
1 2 



1 S^S CCMB P;R 
[1] 1 MAKE SETS OF H ITEMS FSm P CHOICES 
[2] It EECORSlVe ALGORITm BX ALLEU J BOSS 
[3] ♦((»=P)vS^Jtel)pC St-tfl*! . P) iP -»0 
Cl] L:S*1*I0.1S-1)CCHB P-1), Cliff CCMB P-1 

7 

This example is found in the textbook provided with the APL*PLUS/80, APL An 
Inieraclive Approach, by Leonard Oilman and Allen J. Rose. A detailed explana- 
tion of this APL solution is included in our free information package. 

Your programming may not include a to.sk .such as this, but it will certainly benefit- 
from APi.'s power in expressing algorithms. 

Worried that a language with this much power is hard to learn'.' Don' I 
be. APLLs easy] The programs have simple structure — the power 
comes from many built-in functions and operators. And our complete 
documentation gives you everything you need to make yourself and 
yourTRS-8fl bilingual. You get /IPA /sfesy.' (an introductory tutorial), 
an APL textbook, a set of four detailed user' s guides and reference 
manuals, and two reference cards. That's everything you need, whether 
you' re a beginning user or an experienced APL programmer. 

When you buy the APL* PLUS. 80, you' re getting a com[)lete appli(-a- 

tion development system which includes: 

• comjjiete APL language and .system features, upwards compatible 

with our mainframe APL system.^ 
■ powerful output formatter 

APL.PLUSisaservicemarkand trademark of STSC, inc., registered in the United .St.iles P.ilent 
LDOS is a registered trademark i)( Logical Systems Corporation. 



• array-oriented file system 

• access to regular TRSDOS* files and subroutines 

• communications as a "simple" terminal and under APL [jrogram 
control 

• traditional APL symbois or mnemonic keywords 

• utility program libraries 

• convenient access to many TRS-80 features. 

So if you want to develop and deliver solutions faster and better for 
yourself or for clients, teach your TR.S-80 a second language— APL 

Mail in the coupon below with your payment and v/e' 11 send you the 
APL* PLUS/80 Application Develoi)nientSystem — allyou needtorun 
APL today on your TRS-80 Model 111 !f you'd like more details, check 
the box on the coupon and we' 11 send you our free information 
package. 

We're STSC, Inc., the leading supplier of professional quality APL 
software and services in the United States. Our APL^PLUS systems 
have been serving the business and professional world for more than 
12 years. 

API .* PI .US/80 runs under TRSDOS 1 .3 or LDOS*- 5.1 on a 48K RAM TRS-80 
Model III with two disk drives. The APL*PLUS/80 cofnes with custom APL 

rtiarac:terr«)M. 



stsc 



Attn: APL* PLUS/80 Distribution .-266 
STSC, Inc., 2115 East Jefferson Street 
Rockville, Maryland 208.52 



(301) 984-5000 (orders only) 



Yes, send me the APL* PLUS/80 System ($295' in U.S. and Canada). 

n My check is enclosed. (Postpaid in continental U.S.) 

D Charge my MasterCard Account * . 

Ma,sterCardBank " 

D Charge my VISA Account * 



Master Card/VISA expiration date . 



Credit card customers add $4.00 postage and handlir^ in continental US. 

*Add state sales tax in MD (5%). FL (4%), and CT (7^%). 
I'd like to know more about the APL*PLUS/80 System. 

D Send me your free information package. 

Name „______^ '. 

Address _„__ ■ 



City 

Phone (_ 



. State . 



.Zip. 



80-1182 
.iiid Trademark Office TRS-SO and TRSDOS are registered trademarks ol Tandy Corporation. 



^See LisI of Advertisers on Page 455 
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At TRSDOS Ready typethe following lines: 

BUILD BLKCURSR<Enter> 

PAUSE THIS PATCH MODIFIES TRSDOS 2.0 TO USE A BLOCK CURSOR. <Enier> 

<Enter> 

PAUSE PRESS "BREAK" TO ABORT, OR "ENTER" TO PATCH. <Enter> 

<Enter> 

PATCH SYSRES/SYS {A = 06B1,F = 65,0 = 00} <Enter> 

<Enter> 

<Enter> 

DO BLKCURSR<Enter> 

Fig. 1. Block cursor installation 



At TRSDOS Ready type the following lines: 

DEBUG ON<enler> 

DEBUG<En1er> 

MF00O<F1> 

FE 02 CO F5 3E OA D3 PC 7E 03 FD 32 Bl 06 Fl C9<F2> 

O 

DUMP SETCSR {START = FOOO,END = FOOF.RORT = R}<Enter> 

Fig. 2. SETCSR installation 



possible that it wili change in 
other versions. 

Installing and Testing SETCSR 

installing a small machine- 
language subroutine without us- 
ing an assembler program in- 
volves just two steps on the 



Model 11. The first step gets the 
correct numbers into memory; 
the second writes the numbers 
to disk in a format which 
TRSDOS can load as a program 
later. 

One way to do step one uses 
the Debug program to enter 



10 REM SAMPLE PROGRAM TO DEMONSTRATE USE OF THE SETCSR SOBROUTIHE 
2B REM 

39.FEH INSERT CLEAR COMMAND HERE IF NEEDED FOR YOUR LOAD ADDRESS. 

40 SYSTEM "LOAD SETCSR" 

50 DF,FUSR0 = SHF000: 'TELL BASIC WHERE SETCSR IS TO BE ENTERED 

60 X% = IDSRa{56) 'SET BLINKING BLOCK CURSOR 

7 GGSUB 190 

80 X% = USR0(0) 

90 GOSUB 190 

190 X% = USR0(96+-9) 

110 GOSUB 190 

120 X% = USR0I64+5) 

130 GOSUB 190 

140 X% - USR0(321 

150 GOSUB 190 

160 X% = USH0{96+S; 

170 GOSUB 190 

180 STOP 

190 Y%-BjPOfi X%-1 TO 5a0a:Y%=Y%+l;HEXT X»;RETURN 'DELAY AWHILE 

Program Listing 2. Sample program 



'SET NONBLINKING BLOCK CURSOR. 

'SET BLINKING UNDERLINE AS CURSOR 

■SET TRSDOS CURSOR WITH PAST BLINK 

'TURN CURSOR OFF 

'RESTORE NORMAL TRSDOS CURSOR BEFORE STOPPING 



numbers into memory. Then the 
Dump command performs step 
two. Figure 2 shows both steps 
for SETCSR. TRSDOS and Debug 
prompts and responses are not 
shown in the figure for simplicity. 
<F1> and <F2> denote the func- 
tion keys Fl and F2. 

The short Basic program in 
Listing 2 demonstrates different 
cursor formats. It also verifies 
that SETCSR is on disk and can 
be accessed by Basic. The colon 
in line 50 is intentional; other- 
wise, Basic gets a syntax error. 



Happy Controlling 

I hope you enjoy complete 
control of your cursor. If you, as 

I, would like to see more utility 
and systems-oriented articles 
for the Model II, let this dis- 
cussion stimulate you to share 
your ideas. ■ 

Joe Frese has been program- 
ming one computer or anottier 
since 1967. The interface be- 
tween people and computers es- 
pecially interests film. 




DEMO 







By Jeffrey Sorensen and Philip MacKenzie 

■ The end is near; the demonic forces have invaded our galaxy. 
It is up to you to defend the galaxy from destruction. At 
your command is a powerful star cruiser equipped with high- 
energy missiles and defensive shields. Only with practice and 
patience will you be ab|e to defeat the many waves of demon 
attacks and reach the three special challenge levels that wi 
test your mental and physical dexterity. (Disk version saves 
high scores.) 




Software Company 



245 Chestnut Circle, Bloomfjeid Hills, Ml 48013 



(313) S40-8143 -^ ^^^ 



Model I/Ill Tape S14,95 

Model I/IH Disl< S19.95 

Add SI. 75 foi postage and handling 

Michigan Residents add sales tax 

Dealer Discounts Available 
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Level IV Products 
Is Expanding Again! 

3 Locations To Serve You... 



HEASOUARTCnS 




COMPUTER CENTER 




fi/8 BTONC •P-130 


3343V BCHOOLCRAFT ROAD 

LIVONIA, MICHIflAN 40190 

(313) 533-^200 

<nAIL OftDKR, HHOLKSALE, StRVICC) 


102 NORTH 20th BTREET 

BATTLE CRECK, htlCHIOAN 49013 

161*1 963-2312 

(DISCOUNT COMPUTER BHOH RDON> 


134 SOUTH FRONT BTREET 

OOMASIAC, NICHIBAN 49047 

(til6> 7B3-660O 

(FULL R/a PRODUCT LINKS AT OISCDUMT) 



PUT A PBarCOBlONAL TEAM TO WORK FOR VQU, WE OFFER 
■IN-HOUSE- TECHNICAL SERVICE, AND A FROBRAHHINB 
STAFF TO ASSIST VQU WHEN HARONARE OR 60FTHARE 
HELP IB NEEDED. 



UE CARRV OVER 900 HARDMARE AND BOFTMARE ITEHS 
MORT IN STOCK, IF YOU DON'T CHCCK OUR PRICES AND 
OELIVERIEB, VOU NAV FIND THAT VOU PAID HORE AND 
HAITSD LONaKR. 



THE PURCHABINB PONER OF •3,000,000.0© PLO* SALCE 
INBURES VOU THE VERY BEST OF DISCOUNTS, AND 
PRODUCT OUALITV, NE DON'T HAVE TO 'CUT CORNERB- 
IN OUR BELECTIDN OF OFFERINOS, OR CONBTRUCTiON 
COMPONENTS. 



HE SERVICE EVERVTHINB HE BELL, HE'LL ALBO EERVICE 
YOUR MODIFIED EBUIPMENT (PROVIDED DOCUHCNTATION 
IS AVAILABLO , AT REASONABLE SERVICE RATES. 



TYPICAL PRICES (PARTIAL LISTING) 

TRS-SO- MODEL III 48li (2> M.P.I. OR TAMOON 40 TRACK DRIVES IFULLY R/B COMPAriBLE) 

TRS-aOa COLOR COMPUTER Ihk EXTENDED SABIC 

TRB-tOB MODEL II 64k 

COLOR DRIVE O ABSEHBLV 

M.P.I. OR TANDON DRIVES FOR COLOR, NOD I, MOD III, RAH (FROM •199.0O) COMPLETE (FROM •2=9. OOl. 

M.P.I. OR TANDON B" DRIVES FOR MOD II, MOD 16, RAM <FROH •499. OO) COMPLETE (FROM •649.001 . 

PRINTERS, ft/S, EPSON, CITOH, NICROLINE, t> OTHERS 

HINCHKSTCR DRIVES FOR MOD III, t. . 4 ..g , COMPLETE WITH DOS 1. INTERFACE, PLUB IT IN AND RUN 

HINCHESTER DRIVES FOR NOD III, 14.3 ■■« , COMPLETE AS ABOVE 
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U.P.S. SIZE AND HEIBHT RANSE YOU MAY 
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GENERAL 




esearch Lab 



by J. L. Larsen 



When Alberto Salazar ran the New 
York Marathon in 1981, he had one 
thing on his mind: time. In particular he 
wanted to save time — enough time over 
the 26.2 mile course to establish a new 
world record. 

Speed is important to the scientific 
process, too. Sometimes it is necessary 
to collect and analyze data at almost the 
same instant an event transpires. Left to 
pencil and paper calculations, impor- 
tant data can be lost. Even if all the im- 
portant data is recorded, analyzing it 
may take too long. Some computers 
provide a tool to increase the speed of 
data collection and reduce the time of 
subsequent analysis. 

An experiment conducted recently at 
the Nike Sport Research Lab dealt with 
in-shoe temperature as a factor in the 
formation of blisters. By examining 
how a microcomputer was used in this 
experiment, we can demonstrate that it 
can serve as a catalyst in the scientific 
process. 

Observation 

Salazar no doubt developed a blister 
or two on his run for the record. 

Blistering is a cause of concern to 
shoe makers as well as athletes, since the 
blame is placed on the shoe. A survey 
conducted at the 1982 Boston Mara- 
thon showed that 36 percent of the run- 
ners surveyed had developed blisters. 
Many people mentioned either abrasion 
or heat build-up as a contributing factor. 
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Scientific research 
benefits from using 
microcomputers for data 
collection and analysis. 



Hypothesis 

As there was little quantitative data 
regarding temperature and how it ef- 
fects the blistering process, we decided 
to investigate the temperature at various 
locations in the shoe while a subject ran 
at a set pace on a treadmill. Our work- 
ing hypothesis was that there is a 
temperature threshold at which blister- 
ing is a natural consequence. 

Experiment 

Our hardware consists of a copper- 
constantine thermocouple connected to 
an Omni I thermocouple amplifier 
(both from Omega Engineering, 
Inc.). The Omni amplifier is then 
connected to an amplifier/filter with 
variable gain and offset. The output 
from this amplifier is then passed to 
an analog-to-digital (A/D) converter 
and into the microcomputer. 

The most important piece of hard- 
ware is an analog-to-digital converter. 
This A/D converter does exactly what 



the name implies. It takes an analog 
signal, the output by the thermocouple, 
and converts it to a representative digi- 
tal value that the computer can use. Our 
system uses an Interactive Structures 
AL02, an A/D converter that outputs 
an 8-bit number between and 256. 

The A/D converter interfaces any in- 
strument that outputs a voltage signal. 
Most laboratory instruments come 
equipped with this output capability or 
can be adapted to output such a signal. 
For example, at the Nike Sport Re- 
search Lab, an oxygen analyzer, a car- 
bon dioxide analyzer, and a Parkinson- 
Cowen flowmeter, all of which are used 
in exercise physiology studies, output a 
0-5-volt signal that can be converted 
and sampled by the above-mentioned 
setup. 

The converted digital value is often 
read by PEEKing variable storage 
memory, if the event being monitored is 
slow enough. When speed is a factor, 
we use a machine-language subroutine 
instead. Example routines demonstrat- 
ing both instances are described later. 

Another important piece of hard- 
ware is the amplifier/filter. This am- 
plifier conditions signals to read a 
range of values within a desired reso- 
lution. In the case of the thermocou- 
ples, the Omni I amplifier is adjusted 
to output a signal between and 90 
millivolts (mV) corresponding to a 
temperature range of 20-40 degrees 
Celsius. The 8-bit A/D converter re- 
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quires a voltage of 20 mV to register a 

change of one on its scale of 0-256 
(total voltage range 0-5 volls). We ex- 
pected in-shoe temperatures to range 
between 20° and 10°C. To attain an 
accuracy of .2°C, the signal from the 
Omni I must be amplified by a factor 
of 50. A low-pass filter is built into 
the amplifier to remove noise that 
might result from amplification of 
the signal or from sources outside the 
immediate system. 

By substituting various sized resis- 
tors, this basic amplifier circuit can be 
used to condition signals from other 
laboratory instruments as well. For ex- 
ample, our carbon dioxide and oxygen 
analyzers, from Applied Electrochem- 
istry, output a 0-5-volt signal. These 
signals are amplified by a factor of 2 
and 5 over a concentration range of 0-6 
percent and 15-21 percent, respectively. 

The offset in the circuit is used in con- 
junction with the gain to define a range 
of values between and 5 volts (lower 
and upper end) to aid in achieving maxi- 
mum resolution. 

Hardware is useless without software 
to direct it. We use two subroutines, one 
in Basic, the other in machine language, 
depending on the particular study. Our 
pilot studies have shown that, for our 



needs, a sample every five seconds is 
sufficient to monitor any temperature 
change that takes place. Typically we 
sample every five seconds, plot a point 
on the monitor, and print out the read- 
ing. A subject runs for 30-60 minutes at 
a varied pace (five, six, and seven min- 
utes per mile). As the experiment pro- 
gresses, we track the average and maxi- 
mum temperature for every minute. 
Any blistering that occurs ends the ses- 
sion. The time and temperature at 
which bUstering occurs is then the last 
time and temperature recorded. Maxi- 
mum temperature, minute averages, 
and time to blister, if any occurred, 
were stored in a disk file for later statis- 
tical analysis. 

Further studies will include varied 
shoe conditions in order to obtain an ex- 
panded picture of the blistering prob- 
lem, as there are many other factors 
influencing in-shoe temperature and 
blistering, including the materials that 
the shoe is made of, total time of run, 
and even foot type. 

As mentioned earlier, if sampling 
speed is important, a machine-language 
sampling routine is necessary. The fast- 
est rate at which we have sampled one 
channel of converted data (our A/D 
converter has 16 possible chaimels), is 



10,000 per second. The temperature 

study did not require such speed but 
studies using the air/gas analy/er and 
flowmeter mentioned earher can only 
be undertaken with machine-language 
drivers. The program requires a timer 
or clock capable of interrupts. This 
routine samples two channels every sec- 
ond and stores the values in memory 
locations accessible by other routines. 
From this skeleton, a control program 
can be fleshed out to handle and moni- 
tor a multitude of analog signal events. 

Conclusion 

Although speed is not important in 
all phases of the scientific process, it is 

essential in some. 
A slower pace is helpful, for example, 

when allowing an idea to build and 
when forming a hypothesis. But once 
data collection starts, speed is a primary 
concern, and microcomputers can pro- 
vide an important service. In our tem- 
perature study, for instance, a micro- 
computer allowed us to collect the data 
and analyze it much faster than alter- 
nate methods. ■ 

J. L. Larsen (156 Front St., Exeter, 
NH 03833) enjoys studying birds, 
rocks, and apples. 
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UTILITY 



Trick Your ROM 



by Bob Boothe 



A 



re you frustrated with your printer driver? 
These programs let you use CHR$(0) for simple 
and speedy bit-graphics on your printer. 



The original designers of ROM 
must have thought anybody sending a 
CHR$(0) to the printer was in error. 

Program listings don't use it. Word 
processors don't use it. Screen dumps 
don't use it . But those of us who have 
modern printers with fancy options 
need zero all the time. 

I made a three-dimensional parab- 
oloid with 288,960 points combined in- 
to 41 ,280 bytes. Of those 41 ,280 bytes, 
16,830 are zeros. 

1 knew 1 would run into problems 
using .the LPRiNT statement, so in- 
stead I used a very slow process of 
PHEKing the printer address. When it 
was clear 1 POKEd my values into it 
one at a time. 

Zero is not the only problem with 
the ROM printer driver. The designers 
must have thought anyone sending a 



The Key 


Box 


Basic Leve 


H 


Model 1 




Printer 





CHR$(10) to the printer meant to send 
a CHR$(13), and so the helpful ROM 
changes any 10 to a 13. 

I have another design, the Mirror, 
which uses a 10 twice on every line. 
More about this design later. 

If you are desperate for a 10, send an 
11 or 12. ROM intercepts your U or 12 
and gives you 66 tens instead, a good 
trade if you're changing money, but a 
disaster when doing bit graphics. 

Solutions 

Naturally, there are plenty of ways 
to trick the ROM. First, let's take a 
look at the printer driver. 

The keyboard, video display, and 
printer all have device control blocks in 
RAM. The printer device control block 
starts at 16421. 1 use decimal instead of 
hexadecimal here, so we can do a little 
PEEKing and POKEing. 

Address 16421 contains a six as the 
DCB type. I don't think the six mat- 
ters, but to play it safe leave it alone. 
The next address, 16422, contains a 
141; POKE 140 into it. This disables 
the printer by exchanging the printer 
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.IR 
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JR 
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JR 
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Table 


/. Disassembled ROM Printer Driver 
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WHAT SETS OOkiii 

• Our system i^ contigijred spenfically tor large mailing lists 
(or srTuill) on floppy disk drives. Some other major systems 
run on floppies but are really intended for use on hard disk 
drives. Such a system assumes that you have vast amounts of 
on line disk storage capacity. ..the continuity of the data is 
limited to what you can have on line at one time. To get the 
real benefit of such a system, one usually has to purchase 
expanded track/density floppy disk drives and even then the 
problem occurs when all the drives are filled with data. We 
have neatly solved this problem by allowing all your data 
disks to be maintained in continuous order. ..even though, 
due to the limitations of your drives, the list may be too large 
to ,ill be "on line" at one time. Thus our system accomodates 
extremely large lists using your existing drives and yet avoids 
the "segmented" data problems of the hard disk approach, 

• While it is fashionable to advertise all-machine-code systems, 
our system is primarily written in BASIC, ..with embedded 
machine code for the speed sensitive areas. What this means 
is that our system is easy to modify, yet extremely fast. This 
is very important since many users like to have custom modi- 
fications made (either by them or us) so as to fit some unique 
requirement. Our manual has a section devoted exclusively 
to such modifications. ..Remember all-machine-code systems 
arc extremely difficult to modify. 

Continuity of the ordered date (even data spanning many 
disks) is not limited to a "session", but is permanent. 
Opiional "backing up" of your data as-you-go is an integral 
part of the system and is not restricted to the end of a session 
This is true even for deletions. 

The length of our data fields are more than adequate to 
accomodate even your longest names/addresses. 
Adjusts to a 32K memory although full use is made of a 48K 
memory. ..Can be used with any DOS including TRSDOS. 
I he program disk does not have to stay on line, thus freeirvg 
more space for data storage. 

Load and scroll through entire entries or selected fields. Edit 
as you scroll or go directly (takes about 2 sec.) to a specific 
entry and edit or delete. 

Our automatic repeat feature allows often used names/ 
ciddresses to be entered with a single keystroke, 
Lach disk entry optionally "remembers" how many mailings 
have been made for that particular entry.. .Can be tied in with 
purge/select. 

Continuing expert support just a phone call away. You will be 
able to dis(.Li.ss your pioblem.s.'modificalions with the authors. 
Money back guarantee if not fully satisfied. 

ADDITIONAL FEATURES: 

• Simple to ube, even lor the novice. ..menu oriented. 

• I'prniits 2260 names "on-line" with 40 track double density 
drives and almost 5000 names with 80 track drives. The older 
35 single density drives permit 1025 on-line entries,,, made 
possible with our unique data compression techniques, 

• Super fast sort by alph. or zip order (8 sec, for 1000 entries). 
Both orders can exist simultaneously on disk, 

• High speed recovery of entries from disk,,, speed of sort is 
meaningless if retreival from disk is slow. Ours pulls in over 
11 per sec! 

• Master list printout of your list is several formats (not just a 
rehash of labels),, .extremely useful, 

• Zip order is "sub-alphabetized" 

• Less than 5 digit zips have leading O's appended 

• Supports 9 digit Z'ips. Canadian zips, and foreign abbrev, 

• Optional second address line, 

• Optional reversal of names about commas. This permits disk 
storage in last-natne-first order to facilitate meaningful order- 



ing while the printout will be in "natural" order. 
Permits telephone, account, and/or serial numbers, etc. 
Prints on envelopes or labels 1, 2, 3, or 4 across. 
Can print individual labels at time of creation or editing 
Test label/envelope printing allows you to make vertical and 
horizontal adjustments with ease.,. 

Transfers old files to our system. -^MBMBBH^BLOOK 
Selective printout by specific zips or zip ranges. 
Plenty of user defined fields with provisions for simulta- 
neously purging and/or selecting the printout,,, even allows 
for inequalities.,, Powerful and easy to use. 
Editing is simple and fast,,, direct access or automatic 
search. .Batch transfer of edited entries to backup disks. 
Optionally provides for duplicate labels. 
Deleted entries have "holes" on disk filled automatically and 
alph, order is still maintainedi 

All labels optionally support an "Attn," line with provisions 
for multiple entries. This permits mail to be sent to several 
people at given addresses,,, conserves disk space. 
All O's in address labels are replaced by easier to read O's. 
Continuous display of number of labels/envelopes printed. 
Extensive use of error traps.,, even recovers from a power' 
failure during a printout. 
Extensive documentation manual. 
Hardware re(]uiremerUs S2K, printer, .uid 1 or 2 dr'^'"^ 



FORM LETTER (Use with Mail List System) $39.95 

Create letters and store on disk with provisions for later retreival 
and additions. Then print your letters using your mailing list, 

• Same select and purge features as mailing list system. 

• Select either continuous fanfold or "cut sheet" paper, 

• Selectable tabing, test printing, and paging. 

• Allows regular or legal size pages, 

• Creetings are selectable bv codes on mailing list. Options 
include Mr /Mrs,, Eir^t.'Last Name, global, or user defined. 



REPORT (use with Mail List System) \, ^'-^ .^'^ 

The Mail List System provides its own muiti-optioned master list 
printout; however, Report additionally allows you to selectively 
pull records from disk and then print with a customized format. 
Also included are two more "standard" format printouts. 

SUBSET (use with Mail List System) $39.95 

Selectively pulls records from a current file to produce a subset 
file on another disk, 

SUMMARY (use with Mail List System) $39.95 

Gives summarizing totals of the various categories of all entries on 
disk. You specify categories according to codes, zips, etc. 
Limited Offer - Save $30 and purchase all three above for $89 



FOOTBALL SCOUT (diskoniy) $89.95 

Charge local schools up to $1000 per season for these sophisti- 
cated reports. Analyze the tendancies of opposing 

(earns Ff]iiivalenf to that used hv the pros 
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Precision Prototypes -^^ 

410E.Roca Refugio, TX. 78377 (512)526-4758 
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Scotch Diskettes 

Rely on Scotch* diskettes to keep your valu- 
able data safe. Dependable Scotch diskettes 
are tested and guaranteed error-free. The tow 
abrasivity saves your read/write heads 
They're compatiblewith most diskette drives 
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driver with a return statement. 

Address 16423 contains a five; the 
five and the 141 point to the ROM 
printer driver at address 1421. Table 1 
shows a disassembled listing of the of- 
fending code. The 76-byte routine in- 
cludes lines for almost everything from 
ignoring zeros to making form feeds 
from elevens and twelves. 

In this routine, lines using the 
number 37E8H either check the status 
or output the byte to the printer. 

Now is the time to replace the ROM 
routine. Unfortunately we cannot 
change the ROM, but the device con- 
trol block does allow us to put our own 
routine in RAM. Normally, small ma- 
chine-language routines are put in high 
memory, protected when the computer 
asks for memory size. That's annoying 
when you want more than one pro- 
gram in the same place. To circumvent 
this standard procedure, 1 wrote a 
short program to tally the different 
numbers in the reserved RAM area 
(16405-17128). Since 249 never oc- 
curred, I filled the entire section with 
249s from a machine-language rou- 
tine. Then 1 booted the system and 
exercised commands forcing the com- 
puter to use its reserved memory. I 
PEEKed through this memory section 
and wrote down all continuous 
sections still containing 249s (sec 
Table 2). 

These are apparently unused ad- 



16554-16577 
16571-16594 
16610-166B 
1666X- 16672 
16678-16687 
16697-16721 

Table 2. Unused Reserved RAM 



dresses. There's a good chance some 

odd command will use them, but I use 
the open section 16571-16594 without 
any problem. If you decide not to fix 
the printer driver, you still might re- 
locate the keyboard debounce routine 
into one of these low sections. If you 
don't want to risk having the new 
printer driver destroyed in low mem- 
ory, move it to high memory. The code 
is relocatable. 

The Programs 

Printer driver 1 (Program Listing 

1) takes only nine bytes of memory. 
With this in memory send a CHR$(0) 
to the printer and get a CHR$(0) 
printed. Send an 11 and you get an 
11; a 12 prints a 12. Try sending a 10 
^you'll get a 13. 

Your 10 becomes a 13 long before 
the printer driver; the ROM changes 
it to a 13. 

Enter printer driver 2 (Program 
Listing 2). Somewhat larger than Pro- 
gram 1, this program takes up 15 
bytes of memory. The extra six bytes 
allow the program to constantly scan 
the break key. With this feature you 
can stop the printer quickly. 

Next comes printer driver 3 (Pro- 
gram Listing 3). This one is for the 
conservationists: It uses a miniscule 
four bytes of memory. It moves the 
print character from C to A and then 
jumps to the end of the ROM printer 
driver. This printer driver also can't 
tell a 13 that looks like a 13 from a 10 
that looks like a 13. 

Basic Tricks 

Many printers use seven bits and ig- 
nore the last one. A common trick to 
get numbers past the ROM on seven- 
bit machines is to add 128 to all the 
numbers. The ROM then passes the 
numbers through to the printer. 
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LOOP UNTIL 


READY 
















40C2 71 




00170 




LD 




(HL) ,C 


OUTPUT BYTE 


40C3 C9 




00180 




RET 








0000 




00190 




EKD 








00000 TOTAL 


ERRORS 




















Program Listing I 
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I use an Epson MX-80 with the 
Graftrax-80 graphics ROM update. 
It's an eight-bit machine and requires 
some tricks to pass zeros. The easiest 
but slowest way is to just POKE num- 
bers to the printer address. 



Printer driver 4 makes an eight-bit 
printer function Hke a seven-bit 
printer (Program Listing 4). It takes 
the numbers passing through and 
erases bit 7 (bits are numbered 0-7), if 
there is one. In other words, if you 





00100 


; PROGRAM 2 


PRINTER DRIVER 


THAT CHECKS BREA 


K KEY 










4026 


00110 


ORG 


16422 


; DRIVER ADDR 


ESS 










4026 BB40 


00120 


DEFW 


START 


; LATCH IN NE 


W DRIVER 










40BB 


00130 


ORG 


16571 


;NICE BIG PL 


ACE TO PUT IT 










40BB 21403B 


00140 


START LD 


HL,3B40H 


; BREAK KEY A 


DDRESS 










40BE CB56 


00150 


BIT 


2,(HL) 


;TEST KEY 


40C0 C0 


00160 


RET 


NZ 


;IF BREAK RE 


TURN 










40C1 21E837 


00170 


LD 


HL,37E8H 


;LINE PRINTE 


R ADDRESS 










40C4 CB7E 

S 

40C6 20F3 


00180 


BIT 


7,(HL) 


; CHECK STATU 


00190 


JR 


NZ, START 


;L00P UNTIL 


READY 










40Ca 71 


00200 


LD 


(HL) ,C 


; OUTPUT BYTE 


40C9 C9 


00210 


RET 






0000 


00220 


END 
Program 


Listing 2 







00100 


; PROGRAM 3 


PRINTER DRIVER 


THAT USES PART 


F ROM (BOO) 












4026 


00110 




ORG 


16422 


; DRIVER ADDR 


ESS 












4026 BB40 


00120 




DEFW 


START 


; LATCH IN NE 


W DRIVER 












40BB 


00130 




ORG 


16571 


jNICE BIG PL 


ACE TO PUT IT 












40BB 79 


00140 


START 


LD 


A,C 


;THIE IS THE 


SHORTEST FIX 












40BC C3B405 


00150 




JP 


05B4H 


;LAST HALF 


F ROM ROUTINE 












0000 


00160 




END 






00000 TOTAL ERRORS 
















Program Listing 3 







00100 


; PROGRAM 4 


PRINTER DRIVER TO MASK OUT BIT 


SEVEN 












4026 


00110 




ORG 


16422 


DRIVER ADDR 


ESS 












4026 BB40 


00120 




DEFW 


START 


LATCH IN NE 


W DRIVER 












40BB 


00130 




ORG 


16571 


NICE BIG PL 


ACE TO PUT IT 










40BB 21E837 


00140 


START LD 


HL,37E8H 


LINE PRINTE 


R ADDRESS 












40BE CB7E 

S 

40C0 20FC 


00150 


LOOP 


BIT 


7,(HL) 


■CHECK STATU 


00160 




JR 


NZ,LOOP 


;L00P UNTIL 


READY 












40C2 3E7F 


00170 




LD 


A,7FH 


;MASK 0111 1 


111 












40C4 Al 

E 

40C5 77 


00180 




AND 


C 


; COMBINE BYT 


00190 




LD 


(HL) ,A 


; OUTPUT BYTE 


40C6 C9 


00200 




RET 






0000 


00210 




END 






00000 TOTAL 


ERRORS 
















Program Listing 4 






Preparation Series 




A COMPREHENSIVE PHEPARATION 
PACKAGE / 30 PROGRAMS 

1. Diagnostic analysis 

2. Prescription of Individual study plans 

3. Coverage of all SAT* skills 

4. Unlimited drill and practice 

5. SAT* Exam Question simulator 

6. All questions In SAT* format and at 
SAT* difficulty level 

7. Instantaneous answers, explanations 
and scoring for problems 

8. Worksheet generation and performance 
monitoring - (optional) 

9. A compfete rocwd management system- 
(optional) 

10. Systematic instruction In pertnent matt), 
verbal & test taking skills - (optional) 

Krel's unique tognal design provides personal- 

Izad instruction for eacli student according to 

indivklual needs. 

Krell's College Roard SAT* 81/82 Prep. 
Series has demonstrated a mean com- 
bined math and vert)al score increase of 
more than 100 points by using sophis- 
ticated drill & practice techniques alone. 
This new series is much expanded and 
updated. In addition extra cost options 
are now available to provide worksheet 
generation, record management, and 
systematic Instruction in all math and 
verbal areas tested by the SAT*. 

All versions of Kreil College Board SAT* 
Preparation Series provide answers, 
explanations and Instantaneous raw scor- 
ing. Standard package $299.95 
APPLE, ATARI, COMMOOaRE. CP/M. IBM. 
AND RADIO SHACK- 
ALSO AVAILABLE 
Time Traveler / Odyssey in Time 
Competency/Proficiency Series 
Pythagoras and the Dragon 
Isaac and F. G. Newton / Micro Deutsch 
Super Star Baseball / Sword of Zedek 
Krelt Game Pack 
CALL FOR DETAILS AND PRICES 

^ 51 



ARE CORR 

ffW an in eSucMonS co/npubag 
ok Kott I Stony Bfoofc NY 11790 
i\ T.^ff -■ TtlBphona S18-7S1-S139 

fin Coir h» no olticisl \\t% oith tne College 
Enitmce Elimination Buid w the Educilnnal Testinj Service 

Ktell IS. nonreinr d supplier o( wXaas. lo itie E rs 
TiHemarUol Apple Comp Cotp Tandy Co'p Coinmodoie Ccp 

[)i{ital Reseaicli top .IBM Atari Coip 
PHOGMMS AVAIUBLE fOH THE TDS-M. APPIE II PET i AtASI 
' N Y S residents add sales ta< I^^hl 



lySee List o! Advertisers on Page 455 
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send a 138 the printer gets a 10. If you 
send a 49 the printer gets a 49. Of 
course a 10 still comes out as a 13. We 
finally have a way to get a ten to the 
printer. The big disadvantage is losing 
many eight-bit capabilities. This 
driver is useful for using seven-bit 
programs on an eight-bit machine. An 
excellent article, "A Turn of the 
Screw," (80 Micro, April 1981) in- 
cludes bit graphics for seven-bit 
machines. 

The only problem left is getting the 
10 to the printer as a 10. Since it is 
changed deep in the catacombs beyond 
trackable distance, it took a long time. 
I checked all the registers. I disassem- 
bled code, searched memory, and con- 
sidered pouring dye on the CPU to 
trace its path. Finally, I found it 17 
bytes up on the stack. 1 immediately 
puUed out the editor/assembler and 
wrote printer driver 5 (Listing 5). It 
uses 16 bytes of memory. 

Listing 5 is different from other 
printer drivers that print the value 
from the C register. This program ig- 
nores its input, looking 17 bytes up 
from the start of the stack. It sends 
whatever it finds to the printer. For Ba- 
sic programs this approach has never 



MODEL 3* 
CHARACTERS 

for Model 1* and LNW-80** 



Kit includes character genera- 
tor with Model 3 like char- 
acters and lower case letters 

with truedescenders, software 
aliows access to special char- 
acters in a manner identical 
to Model 3 from BASIC. 
Two alternate character sets 
that are software selectable in 
LNW and hardware selectable 
in MODEL 1. 



KT-1 for LNW-80 69.95 

KT-IAfor Model 1 69.95 

Assembled S tested add 15.00 

RS232 Board provides switches and 
Baud Rale Generator for LNW-80 

BD-3 12.95 

Complex Sound Generator Board for 

any 80 

BD-5 15.95 



THE MAINE SOFTWARE LIBRARY 
P.O. BOX 197 

STANDISH, ME 04084 ^196 



'Model I and Model 3 afe products of Radio Shack 
■■LNW-80 IS a product ol LNW Research 



failed. A problem arises when using 
machine-language programs such as 
EDTASM. EDTASM doesn't leave 
the output bytes 17 bytes up the stack. 
This is no big problem tor graphics, 
because EDTASM doesn't use bit 
graphics on its printouts. Remember to 
reset the computer when switching 
from printer driver 5 to EDIASM. 
The JKL function of NEWDOS also 
doesn't work with driver 5. 

All the drivers work when LLISTing 
programs although they're not needed 
for this. 

The advantages of my printer 
drivers for graphics are speed and 
simplicity. For example, in executing a 
Basic program called The Mirror, the 
old POKE routine took nine minutes 
to print its design. Converted to use 
printer driver 5, the program is half 
the length and prints the design in 2 



minutes and 15 seconds — a 75 percent 
time reduction. 

Last Program 

Program Listing 6 is a Basic loader 
for any printer driver. I set it to load 
printer driver 5 into memory. To 
change it, put all data in hexadecimal 
form on line 120. I use hexadecimal 
because the assembler uses it. The re- 
mainder of the program converts the 
data and POKEs it into memory start- 
ing at 1 657 1 . Lines 2 1 and 220 change 
the device control block to link into the 
new printer driver. To change the loca- 
tion, change lines 135, 210 and 220. ■ 

Boh Boolhe is majoring in Com- 
puter Science at the University of Cal- 
ifornia at San Diego. He can be reached 
at 465} Browndeer Lane, Rolling Hills 
Estates, CA 90274. 





00100 


jPROGRAK 5 PRINTER DRIVER THAT 


GETS CHARACT 


ER FROM STACK 
















00110 


; 


***** 


THIS IS THE 


BEST 


O^E ***** 




00120 


;DOES 


NOT WORK 


OUTSIDE OF 


BASIC 


(EDTASM, JKL 


4026 


00130 




ORG 


16422 




; DRIVER ADDR 


ESS 














4026 BB40 


00140 




DEFW 


START 




; LATCH IN NE 


W DRIVER 














40BB 


00150 




ORG 


16571 




;NICE BIG PL 


ACE TO PUT IT 














40BB 21E837 


00160 


START 


LD 


HL,37E8H 




;LINE PRINTE 


R ADDRESS 














40BE CB7E 

S 

40C0 20FC 


00170 


LOOP 


BIT 


7,(HL) 




; CHECK STATU 


00180 




JR 


NZ,L00P 




;L00P UNTIL 


READY 














40C2 211100 


00190 




LD 


HL,17 




;ADD 17 TO S 


TACK POINTER 














40C5 39 

L 

40C6 7E 


00200 




ADD 


HL,SP 




; RESULT IN H 


00210 




LD 


A, (HL) 




;GET ORIGIAN 


AL BYTE 














40C7 32E837 


00220 




LD 


{37E8H) ,A 




;SEND IT TO 


THE PRINTER 














40CA C9 


00230 




RET 








0000 


00240 




END 








00000 TOTAL ERRORS 


















PrDiirain LisHrifi 5 







100 


REM LOADER PROGRAM FOR ANY PRINTER DRIVER 


110 


REM PUT DATA IN HEXIDECIMAL FORM IN LINE 120 


120 


DATA 21E837CB7E20FC211100397E32E837C9 


125 


REM EXAMPLE IS PRINTER DRIVER 5 


130 


READ BS 


135 


A=16571 


140 


FOR P = 1 TO LEN[BS) STEP 2 


150 


B-ASC(MID$(B$,P,1) )-48 


160 


IF B>9 THEN B=B-7 


170 


T-ASC(MID$(BS,P+1,1) ) -48 


180 


IF T>9 THEN T=T-7 


190 


POKE A,B*16+T 


195 


A=A+1 


200 


NEXT P 


, 210 


POKE 16422,187 


220 


POKE 16423,64 


230 


END 




Program List in a 6 
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From Wayne Green, Inc.— publishers of 80 Micro, Microcomputing and Desktop 

Computing— ^ 

comes ^P^^^^^ inCider premiers this winter and will expand the 

limits of your Apple like 80 Micro has blown 
the lid off the TRS-80. 




Not just another Apple inagazine-but a com- 
prehensive system specific monthly filled 
with. . . 

•programs 

•software applications 

•hardware modifications 

•reviews 

• new product announcements 

• advertising 
•tutorials 
•games 

. . . written b\' technically competent editors 
and columnists. inCider is designed to pro- 
vide you with the newest and best for your 
Apple. 

Want to know the easiest way to get the kinks 
f)ut of your programs? inCider will show you. 
Want to know which peripherals have the 
best histor)' and the bri^test future? inCider 
will tell you. Want to expand your knowledge 




of hardware? Or become an expert program- 
mer? Want to discover which word proces- 
sors give you the most for your money? Or 
how your Apple can better manage your 
financial affairs? inCider will answer these 
and many other questions each month. 

The inaugural issue of inCider will be avail- 
able in early December. And you can become 
a Charter Subscriber to inCider for onlv 
$19.97! Fill out the attached reply card and 
drop it in the mail, or use the coupon below. 
Or call toll free 

1-800-258-5473 
And here's a special bonus offer: enclose pay- 
ment (check or credit card §) with your order 
and you'll receive a 13th issue of inCider ab- 
solutely free! 

Be an inCider and get more useable informa- 
tion for your Apple than you ever dreamed 
possible. 
Subscribe to inCider today. 

"Apple is a trademark of Apple Computer Inc. 



"^r 



D CHKCK 

Cartl# 



ES, I want to be an inCider. Send me 12 issues for only $19.97. 

MC D VISA D AE Q BILL ME D I have enclosed payment-please put me down for 

my free I3th issue. 



Interbank 

Signature . 
Name 



_Exp. date 



Address. 
City 



_Statc_ 



_Zip_ 



Canada & Menco^.97, 1 year only. US funds 

Foiagn Surfai»$44.97 1 year only, US funds drawn <m U.S. bank 

You will reotive >tiur fiist mii- iii [mi-UXcmtiii- 

inCider 
PO Box 911 
Farmingdale, NY 11737 

32NC8 



80 Micro, November1982 • 195 



FOUR GREAT NAMES 

& ONE TERRIFIC NEWCOMER 

All at One Low, Low Price I 



Scotch 



iF^I 



Ic^Jl 



-i//\. 



BASF \^ibatim shrnnon 



To give you the chance to try 
Shannon Plus, Shannon Magnetics is 
offering a fantastic deal on Scotch, 
Memorex, BASF and Verbatim mini- 
diskettes. Buy one box of Shannon 
Plus for $24.95 and get 2 boxes of 
brand name diskettes for the same 
price. You can't afford to let this 
deal go by! 

Mini Diskettes 

Box of 10 $24.95 minimunn 3 boxes 

Soft-sectored 51/4" double density, single 
sided, mini disks in shrink wrapped boxes of 
ten with jockets, labels and tabs. Fully 
guaranteed for one year against defects. 

Headcleaner Kit 

Reg. 324.95 Now $17.95 

Verifin kit contains two cleaning disks with 
instructions to assure proper operation of all 
types of 5i/4"disk drives. Removes dirt and 
debris which can cause read/write errors 
and lost dote without harsh chemicals. 

Diskette/Headcieaner Combo 

340.90 

Combo special includes any box of 10 
diskettes and Verifin headcleaner kit as 
described above, 

Diskette File Box 

$19.95 

Flipsort file box with capacity for fifty 5 1/4" 

diskettes, 

Tandon Disk Drives for TRS-80 
Model I or Model III 

Single drive with cabinet $269,00 

and power supply 



Sculch ISO ragiSte'edcono name ol 3M 3W CBfiiar 3' PouL MNSSIM. 
MemCTenlsoregistereaDrananamaoftha MetpoiS" CoDO'crion mSanfcOo'a. CA 
BASF js □ reg.swred Otaixl nome □( BASF Systeiris Corporation, SedfQ'O (VIA 01730 
VerDotim is a registered Drand name oHha VerDodm Corpcrorior of Si^nvvale CA 3^03; 



Printer Stilts 

Reg. $14.95 Now $9,95 

Specially priced printer stilts for any desk- 
top microcomputer, Keeps space utilized 
efficiently and promotes organized paper- 
feed systems without brand-name expense, 



Plastic Library Cases 

Holds 10 Diskettes 



$2,95 



Mailing Labels 

Box of 5000 


$15.95 


TYVEK Diskette Jackets 

Package of 100 blank white 
Diskette Boxes 

Package of 25 blank 
white cardboard 


$10.00 

Sio.oo 



Call for Prices on 80 Track and 
Double Sided Diskettes! 

We carry the line of LNW Research 
products, including . . . 

computers. 

expansion interfaces. 

doublers. 

Shannon 
Magnetics 

304 Eiati Street 

Denver, Colorado 80223 ^16 

To order call toll free: 800/525-8419 

Mastercard and Visa welcome 
Checks & Money Order also accepted 
Orders shipped UPS free. 

Colorado residents add 
6V2 per cent sales tax 
Attractive discount to dealers 
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GENERAL 



TRS-80 Labora 




by Wynne Keller 



I 



f you are thinking about purchasing a comput- 
er for your laboratory, this article de- 
scribes the options you may want to consider. 



In 1979, buying a TRS-80 Model I 
was an unorthodox approach to clini- 
cal laboratory management. Since 
then, it has become more widely ac- 
cepted that both private and hospital 
labs can benefit from a microcom- 
puter. Laboratory application soft- 
ware is becoming available, and many 
standardized programs can also be 
used in a lab. A TRS-80 in the lab is a 
cost-efficient management tool. The 
experiences of a small lab that has had 
a TRS-80 for several years may help 
other laboratories considering this pur- 
chase to appreciate the problems and 
benefits that can result. 

The Purchase 

When the laboratory manager of a 
92-bed hospital in Skowhegan, ME, 
approached the administration about 
buying a TRS-80, he already had first- 
hand knowledge of the machines 
through the purchase of one for his 
home. He argued that he could pro- 
gram the machine himself and use it 
for a number of time-consuming lab 
tasks, some of which were being done 
by outside firms for a fee. He also 
pointed out uses in other areas of the 
hospital, and persuaded the adminis- 



tration to try a minimal system. 

The initial equipment consisted of a 
Model I with 32K, one drive, and a 
printer. The system cost about $2,700, 
which in today's market would buy 
considerably more computer power. 

The equipment as purchased soon 
proved to be inadequate. They eventu- 
ally added 16K more memory, another 
disk drive, a lowercase mod, and dou- 
ble density. 

It is impractical to use a one-drive 
system in a laboratory, not only be- 
cause the capacity is small, but also 
because such daily routines as making 
backups are extremely time consuming 
with only one drive. Any lab consider- 
ing a TRS-80 should purchase at least 
two drives, 48K, and preferably double 
density. 

Of course, what I have just de- 
scribed is the standard Model III com- 
puter, and it can be obtained, with a 
dot-matrix printer, for approximately 
the same money as the Skowhegan lab 
spent on their early, limited-capacity 
Model I. 

Use in Other Departments 

A number of other departments in 
the hospital became interested in com- 



puterizing various projects. 

One department that made success- 
ful use of the computer was the busi- 
ness office. Their problem required a 
custom program, but the program was 
often used. An early version of the pro- 
gram written for them, "Procedures 
Pricing, ' ' was published in 80 Micro in 
December, 1981. A version of this pro- 
gram is still being used today. It auto- 
mates price changes, so that when the 
cost of any item in a hospital procedure 
changes, all procedures using that item 
are updated. 

Data Base Managers 

A data base program is very useful 
in a laboratory. This type of program 
stores information of many different 
kinds in a flexible manner, so any data 
may be changed, added, deleted, sorted, 
or printed. All data base programs use 
the words field, record, and file. 

A field is a category of information 
such as the name, the cost, the quan- 
tity. A record contains all the field in- 
formation for one item. For example, 
one record in an inventory might con- 
tain this: rubber bands (name field), $1 
(cost field), 200 (quantity field). Fi- 
nally, a file is the largest unit. All the 
records on a subject are stored in a 
single file on the disk. 

There are two common types of data 
base managers. One is the in-memory 
type, which requires that all records fit 
in the memory of the computer at one 
time. As might be expected, this type 
of data base has a small capacity. The 
other type, random access, uses the 
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^a^= t 



t»-i^ 



I PABSoft I 

Excellence in Technical Software 

LINEAR CIRCUIT ANALYSIS 

DC Analysis $17 

AC Analysis ...$17 

State Variable Analysis $17 

All Three $40 

DIGITAL FILTER DESIGN 

Butterworth&ChebychevI $17 

Chebychev II $17 

Elliptic $17 

AllThree $40 

•Professional Programmers 

• Fast Machine Language 
•Tape or Disk (Specify) 

Tape Assumes Non-DOS System 

For Disk Specify DOS 
•Model t or lil (Specify) 

Minimum 48K RAM 
•Output to Video or Printer or Botfi 
•Catalog Available Nov 82 
•Update PABSoft Software to 

Different Computer for 1/3 

the Price 

PAB Software, Inc. 
P.O. Box 15397 
Fort Wayne, Indiana 46885 ^^^-^ 



disk to file each record as a separate, 

retrievable unit. Tliis type is not depen- 
dent on computer memory, and is the 
most useful type for a laboratory. 

One obvious use of a data base is for 
inventory control, but many more 
fields are needed than were given in the 
example above. Such fields as manu- 
facturer name, product number, re- 
order date, reorder quantity, quantity 
on hand, and price discount might all 
be included. 

This program application has saved 
the lab between $300 and $1,000 per 
month. Keeping track of discount in- 
formation is the key to these savings. 
The laboratory receives many of its 
reagents at discount. These discounts 
are often not reflected in the invoices 
for any particular batch of reagents. 
By checking all invoices with the price 
information in the computer, errors 
are quickly noticed. 

The data base manager is used for 
many other projects, such as mailing 
and slide labels. A data base is even 
used in microbiology to accumulate 
data on changes in the sensitivity of 
microrganisms to antibiotics. 

Another planned use of the data 
base manager is a classification scheme 



ESTATE PLANNING MODEL -^^^M>sM»immmiMm 
SAVE TIME AND MONEY 

by using your TRS-80* Model II, 64 K computer 
for professional estate analysis. 

T^ Marital Deduction Formula Analysis Reports 

analyze six formula bequests for both husband 
and wife for both orders of death. 

^ Estate Tax Return Report computerizes estate 

tax planning for dec;(;dents' estates, 

■tz Client-Ready Reports printed. 

ii State (Ohio) and Federal Taxes computed. 

i^ Free Updates to reflect legislative changes 
for one year. 

* Sold and maintained by author; an aftorney 
and estate planning professional. 

i^ ALREADY REVISED to comply with 1981 

TAX KEDUCTIOK ACT. 

YES, please send me more information on the 
Estate Planning Model. 

Name__ „^ „ . 

Name of Firm . . „___„____ 

Street [ 

City 



State 



Zip 



Mail to: Beard Software Development Co. 
59 Skyline Avenue 
Canfield, Ohio 4440^ -TP^-ufi 



^r1iirii;irk nf T^ndv Rflrlin '^^h^rk 



for autopsies. By entering autopsy 

results in the data base, the pathologist 
hopes to spot statistical trends in the 
frequency of occurrence of disease 
types. All these uses are for a single 
program. Data base programs, be- 
cause of their flexibility, are one of the 
most important software purchases for 
a laboratory. 

Word Processors 

Apart from the obvious uses in such 
areas as correspondence, autopsy 
reports, and personnel job descrip- 
tions, a word processor may also be 
used to create a manual of test pro- 
cedures. All labs maintain such man- 
uals, which are difficult to update. 
With a word processor, all test pro- 
cedures may be typed into the com- 
puter, saved on disk as one or more 
files, and easily corrected and re- 
printed whenever necessary. 

A spelling checker is a useful pro- 
gram to run in conjunction with a word 
processor. Choose one capable of 
learning the specialized vocabulary 
that laboratory work requires. One 
final note on word processors: If the 
medical records department ever dis- 
covers you have one, you may never 
see your computer again. 

VisiCalc 

The third general-purpose program 

is VisiCalc. When discussing data bases 
and word processors, I did not men- 
iion the names of any particular prod- 
uct because there are many good ones 
and it would be unfair to single out one 
or two. There is, however, only one 
VisiCalc. It is a unique fmancial man- 
;;gement tool. The Skowhegan lab cur- 
rently uses it at the end of the year to 
evaluate the workload data. 

The program allows a lab manager 
lo take a hard look at personnel pro- 
ductivity in the current year as opposed 
to prior years. At budget preparation 
time, VisiCalc helps the manager 
predict future needs based on current 
growth rates. The comptroller for the 
hospital used VisiCalc constantly for a 
month to prepare the budget. 

As consultants for laboratories, we 
have sometimes been asked to write 
custom programs for various applica- 
tions. Some of these problems don't 
need a specialized program; they can 
be solved with VisiCalc. The program 
has tremendous potential, but requires 
a lot of creative thought to be used 
effectively. 

Specialized Programs 

Specialized programs have been 
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.slow coming on the market for labora- 
tories. Three new laboratory programs 
will be released this fall by Downcast 
Digital as part of their new LabMan- 
ager series. The three will be Work- 
load/Finance, Quality Control, and 
Test Pricing. Two others, a program 
•on Blood Gas Analysis and an Inven- 
tory Control program, are planned for 
next year. 

LabManager Workload/Finance is 
a new, more sophisticated version of a 
program that has been on the market 
two years. It stores year-to-date and 
current workload values and quantities 
for inpatient, outpatient, quality con- 
trol, and non-chargeables, and prints a 
complete workload report organized 
by department, with a one-page sum- 
mary. Up to 50 departments are now 
allowed, which means larger hospitals 
can separate data by shifts, with a sub- 
total for each shift. The program in- 
cludes a financial report of revenues 
chaiged for impatient and outpatient tests. 

The LabManager Quality Control 
stores QC data for current month, pre- 
vious month, and year to date. It pro- 
vides continuous display and update of 
the mean, coefficient of variation, 
number of assays, and upper and lower 
limits. It graphs the data using a Levy- 



Jennings plot. It performs precision, 
shift, and trend analysis, and allows 
multiple control levels per test. Reports 
are compatible with the requirements 
of laboratory computer data centers. 
Many labs currently spend much 
money to have quality control done by 
outside firms. This new program could 
help justify the purchase of a computer 
for your lab. 

Test Pricing allows the lab manager 
to rapidly and accurately determine the 
cost of each lest. With this informa- 
tion, he can set test prices at realistic 
levels, and keep prices correct when 
costs change. A calculator mode is in- 
cluded so that various purchasing deci- 
sions can be compared for their effect 
on prices. 

What of the software that is needed 
but not on the market? Serious 
thought should be given to having at 
least one employee trained in Basic 
programming. Many small but very 
useful programs can be written in 
house. Having a programmer on the 
staff is definitely helpful. 

Problems 

Some of the problems encountered 
by the Skowhegan lab have already 
been briefly mentioned. The three big- 



gest have been access to the computer, 
program turnover, and reliability. 
Other problems, such as lack of com- 
puter experience, are rapidly overcome 
as one gains familiarity with the 
machine. 

Access to the computer has been a 
continuous problem, and has increased 
as other departments have also wanted 
to use the machine. In order to facili- 
tate access within the lab, a wheeled 
table was recently purchased. Unfor- 
tunately, the table also made it easier 
for the comptroller to borrow the com- 
puter at budget time. 

The ultimate solution is to persuade 
other departments to buy their own 
computer. Since the first TRS-80 ar- 
rived in 1979, three additional micro- 
computers have been purchased for 
this hospital: an Apple, a Model III, 
and a Hewlett-Packard. (The latter 
was for the comptroller, and is used 
almost exclusively to run VisiCalc. The 
Hewlett-Packard has an advantage 
over the TRS-80 for this application 
because of its greater memory size.) 
Another TRS-80 will also be purchased 
for the lab so that one machine may be 
interfaced with lab equipment with- 
out jeopardizing computer access for 
employees. 
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DOUBLER* 




LATEST TECHNOLOGY 

USING LONG and SHORT 

TERM TIMING CORRiCTlON 
FOR SUPERIOR DATA - 
SEPERATION $99.95 
MD-80 tor tht MDX-2 
DD-80 (or the TRS 80 



the *CURE* 



NOW!! SUPERIOR 
DATA SEPERATION 
FOR MODEL- nis, 
WITH NON- RADIO 
SHACK DISK- 
CONTROLERS 

1 39.95 ••* 



$399P" 



MODEL" in DISK DRIVE KIT 

INCLUDES 

1-40 TRACK 5m« STfP DRIVE 

hMDX-6 Controltr Board with built in "CURE' 

l-POWER SUPPLY, mounting brack»li,and cablos 

^^ NOTHING ELSE NEEDED ^^ 

2ncl Drive internal" $219.00 

-with power supply: case $259.00 



Model -I $18.95 
Character Generator 

UPPER - lower Case 
TRUE DECENDERS 

"eisE.'CHESfNlif'ST.' 
LANCASTER, OHIO 43130 
Ph. 614-687-1019 




.' MICRO-DESIGN » sales and service 

MDX-2 MDX-3 MDX-4 MDX -6 MDX-6 

Board and Manual $74.95 $74.95 $29.95 $49.95 $49.95 

Parts Kit $199.95 $1 69.95 $ 39.95 $ 79.95 $59.95 

Assembled and Tested $399.95 $299.95 $99.95 $159.95 $129.95 

READY TO RUN MODELI , MDX-2 , E/l $469.00 

32k Ram; Disk; Printer; Serial- Modem. Enclosure 
ENCLOSURES for the MDX-2 $45.00 
"^iio Shack , TRS-80 are Trademark AM'ty f\ -i 



y'See List of Advertisers on Page 455 
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Program turnover has been an occa- 
sional problem, from the point of view 
of the employees who had to learn a 
new program method. Data base pro- 
grams have been particularly suscep- 
tible to turnover: Three have been pur- 
chased in a two-year period. Because 
there is a programmer in the lab, it has 
not been necessary to re-enter all the 
data each time a change was made, but 
the programs all use different screen 
and key controls, and employees, espe- 
cially those who don't use the program 
often, may be unable to remember how 
to make a program work. 

In a lab without a programmer, soft- 
ware changes should be approached 
with great caution. Even if the new 
program is better, if it is necessary to 
retype all the data that the old program 
stored, the change may not be worth 
the effort. To a novice it may be hard 
to imagine why anyone would want a 
new program to do the same thing the 
old one did. However, programs today 
are far more sophisticated than yester- 
day's, and such factors as speed, print- 
out sophistication, and ease of opera- 
tion may make a new program a 
worthwhile investment. 

The greatest problem is reliability. 
TRS-80 Model Is are notorious for re- 



booting or freezing up at the worst 
possible moments. Recently a product 
called a Gold Plug has been introduced 
by E.A.P. Company. This simple 
device is soldered to the edge con- 
nectors on the Model I and prevents 
the corrosion that causes freeze-up. 
We have applied Gold Plugs to every 
Model 1 we own and recommend it to 
anyone who suffers from this problem . 
It has (finally) made the Model i a 
reliable machine. 

Any computer may need occasionai 
repairs and down time is a serious 
problem. Ultimately the solution is 
more than one computer. Until that is 
possible, a reasonable intermediate 
step is to have one extra drive, because 
that is the most hkely unit to need re- 
pair. Also, if other departments in the 
hospital buy the same brand of com- 
puter, they can serve as back-ups to 
each other. Such internal consistency 
should be strongly encouraged, not 
just for the equipment, but also 
because employees can share knowl- 
edge they have gained by experience. 

Expansion 

What place will the TRS-80 have in 
the lab's future plans? The next goal is 
to interface a TRS-80 with the Centri- 



fichem. An interface is being made by 
Baker Instruments. 

Many laboratory instruments are 
now being built with an RS-232 port, 
and any such instrument can be easily 
connected to the TRS-80. The manu- 
facturer can often construct an inter- 
face if the RS-232 does not exist. Some- 
companies are providing microcom- 
puters with their equipment. If the 
micro comes with a major instrument 
purchase, it can be used for other pur- 
poses when the instrument is not in 
use. Be certain before making sugh a 
purchase, however, that the computer 
is a brand you want. Very little labora- 
tory software exists, and what there is 
usually runs on the TRS-80 or Apple 
microcomputers. 

Computerizing the Skowhegan lab 
has not always been easy, but it has 
resulted in substantial savings and 
more efficient use of employee time. 
Both the hospital administration and 
the laboratory are pleased with the, 
resuhs and plan to increase the number 
of computers and the breadth of ap- 
plications. ■ 

IVynne Keller, RD I Box 4130, Solon, 

ME 04979, enjoys computing and mineral 
cottecliug. 



J v., 
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aydaylSNOWSMAR 

ay has established itself as the best protection against 
power interruptions to most mini /micro-computers. 

Mayday now has all the features you asked for! 
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MAYDAY * s 
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rport which'teHs computer wheW AC^^rfff ^ 

• High,low and charge LED indicators V; 

• Low battery audibie alarms and UPS shutdflw^i 

• Higfi start up capabiiity for hard disit #^ .j| ^ ■ 

• Zero crossing DC feature that tigii|||t;^ini^y > ^ 
type of computer power suppl;^J^j|{;;i i^g-- 

• New three stage sense circ^p^f^j^p^cts 

from all types of p' '""' 
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MAKE US COMPETITIVE.* 
OUR PEOPLE MAKE US EXPER1S 



Home of the Nation^s Largi 



NEC 8023 

Outstanding Graphics, Print 
Quality & Performance 




144 X 160 dots/inch • Proportional Spacing 

• Lower case descenders • N x 9 dot matrix 

• 8 character sizes • 5 unique alphabets 

• Greek character set • Graphic symbols 

• 100 GPS print speed • Bi-directional logic- 
seeking • Adjustable tractors • Single-sheet 
friction feed • Vertical & horizontai tabbing 

NEC 8023 CP-sll 

Dot Matrix List $785 OvdII 



IDS Prism 80/132 

Affordable Color, Speed 




Dot Resolution Graphics • 9-wire staggered 
printhead • Lowercase decenders • Over 
150 GPS • Bi-directional, iogic-seeking 
" 8 character sizes • 80-132 columns 

• Proportional spacing • Text justifications 

• Optional Color 

Prism SO Base List $999 Of^nll 

Prism 132 Base List $1,299 Ovclll 



Smith-Corona TP-1 

Daisy Wheel Printer For Under $900 




Letter quality • Standard serial or parallel data 
interface • Drop-in ribbon • 144 WPM • Various 
fonts available • Loads paper like typewriter • 
Handles single sheets for forms 



Smith-Corona TP-1 List$895 



$Call 



Televldeo CRT's 

Price, Performance & Reliability 

910.. List $699 SCall 

925 List $995 foHow 

950 List $1195 Prices 



The Epson Series 

High-Quallty Printers 
ata Low Price. 



The Okldata Series 

Hi-Res & TRS 80 Block Graphics 



Other Quality Printers at Red Baron 

List Discount 

Anadex DP-gSOIA $1725 $Call 

Anadex DP-9620A. £1845 ! 'Call 

Anadex WP-6000 $3250 ! >Call 

C.ltoh8510Prowriter. . . . $845 JlCall 

IDS Microprism 480 $799 SCall 

Diablo 630/6 $2995 $2570 

NEC Spinwriter RO 

Serial Parallel 77xx $3055 $2500 

Parallel 35xx $2290 $1900 



Interface Equipment 

Complete Stock of Options. 
Cables and Accessories. 

GRAPPLER + APPLE INTERFACE $1 

CCS APPLE SERIAL Interface & Cable . $1 
ORANGE INTERFACE tor Apple II 

Parallel Interface Board and Cable . . $1 
NOVATION D-CAT 

direct connect modem $1 

Novation Cat Acoustic Coupler SI 

COMPLETE STOCK OF EPSON 

ACCESSORIES $C 

CUSTOIIrt PRINTER CABLES FOB Apple, 

Atari, IBM, TRS 80 (all models) $C, 

HAYES MICROMODEM II $3l 

PRINTER STANDS: Large S< 

Small S: 





Epson MXSO List $645 aa^h 

Epson MX80FT List $745 dL3|l 

Epson MX-100 List $995 

Full Line of Epson Acessories. 



120CPS«9x9Malrix» Bidirectional logic 
seeking printing • Lower case descenders 
• Four print styles • Optional Hi-Res Graphics 

Okidata 82A List $649 

Okidata 83A (w/Tractor) . List $995 



SCall 




Our People, Our Producfe 
Both Are Specialized. 

Red Baron is an organization of compu- 
ter printer specialists. They know the 
capabilities of each printer, and how to 
match one to your exact need. Call tor 
expert consultation today! 



Here's How To Order: 

Phone orders are welcome; same-day shiptnent on 
orders placed before 11:00 a.m. Free use of Master- 
Card and Visa. COD's accepted. Personal checks 
require 2 weeks clearance, Manulacturer's warranty 
included on ail equipment. Prices subject to revision. 
APO/FPO Orders Welcome. 

Call For Free Catalog: 

(800) 854-8275 

CA, AK, HI (714) 630-3322 
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Available . . . 

Dr. Steven E. Mayer, PhD., Industrial Psycnoiogist — Maxi User 




Who can use Maxi Stat? 

Anyone who needs an analysis of statistical data. Maxi Stat has suc- 
cessfjlly replaced dedicated mainframe and time-sharing statistics 
programs for business, financial and marketing researchers, educa- 
tional administrators, hospitals, medical schools and medical 
research facilities, agricultural testing, and social scientists. 

What does it do? 

If you're familiar with SPSS (Statistical Package for the Social 

Sciences) and what it can do on a mainframe, you have a good idea 

of what Maxi Stat will do for your TRS-80. 

Maxi Stat offers many of the best features of SPSS (modified for 

microcomputers) as well as features you can't get in any other 

system, at any price. Maxi Stat is one of the most useful analysis 

packages available — anywhere. 

Read on to discover what this remarkable new tool can do for you . . . 

Maxi Stat offers: 

• menu-driven operation 

• user-created codebook 

• the ability to handle up to 255 variables 

• machine language code allowing speedy data entry 

• fast and easy editing 

• hundreds of tasks performed at one time 

• reports y.ou can custom design for your specific needs 

• ample screen prompts to guide user 

• frequent automatic backup of data to help protect against power 
failures and system crashes 

• all phases of research analysis, including; 

write subfiles 

frequency distribution 

descriptive statistics 

crosstabs & chi-square 

correlation and linear regression 

t-tesl 

multipie linear regression 

analysis of variance 

multiple variable response 

Summary 

See for yourself what hundreds of other professionals have already 
discovered — Maxi Stat is THE solution to your analysis problems, 
and it's never further away than your TRS-80. Pull the plug on your 
time-sharing system and discover the power and convenience of 
Maxi Stat today! 



By David Walonick 

Maxi Stat Is available 
now for TRS-80 Models I 
and III with 2 disk drives, 
48K RAM, and printer. 




$199.95 



L 00 k who's already using it! 

Ijnlv9!3lty of Alaska, Fairbanks, AK. • Florida Hospital, Orlando, FL. • Capital 
Rasearch Services, Topeka, KA. • Center for Financial Studies and 
Development. Claremonl, CA. • U.S. Army Psychological Testing Unit, 
Wahiawa, HI. • University of Nottingham Dept. of Social Administration, 
Noltingham, U.K. • Defense Intelligence School, Washington, D.C. • Dept. of 
Recreation and Park Administration, University of Missouri, Columbia, MO. • 
Children's Hospital of Philadelphia, Philadelphia, PA. • Kingston City Schools, 
Kingston, N.Y. • Universidad de Monterrey, Monterrey, Mexico • University ol 
Michigan, Dept. of Pediatrics, Ann Arbor, Ml. • Kodak Camera (Australia, Asia), 
Coburg, Victoria, Australia • The Williams Group Advertising and P.R., Dallas, 
TX. • Medical College of Pennsylvania, Philadelphia, PA. • Parkway Day 
School, Philadelphia, PA. • University of Illinois, Chicago, IL. • Selkirk Health 
District, Nelson, B.C. Canada • Human Communications Systems, Resion, VA 
• California Research Center, Los Angeles, CA. • WaltRich Marketing 
Consultants, Orlando, FL. • Rutgers University, Piscataway, N.J. • Belhal 
Theological Seminary, Brooklyn Park, MN • Seton Hall University, Stillman 
School of Business, S. Orange, N.J. • Plan-Test Associates, Phoenix, AZ. • 
General Mills Corporation, Minneapolis, MN • Shearson, Hayden Stone 
Investments, Hollywood, CA. • Energy Systems Researct> Institute, Raleigh, 
N-C. * MInniSOta Historical Society, St. Paul, MN. • Purdue University. W, 
Lafayette, ID. • Nova Scotia Agricultural College, Truro, N.S.. Canada • Agrico- 
Chemical Co., Wilmington, DL. • Marketing Associates, Chariotle, N,C. • 
University ot Ottawa, School of Psychology, Ottawa, Ont., Canada • Hock 
House Publishing, Kowioon, Hong Kong • Center tor Applied Social Sciences, 
Boston, MA. • Blake and Dickinson Marketing Research, Manchester, N.H. • 
United Nations. New York, N.Y., and hundreds more! 



Maxi Stat prints many different report styles. 
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ORDER FROM YOUR FAVORITE DEALER or CALL TOLL FREE (800) 327-7172 (ORDERS ONLY PLEASE) 

SHIPPING S HANDLING ARE EXTRA ■ PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

BOX 3435, LONGWOOD, FL 32750, (305) 830-8194 {QUESTIONS} 
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YES NO 




PLEASE ANSWER THESE 5 OUESTIONS 

f 



Do you have 
accessible? . 



information that must be kept organized and 



2. 

3. 



5. 



Do you ever need to perform statistical analyses? 

Would you like to have a tool that will allow you greater flexibility 
in managing your own or your company's money? 

Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 

flexibility, and even interact with a word processor? | 

Do you own or have access to a TRS-80 microcomputer? 




If you answered -yes"' to any of these questions, we can be of assistance to 
you. Our Maxi Series of applications programs are designed to give you maximum 
versatility with a minimum of hassle. These programs were created for business use. 
but you'll find yourself using them for personal applications as well. 

Thorough support — Of course, each program comes with in-depth, user- 
oriented documentation, and is menu-driven to make it easy to use. When necessary, 
the Maxi programs are compatible with each other, and. whenever pertinent, are 
interactive with the major word processing and spreadsheet programs published by 
other manufacturers. Also, we maintain a telephone support line to provide you with 
. any assistance you might require. 



by Dale Kubler 



Maxi Manager 15 a remarkable data base manager Ks fast 
machine language sort complements ds large data storage capacity. 
The sophistication of its data entry, management, and printing capa- 
bilities mahes Maxi Manager a versatile tool (or many applications. 

The program now includes Maxi Utility, which allows you lo 
rescue files on diskettes that have been daruaged by excessive wear or 
misuse and leis you expand, add, or delete fields from an existing data 
base. Let the unmatched capabilities of Maxi Manager handle your 
'^^*- managerrjent/ 

N I < Moa»i m. Minimum t dJsh driv9 required . 012-0196 S149.99 
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by Dale Kubler 



(I «falf 



(Check Register Accounting System) 

Maxi Cras is a system that will computerize check writing, 
recording and analysis (or business and personal finance. The system 
features 223 income and expense accounts, each ol which will handle 

an unlimited number of transactions. Extensive register and report 

printing capabflrties make Maxi CRAS an indispensible tool for 

managing money effectively 

Model I & Modal III. Minimum 2 drives required . 012-0145 $99.05 



by Dale Kubler 



Maxi Mail is a powerful mad list management system thai 
I Is easy to use. 

2. Has virtually unlimited storage capacity. 

3. Interlaces with the major word processors to generate form 
letters and other text, 

4. Prints mailing labels up to four-across in any formal desired 
5 Has virtually unlimited coding capabilities with thirteen fields of 

information for each record, 
Maxi Mail is Ihe most sophisticated user-oriented mail list 
' program available. 
TRfraO iWodei l» only. 2 dfak drins required 012-0148 $99. 9S 
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by David Walonick 



Maxi Stat is the most useful statistical analysis package en the 
market today It was developed to allow maximum flexibility m 
designing customized analysis. Maxi Stat handles the three main 
components of statistical analysis: 

I Complete menu-driven codebook creation and editing, 
2. Menu assisted data entry. 

3 User created conlrol files to describe the statistical analyses to 
be performed and printed out on the variables of your choice 
Model t A Model ill. Minimum 2 driyes required . , 012-0153 S199.95 
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COMPUTER BOOKS FOR BEGINNERS 

Everything you need to get started programming your own personal computer. These tiandy books of programs, and about 
programming, are loaded with easy-to-understand Info for beginners. The books include hundreds of ready-to-type-and-run 
programs as well as hundreds of program-writing tips, tricks, hints, shortcuts, secrets, techniques. We offer books cover- 
ing the 13 most popular computers for beginners: TRS-80 Color Computer, Atari 400, Atari 800, Apple II, Sinclair ZX-81, 
Timex 1000, Micro Ace, \BW Personal Computer, Casio FX-702P pocket computer, Sharp PC-1211 and PC-1500 pocket 
computers and TRS-80 PC-1 and PC-2 pocket computers. 



TRS-80/Sharp/Casio 
Pocket Computers 

99 Tips & Tricks lor the New Pocket Computers, all new programs, using 
tremendous power of TRS-80, PC-2/Sharp PC-1500, LCD graphics, 
prmier/ploiier graptiics. useful business and home software, includes 99 
complele type-and-run programs. learn full range of expanded BASIC, 
128 pages S7.95 

Pocket Computer Programming Made Easy, fasi new. easy read-and- 
learn way lo quickly understand Ihe BASIC programming language how 
to make TRS-80 PC-l/PC-2, Sharp PC-121 1/PC-1500 & Casio FX-702P 
computers work for you. 128pages $8.95 

101 Pocket Computer Programming Tips & Tricks, secrets, hints, short 
cuts, techniques from a master programmer, mcludes 101 ready-to-run 
programs, (or TRS-80 PC-1 and PC-2 and Sharp PC-12n and PC-1500. 
128 pages $7.95 

50 Programs in BASIC lor Home, School & Otiice, useful ready-to-run 
software for PC-1/PC-2/PC-121 l/PC-1500. 96 pages $9.95 

50 MORE Programs in BASIC for Home. School & Ottice, book of tested 
soHware for PC-1/PC-2/PC-121 1/PC-1500, 96 pages $9.95 

Murder in The Mansion and Other Computer Adventures, mystery, space 
adventure, games, 2A programs tor PC-1 /PC-2/PC-121 1 /PC- 1500, 96 
pages S6.95 

35 Practical Programs (or the Casio Pocket Computer, usetui lype and 

run software for the FX-702P 96 pages $8.95 

Atari 400/800 Computers 

101 ATARI Computer Programming Tips & Tricks, learn by doing tn 
siruclion. hints, secrets, shortcuts, techniques for Atari 400 and 800 
computers, includes lOi ready-to-run programs. 128 pages $8.95 

31 New ATARI Computer Programs lor Home. School & Otiice. practical 
lype-and-run sollware for Alan 400 and 800. 96 pages $8,95 

Timex 1000/Sinclair ZX-81 

101 TIMEX 1000/Sinclair ZX-81 Programming Tips & Tricks, secrets 
hints, shortcuts, learn-by-domg instruction, iechniques for the ZX-Si, 
MicroAce and Timex 1000 computers, mcludes 101 ready-to-run pro- 
grams 128 pages $7,95 

37 TIMEX 1000/Sinclair ZX-81 Computer Programs lor Home. School & 
Otiice. practical lype-and-run software lor ZXei Timex 1000 and 
MicroAce 96 pages SB, 95 



TRS-80 Color Computer 

Color Computer Graphics, complete guide loaded with instruction, how to 
make the most of TRS-80 Color Computer video graphics, many complele 
programs, 128 pages $9.95 

The Color Computer Songtjook, 40 favorite pop. folk, classical, seasonal 
songs arranged for play on TRS-80 Color Computer, lype-and-run music 
programs. 96 pages $7.95 

101 Color Computer Programming TipsA Tricks, learn-by-doing instruc- 
tions, hints, secrets, techniques, insights, for TRS-80 Color Computer, 
includes 101 programs 128pages $7.95 

55 Color Computer Programs lor Home. School & Ottice, practical ready 
to-run software, colorful graphics, for TRS-80 Color Computer 128 
pages $9.95 

55 MORE Color Computer Programs lor Home. School & Office handy 
companion volume packed with different uselul type-and-run software, 
colorful gtaphics. for TRS-80 Color Computer, 112 pages $9.95 

My Buttons Are Blue and Other Love Poems Irom the Digital Heart ot An 
Electronic Computer for poetry lovers, computer fans, a high-tech 
classic, 66 heartwarming poems written by a TRS-80 Color Computer, 96 
P^ges $4.95 



Apple Computer 



101 APPLE Computer Programming Tips & Tricks, secrets, hints, in- 
sights 101 ready-lo-run programs for Apple II, 128 pages $8,95 

33 New APPLE Computer Programs tor Home, School & Office, practical 
typeand-run software lor Apple II, 96 pages $8.95 



Program Worksheets 



Tablets of handy printed forms make writing BASIC software 
easy and fun. Customized for computer systems, or use the 
universal form good for any BASIC computer 40-sheet pads. 



Color Computer BASIC Coding Form 
Pocket Computer BASIC Coding Form 
APPLE Computer BASIC Coding Form 
TtMEX/Srnclair BASIC Coding Form 
IBM Personal Computer Coding Form 
ATARI Computer BASIC Coding Form 
Universal BASIC Coding Form 



S2.95 
S2.95 
$2.95 
$2.95 
$2.95 
$2.95 
$2.95 



Order direct from this ad. Send check, money order, or MasterCard or VISA account number and expiration date. Include SI 
shipping for each item ordered up to a maximum of S3. Or write tor our free catalog. Mail to: 

ARCsoft Publishers 

Post Office Box 132 L 
Woodsboro, Maryland 21798 

(301) 663-4444 

Cuslomers wanting airmail send S4 postage per iiem orcJereO Foreign cusiomers pay in U S dollars Maryland residents add 5% sales lax Sorry, no COD ►'6 
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by John D. Fowler, Jr. 




as gravity got you down? Here's a program 
that lets you use your 80 to explore Sir 
Isaac Newton's basic laws of gravitation. 



Want to create your own star system? 
How about three sun?, orbiting a soli- 
tary planet? Or twin planets orbiting 
each other while moving around a single 
sun? Or. . . 

Your computer can calculate orbits 
like the big machines at NASA. And 
you can actually try out the systems 
mentioned above, or any others you 
might think of. 

Astrodynamics is the study of how 
objects move under the influence of 
gravity. This includes planets, comets, 
asteroids, space probes, moons, gal- 
axies, and the apple that fell on Sir Isaac 
Newton's head. 

Orbital mechanics has allowed 
NASA scientists to predict the motions 
of space probes with great accuracy. To 
land a spacecraft on Mars, for instance, 
you must know not only where Mars 
will be at the right time, but also how 
the path of the probe itself will be af- 
fected as it nears the target. The regular- 
ity of planetary motions, along with 



The Key Box 

Color Computer 
16K RAM 
Extended Color Basic 



centuries of celestial observation, have 
led to precise predictions of their posi- 
tions in the sky. Detailed orbits of mul- 
tibody systems, however, require nu- 
merical calculations. 

The problem of the motion of two 
bodies under the force of mutual gravi- 
tational attraction can be solved exact- 
ly. The path of one relative to the other 
is an ellipse, a parabola, or a hyperbola. 
The size and type are determined by the 
starling positions and relative velocities 
of the two objects. Bodies that are in 
closed orbits travel in ellipses. An object 
that has just achieved escape velocity 
takes a parabolic path, and faster ob- 
jects travel on hyperbolas. 

The three-or-more-body problem has 
no exact solution. There is no equation 
that can be written to describe the mo- 
lion of three or more bodies under grav- 
itational attraction, except for a few 
special cases. The only way to get a so- 
lution for more than two objects is by 
number-crunching numerical calcula- 
tions. Enter the computer. 

We need a law — the law that governs 
the motions of objects under mutual 
gravitational attraction. Notice thai I 
said "mutual gravitational attraction. " 
Why not repulsion? Anything with 
mass possesses an attraction for every- 
thing else with mass. Usually the force 
of attraction is so small as to be unno- 



ticed. The exceptions are large objects, 

such as planets or stars. 

The law that describes this basic, uni- 
versal interaction between matter was 
discovered by Sir Isaac Newton. The 
law says that the force between two 
bodies due to gravity is attractive, and is 
proportional to the product of their 
masses and the inverse of the square of 
the distance separating them. The for- 
mula is Equation 1: 

F = Gm,mi/r' 

The symbol Ci is the constant of pro- 
portionality. It is called the universal 
gravitational constant because it is be- 
lieved to have the same value every- 
where in the universe. The numerical 
value of G depends on which system of 
units you use. Several systems, with cor- 
responding values of G, are shown in 
Table 1. Notice that G is quite small. 
This is why gravitational forces are ap- 
parent only between objects where at 
least one has an extremely large mass. 

The force F can also be made large by 
making the distance of separation, r, 
very small. 

The Universal Law of Gravitation is 
formulated in terms of interactions be- 
tween pairs of objects only. So what do 
we do if we have three or more objects? 
If we have, say, a sun, a planet, and a 
comet (call them S, P, and C), you can 
apply the law to the system one pair at a 
time and then add the resulting forces 
on each object. In our example, we have 
the interactions: sun and planet (SP), 
sun and comet (SC), planet and comet 
(PC), planet and sun (PS), comet and 
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sun (CS), and comet and planet (CP). 
The sum of forces on the comet, for in- 
stance, is CP + CS. The sum of forces 
on the sum is SP + SC, and the sum on 
the planet is PS + PC. In general, for a 
system of N objects there will be N-1 
pairs of forces for each object, for a 
total of N*(N-1) pairs of forces repre- 
senting the sum of all forces between all 
pairs of objects in the system. 

Only half these pairs have to be calcu- 
lated, however, due to another handy 
law from Sir Isaac. But first, you have 
to learn how to go from the Law of 
Gravitation to the actual description 
of the orbits or trajectories of the ob- 
jects in the system. For this you must 
use the formidable-sounding process of 
numerical integration of the equations 
of motion. 

Let's go back and sample a few more 
of Newton's Laws. The first law says 
that an object will move in a straight 
line at constant speed until acted on by 
an outside force— an object won't 
change its direction or speed unless it is 
pushed or pulled on. The second law, 
which deals with the pushing and pull- 
ing, says that the acceleration of an ob- 
ject is proportional to its force: F = ma 
(Equation 2), where m is the mass of the 
object. {No one has ever proved that 
this mass, which is called the inertial 
mass, is the same as the mass used in 
Equation 1, which is the gravitational 
mass, but they are believed to be the 
same.) 

So, if we know the force on an object 
(Equation 1), we can use Equation 2 to 
fmd the acceleration by dividing both 



sides by the object's mass. Combining 
Equation 2 and Equation I, the ac- 
celeration due to gravity on object 1 due 

to object 2 is: 

a = F,:/ni ^Gm;/r' 

F| 2 is the force on object 1 due to object 
2. Newton's third law slates that for 
every action there is an equal and oppo- 
site reaction. From this law, you can in- 
fer something about the force on object 
2 due to object 1 , namely that: 

Thus, when you calculate the force 
on object 1 due to object 2, you also 
automatically know the force on object 
2 due to object 1 : It is equal but with the 
opposite sign. You can use this infor- 
mation to reduce the calculational 
burden on the program. When half the 
forces have been calculated, the other 
half are known. 

Once you know the acceleration, the 
next step is to find the object's velocity. 
If the acceleration is constant over the 
time interval t, the object's velocity at 
the end of that interval is Equation 3: 

v^v^ + at 

where v^, is the velocity at the start of the 
interval. Another way to put it is that 
the change in velocity (v-v„) equals the 
product of acceleration and the time in- 
terval. 

Remember, though, that for this for- 
mula to be valid, the acceleration must 



Sel of 
Unils 


Mas^ 
Unit 


Unit 


Velocity 
Unil 


"lime 
Unit 


(iravilational 

( onstani, fi 

(Uinil) 


inks 


1 kilogiam 

Ikg) 


1 meler 
(rn) 


1 meter/ 
second (m/.s) 


1 second 
(^) 


6.67E-11 
(nv/s^-kg) 


I'ps 


1 pound 
(lb) 


i foot 

(fl) 


1 foot/ 

second (ft 's) 


1 second 

(>■) 


1 .07l',-9 
(ft'/s--lb) 


ALl-LM- 


1 Earth 

Mass (EM) 
5.98E24kg 


1 Astrono- 
mical IJiiil 

(AU) 
1.496EII 111 


1 AU Temp 
29.770 m/s 


1 "I'emp 

( l"c) 
5.0251:6 s 


3.01 E-6 

(AUVTe^-EM) 


Table I. Units for input data and gravitational constant. A consistent set of length-mass-iime 
units must be chosen to use the formulas developed in this article. Several sets are presented 
above, with corresponding values of the gravitational constant G. (You should place the appro- 
priate value for G in line 40 of Ike program.) The first set is based on the widely usedmeter-kilo- 
gram-second system used by most scientists. The second set uses the foot-pound-second sys- 
tem. The third set uses the Astronomical Unit-Earth Mass-Temp system. I made up the Temp, 
which is determined so that the Earth 's velocity around the .sun is J A.U. per Temp. The advan- 
tage of this last system is that it allows the use of smaller numbers for input. Bui remember that 
the variable 11 ML (line 320) wilt be in Temps. So picii a line (mks, fps, or AU-EM-Te) and 
stick with it for a given run. 



not change over the time inierval. This 
seems to be a problem because looking 
at Equation 1, as the separation r 
changes, the force changes, and from 
Equation 2, as the force changes, the ac- 
celeration changes. Therefore, we can't 
use Equation 3 to find the velocity, 
right? 

Well, suppose that we made the time 
interval small enough that the accelera- 
tion didn't change much over that inter- 
val. Then the conditions would be ap- 
proximately right. The symbol for this 
small time increment is dt. Correspond- 
ingly, the velocity increment symbol as- 
sociated with the interval dt is dv. Thus, 
Equation 3 becomes dv = a*dt (Equa- 
tion 4). 

All that remains is to get the positions 
from the velocities. For this we use 
Equation 5: 



•dt 



This is just the formula: distance - rate* 
time, with s the position at the end of 
the time inierval dt, s„ the beginning 
position, and v,,^ the average velocity 
(rate) during the interval. To find the 
position, you must know the average 
velocity during the interval. This is giv- 
en by half the sum of the velocities at 
the start of ihe interval and at the end 
(Equation 6): 

Vav = (v-t-Vo)/2 = Vo + dv/2. 

So the average velocity is just the 
starting velocity plus half the velocity 
increment during the interval. Combin- 
ing equations 5, 6, 4, 2, and 1, you final- 
ly get the equation for the position in 
terms of starling separation, position, 
velocity, and mass (Equation 7): 

s = So-hV(,+ '/3a*dt' 

Remember that the acceleration a is 

found by adding all the individual accel- 
erations due to all the other objects in 
the system. For object number 1; 

a, =Fi;/mi +F,!/mi +Fi4/mi + . . . , or 
a =G(m2/^^^-l-m!/^^^-l-mg/r^4+ . . .) 

The symbol r;, denotes the distance be- 
tween object i and object j. 

We have established a chain leading 
from the law of motion, Equation 1, 
down to ihe positions, in Equation 5 or 
7. The only assumption was that the 
time interval dt must be small enough 
that the acceleration is approximately 
constant during that interval. 

To calculate over long time intervals, 
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Now you can run WordStar, SuperCalc, 
SpellGuard, MailMerge and other CP/M 
based software on your TRS-80 Model (II. 

And walk away with incredible savings. 

Memory Merchant's new Shuffleboard 
III is the first and only 64K CP/M 2.2 
system available for your Model Mi. 

SOPHISTICATED DESIGN 

The Shuffleboard Ill's advanced design 
includes 1 6K of RAM, giving your Model 
III the power of full 64K CP/M 2.2, with- 
out interference of the ROM or the 
video memory 

COMPLETE CP/M SYSTEM 

The Shuffleboard III is not a kit, nor a 
skeleton. You will receive a top quality 
high performance system that is shipped 
to you completely assembled, burned-in, 

^ tested and insured with one of the 

2_ industry's best warranties, 

EASY INSTALLATION & USE 

Illustrated step-by-step instructions 
insure fail-safe installation and reliable 
operation. No permanent modifications, 
cut traces or soldering is reguired. 

The Shuffleboard III easily plugs into 
two existing sockets inside your Model III. 
Simple keyboard commands switch 
betw/een CP/M and normal TRS-80 
operation. 

NO RISK TRIAL 

We are so convinced that you will 
be absolutely delighted with your 
Shuffleboard III system that we offer 
a no risk trial. After purchasing the 
Shuffleboard III system, you may return it 
(intact) for any reason within 15 days 
after shipment and we will refund the 
purchase price [less shipping). 

SHIPPED DIRECT FROM STOCK 

The Shuffleboard III is shipped to you 
direct from stock, normally within 48 
hours after receipt of your order 

INTRODUCTORY PRICE 

For a limited time. Memory Merchant 
is offering the Shuffleboard III with CP/M 
2,2 at sn introductory price of only S299. 

1 YEAR LIMITED WARRANTY 

The Shuffleboard Ill's reliability through 
quality controlled production and proven 
performance, has enabled us to offer 
a full I year limited warranty 

HOW TO ORDER 

Please send check, money order, VISA 
or MASTERCHARGE [add ICA #) with 
your Order Sorry no C.O.DJs, Specify 
quantity desired. Shipping and handling 
charge is S5.00 per board (S9.00 outside 
USA & Canada}* California residents 
add 6% or 6V2% Sales Tax where applicable. 
Credit card purchases may be telephoned 
to (415) 483-1008. Order Today! 

OEM and DEALER inquiries invited. 
'Air Mail shipments to Canada & all otfier countries. 



M 



m<z\ 



n% r 



r"^; 



mrcriciri 






14666 Doolittle Dr.,San Leandro,CA 94577 
Telephone (415) 483-1008 ^46i 



Trademarks: Shuffleboard lll/Memoiy Merchant TRS-eO Model Ill/Tandy Cofporatlon; MailMerge; WordStar/ MicroPro; SuperCalc/ Sorcim; SpellGuard/ ISA (nc: CP/M Z,2/Dlgltal Research 

Prices, terms and specifications are subject to cfiange without notice. 



you only have to calculate over a tot of 
small time intervals. The trick is to use 
the newly found velocities and positions 
from the most recent time interval to 
update the starting separations for the 
current time interval. You musl update 
the values of r in Equation 1 from the 
new positions s, and calculate a new 
cycle. You can continue this procedure 
over as many cycles as desired. They 
can add to as long a time interval as 
you wish. 

Before discussing the program, let's 
look at how the separations are updated 
from the new positions that arc calcu- 



lated each time cycle. 

Everything so far has been presented 
in one dimension. Real space has three 
dimensions, usually referred to as x, y, 
and z. The orbits of the two-body prob- 
lem discussed earlier must exist in the 
two dimensions needed to draw an el- 
lipse, parabola, or hyperbola. In what 
follows, consider only two dimensions, 
X and y, because your screen is best at 
displaying two-dimensional images. 
You can generalize the results to three 
dimensions yourself without much 
trouble. 

Every point on a two-dimensional 



10 INPUT "HOW MANY OBJECTS";N 




20 DIM M(N) ,A(N,2) ,S(N,2} ,V(N,2) ,LP(N) 


,LQ{M} 


30 TIME=0 




40 G-6.67E-11 




50 FOR 1=1 TO N 




60 PRINT "MASS OF NUMBER"I"?" 




70 INPUT M(I) 




80 PRINT "X AND Y OF NUMBER"!"?" 




90 INPUT S(I,I) ,S(I,2) 




100 PRINT "VX AND VY OF NUMBER"!"?" 




110 INPUT V(I,1) rV(I,2) 




120 NEXT I 




130 INPUT "SCALE FACTOR FOR X";SX 




140 SY=,85*SX 




150 INPUT "TIME STEP";DT 




160 PMODE 4, 1:PCLS: SCREEN 1,0 




170 GOSUB 360 




180 FOR 1=1 TO N 




190 V(I,1)=V(I,1}-,5*A{I,1)*DT 




200 V{I,2)=V(I,2)-,5*A{I,2)*DT 




210 NEXT I 




220 FOR 1=1 TO N 




230 CX=.5*A(I,1) *DT 




240 CY=.5*A{I,2) *DT 




250 VX=VCI,1}+CX 




260 VY^V(I,2) +CY 




270 S(I,1)=[CX+VX)*DT+S(I,1) 




280 S(I,2)=[CY+VY) *DT+S(I,2) 




290 V(I,1) =VX+CX 




300 V{I,2)=VY-FCY 




310 NEXT I 




320 TIME=TIME+DT 




330 GOSUB 520 




340 GOSUB 360 




350 GOTO 220 / 




360 FOR 1=1 TO N 




370 A(I,1)=0 




380 A(I,2)=0 




390 NEXT I 




400 FOR 1=1 TO N-1 




410 FOR J=I+1 TO N 




420 RD={(S(I,1)-S(J,1) ) "2+(S(I,2}-S(J, 


2])^2) 


430 A1=G*M(J) *{S(J,1)-S(I,1) )/RD 




440 A2=G*M(J)*(S(J,2)-S(I,2))/RD 




450 A{I,1)=A(I,1)+A1 




450 A(I,2)=A{I,2)+A2 




470 A{J,l)=A{J,l)-Al*M(I)/M(J) 




480 A(J,2)=A(J,2)-A2*M(I)/M[J) 




490 NEXT J 




500 NEXT I 




510 RETURN 




520 FOR 1=1 TO N 




530 IF ABS(S(I,1) )>SX THEN 600 




540 IF ABS(S(I,2) )>SY THEN 600 




550 P=127+127*S(I,i)/SX 




560 Q=96+96*S(I,2)/SY 




570 PSET (P,Q,2) 




580 PSET (LP(I) ,LQ(I) ,1) 




590 LP{I)=P:LQ[I)=Q 




600 NEXT I 




610 RETURN 





"1.5 



Program Listing 



surface has two components. You can 
keep track of the positions of the ob- 
jects in our program by calculating thex 
component of position and the y com- 
ponent. Those two components specify 
a point, which is the position of the ob- 
ject. To get the separation between two 
objects in terms of their four-position 
components, you get an x separation 
and a y separation, and apply Pythag- 
oras' theorem. 

The X and y separations are just the 
differences between the corresponding 
components of the two objects. If Xi; is 
the X separation between objects 1 and 
2, and y,: the y separation, then: 

x,.=x,-x, andyi! = y!-y, 

where Xi and y, are the coordinates of 
object 1, and X; and y? are the coordi- 
nates of object 2. The separation is then 
the hypotenuse of the right triangle 
formed by Xn and y,2 (see Fig. 1). Py- 
thagoras' theorem in geometry says that 
the separation, r, is given by the square 
root of the sums of the squares of the 
sides, or; 

l■,: = SQR{x^^ + y^O,o^ 

r,, = SQR((x,-x,r + (y;-y:y). 

So the separations between pairs of ob- 
jects are found from the coordinates for 
the positions using the above formula. 
The components of acceleration are 
found by scaling as follows: 

asi: = a*(X; \-.) and 



av,; = a*(y;-y,) 
r 

where the first equation is the x compo- 
nent of acceleration due to the force be- 
tween objects 1 and 2, and the second 
equation is the y component. 

Program Listing 1 was written for the 
Color Computer, but with the excep- 
tion of the plotting subroutine (lines 
520-610), it should run on other ma- 
chines as well. The doubly subscripted 
variables A, S, and V are the accelera- 
tions, positions, and velocities, respec- 
tively. The second subscript specifies 
the component (1 for x, 2 for y). The 
program asks you to input the number 
of objects and starting positions and 
velocities for each. Remember to use 
consistent units, as shown in Table 1 . If 
you don't use meters, kilograms, and 
seconds, you should change the value of 
G in line 40. 

The program then asks you for a hor- 
izontal scale factor. This is used in the 
plotting subroutine to scale the graph- 
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YOUR TRS-80 
ISN'T SUPPOSE 
I TO DO THIS! 



Wayne Westmoreland and Terry Gilman have done it AGAIN! 

The reviews are saying what Ihe fans liave known ali along: "The Eliminator" and "Armored 
Patrol" are nothing short ol fantastic. Read for yourself. 

Byle Magazine (on Armored Patrol): "A real super job with the graphics." 

Byte Magazine (on The Eliminator): "The best thing to 'happen to the TflS-80 in a long 
time." 

80 Microcomputing (on both): "This is state-of-the-art stuff." 

80 U,S. (on The Eliminator): "The graphics are vastly superior to that of any game 
currently available , - , it is slick, professional, and, without qualification, a blast." 

And now, two new releases — and both are incredible arcade-style games. The TRS-80 
is almost transformed into an arcade machine, performing Arcade Action Graphics(tm) like never 
before. Rear Guard and Sea Dragon are great fun and will provide you with hours of enjoyment. 
Both programs are available now, and all four are compatible with the Alpha Joystick! 




^HMQnED PftTHOL. VouTB in the command seal of ar 
armored asaaull lank Your mission: lo search aul and 
deslroy an attack lores ol deadly lanks and lelHa( robots. 
Will your sktil and advanced technology give you the 
edge Id overcome the odds? 
Armorad Patrol FBilursi: Simulated 3-0 perspective, 
mulliple player oplion. real tiroe, sound and Arcade Ac- 
lion Graplipcstlm] second to none. 




THE ELIMINATOR: Vou're the pilot Ol TfieEliminaloi, an 
atiack class figdier Ihal's squared off against Hordes of 
atlacking alien spacestiips, ll's your speed and 
weaponry versus iheir seemingly endless numbers. Can 
you possibly survive? 

EllmlnalDr Futurei: True Arcade Action Grapnics(lm) 
and sound, "look at^ead" radar function, real lime, ad- 
vancmg play levels, tiyperspace and disruolor tunctions. 



SEA OflAQON; vouTe lie caplain ol tne 
U.S,S. Sea Dragon, a submarine of Ihe 
Skate class. Your mission is to infiltrate a 
dangerous enemy-conlrolled ctiannel. 
Vou must destroy rising underwaler 
mines white ai/oiding wave after wave ol 
addilional dangers, including depth 
charges dropped by ballleships. 
automatic lasers, and deadly enemy at- 
tack bases. You musi successtully light 
an unyielding enemy and an unknown 

undersea channel — and the only options are total victory or a sally 

grave. 

Sm Drigon FBitufii: Arcade Action Graphics(lml and sound. 

29 {!!!) screens ot borizantally scrolling seascape, advancing skill 

levels and two player oplion. Early reviews are outstanding! 




flEAfl GUARD: 
i!H Waves ol Cyborg ships are al- 
tempting to attack your fleet's 
crew pods If they penetrale 
your defenses, they'll kami- 
kaze your fleet The enemy is 
relentless, your crew pods 
weaponless, your lirepowsr 
endless. Are you made of the 
rig hi stuff to successfully 
defend your lleef! FIND OUT NOW! 
Rxr Guard Fsituni: Incredible 3-D scrolling planet- 
scape, sound, Arcade Action Graphlcs(tm), nearly two 
dozen types of enemy craft, two player oplion and run- 
ning high score. 





Prices subject to change withoui notice 
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INTERNATIONAL .19 

a suDsldlaiy of Scott Adanns, Inc. 



To order, see your local dealer. If he does not have the program you want, then 
call 1-800-327-7172 (orders only) or write for our free catalog. 

Publlstied by ADVENTURE INTERNATIONAL 

a subsidiary ol Scott Adams, inc. 
BOX 3435 • LONGWOOD. FL 32750 • (305) 830-8194 



ics. Use a number a little larger than the 
biggest position coordinate input. 
When objects go off the screen, they are 
still calculated. The vertical axis is 
scaled to 85 percent of horizontal in line 
140. This makes circles look round on 
my display. You may need to use a dif- 
ferent scaling factor on yours. 

The last thing you must input is the 
time step. Remember, it has to be small 
enough that not much motion occurs in 
a single time step. If you make it too 
small, the program appears to run very 
slowly. Make it too big and the results 
are not realistic. The best thing to do is 
to try a time step and then run it again 
with a new time step half the old one. If 
the two runs generate nearly identical 
trajectories, then the time step is okay. 
If the two runs look different, then try a 
still smaller time step. 

The subroutine at Une 360 calculates 
the accelerations. The variable RD, 
which is the cube of the separation r, 
can generate overflow errors for suffi- 
ciently large separations. 

The For. . .Next loop at lines 
1 80-210 is executed only once and 
generates velocities half a time step back 
from the input data. 

Lines 220-310 do the updating of 
velocites and positions . The elapsed 
time is also updated, but in this pro- 
gram, it is never used. It is there (line 
320) if you want it. 

In the plotting subroutine, the cur- 
rent position (P,Q) is plotted to the 
background color, so the current posi- 
tion can be seen in a closed orbit. Then, 
the last point (LP, LQ) is replotted in 
the foreground color. 

Let's run some orbits. All the exam- 
ples here use mks unis, so line 40 
should have G- 6.67E-11. 

The first example is three suns orbit- 
ing a planet in the center with another 
planet outside. The input data is shown 
in Table 3. The planet in the center is an 
example of unstable equilibrium. The 
sum of forces on the center planet adds 
to zero as long as it remains exactly in 
the center. But let it get even slightly off 
center and it is pulled farther outward. 



'i-^i 




This happens when planet 2 wanders in 
and perturbs its position. 

For example 2, assume that two plan- 
ets orbit each other while going around 
their sun. The planets execute two or 
three orbits about each other per year. 

The last example is the Venus fly-by. 
This is an example of an Earth-launched 
probe making a near encounter with the 



planet Venus about four months later. 
Try some examples of your own. Let 
your imagination take rein. Remember, 
the sky's the limit. ■ 

John Fowler Is proprietor of JDF 
Software. He can he reached at 946 
Capulin, Los Alamos, NM 87544. 



Object Mass 


Distance from Sun 


Avera^i' Orbital Veloeilj 




Kilo- 
grams 


Earth 
Mass 


Meters 


Astronomical 
Units 


Vletcrs/ 
Seconds 


AU/Temp 


Sun 


1.97 
E30 


329390 










Mercury 


3.29 
E23 


.055 


5.8E10 


.387 


47,870 


1.608 


Venus 


4.83 
E24 


.807 


1.08E11 


.723 


35,020 


1 . 1 76 


Earth 


5.98 

E24 


1,00 


1,496E1 


1.00 


29.770 


1 


Mars 


6.40 
E23 


.107 


2.28E11 


1.524 


24,130 


.8105 


Jupiter 


1.88 

f:27 


314 


7,78E11 


5.203 


13,060 


.4387 


Saturn 


5.63 
E26 


94.1 


1.43E12 


9.539 


9,650 


.3242 


Uranus 


8.61 
E25 


14.4 


2.87E12 


19-182 


6,8a) 


.2284 


Neptune 


9.99 

E25 


16.7 


4.50E12 


30.058 


5,430 


.1824 


Pluto 


6 

E23 


.1 


5.9E12 


39.5 


4,800 


.1612 


Moon 


7.36 

E22 


.0123 


3.84E8* 


2. 57 
E-3^ 


1,023 


.03436 


*From Earth 

Table 2. Data for our Solar System in mks and AU-EM-Te Units 



fig. I. Components of Separation unci Force 
for Two Objects Under Mutual Gravitationui At- 
fraclion 



Example 1 




Example 2 


Example 3 


Objects = 5 




Objects = 3 


Objects =4 


M1=2E30 




MI=2E30 


M1=2E30 


XI, Y1=2E11,0 




XI, Y1=0, 


XI, YI=0, 


VX!, VY1=0, 200(X) 




VXl, VY!=0, 


VXl, VY1=0, 


M2=2E30 




M2 - 2E27 


M2 = 4.83E24 


X2, Y2--lEn, 1.732E11 


X2, Y2 1.5E11,0 


X2, Y2 = 9.553E!0, -5.08E10 


yX2, VYI= -17320, 


-10000 


VX2, VY2 = 0, 27500 


VX2, VY2- 16440, 30920 


M3 = 2E30 




M3-2E27 


M3=5.98E24 


X3, Y3 - -1E!1, - 1.732E11 


X3, Y3 = 1.6hll,0 


X3, Y3 = 1.496E11,0 


VX3,VY3 = 17320, - 


10000 


VX3. VY3=0, 32500 


VX3,VY3- 0,29770 


M4=1E27 




Scale Factor = 2. 2E11 


M4 = i000 


X4, Y4=0, 




Time Step = 1E5 


X4, Y4-1.49E11, lElO 


VX4, VY4 = 0, 






VX4, VY4 - - 5000, 27200 


M3 = 1E27 






Scale Factors 2. 2E 11 


X5, Y5=0, 5EU 






Time Step = 2E5 


VX5, VY5 = 15000,0 








Scale Factor =7E11 








Time Step =2K6 










Table 3. 


Input Data for Three Examples (See Text) 
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w 



ta 



!b 




SbFT\ 



FOR 



make it easy! Plus Accoijnting 



drven for easy and confiderjt opera: 

sratior 

amazin 

800 



ion for installation and op 
PIbs is easy to buy, we are 
Ccl support package with 
to stay i|p-to-da|e ^nd inlortiied. 



ow 



Sdlect a package for a spec 



fie app 



ication, or get the 

-designed Plus Ac 

Software Package will provide effidisnt, cost-effective 



Ycii canf[De"^^'your professionally 



management for your most qeman: 
business decision today.. .m|ake yqi 



management a Plus. We spiiak yo j ' language 



PUJS FINANCIAL AND AGCOUNfriNG S 
GENERAL [.EpckFr • 
ACCOUNTS PAYABLE 
PAYROLL • EASYTRAK 



At 



Technology, 



Software Package J 
ion. Our extensive 
s easy to u 

inexpensive, 
mber "hot-line" 



:ly 



riu 



packages menu-driven 
dtand alone", or can autoniaticallk' 
Ft(!xible user-defined file sizos for II 
ex:ensive documentation anp thorpiligh installation gu 
Firnished on disc. 



^ach a^ipounting package 
post to General L 
jxibility. Complete 



~™f»LUS PROGRAM AVAILABILIlIt: 

TANDY MODELS II & II 

JHE IBM PERSONAL COMPlUfTER 



/ARE 



Inc. 



are menu-, 
documen-^ 
nderst^nd. And, ■ 
PlustecKni- 
rhakes it easy 



The 



ing needs. Make a sound 



r financial control 



: FTWARE PACKAGE! ; AVAIL^BL^: 
ACCOl ( ^TS RECErVABLS 
FIXE [) ASSETS 
AC 1 IVITY MONITORIliJG SYSTEM 



total system. 

counting 

financial 



and planning 



s available 

3dger. 

with 
de. ' 



SSPLUS 

Computer Technology, Inc. 



PLUS COMPUTER TECHNOLOGY, INC. 

6900 North Austin Avenue — Chicago. IL 60648 

1-312-647-0988 

1-8Q0-323-4240 (Outside lllinots) 

WHAT WE DO FOR YOU IS OUR 
MOST IMPORTANT PRODUCT. 
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How many times 
must your 
TRS-80 stop 
just to talk 
to your printer? 



Your computer talks faster than 
your printer can listen. Expensive 
time is lost forever. SPOOL/64, a 
64k byte hardware print spooler, 
keeps your computer processing 
while vour primer is printing. No 
more waiting. No more wasting. 

SPOOL/64 buffers your print 
output and transmits the 
information to your printer at the 
printer's specific prim rate. It 
buffers up to 13 minutes of print 
output (at 80 characters per 
second). 

SPOOL/64 plugs directly into 
both your printer and 



routines. And SPOOL/64, used 
with your software spooler, can 
give you the highest performance 
spooling available. 






computer, accepts input from 
parallel Centronics cables (serial 
RS-232 available soon), and its 
user programming feature allows 
you to download your own 
programs so SPOOL/64 can 
handle sophisticated print 



SPOOL/64 utilizes 64k of dynamic RAM, a 
Z-80 CPU, a 27 16 ROM and a copy of the 
source program foi" the objeci code in the 
ROM is included. j. 

SPOOL/64, priced at just *S99r 
is the most cost/effective print 
spooler on the market. Evaluate 
performance. Evaluate price. 
Then let SPOOL/64 get your 
computer back talking to you. 
Call or write Apparat today for a 
free brochure. Dealer inquiries 
invited. 
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4401 .So. Tamarac Parkway, Denver, CO 80237 (303) 741-1778 

"ON GOING SUPPORT FOR MICROCOMPUTERS" 
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UTILITY 



Speed up your programs. 




John Heusinkveld 
2161 E. Cerrado Brio 
Tucson, AZ 85718 

Microsoft Basic is a ver- 
satile and powerful 
language, but it executes s-l-o- 
w-l-y. When you want speed, 
there is no substitute for Assem- 
bly language. 

Since I wanted to program my 
computer at the Assembly lan- 
guage level, I wrote a Basic 6809 
assembler. I added an editing 
program, refined the assembler, 
and began writing test pro- 
grams. Program Listing 1 shows 
my editor/assembler program 
for the Color Computer. 

Using the Editor 

To enter the editor, type 
GOTO. The message Cold/ 



The Key Box 

Color Computer 
16K RAIV! 

Extended Color Basic 
Printer Optional 



Warm Start? vj'\\\ be displayed. 
To begin with the text buffer 
empty and all pointers reset, 
type C; to reenter with text and 
pointers as you left them when 
you last exited, type W. Either 
command puts you in the com- 
mand mode, signified by the 
period prompt. 

Editor commands include: 

• Rdn file name — Reads 
lines of text from a device (dn) 
and appends them onto the pro- 
gram in memory, Dn may be zero 
(keyboard) or minus one (cas- 
sette). With cassette, you may 
specify a file name after the de- 
vice number (leave a space be- 
tvi/een them). 

• Ldn file name — Lists the 
program in memory to device dn 
with an optional file name. 
Device numbers zero and minus 
one are the same as in the R 
command, and minus two will 
list to a printer. 

• N — Clears text buffer. 

• P— Lists the program to the 
screen with reference line num- 
bers. These line numbers are not 
used as labels by the assembler. 

• C — Enters the change 
mode. Respond to the prompts 
with the reference number of the 



lineyou wish to change, or press 
enter to return to the command 
mode. The program will display 
the line and allow you to enter 
a new one. 

• I — Asks for the number of 
lines to be inserted and the posi- 
tion to insert them, then allows 
you to type the lines. 

• D— Asks for number of 
lines to be deleted and the posi- 
tion to begin deleting, then de- 
letes these lines. 

• Exit — Returns to Basic 
command mode. Reenter the 
editor with GOTO. 

Use these commands to enter 
Program Listing 2. When you are 
sure there are no errors, type TA. 
This is the trial assembly com- 
mand, and it assembles the pro- 
gram without putting the code 
into memory. Respond to the 
Device? prompt with zero for 
screen or minus two for printer. 
Sit back: The assembly will take 
several minutes. 

First you will see the symbol 
table and then the object code. 
Note that each source-code line 
is listed next to the object code 
it produces. Check the object 
code against Program Listing 
3— it should be the same. If not. 



recheck your work. 

When the assembler works 
properly, enter Program Listing 
4. This time you want the object 
code placed in memory, so type 
A* to assemble the program. 
When assembly is complete, 
type Go. The computer will ask 
for an address at which to begin 
execution. You may use a hexa- 
decimal address prefixed by a$, 
a decimal address, or any label 
from the most recent assembly. 
In this case, type 1536, $600 or 
Start. The screen should fill with 
dollar signs. For comparison. 
Program Listing 5 will do the 
same thing in Basic, but much 
more slowly. 

Limitations 

My assembler is not perfect. 
First, it assembles very slowly; a 
commercial assembler could 
probably assemble all of Pro- 
gram Listing 4 in the time it 
takes mine to assemble one line. 

Although the assembler sup- 
ports the entire 6809 instruction 
set and all addressing modes, 
the indexed modes requiring a 
constant offset are identical in 
syntax regardless of the size of 
the offset; therefore, my assem- 
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THE TRS-80 
USERS JOURNAL 

If you own a TRS-80® Model 

I, Model II, Model III. Color 
Computer or Pocket Computer, 

YOU NEED 
80-U.S. JOURNAL! 

80-U.S. Journal has 

programs for your enjoyment 
and enlightenment. Every 
monthly issue contains several 
BASIC or maclnine language 
program listings. It contains 
business articles and tutorials. 
There is something for YOU in 
80-U.S. Journal 

and . . . 

80-U.S. Journal contains re 
views of hardware and soft- 
ware. Our evaluations and re- 
views will help you to make the 
best choice in selecting addi- 
tions to your system. 

Please sendaHnewH renewal 
subscription to 80-U.S. Jour- 
nal for □ / year ($ 76). D 2 years 
($31), n 3 years (S45J — U.S. 
res/dents only. 

Name _—.. ^__ 



Address 

City 

State__ 



Zip_ 



Visa/MC 
Exp. 



80-U.S. Journal, 3838 S. Warnar 

Street. Tacoma, WA 98409, 

(206) 475 2219 



Dtfalw InquirtM Invftsd 
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Program Listing 1 

PRINT"Cold/Warm START?" 

10 IWS=INKEYS: IFIWS=" "THEN10ELSEIFIW$ = "C"THEN RUN20ELSEIFIW$="W'' 

THEN50ELSE0 

20 CLS:CLEAR100 00:DIMLS(1000) : DEFFNH (X) =INT (X/256) : DEFFNL(X) =X-F 

NH(X) *256 

30 PRINT"TEXT EDITOR" , "VERSION 2" 

40 R$(0)="CC":RS(1)="A":RS(2)=''B":R$[3)="DP":R${4)="X'':RS(5)=''Y" 

:R$(7)="PC":RN5="XyuS" 

50 LINEINPUT". " !C$!lFCS=""THEN50 

60 C1$=LEFT$(C$,1) :IFC1$="R"THEN90 ELSEIFC1$="L"THEN130 ELSEIFCl 

S="N"THENP9=0:L$(0)="":GOTO50 ELSEIFCl $="P"THENl40 ELSEIFCl S="C" 

THEN 150 ELSEIFC1?="I"THEN160 ELSEIFC1$="D"THEN190 ELSEIFC$=''A* " 

THENTA=0:GOTO220 ELSEIFC$="TA"THENTA=1 : GOTO220 

70 IFC$=''GO''THENINPUT"ADDR.'';L4$:L4$-L4$+",'':GOSUB10 00:EXECT:GOT 

050 ELSEIFC$=''EXIT"THENEND 

80 PRINT"?"C$"?" :GOTO50 

90 DV=VAL(MIDS(CS,2)) :0PEN"I",DV,HID${C$,5) !0N ABS(DV)+1 GOTO100 

,110 

100 LINEINPUT">'';L$(P9) ;IFL$(P9) <> "_"THENP9=P9+1 :GOTO100ELSELS (P 

9)="":GOTO50 

110 LINEINPUT#-1,L$(P9) : P9=P9+1 : L$ (P9) =" " : IFNOT EOF ( -1 ) THENGOTOl 

10 

120 CLOSE:GOTO50 

130 DV=VAL {HID S (C$,2) ) : OPEN-O" ,DV,MID$ ( C$ , 5) : FORX=0TOP9-1 : PRINTt 

DV,L$(X) :NEXTX:CLOSE:GOTO50 

140 FORX=0TOP9~1:PRINTUSING"#### " ;X ; : PRINTLS (X) : NEXTX;GOTO50 

150 INPUT"LINE #";CL$:IFCL$=""THEN50ELSEPRINT" "L$ [ VAL ( CLS) ) : LIN 

EINPUT">";L$(VAL(CL$) ) :GOTO150 

160 INPUTXpOSITIONfNO. OF LINES" ; IP , IN 

170 F0RX=P9+IN TOIP+IN STEP-1 : LS (X) =LS (X-IN) : NEXTX : FORX=IP TOIP+ 

IN-li LINEINPUT" >'';LS(X) : NEXTX: P9=P9 + IN 

180 GOTO50 

190 INPUT"POSITION,NO. OF LINES";DP,DN 

200 FORX=DP T0P9-DN:L$(X) =LS(X+DN) :NEXTX:P9=P9-DN 

210 GOTO50 

220 INPUT"DEVICE";DV:LN=0 

230 PRINTSDV, "ASSEMBLER/6 809", "VERSION 1" 

240 PC=0:PS=1:PRINT#DV, "SYMBOL TABLE" : FORLP=0TOP9-1 : L$=L$ (LP) : GO 

SUB260:NEXTLP 

250 PRINT#DV,CHESCi3) "OBJECT CODE" : PC=0 : PS-2 : FORLP=0TOP9-1 : LZ S=" 

":PRINT#DV,HEX$(PC)"!";:LS=L$(LP) : GOSUB260 : PRINT#DV, LZ S ,LS : NEXTL 

P:PRINT#DV,CHR$ (13) :GOTO50 

260 'ASSEMBLE L$ 

270 IFLEFT5(L$,1}="*"THENRETURN 

280 LF=0:F4=0 

290 L1S=LEFT$(L$,7)+" " : L2$=MIDS ( L$, 8 ,5 ) +" " : L3 $=HIDS ( L$ ,13 ,1 ) : L 
4$=HIDS(L$,13)+" " 

300 L1S=LEFT$(L1$,INSTR(L1$," " ) -1) : L2$=LEFT$ ( L2 $ , INSTR ( L2$ , " ") 
-1) :L4S=LEFT$(L4$,INSTR(L4$," ")-l) 

310 IFPS=1THENIFL1$<>""THENLBS(LN)=L1?:LB(LN)=PC:PRINT#DV,L1S"-" 

HEXS(PC) :LN=LN+1 

320 RESTORE 

330 READHN$,M$(1) ,01,MS(2) ,H$(3) ,H5(4) : IFHNS="\-THENL4 $=L4$+" , " : 

GOTO640 

340 IFHN$<>L2STHEN330 

350 AM=0:BT=0jF8=0:F4=0:LF=0 

360 IFL3$="#"THENAM=1ELSEIFL3S="<"THENAM=2ELSEIFL3$="("AND(INSTR 

(L4S,",")=0)THENAM=5:L4$=LEFTSCL4$,LEN(L4S)-1) !M$(5)=M$(3) 

370 IFAH THENL4$=MID$(L4$,2)ELSEIFINSTR(L4S,",')THENAH=3 ELSEAH= 
4 

380 1FMS(AM)=""THENER=1:GOTOI150 ELSEWD=VAL (' S.H"+HS ( AH) ) : GOSUBll 

40 

390 L4$=L4$+" ,■ :IFAH=3THEN460 

400 GOSUB1010:BT=T:WD=TiON AM GOTO430 , 1070 , 1150 , 1100 , 440 

410 ER=2:GOTO1150 

420 'IMMEDIATE MODE 

43 IFO1-^1THEN107 0ELSEIFO1=2THEN1100ELSEER=0!GOTO115 

440 BT=&H9F:GOSUB1060:GOTO1100 

450 'INDEXED MODE 

460 IFL3S=" ("THENL4$=MIDS(L4$,2,LEN(L4S)-3)+",":F4=16 

470 GOSUB980:IFTS<>""THEN540 

480 GOSUB980:T1S=LEFTS(T$,1) :IFLEN(T$) O1THEN510 

490 'NO OFFSET 

500 BT=&H84:GOTO590 

510 IFLEFTS(T$,2)="— "THENBT=&H83:Tl$=HID$(T$,3) :GOTO590 ELSEIFT 

1$="-"THENBT=&H82:T1S=MID${T$,2) :GOTO590 

520 T2$=HID$(T$,2) : IFT2S="+"THENBT-&H80 :GOTO590 ELSEIFT2S="++"TH 

ENBT=&H81:GOTO5 90 

530 'A/B/D OFFSET 

540 IFTS="A"THENBT=&Ha6:GOTO550 ELSEIFTS=''B"THENBT=6,He5 : GOTO550 

ELSEIFTS="D"THENBT=&H8B:GOTO5 50 ELSE56 

550 GOSUB980:T1S=TS:GOTO590 

560 T4$=T$:GOSUB980: IFT$="PCR''THENBT=&H8D OR F4 : GOSUB1060 : F8=l : G 

OTO6 00 

570 BT=&H89:F3=1:T1$=T$ 

580 'SET UP POSTBYTE 

590 GOSUB620:BT=(BT OR Tl*32 ) 0RF4 : GOSUB1070 

Listing 1 Continues 
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Get your TRS-80™ up and running 
with special system & disk drive values like these . . . 



Complete TRS-80 Model lit 
microcomputer system with disk drives 
A.M. Electronics Model III witli48K RAM, two Tandon 
40-track double-density disk drives, A.M. Electronics 
controller board, DOS and manuals, complete and 

ready-to-run! $1895.00 

Model III system as above with AM MX~82 F/T 96 
Column Dot Matrix Printers Add $595.00 

A.M. Electronics "Multiplier" 

Tired of unreliable double density operation? With 
Multiplier, you can upgrade from a single-density 
without doubling your problems . . . -. $99.95 

TeacorTandon SlA-inch disk drives, complete! 

40-track single side disk drive with power supply, case 
and extender cables $275.00 

80-track single side diskdrivewith power supply case 
and extender cables $385.00 

Memory Chips 
16K 200 nanosecond RAM chips $2.25 each 



New! Teac double-head 

5V4-inch 40-track disk drive! 

Complete with power supply, case and extender 

cables $385.00 

New! Tandon "Thinllne" 

8-inch disk drive, complete! 

For TRS-80 Model II, complete with dual case, power 

supply and cables $695.00 

New! Hard disk drives for Model III — 

Ready to plug in and run! (dos extra) 

6.5 Megabyte drive $1995.00 

10 Megabyte drive $2195.00 

13.3 Megabyte drive $2395.00 

Shipping costs additional except where otherwise noted. 

Save $65! 
Teac FD-50E 80-track single-side disk drive 

96 TPI model, complete with case and power supply. 
(Limited time only) Now only $275.00 

Ideal for TRS-80 Model I and other selected computers! 



rrji|A.M. ELECTRONICS 

" ^ " ' THE POWER BEHIND THE DRIVES''^ 
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Ann Arbor: 3446 Washtenaw Ave., Ann Arbor, Ml 48104 (313) 973-2312 Open M-F 10-6 . Telex: .220-821-HPC 
Fowlerville": 111 North Grand, Box 1071, Fowlervilte, Ml 48836 (517) 223-7281 
Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing. 
Wholesale Order Phone: (313) 973-2075 

*Authotized Radio Shack Dealer "TRS-SO trademark Tandy Corp. Prices subject to change without notice. 




THE LNW80. 

ONCE YOU FIND IT, THE REST IS EASY. 

You've heard about the LNW80, It's the new microcomputer 
from LNW Research, and it works harder than even the TRS80. 
But finding one hasn't been that easy, Now, Data Resources 
brings you another first: a ready supply of LNWSOs. 

The LN W80 lets your computer perform like the worlds most 
sophisticated microcomputers. Its 4MHz, Z80A CPU charac- 
teristics more than double your computer's original processing 
speed. It comes complete with double density controller, color 
and b/w, high resolution graphics features, standard R5232 
Port and 48K Ram. And the LNW80 is fully compatible with all 
TRS80 Model I software, giving you the widest available soft- 
ware base to go with your new performance capabilities. 



Processor 

Le'cel II Basic Interp. 

TRS80 Model 1 Level 11 Compatible 

48K Bytes Ram 

Floppy Disk Controller 

Serial RS232 Port 

24x80 Characters 

Upperand Lower Case 

Reverse Video 

Keyboard 

Numeric Key Pad 

B/WGraphics, 128x48 

Hi-Resolution B/W Graphics, 480 x 1 92 

Hi-Resolution Color Graphics (RGB), 

384x1 92 in 8 Colors 
Warranty 





TRS-80 


LNW80 


ModeMII 


40MIIZ 


2.0 MHZ 


yes 


Level 111 


yes ■ 


no 


yes 


no 


sng/dbl 


sng/dbl 


yes 


yes 


yes 


no 


yes 


yes 


yes 


no 


63 Key 


53 Key 


yes 


yes 


yes 


yes 


yes 


no 


yes 


no 



6 Months 90 Days 



Compare our price - just $1695.00, including a free green- 

scrccn monitor and $94.90 worth ol software included free. The 
package includes the DOSPLUS disk operating system, 
MICRO-CLINIC SYSTEM DIAGNOSTICS, and META TECH- 
NOLOGtES AIDS III INFORMATION MANAGEMENT SYSTEf\4, 
tree with the first fifty orders. All orders shipped free. 

LNW System Expansion II . Now $399.95 

for Model I TRS-80 replaces expansion interface! 

Call Toll Free to order 800525-8394 
Visa, MasterCard, checks and money orders accepted. 

Data Resources 

304 Elati Street 
Denver, Colorado 80223 
^15 — =" (303)698-1263 
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600 IFFB THENTS=T4S!GOSUB1B20{WD=T:GOTO1100 ELSERETURN 

610 'GET REGISTER CODE 

620 T1=INSTR1RNS,T1S) : IFT1=0THENER=4 :GOTO1150ELSET1=T1-1 ; RETURN 

630 'INHERENT MODE 

640 READHKS,MS:IFMKS="\"THEN670ELSEIFMNS=L2?THEN650ELSE640 

650 WD=VfiL[''f.H''+HS] :GOTO1140 

660 'RELATIVE BRANCHES 

67 READMNS,HS!lFMNS="\"THEW7 80ELSEIFMNS=L2SORMNS=MIDS(L2 5,2)THE 

N6e0ELSE670 

680 IFL2S="LBRA''THENHS=''16'';LF=1:GOTO700 ELSEIFL2S="LBSR"THEKH$= 

"17'':LF = l!GOTO700 

690 IFLEPTS(L2$,l)=''L''THENL2S=mDS(L2S,2) : LF=1 1 6T=iH10 !GOSUB106 

700 BT=VAL("fiH''+M$) :GOSDB1070 

710 GOSUB1010 

720 BT=T-[PC+1+LF) !lFI.F = 0THEN750 

730 IFBT<0THENWD=65536+BT ELSEWD=BT 

740 GOSUB1090:RET[JRN " 

750 IFBT<0THENBT=BT+256 

760 GOSIIB1070;RETURH 

770 'SPECIAL INSTRUCTIOKE 

780 READMNS,HS:IFMNS="\'THEN910eLSEIFMNS=L2STHEN790BI,SE7 80 

790 BT=VfiL[''S.H''+HS) 1GOSOB1060 

80 IPL2S<>"EXG"ANDMN$<>"TPR''THEKe50 

810 BT=0:GOSUBe20:BT=R*16jGOSUB82fl:BT»BT OH R:GOTO1060 

820 GOSUB970 ' 

830 IFT5="D"THENR=0 ELSEIPT5="X"THENR=1 ELSEIFTS='Y'"EHENR=2 ELSE 

IFTS = 'U''TaENR=3 ELSEIFTS="S"THENR''4i ELSEIPT5"''PC"THENR"5 ELSEIFT 

5-"A''THENR=e ELSEIFT$="B"THENR=9 GLSEIPTS="CC'"rHENR=ie ELSEIFTS"= 

''DP"THENR=11 

840 RETURN 

85 BT=0!lFMIDS(L2$,4,l)i»"U"THENRS(6)="S''BLSEH5(6)="lJ" 

860 GOSUB970:IPT5>^''"THEN900 

870 PORX=0TO7!lFTS=RS(X)THSNBT=BT OB 2"X 

BSB NEXTX 

390 GOTO8S0 

900 GOSUB106 0: RETURN 

910 DE=0' DIRECTIVES 

92 READMKS:DR=DR+I:IFMNS="\°THENER=3iGOTO1150ELSE1FHNS=L2STHEN9 

30ELSE920 

930 ,GOSOB101O:OK DR GOTO 940,550,960 

940 PC=T:RETl]RJv 

950 BT=TiGOSOB1060;GOSUB9 80:IFTS^'"THENRETURN ELSEGOSUB1020 :GOTO 

950 

960 PC=PC+T! RETURN 

970 'GET T5 

980 TS="" 

990 I9=INSTR(L4S,*,") : IFI9 = 0THENRETUEN SLSETS-LEFTS 1L4 S , I 9-1) :L4 

S-KIDStL'lSrlS + l) : RETURN 

1000 'GET OPERAND VALUE 

1010 GOSUB9B0 

10 20 1IS"LEFTS(TS,1) !lFIIS="S"THENTS="f.H"+MIDS[TS,2) :GOTOie40 

1030 IFIIS<"/"ORIIS>'':'THEN1050 

T-VAL(TS) rEETUHN 

FORX=0TOLN!lFT$=LB5(X)THENT=LB(X} : RETURN ELSENEXTX : ER=2 : GOT 



1040 
1050 
0115 
1060 

1070 



'SEND BYTE 
IFPS=lTHEN10f 



ELSELZS=L-^S + STBINGS(2-LEN(iiEXS(BT) ] ,"0")+HEX 



S(BT) :IFTA=0THENROKEPC,BT 



1080 
1090 



112 
113 
114 

115 



lies 
list 



PC = PC-(-l: RETURN 

'SEND WORD 
1100 BT=FNIi[WD) :GO£UB1070 
me BT=FNL(WD) !GOSUB1070 

RETURN 

'SEND WORD OR BYTE 

IFWD<2 56THENBT=WD:GOTO1070 Er,SE1100 

IFPS=1THENRETURN SLSEPBINTiON ER G0T0117 , i 180 , 11 50 
1160 PRINT"UNDEFINED ERROR" ;: GOTO1210 
1170 PRINT"BM) ADDH. MODE" | :GOTO1210 

PRINT-UNDEFINEC LABEL" ; :G0T01 210 

PRINT-BAD MNEHONIC";:GOTO1210 
1200 PRINT-BAD REGISTER- ; iGOTO1210 
1210 PRINT- IK LINE'LPtRETUBN 

1220 DATA ADCA,e9,l,99,A9,B9,ftDCB,C9,l,D9,E9,F9 

1230 DATAADDA,8B,1,9B,AB,BB,ADDB,CB,1,DB,EB,FB,ADDD,C3,2,D3,e3,P 
3 

1240 DATA RNDA,84,1,94,A4,B4,ANDB,C4,1,D4,E4,F4,ANDC,1C,1, , ,-" 
1250 DATA fiSL,, ,08, 68, 76, ASH, , ,07 ,67,77 
1260 DATA BITA,85,1,95,A5,B5,BITB,C5,1,D5,E5,F5 
1270 DATA CLR, , ,0F,6F,7F 

128 DATACHPA,ei,l,91 . Al ,B1 ,CMPB,C1,1 ,D1 ,E1 ,P1,CMPD,1083, 2 , 1093 , 
10A3 ,10B3,CHPS, use, 2, 119C,11AC,11BC,CMPU, 1183, 2,1193, 11A3,11b3, 
CHPX,8C,2,9C,AC,BC,CMPY,10 8C,2,109C,10AC,10BC 

1290 DATA COM,,,03,63,73,DEC,,,0A,6A,7A,INC,,,0C,6C,7C,JMP,,,0E, 
6E,7E,JSR, , ,9D,AD,BD 

1300 DATA LDA,e6,l,96,A6,BG,LDB,C6,l,D6,E6,F6,LDD,CC,2,DC,3C,FC, 
LDE,10CE,2,10DE,10EE,10FF,,I.DE,10CE,2,10DF,,10EE,10FE,LDU,CE,2,DE, 
EE,FE,I.DX,8E,2,9E,AE,BE,LDY,10 8E,2,109E,10AG,ieBE 
1310 DATA LEAS,,,,32,,LEeU,, ,,33,,LBAX,,,,30, ,LEAY, , , ,31,"" 
1320 DATA LSL,,,08,68,78,LSR,,,04,64,74,NEG,,,00,60,7 0,ORA,BA,J, 
9A,AA,BA,OKB,CA,1,DA,EA,FE,ORCC,1A,1,,,,ROL,,,0 9,6 9,79,BOR, ,,06, 
66,76 

1330 DATA STA,,,97,A7,B7,STB, , ,D7 ,E7 ,F7,S1!D, , ,DD,ED,FD,STE, , ,10D 
P,10EF,10FF,STU,,,DF,EF,FP,STX,,,9F,AF,BF,STY,,,109F,10AF,18BF 
1340 DATA SUBA,80,l,90,A0,B0,EUBB,C0,l,D0,Ee,F0,SUBD,83,2,93,A3, 
B3,TST,,,0D,6D,7D 
1350 DATA\,,,,,"" 

1360 DATAASLA,48,ASLB,58,ftSRA,47,ASRB,57,CLRA,4F,CLRB,5F,COHA,43 
,C0HB,53,DAA,19,DECA,4A,DECB,5A,INCA,4C,INCB,SC,LSLA,4 8,LSLB,58, 
LSRA,44,LSRB,5 4,HUL,3D,NEGA,4 0,NEGB,50,NOP,12,POLA,4 9,ROLB,5 9,RO 
RA,46,RORB,56,RTI,3B,RTS,3 9,SG>:,lD,SWI,3F,SHI2,lB3F,SWI3,113F 
1370 DATA SYNC,13.TSTA,4D,TSTB,5D,"\",''' 

1380 DATA BCC,24,BCS,25,BBQ,27,BGE,2C,BGT,2E,BHI,22,BHS,24,BLE,2 
F , BLO ,25, BLS , 23 ,BLT, 2D , BMI , 2B , BNE , 26 ,BPL , 2A , BRA ,20, BRN , 21 , BSR , 8D 
,BVC,2B,BVS.29 
1390 DATAX,'" 

1400 DATA EXG,1E,TFR,1F,PSH5,34,PSHU,36,PULS,35,PULU,37 
1410 DATA \,"" 
1420 DATAORG,FCB,RMB 
1430 DATA"\" 
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TRS-80 Disk 
& Other Mysteries 

by H.C. Pennington 

This book is tine definitive 
authority on data recovery 
for the TRS-80 Modei 1 disk 
system. In almost every case, 
lost data can be recovered 
and this book teils you how 
to do it. From clobbered dir- 
ectories to parity errors, this 
profusely illustrated data 
recovery cookbook includes 
examples and step-by-step 
instructions for both begin- 
ners and professionals, 
132 pages. $22.50 



Microsoft BASIC Decoded 
& Other Mysteries 

by James Farvour 

This book is the only one of 
its kind You will learn how 
the TRS-80 Model I BASIC 
interpreter w/orks from 
power-up to power-down. It 
has the complete disas- 
sembled Microsoft BASIC 
Level I! interpreter with over 
1 3,000 lines of detailed com- 
ments in one volume. The 
math, arithmetic and utility 
routines are fully explained 
with examples on how to use 
them. An incredible learning 
aid for the beginner and a 
valuable reference for the 
professional. 
312 pages. $29.95 



The Custom TRS-80 
& Other Mysteries 

by Dennis Bathory Kitsz. 

A comlete hardware/soft- 
ware how-to-do-it like reverse 
video, high res graphics, aud- 
ible keystrokes, 8-track mass 
storage music synthesizer, 
and real time clock. Dozens 
of project hints, tips, and fixes 
complete with the interface 
software. If you are a begin- 
ner, there are chapters on 
wire-wrap, soldering and con- 
struction methods. If you are 
a professional, there is a 
wealth of technical detail. 
332 pages. $29.95 



BASIC Faster and Better 
& Other Mysteries 

by Lewis Rosenfelder 

BASIC is not nearly as slow 
as you think! This book shows 

you how to make it faster and 
better with techniques and 
tricks that you neverdreamed 
of for Model I, II and III 
disk systems. You won't find 
trivial, poorly designed "check- 
book" programs here- only 
useful BASIC techniques 
and code ready for use in 
YOUR programs. Tutorial for 
the beginner, instructive for 
the advanced, and invaluable 
for the professional. All rou- 
tines are available on disk. 

290 pages. $29.95 



Learn about your TRS-80 computer- it's as easy as 1-2-3-4. These books are easy to read and understand because they are 
written for you by people just like you. Here are answers and solutions without jargon. There are no end of chapter "tests"- no 
incomprehensible math formulas - no textbook explanations - just straightforward, plain English. 

You will learn how to recover "lost data" on disk, how the BASIC interpreter works, how to make BASIC run faster and better, and 
how to modify and interface your TRS-80. In other words, you will learn how to makeyourcomputerdoall the things you want it to 
do. It's as easy as 1-2-3-4, 



Available at computer stores, B. Dalton Booksellers and independent book 
dealers, BASIC Faster and Better is also available at all RADIO SHACK Computer 
Centers and selected RADIO SHACK stores, (Cat. No. 62-1 002) If your dealer is out of 
stocK order direct. Include $4.00 for shipping and handling. Foreign residents add 

$1 1.00 plus purchase price, in U.S. funds. TRS-aO trademark TANDY Corp. 



m 



1953 West 
11th Street 
Upland,CA 
91786 



''A commercial assembler could 

probably assemble all of 

Program Listing 4 in the time it takes 

mine to assemble one line." 



bier always uses a 16-bil offset. 
The code it produces may be 
slightly different from that pro- 
duced by otfier assemblers, but 
it will still function properly. 

In the constant-offset-from- 
PC mode, you will have to calcu- 
late the offset. Relative branch 
offsets are calculated by the 
assembler. 

There are only three direc- 
tives: ORG, FCB and RMB. You 
may define as many bytes as 
you wish with one FCB as long 
as you separate them with com- 
mas. There is no EQU, but it can 
be easily simulated with an ORG 
and an Rf^flB. 

You can see the advantages 
of a commercial assembler. If 



you do a lot of Assembly-lan- 
guage programming, you will 
probably need one. There are 
ways to get around problems, 



however, especially when you 
are typing in a program from a 
magazine. If the code produced 
by my assembler does not 



* TEST 


IHM. 


ADDR. 




LDA 


#S02 


* TEST 


EXT, 


ADDR, 




LDB 


S5768 




LDD 


<$29 


* TEST 


INDXD. ADDR. | 




LDD 


,x 




LDA 


S500,Y 




LDB 


A,Y 




LDY 


,X+ 




STD 


,— Y 




STR 


$3B0,PCR 




STB 


(,X-i"h) 


* TEST 


EXT. 


INDIR ADDR, 




JSR 


($A002) 


* TEST 


REG. 


ADDR. 




TFR 


X,Y 




PSHS 


A,B,PC 


* LABEL 




Ll 


JHP 


Ll 




BEQ 


Ll 




LBEQ 


Ll 


Program 
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ASSEHBLER/6809 


VERSION 1 




SYMBOL TABLE 








ASSEMBLER/6809 


VERSION 1 




SYMBOL TABLE 








Ll = 22 








OBJECT CODE 








0: 


* TEST 


IMM. 


ADDR. 


0:8602 




LDA 


#S02 


2: 


* TEST 


EXT. 


ADDR. 


2:F65768 




LDB 


S5768 


5:DC29 




LDD 


<S29 


7: 


* TEST 


INDXD. ADDR. | 


7:EC84 




LDD 


,x 


9:A6A90500 




LDA 


$500, Y 


D:E6A6 




LDB 


AfY 


F; 10AE80 




LDY 


,x+ 


12:EDA3 




STD 


,— Y 


14:A78D0300 




STA 


$300, PCR 


18:E791 




STB 


(,X-f+) 


lA: 


* TEST 


EXT, 


INDIR ADDR. 


1A:AD9FA002 




JSR 


(SA002) 


IE: 


* TEST 


REG. 


ADDR. 


1E:1F12 




TFR 


X,Y 


20:3486 




PSHS 


A,B,PC 


22: 


* LABEL 




22:7E0022 


Ll 


JHP 


Ll ' 


25!27FB 




BEQ 


Ll 


27:1027FFF7 




LBEQ 


Ll 
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Brand New, Top Quality, Exact Replacement Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life, They Are Delivered to Your Door 

Promptly for Much Less Than Most Retail Stores 

•SPECIAL! BUY 10 and GET ONE FREE! 



TOUR PRINTER 



SNAO:' 9000 Sarisi 

CENTRONICS 700-703,737.779 

CENTRONICS 100, 101A, 102, 
103,300,301,306,308,330, 
358,398,500,501,503,508. 
588, B20. 820 

CENTRONICS 704-705 

DEC Vz I 40YD. 

DEC '/! % BOYD. 

DIABLO HYTYPE II (M/S BLK) HI 
YIELD FITS 70 PRINTERS! 

EPSON MX70.80 

IBM -'SILVER DOLLAR ' Sys. 
34, Sys. 32 MO LA. Series 
IMDL4974, 5256, 3287, 3770, 
3771-3774,4974,5100,5103, 
5110, 5228, 52S6,5320MDIA 

IBM - HARMONICA Vi" SERIES 
I, MOO 4373/11, 3200, 3289, 
MOO 2 

NEC SPINWRI7EH 

QUMt {FITS 80 PRINTER MOOSI 

RAOIO SHACK DAISY WHEEL II 

fiADIU SHACK LPIII, LPV 

HAUIU SHACK LPM. LPIV 

TELETYPF MUD 33, 28, 35. 37. 
38, 88 

WANG M/S 5541W.WC,5581, 
WD, 668 IW, 228 IW 



3/pk 
3/pk 



l/pk 
3/pk 
3,pk 

l/pk 

l.pk 

5/pk 



3/pk 



4/pk 
3/pk 

1 pk 
one, pk 

3/pk 
10/pk 

1/pk 



HOC ?a 
IB 95/3 pk 
2B.33/3 pk 



1E.95 ei 
17.77/3 pk 
20.12/3 pk 

1BO0 ea 

5 8(1 BJ 



23.40/3 cart 
18 00/3 pi< 
24 96/3pk 
13.95/Mn 
18.95/3 pk 
2.40 ea 

6 85 ea 



YDUR WHOLESALE PRICE 



14.00 
11.95/3 pk 
17.55/3 pk 



13.95/Giant Carl 
12.95/3 pk 
1 4.25/3 pk 
BB7 ea 

16.0Bea 

1^90 5 pk 



2085/3 pk 



l!4 no r,i' 
13.98 eal 
15.85 eal 



I ! 3.95 ea/ 
14.32 eal 
14. 75 eal 
16 87 eal 

113 95 ea) 
{2. 98 eal 



(6 95 sal 



23 60/4 pk rb. reload 

13.95/3 pk 
8.2S 
8.35/Reload rib'pnly 

11.95/3 pk 
13.90/10 pk 

5.95 ea 



/5 90 eal 
14 65 sai 
18. 25 eal 
18.95 eal 
13. 98 eal 
I J. 39 eal 

15.95 eal 



500' 
.Sli3" j45' 
1" X 108' 



5.l6"i210' 
1;2". 120' 
1/2" < 180' 
6/1 B" i 
Higli Yield- 
.60O'i60' 
9 IB' .30' 



I.; 
14" 

600" 
663' 

1/2'' 



COMMENTS 



Nvlori Jet BIk 
Wylon Jet BIk 
Nyltin Jet BIk 
5 mil High Speed 



,Gianl Cart 
Double Spoals 
Double Spores 

300.000 plii^ imp 

Nylon Jri Rlk 

Nylon ie\ BIk 



^^lon Jet BIk 



Nylon/El Lng Lifs 
Mullistrike Film 
Mylar MultisirDie 
Nylon Ini^l Instr 
Nykin Jel BIk 
Nylnn Jet Bik 

Mullistrike filir 



z-m 

C 700 

c-mo 



;:-;o45 

ft-BOO 
R-644 

C-S11 

C-522 
R 30n 



H-40Q 
C-525 
C-7B9 
R-T3 
C-/O0 
R-450 

::-5bo 




TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY; C.O.D, (UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD. 
VOLUME DISCOUNTS: 

20 - 50 PACKS 10% 

51-100 PACKS 15% 

'UNDER $20, ADD S5 HANDLING. 
"APPROX. RETAIL. PRICE VARIES. 

ANCIE LABORATORIES 

5:^00-J Philadelphia Way 301-345-6000(Wash,D.C Local) 
Lanham, Maryland 20706 301-792-2060 (Ballo. MD Local] 

800-638-0987 (National) 



NAME. 



ADDRESS. 
CITY 



.STATE. 



ANCIE LaDoratories 
5200-J Philadelphia Way 
Lanham, Maryland 20706 



t-'284 



301-345-6000 (Wa5h D.C Local) 
301-79?-?060 [Ballo MDLocaU 
800-638-0987 (National! 



D Check Enclosed 

D CO.D, 

G VISA 

n MASTER CHARGE 

ACCT, # .._^ ^ 

EXP. DATE 



MIN, ORDER $20 

PRICES SUBJECTTO CHANGE 
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TRS/CLR 

The clock that's turned on... even when you're not! 
Never again enter the time or date with the 
TRS/CLK from 

• Time/ Date always functional . . . even during power 
failures 

• 12/24 hours, minutes, seconds, day, month, year 

* Diskette software included 

* Dates disk automatically 

* Fully software controlled 

• Easy hookup— plugs into any TRS-80' computer 

• Full 2 year warranty 

* UL listed adaptor 



Dealer inquiries invited. 
Price: with display $199.95 
without display $12S 
Unconditional money-back 
guarantee 

Call today 800-631-2165— 
for fast service. 
Or fill out the convenient 
Order Form below and ma: 

'TRS-80 is a registered trademarlt of 
Tandy Corporation. 



* l^-S3-HB 



Kessler-Ellis Products 
pany 

120 FirsI Avenue 

Atlantic Highlands NJ 07716 




imum 



BM^ra^^BI 



'i«?i*s";^';^%iftBS9!raB#Be*^^ 



mmmm 



TO ORDER: specify model, DOS t>pe and version, Plo charge for 

postage in continental U.S. 

Personal ctiectis require two weeks clearance. 

n Please send me . TRS CLK model(s) Indicated. 

fio. 

with display S199.95 $, 

" without display $129,95 $ 

hJ and Cal. add sales tax 

^168 Total S 



n Check 
Card# 



n COD 



n MasterCard 



n Visa 



. Exp. . 



Authorized Signature. 

Pfame ^ ,___ 

Company 

Address^ . 

City _^_^ 

Phone ^__ 



.State. 



-Zip. 



Kessler-Ellis Products Company 120 First Avenue Atlantic Highlands NJ 07716 800-631-2165 



luality Computer 



Presents ... 



lytes for 
Under $3500! 



Our Systems Are Compatible 
with Your . 

TRS-80® Model I II, III, XVI 




and Others 



Now you can expand the capability of 
your microcomputer with cost-effective 
mass storage from QX^S. Our inte- 
grated family of 6-, 1 2-. 20-, and 
40-mi(lion-byte systems lets you operate 
your micro with the speed, convenience, 
and proven reliadility of systems costing 
thousands of dollars more! And as your 
needs grow, QX.S mass storage can 
grow too. You can start with an entry- 
level 6-million-byte system and expand 
80 million bytes ... without scrapping 
your existing programs or operating 
system. 

The completely assembled and 
tested system includes: 

■ Switching power supply 

■ Winchester drive 

■ Host adapter card 

■ Sealed case 



■ Expansion (enclosure, controller, and 
power supply designed for future 
backup hardware or increased storage) 

■ Software 

■ Auto-attach CP/M 

■ Hard disk utilities 

■ Realtime clock 

■ Formatting program (assigns 
alternates for any weak sectors 
detected during formatting^ — assuring 
the lowest possible error rate) 

■ Warranty (a full one-year warranty 
on all parts and workmanship) 

Also available: 

■ Attach program for TRSDOS 
and OASIS 

■ New CP/M dynamic generator: 

configured software; menu-driven for 
6-, 1 2-, 20-, 40-, 80-megabyte drives 



The following systems 
software can be utilized: 

TRS I, III— attach software for DOS 4.0,' 

LDOS 

TRS II, XVI— CP/M Racet for TRSDOS,' 

Turbo DOS, OASIS 

TRS Models II and XVI use 6 Meg for 

CP/M and 6 Meg for TRSDOS 

Apple— CP/M and DOS 3.3 

NEC— CP/M 

S- 1 00— CP/M 

Heath/Zenith— CP/M 

IBM— PC DOS, USCD, etc 

* Available at an addttional cost 

See your local dealer or call: 

^^\^^ ^ Duality 
f ^1 f ^ Computer 

^•Cu^Bleh^irx: Services ^^e 

I 78 Mdin Street. Meiuchen, New Jersey 08840 
Telepho ne: 20 1 /54a-? 1 35 

Toll-free number: |800| 631-5944 

Quantity discounts iivailabie Distnbuior, 
Dealer and OEM inquiries invited. 



ASSEMBLER/6 80£ 


VERSION 1 


SYMBOL TABLE 






hl=22 






STAET=600 






LOOP=605 






OBJECT CODE 






0: 


* TEST 


IMM. ADDR. 


0:8602 




LDA #$02 


2: 


* TEST 


EXT. ADDR. 


2:F65768 




LDB $5768 


5:DC29 




LDD <$29 


7: 


* TEST 


INDXD. ADDR. 


7:EC84 




LDD ,X 


9:A6A90500 




LDA $500, y 


D:E6A6 




LDB A , Y 


F:10AE80 




LDY ,X + 


12:EDA3 




STD r — Y 


14:A78D0300 




STA $300, PCR 


18:E79a 




STB (,X++) 


lA: 


* TEST 


EXT. INDIR ADDR. 


lA:AD9Fft002 




JSR C$A002) 


IE: 


* TEST 


REG. ADDR. 


1E:1F12 




TFR x,y 


20:3486 




PSHS A,B,PC 


22: 


* LABEL 1 


22:7E0022 


LI 


JMP Ll 


25:27FB 




BEQ Ll 


27:1027FPF7 




LBEQ Ll 


2B: 


* FILL 


SCRN. WITH "?" 


2B: 




ORG S6 


600;8E0400 


START 


LDX #540 


603:8664 




LDA #100 


605:A780 


LOOP 


STA ,X+ 


607:8C0600 




CHPX #$600 


60A:26F9 




BNE LOOP 


60C:39 




RTS 


Program Listing 4 



''According to Motorola, 

there are 1,464 instruction/addressing 

mode combinations for 

tfie 6809 microprocessor/' 



match that printed in the article 
(Assembly-language programs 
are almost always printed as the 
object code), just change the 
line to an FCB and specify the 
exact bytes. Most fancy direc- 
tives can be simulated using the 
ones I have supplied. 

This program vi/as developed 
on a 32K computer. If you have 
16K, change the Clear and Di- 
mension statements in line 10 
to fit your system. 

If you have a disk, you should 
be able to save and load source 
code from it using R and L with 
device one (leave two spaces be- 
tween the one and the file 
name). 

To save object code in memo- 
ry to cassette or disk, exit the 
assembler and use CSAVEM or 
SAVEM. Alternatively, you may 

i' See Lisl of Advertisers on Page 455 



convert the code into data state- 
ments as described in my article 

Datagen {80 Micro, June/July 
1982). 

One word of caution: Accord- 
ing lo rvlotorola, there are 1,464 
instruction/addressing mode 
combinations for the 6809 mi- 
croprocessor. I haven't tested 
all 1,464 combinations! If you 
run into difficulty, please con- 
tact me.fl 

John Heusinkveld is a high 
school sophomore. 



10 FORX=1024TO1535 
20 POKEX,100 
30 NEXTX 

Program Listirjg 5 



MEANS 



MM 



:llkii: 



DBMS 

fl Daia Base Fo' All Seasons 

The File Clerk 

lof Ihe 

TRS-80' Models I & III 

VERSION 5 5 
SPECIFICATIONS 

•A mjlti-lealute \u& iiiaridytr 

• Plus a simple data base (mulli-lile data seisl 
■Ud io 20 \jser delired lielfis 

• File tiarOlmg capacity tor uc to IZOOO records 

• Files extend across multiDle diskettes 
•AiHomatic DISK MOUNT tsQuesis 
"Assembly language soMs on single and com 

bined data fields 

■Multiple search /ctiaired parameters 
•Fasi (KSAM) record retrieval on sorted keys 
•Flexible REPORT GENERATOR 
•User titles and pagination 
•Computed Fields 
•140-page MANUAL 

DM65 provides ttiree data management (eaures 

A) A comprenensive lile manager lor detining 
your records data eniry or edit and general 
record reirieval 

B) A tleiible report generator lor mlotmalion 
retrieval 

C) A simple daia tiase is provided lor more ad- 
vanced applications where data sets involv- 
ing tile pairs can be delired 

PRICES: 
l#DB-5l $99|M0Or) 

DB-5III $99|M00III) 

AMS1.0 ' 
Apartment Management 
System 

ElticienI Property Management 
General Ledger Compatibility 
PRODUCT BRIEF 
I Written by a CAP lor his own proqerty maiiage- 
I meni company this menu driven system pro- 
Ivides a practical proven method lor ellicienlly 
Imatiaging rental property 
I REPORTS 

1 LATE RENTS Lists tenants, apl ». amount 
ol rent dje. date rent was due. number ol 
days late, paymenis on account. 

2 VACANT APARTMENTS List apis . descri 
ption ol jnil dale vacated, number ol days 
vacant 

3 SCHEDULE OF RENTS Lists tenants 
names tup to 4 per apt ). type of unit, 
amount of rent and other charges, and the 
last month- rent was paid 

4 SECURITV DEPOSITS Held by apartment 

5 LEASE EXPIRATIONS ot all units in order ot 
expiration 

S RENT INCREASES iisisdateot last increase 
plus curreni information 

7 ALPHABETICAL listing of all tenanf; I'l 
building 

8 MAILING LABELS lor all tenanls 

I This apartment management system is a com- 
plete package designed to promote ease ol 
I management The reports listed can be run at 
lany time so ifiere is'no delay on checking 
Itenanis or obtaining any other information 
I desired 

Requires Model III and 132 column printer 
JMamiains up to 300 UNITS per diskette 

PfllCES 

IdAMS-lll $395 

1 Manual Onlv I 30 

VIEW $29.00 
A SCilEEN FORMATER FOR DBMS 
•Full CURSOR conirol 
•Protected fields 
•User form DESIGN 
•File data entry, inquiry. & edit 
•Elegani & professional took 
•Flashing messages 

•Creates formal and random data files lor OBtns 
•Includes DBMS fast(KSAM| master key 
•View IS a compiled basic program 

• Basic source code is mcluded 



TRS-80 IS a Tm of Radio Shack, Tandy Corp 
NEWOOS80 IS a Tm of Apparat. Inc 
TRS232 IS a Tm ol Small System Software Co 



203 ArdEn Street 
GlenOale Calilcrnia 91203 

(?13t 649-0359 ^-U 



Slaftwari 



; Produces, f pr- ct-ie TRS BQ* 
■■^...v''- Mofcl6ls-t''S (IK- ■ 



SERIAL I/O 
MPR-232 ; 



$1?9.00(MODIi 
$39.00(MODI 

$139.00(MODIII 
S?°00(MOni|i 



fli LASH A seiiai iiu 
put/output interface 
designed for connection 
to the TRS8C Model I with 
or withoul an expansion 
interface 

MPR2321 Specihcalions 
■Ghtcb tree operation 
•Connects with card edge connector 
•Baud rales 75-l9,20[l are switch se(ecl-jD 
•Integral Power Supply ittcluded! 
• May be daisy chained with other MPB 2.'.; 
The MPR 2321 is compatible with Model I soft- 
ware including TSHARE Specify Model I cr Hi 

PRICES: 
#MPR2321 

Assembled and Tested 

PC Board Only 
»MPR232;il 

Assembled and Tested 

PC Board Only 

CSTOCK S79.0D 

A| CSTOCK maintains a securities data fjase 

•Maintains data on up (o 3 stock market indexes I 

•Weekly Stock Data (Price. Vol.. P/E, and Yield) 

•Weekly Stock Option Data (Near. mid. aid] 

Far) 

•Two years of continuous data per stock 

B| CSTOCK is a prolessiona I technical 

analysis tool 
•Stock and market averages, highs, and 

with respect to any time span 
•Linear regression analysis ot Slock behavior | 

versus any ol 3 market indexes. 
■Short term betas computed (stock volatility in i 

terms of market return) 

•Data plotting capabilities for slocks and options I 

C) CSTOCK provides a parametric portlolio 

selection system as an aid in evaluating m- | 

vestment sttalegiBs in relation to risk 

TSHARE 2.0 MULTI-USER 
SYSTEM -^ 



MODELS I & III 



SPECIFICATIONS: 

TSHARE r, ,i multi-tasking ope'dlirg syste ii to' 
two users. Ii ;;jH.:ii;; HskII ;j you: tiEWDOS n- 
TRSOOS SYSTEM TSHARE allov. 
Simultaneous and separate operations tor n- . 
users within a single comoutef 

AVAILABLE USER MEMORY 
ABOVE 7F80 HEX 

•32KTRS-eO 16KFR£t| 

•4BKTHS-80. 32KFREE| 

TIMESHARING MODES; 

•SIMPLEX MODE WitfiTSHAR- 

and 2A Onlv 
•STANDARD MODl Wtli ii' 'iy.it- 

SUPPORT EQUIPMENT 

•One ■ Disf J'ue 
•32K + Memory 
SIMPLEX MODE STANDARD MODE 

•A Printer 'A Terminal 

• Small System 'Radio Sfiack s 
Software s RS-232 ot 

TRS232 interlace Micro Proiects 

■.■:■ ira I MPP 2'^^ 

EXECUTION SPEEO 

STANDARD MODE: 

(Wilhuul Clock Speedup Modsi 

• BENCHMARK exeidiee :;v 2 vr i i.^reoi.- 
users 37 sec 

•BENCHMARK executed once by sta'iCt 
TRS-80 14 sec. 

FEATURES: 

■Type-ahead during Disk I/O (V2.Q Only; 
•Communications between users 
•Concurrent execution of single program 
•Foreground/background task design 
•Address up to two prmiers 
PRICES: 

#TS-13torTRSOOS2 3 $B9(M0DI 

#TS-13forNEWDOS2 1 tB9(M0DI 

STS-2A tor NEWDOS VI 199 (MOD I 

*TS-2BI (or NEWOOS V? 199 (MOD i 

«TS-2Btll for NE'.'.'DOS v: 593 : MOC I 
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TECHNIQUE 



LOAD 80 



Relativity and the 




by Sidney Levin 



Albert Einstein's hundredth birth- 
day in 1979 was duly celebrated by 
many events, including excellent tele- 
vision presenlations and a fascinating 
exhibit at the Smithsonian Museum in 
Washington. 

To appreciate this unique and vener- ■ 
ated giani you need some understand- 
ing of the Special Theory of Relativity, 
the cardinal production of the Miracle 
Year (1905). This brilliant intuitive ex- 
plosion began a new conceptualization 
of nature, particularly with respect to 
light, time, and space. Moreover, as 
our instrumental technology evolves 
into the nuclear and space age, scien- 
tists continue to validate relativity con- 
cepts with each new experiment. 

The germinal ideas of relativity seem 
so contrary to common sense that one 
can waste lime trying lo retrace Ein- 
stein's thought experiments in an ef- 
fort to grasp such astonishing features 
as the unchanging constancy of the ve- 
locity of light, and the amazing time- 
dilation, mass-increase, and length- 
contraction transformations that occur 
in a frame of reference moving at ve- 
locities approaching the speed of light. 

The Program Listing can stimulate 



The Key Box 

Model I or III 
16K RAM 

Level II 



Let your micro strip 
the veils from rela- 
tivity theory and ignite 
your own intuitive fires. 

thinking about these concepts. The an- 
imated graphics utilize a stationary and 



moving photon clock in which a lo- 
and-fro movement of the photon {tick- 
tock) is a unit of time measurement (a 
design of physicist R.P. Feynman). 

Using simple geometry with the Py- 
thagorean Theorem, the relativistic 
constant, A = SQR(1-VVC0, is 
derived. The computer then calculates 
changing mass, length, and time for 



Program Listing 

1 CLS:PRINT:PRINT:PRINT" ** ALBERT EINSTEIN SPECIAL THEORY 

OF RELATIVITY **" 

2 PRINT" PROGRAM BY SIDNEY LEVIN , DEC. 1979" : PRINT 

3 PRINT" THE FIRST PART OF THIS PROGRAM DERIVES THE RELATIVIS 
TIC 

EQtJATION MUCH AS EINSTEIN DTD IN 1905, BUT EMPLOYS AS A MODEL THE 
CONCEPT OF A MOVING CLOCK WHICH EMITS LIGHT PARTICLES ( PHOTONS) 
AT REGULAR INTERVALS." 

4 PRINT" (THIS IDEA IS BY THE U. S. PHYSICIST R. P . FEYNMAN) " 

5 PRINT: PRINT 

6 PRINT" THE SECOND PART OF THE PROGRAM ILLUSTRATES (CALCULATE 
S) 

TRANSFORMATIONS OF TIME, MASS AND LENGTH WITH INCREASING VEL- 
OCITIES (EINSTEIN-LORENTZ TRANSFORMATIONS) ." 

7 PRINT 

8 INPUT" PRESS <ENTER> TO CONTINUE:"; 

9 CLS:PRINT@194,"Y" 

10 PRINT@201,"Y'" 

11 PRINT@214,"< 'FEYNMAN' CLOCK" 

12 FOR X=0 TO 1G0:SET{X,20) :NEXT 
14 FOR Y=0 TO 20:SET(0,Y) : NEXT 
20 FOR X=15 TO 39 

30 SET(X,5) 

40 NEXT 

50 FOR X=15 TO 39:SET(X,15) :NEXT 

60 FOR Y=14 TO 6 STEP-1 

70 SET{27,Y) 

75 FOR N=l TO 50:NEXT 

80 RESET(27,Y) 

85 NEXT 

87 PRINT@500," 'TICK' " 

90 FOR Y-=6 TO 14 

Lisiifif; coniinues 
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any initial values entered. Animation 

repeats at appropriate stages of the un- 
folding program. 

Line 770 sets the final velocity of the 
scrolling display at 185,500 miles per 
second and increments the initial veloc- 
ity in 500-miles-per-second steps. To 
change these, alter the program lines. 
Light velocity (C) and your velocity (V) 
must be expressed in the same units. 

The program requires about 8K of 
memory. 

I was recently demonstrating the 
powers of the TRS-80 to a visiting 
computer science student from MIT 
and we ran through this program. His 
father informs me that when he re- 
turned to Cambridge, he buried him- 
self in a week of reading Einstein and 
relativity! If you get similarly turned 
on, the literature is enormous, but 1 
recommend Einstein for Beginners by 
Joseph Schwartz and Michael McGui- 
ness, (Pantheon, New York). It in- 
spired me to write this program ! 

Happy Birthday, Albert! ■ 

Sidney Levin, a physician, enjoys as- 
tronomy and music. He can be reached 
at 700 25 1 h Avenue, San Francisco, CA 
94121. 



Lisiing cunanued 

92 SET(27,Y} 

94 FOR N= 1 TO 50: NEXT 

96 RESET(27,Y) 

98 NEXT 

100 PRINT^Sflflj-'TOCK' 

116 PRINT" THE FRAME OF REFERENCE OF THE CLOCK (Y') IS NOT MOV 
ING 

IN RELATION TO THE LARGE FRAME (Y) . 

117 PRINT" TO OBSERVERS IN EITHER FRAME OF REFERENCE THE MOVING 

PHOTON TRAVERSES THE SAME DISTANCE (Y'+Y') DURING A SINGLE 
CLOCK CYCLE( 'TICK'-'TOCK') ." 

118 PRINT: INPUT" TYPE R TO REVIEW CLOCK SEQUENCE rTYPE C TO CO 
NTINUE";CH$ 

119 IF CH$-"R" THEN GOTO60 

120 CLS 

122 PRINT:PRINT:PRINT"* THE MOVING PHOTON HAS A CONSTANT VELOC 

ITY,C 

(THE SPEED OF LIGHT) FOR ALL OBSERVERS AND REGARDLESS OF THE 

RELATIVE VELOCITIES OF THEIR FRAMES OF REFERENCE 1 *" 

124 PRINT" THIS DIFFICULT CONCEPT , WHICH EINSTEIN DERIVED F 

ROM 

MAXWELL'S ELECTROMAGNETIC EQUATIONS (AND WHICH IS SUGGESTED BY 

THE MICHELSON-MORLEY EXPERIMENT) LIES AT THE HEART OF THE THEORY 

OF SPECIAL RELATIVITY." 



'DISTANCE'='VELOCITY' X 'TIME' : 

2Y'=(C) X (TIME INTERVAL OF CLOCK CYCLE) 
2Y'=C X T 
T=2Y'/C 



126 PRINT 

128 PRINT" FROM 

130 PRINT" 

132 PRINT" 

134 PRINT" 

136 PRINT 

13 8 INPUT" 

140 CLS 

142 PRINT@448-t-14,"< D 

143 PRINT@192-1-41,"< L" 

144 FOR Y=0 TO 20 : SET ( , Y) : NEXT 

145 FOR X=0 TO 100 : SET(X,20) :NEXT 

147 FOR X=1B TO 3 9 : SET (X , 5) : SET (X , 15) : NEXT 
149 SET(27,14) 



PRESS <ENTER> TO CONTINUE"; 



■>" 



Listing cominues 



Experience the 

Magazine 

of the Future . 



The Programmer's Institute's magnetic magazines 
will entertain, educate, and challenge you. 

Each issue features ready-lo-load programs ranging from 
games, adventures, home applications and utilities to personal 
finance, educational, and our unique teaching programs. Our 
magazines include fully lislablc programs, a newsletter con- 
taining descriptions and instructions for all programs, and notes 
on programming techniques used. 



""Received my first copy 
. . . it's great! Please 
rush to me one of each 
back issue, so I'll have a 
complete set. " 

R.(;., Chicago, 11, 



"jYof only are the games 
fun and the applications 
useful, but the quality of 
the programs is excellent. ' ' 
S.P., Midwest 
Computer Software Sales 



TM 




for the TRS-80 COLOR Exl. Basic 



j ORDERING INFORMATION 1 


Subscriptions* 


Cassette 


Diskette 


Year 


$50.00 


$75.00 


Vi Year 


$30.00 


$45.00 


Tria! Issue $10.00 $15.00 

* Add $2.00 postage and handling. 

ALL SOFTWARE REQUIRES 16K. 



See your local dealer or order direct: 
THE PROGRAMMER'S INSTITUTE 

a division of FUTUREHOUSE 

P.O. BOX 3191, Dt.PT, 1-B 
CHAPEL HILL, NC 27514 



FREE CATALOG AVAILABLE UPON REQUEST. 




VISA 



m 



1-919-489-2198 

10 AM - 9 PM. Mon - Sal 



-See List of Advertisers on Page 455 
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Tired of just 
PEEKing around??? 

The Disassembler 
That Even Tracks 



• Outputs" H37F7 D£FM 'C 

' u£FB ffiH-' ■ i-; 

instead of ttie nieaningless "equiva' 

" f.b'i'i , uP K >■' 

• Automatically idenii^"-' 

• Outputs lully labelec^^ __^ 
display, printer. cassefte'of'(ifisl<T''4ig';-j^, 

" • Retocates itsell to any desired RAM ar^ 
one byte or as many as required? "i^-A, 

• Runs'on trs'-so Model I (Level II) ^^(^0 
16K or more, cassette or disk? . .a-*; ■(''■■' 

To order DllnDflTo ptiditfeaf ' ■''* 
(M-F, 9 a.m. - 5 p.n}. eSI)..i?t ^nd^^. . ,_ , 
ordertor. '■■ift--v"" [~ • ':^. i C'-'' '''■''>'■?' 

#1354-10, (Caa^ftej};;;;:i;Vi;'^^:vi^.V;;--'' 



m^ 




ProlesEional SoltHare (or bolh 
Noike and Eiperl 



Software 



Pro/ Am Software 

■'XO Cardigan Road ,y« 260 

i_.Hnterville. Ohio 4S459 

^e accepi Vfsa'Maslercard 
When □rdenngviatarrtintluae earn ngmDar. 
mlerbank nidnthpr. exfhirdliDrl aale. yuul name 
adaras^ a,id prkone numDei 



SY WHEEL 

PRINTER 



NEW 




LETTER QUALITY 



SMITH-CORONA TP-1 

• Parallel Cenirontcs Interface 
• Serial RS232 Interface 

• 120 Word/min 




MICRO TECHNOLOGY 

78] 7 Ivanhoe Ave., La Jolla, CA 92037 
(714) 457-2149 ^^^e 



Listing continued 




151 


F0RN=1 TO 50: NEXT 




153 


FOR X=15 TO 39:RESET(X,5) :RESET{X,15) :NEXT 




155 


FOR X=19 TO 43:SET{X,5) :SET[X,15) :NEXT 




157 


SET(31,13) 




159 


F0RN=1 TO 50: NEXT 




160 


FOR X=19 TO 43:RESET(X,5) :RESET{X,15) :NEXT 




161 


FOR X=23 TO 47;SET{X,5) :SET(X,15) :NEXT 




163 


SET{35,12) 




165 


F0RN=1 TO 50: NEXT 




167 


FOR X-23 TO 47:RESET(X,5) :RESET(X,15) :NEXT 




169 


FOR X = 27 TO 51 :SET(X,5) :SET(X,15) :NEXT 




171 


SET(39,11) 




173 


FORN-1 TO 50:NEXT 




175 


FOR X = 27 TO 51:RESET(X,5) :RESET(X,15) iNEXT 




177 


FOR X^31 TO 55:SET(X,5) :SET(X,15) :NEXT 




179 


SET(43,10) 




181 


FOR N=l TO 50:NEXT 




183 


FOR X=31 TO 55:RESET(X,5) :RESET(X,15) :NEXT 




185 


FOR X=35 TO 59:SET(X,5) :SET(X,15) :NEXT 




187 


SET(47,9) 




189 


FOR N=l TO 50:NEXT 




191 


FOR X=35 TO 59:RESET(X,5) :RESET(X,15) :NEXT 




193 


FOR X=39 TO 63:SET{X,5) :SET(X,15) :NEXT 




195 


SET(51,8) 




197 


F0RN=1 TO 50:NEXT 




199 


FOR X=39 TO 63:RESET(X,5) :RESET{X,15) :NEXT 




201 


FOR X=43 TO 67:SET{X,5) :SETCX,15) :NEXT 




203 


SET(55,7) 




205 


F0RN=1 TO 50: NEXT 




207 


FOR X=43 TO 67:RESET(X,5) :RESET(X,15) :NEXT 




209 


FOR X=47 TO 71:SET(X,5) :SET(X,15) :NEXT 




211 


SET[59,6) 




213 


F0RN=1 TO 50:NEXT 




215 


FOR X=47 TO 71:RESET(X,5) :RESET(X,15) :NEXT 




217 


F0RX=51 TO 75:SET(X,5) :SET(X,15) :NEXT 




219 


SET(63,7) 




221 


F0RN=1 TO 50:NEXT 




223 


FOR X^Sl TO 75:RESET(X,5) :RESET(X,15) :NEXT 




225 


FOR X=55TO 79:SETCX,5) :SET(X,15) :NEXT 




227 


SET(67,8) 




229 


F0RN=1 TO 50:NEXT 




231 


FOR X=55 TO 79:RESET(X,5) :RESET(X,i5) :NEXT 




233 


FOR X=59 TO 83:SET(X,5) :SET(X,15) :NEXT 




235 


SET (7 1,9) 




237 


F0RN=1 TO 50: NEXT 




239 


FOR X=59 TO 83:RESET(X,5) :RESET(Xrl5) :NEXT 




241 


FOR X-63 TO 87:SET(X,5) :SET(X,15) :NEXT 




243 


SET(75,10) 




245 


FORN^l TO 50:NEXT 




247 


FOR X=63 TO 87:RESET(X,5) :RESETCX,15) :NEXT 




249 


FOR X=67 TO 91:SBT(X,5) :SET(X,15) :NEXT 




251 


SET(79rll) 




253 


FORN=1TO50:NEXT 




255 


FOR X=67 TO 91:RESET(X,5) :RESET(X,15) :NEXT 




257 


FOR X=71 TO 95:SET(X,5) :SET(X,15) :NEXT 




259 


SET(83,12) 




261 


FORN=1TO50:NEXT 




263 


FOR X=71 TO 95:RESET(X,5} :RESET(X,15) :KEXT 




265 


FOR X=75 TO 99:SET(X,5) :SET(X,15) :NEXT 




267 


SET{87,13) 




269 


FORN-1TO50:NEXT 




271 


FORX=75 TO 99:RESET(X,5) :RESET{X,15} :NEXT 




273 


FOR X^79 TO 103:SET(X,5) :SET(X,15) :NEXT 




275 


SET{91,14) 




277 


P0RN=1 TO 50: NEXT 




281 


PRINT@512," 




TO THE OBSERVER IN THE MOVING {CLOCK) FRAME OF REFERENCE THE 


PHOTON DISTANCE REMAINS Y' AS BEFORE. (HE HAS NO WAY TO 


DETERMINE 


WHETHER HE IS STANDING STILL OR MOVING WITH UNIFORM VELOCITY) . 


283 


PRINT" TO THE OBSERVER IN THE LARGE{Y) FRAME, THE 


PHOTON DI 


TANCE IS TWICE THE DIAGONAL L(=2L) DURING THE SINGLE CLOCK 


CYCLE! !" 




285 


INPUT" TYPE R TO REVIEW, C TO CONTINUE" ; CH$ 




287 


IF CH$="R" THEN GOTO 140 




289 


CLS 




291 


PRINT:PRINT:PRINT" THUS, FOR THE STATIONARY OBSERVER, THE TI 


HE 


[NTERVAL 




OF THE MOVING CLOCK MAY BE WRITTEN:" 




293 


PRINT" T(2)=2L/C 




294 


PRINT:PRINT"DURING THIS TIME T(2) ,THE MOVING FRAME 


HAS TRAVE 


LED 


A 




DISTANCE;" 








ii'^rine cominue'^ 
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BASF QUALIMETRIC 

A TOTALLY NEW DIMENSION OF QUALITY. 




qualimetric 




From BASF comes a totally new 
level of excellence in magnetic 
media-the Qualimetric stan- 
dard, a standard so advanced 
that BASF FlexyDisks^ are confi- 
dently bacl<ed by the industry's 
only lifetime warranty. The 
Qualimetric standard is main- 
tained without compromise 
through every step of BASF 
design, production, inspection, 
and testing. ..reflecting an 
unwavering BASF commitment 
to media fidelity and durability. 

Our FlexyDisl< jacl<et, for 
example, incorporates a unique 
two-piece liner that not only 
traps damaging debris away 
from the media surface, but also 
ensures precise media-to-head 
alignment. The result -certified 
100% error-free performance, 
baci<ed by BASF's exclusive life- 
time warranty.* 

For information security, 
tomorrow and beyond, look for 
the distinctive BASF package 
with the Qualimetric seal. Call 
800-343-4600 for the name of 
your nearest supplier. 




Enter tomorrow on 



BASF TODAY 



'ConlacrBASf for warranty details. C l9S2.8A>'Sy-.-- 
^334 



-■■'d.MA 



■BASF 



No Shipping or 
Handling Charges! 



DRIVES TANDON TtiAC 

Bare Complete Bare Complete 

40tkSS $216 $248 $216 $248 

40 Tk DS 289 345 309 359 

80 Tk SS 289 345 309 359 

SOTkDS 379 429 419 459 

MODEMS 

HAYES Smartmodem $229 

HAYES Smarlmodem 1200 559 

HAYES Chfonograph 219 

Signalman Mark IDC... 95 

UDS103OALP 169 

UDS103JLP 205 

PRINTERS 

Lp^oiiMXSOFT $559 

Epson MXlOO 749 

Microline82A 479 

Microlme 83A ... 749 

Microhne84P ... 1099 

ORCHESTRA 85/90 $ 99 

Greatest Hits Vols. 1 & 2 20 

Piano 39 

TIDEWATER DATA SYSTEMS 

14 PARKVIEW AVENUE 

PORTSMOUTH. VIRGINIA 23704 
(804) 397-9636 

All prices discounted for cash. 
Charge orders 4% additional 

Viiyinia Kesidenis Please Add 'i% Sakb Tan 



LOOK.N'; 




SMALL 



SMALLTIME USER'S GROUP 
BULLETIN BOARD 

- $39.95 - --"^ 

• Supportabout?OOUStRS, IDEAL forLOCALCLUBS 

• General, Ctub, and Conlidenliat PASSWORD Prot. 

• LASY, USER ORILN TED, complete UP/DOWN loading 

• AutoConliQ tor N///1, N/8/1, E/7/1, or E/3/1 

• The BELOW TERM/HOST required for BULLETIN 

BOARD 

TERM/HOST VER 1.5 (c)1982 

— $34.95 — 

• HEXTRANSI ATION of HH^blVED&TRANSMITTED 

DATA 

• rRANSMii/HhCEIVED Data Continually Displayed 

• AdjuMahle SPL 1 1 SCREEN EULL DUPLEX Operation 

• BINARY and ASCII FILE Handling Capabilities 

• ASCII (Transparent BINARY File) Handling 

• CONTROL CODE SUPPORT trm KBD or XMIT/RCV 
BUI^EEIi 

• Additional (^ONVI.RSION PROGRAMS are NOT 
REQUIH1.D 

• DISK 01 lAPt to the TRANSMIT/RECEIVE BUFFER 

• TRANSMIT/RECEIVE BUFFER to DISK or TAPE 

• DISK to TAPE or TAPE to DISK ALL File Types 

• AUTOMATIC CLEAN UP ot RECEIVED ASCII Files 

• TEXT SPOOL BUFFER tor VIEWING or PRINTING 

• HOST May Run MACHINE LANGUAGE or BASIC 
Programs 

• HOST You May DOWN LOAO/UP LOAD All FILE 
TYPES in the HOST From Any REMOTE TERMINAL 
or SYSTEM 

• VERSION (Uf« oil MODEL ! 8 3, TAPE or DISK 48K 
CHECK or MONEY ORDER or COD 

Freedom Financial Enleiprises of Washington, Inc. 
3061 Carnage Dr. Raleigh, NC 27612 919-782-9662 



L=C X T(2)/2" 

D/2=VT{2)/2 
y'=CT/2" 

2 



Lisiing conimued 

295 PRINT" D=V X T(2) 

297 PRIIlJT" (WHERE V=THE VELOCITY OF THE MOVING FRAME WITH RESPE 

CT TO THE STATIONARY FRAME)." 

299 PRINT" WE NOW HAVE THE ELEMENTS TO DERIVE THE RELATIVISTIC 
EQUATION! OR CONSTANT) 1 1 1 1 " 

300 PRINTiPRINT: INPUT" PRESS<ENTER>TO CONTINUE:"; 
310 CLS 

312 PRINT" FROM THE PYTHAGOREAN THEOREM:" 

314 PRINT"(1) L[2=(D/2) [2+Y' [2" 

315 PRINT" PREVIOUSLY DERIVED EXPRESSIONS:" 

316 PRINT" (2) T(2)-2L/C OR 
318 PRINT"(3) D-V X T(2) OR 
320 PRINT" (4) T=2YVC OR 
322 PRINT" SUBSTITUTING INTO EXPRESSION 

324 PRINT" (CT(2)/2) [2=(VT(2)/2) [2-KCT/21 

325 PRINT:PRINT 

326 PRINT" SOLVING FOR T(2) WE GET: 

328 PRINT" ** T(2)=T/SQR(1-!V[2/C[2) ) ** 

329 PR1NT:PRINT 

330 INPUT" PRESS <ENTER> TO CONTINUE"; 
332 CLS 

334 PRINT" ** T{2) =T/SQR(1-[V[2/C[2) ) ** 

336 PRINT:PRINT " THIS EQUATION EXPRESSES QUANTITATIVELY TH 
E 'DILATION 

OF TIME' OR SLOWING DOWN OF THE MOVING CLOCK AS ITS VELOCITY 
APPROACHES THAT OF THE SPEED OF LIGHT AS SEEN BY THE STATION- 
ARY OBSERVER." 

338 PRINT" (THERE IS NO CHANGE FOR THE OBSERVER IN THE MOVIN 
G 

FRAME OF REFERENCE)." 
340 PRINT 

342 PRINT" IN PONDERING THIS TYPE OF 'THOUGHT EXPERIMENT ', EINST 
EIN 
HADE THE GREAT LEAP IN CONCEPT BY REALIZING THAT ** TIME ** WAS 

SUSPECT DIFFERENT FOR THE TWO OBSERVERS Mill" 

344 PRINT 

346 INPUT" TYPE R TO REVIEW THIS PROGRAM, C TO CONTINUE" ; CH$ 

347 IF CH$="R" THEN G0T09 
400 CLS 

410 PRINT"THE LORENTZ TRANSFORMATIONS IN EINSTEINIAN RELATIVITY" 

420 PRINT:PRINT 

430 PRINT"THE RELATIVISTIC FACTOR, A, =SQR( 1- ( V [ 2/0 [ 2) ) " 

440 PRINT" FOE MASS TRANSFORMATION ,M2=Hl*l/A, FOR LENGTH" 

450 PRINT"L2=L1*A,F0R TIME T2 =T1*1/A" 

460 PRINT 

470 PRINT" VELOCITIES IN MILES PER SECONDS .VALUES FOR MASS," 

480 PRINT"LENGTH,AND TIME MAY BE STATED IN ANY UNITS .": PRINT : PRI 

NT 

490 C=186000 

500 INPUT"DO YOU WISH MASS TRANSFORMATIONS? (YES/NO) "; Y$ 

510 IF YS="YES" THEN GOSUB 600 

520 INPUT"DO YOU WISH LENGTH TRANSFORMATIONS?" ; Y$ 

530 IF Y$="YES" THEN GOSUB680 

540 INPUT"DO YOU WISH TIME TRANSFORMATIONS?" ; YS 

560 IF Y$="YES" THEN GOSUB 760 

560 CLS 

570 PRINT:PRINT:PRINT:PRINT 

580 PRINTCHRS(23) "HAPPY BIRTHDAY ALBERTIM " 

590 GOTO 590 

600 INPUT"ENTER INITIAL MASS";M1 

610 FOR V=l TO 185900 STEP 500 

620 M2=M1*(1/SQR(1-(V[2/C[2))) 

630 PRINT"M2=";H2, ,"V=";V 

640 NEXT 

650 FOR N=l TO 2000:NEXT 

660 CLS 

670 RETURN 

680 INPUT"ENTER INITIAL LENGTH";L1 

690 FOR V=l TO 185500 STEP 500 

700 L2=L1*SQR(1-(V[2/C[2)) 

710 PRINT"LENGTH =";L2 , "VELOCITY=" ; V 

720 NEXT 

730 FOR N= 1 TO 2000:NEXT 

740 CLS 

750 RETURN 

760 INPUT"ENTER INITIAL TIME INTERVAL" ;T1 

770 FOR V=l TO 185500 STEP500 

780 T2=T1*1/(SQR(1-(V[2/C[2) ) ) 

790 PRINT"TIME INTERVAL=" ; T2 , "VELOCITY=" ; V 

80 NEXT 

810 FOR N=l TO 2000:NEXT 

820 CLS 

830 RETURN 
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spepd hours 




ALL THE MAJOR 

PROGRAM LISTINGS 

FROM EACH MONTH 

OF SO MICRO ON 
CASSETTE OR DISK 



he hassles 

tM.e benefi: 



What exactly is LOAD 80? Simply put, it is a monthly dump of 
the major program listings in each issue of 80 MICRO. Since it 
was introduced in April of 1981, hundreds of TRS-80' users like 
yourself have discovered the advantages and benefits of LOAD 
80. This comes as no surprise to Wayne Green, the innovative 
publisher who created LOAD 80. He knevi/ from experience how 
frustrating and time consuming it was to keyboard and debug 
even a single published program, let alone all the major pro- 
gram listings in an issue of 80 MICRO. He was sure that a great 
many people were just as frustrated as he was and would jump 
at the opportunity to have those programs available in "ready- 
tO'load" form. 

Wayne couldn't have been more right. LOAD 80 has been a 
boom to TRS-80 users, allowing them to spend more time ac- 
tually using their computers, while at the same time saving 
them a lot of aggravation and a good deal of money. 



And now you can enjoy all the benefits of the major program 
listings in 80 MICRO without the aggravation of keyboarding 
and debugging them. Start your subscription to LOAD 80 with 
this month's issue and save close to 30% on the monthly price^ 
And with a year's subscription, your cost per month (for an 
average of 10 programs per cassette or disk) is about what it 
would cost you to purchase one program at retail prices. Plus 
you get the extra added advantage of having the complete 
documentation for the major programs in that month's issue of 
80 MICRO, so loading your cassette or booting up your disk 
should present no problem at all. 

To order your LOAD 80 subscription, or this month's issue 
only, simply fill in the attached card or the coupon below (a pho- 
tocopy is acceptable) and send it to: LOAD 80, 80 Pine Street, 
Peterborough, NH 03458, You can also order back issues of 
LOAD 80. For complete details, look for the LOAD 80 back 
issues advertisement in this magazine, or see your local dealer. 



LOAD 80 disks are TRSDOS 2.3 formatted, single density and floppy-sided. They will not contain an operating system. Sin- 
gle drive users need a copy utility; Model III users need the TRS-DOS 1,2/1,3 Convert utility. Source code files may not be use- 
able on the Model ill. 



Yes, I want November LOAD 80 



n YES, I want to save money, I'll subscribe to LOAD ao 
on disk beginning with this month's issue, . $199.97 

□ YES, i want a cassette of this month's LOAD 80 for 
$9,97 each (plus $1.50 per tape for postage and 
handling). 



a Visa D Am. Ex D MasterCard 

n Check/Money order 



n YES, I want to save money. Sign me op tor a year of 
LOAD 80 beginning with this month's cassette. . . 
$99,97 for 12 issues, 

D YES, I want this month's LOAD 80 on disk for $19.97 
each (plus $1,50 per disk for postage and handling). 



Name:_ 

Address: 
City: 



State: 



Signature: 



_Card# 



Zip: 
Exp. Date: 



LOAD 80 is manufactured by Instant Software, a subsidiary o( WAYNE GREEN INC. 
expressed or implied that LOAD 80 wtll do anything other than save you typing. 



Pine St., Peteroo rough, NH 03458, There is no warranty 

Foreign airmail, please inquire. 



*TRS-80 is a trademark of Tandy Corp. 
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Aerocomp's 
Proven 
Best-By Test! 
The 



ft 



DDC 



Double Density controller 

• Technical Superiority 

At last! A double density controller for Model I with HIGHER PROB^ 

DOUBLE DENSITY CONTROLLER ON THE MARKET TODAY! The "DDC" f, 

blems that i<eep cropping up on existing products. AEROCOI\flP'^ 
has a wider capture window than the digital types current! 
ing. The finest resoiution availabie with digital circuitry is 
finately variable tuning. Attack and settling times are 
The units presentiy on the marl<et use a write precompeji 
tolerance is extremely wide - in the order of + 100 ns. T 
The bottom line is state of the art reliabiiity! 

• Test Proven 

Tests were conducted on AEROCOMP'S "DDC", PercoQ 

a Radio Shack TRS80" * * Model I, Level 2, ^8 K with 

(Siemens Model 82). Diskette was Memorex 3401 

mine performance under adverse conditions. Th^ 

expansion interface. 

The test consisted of formatting 40 tracks on th 

pattern was chosen because it is recommended 

attempt was then made to read each sector on the 

1 with Double zap, version 2.0. Unreadable sectors 

each double density controller and the data averaged. Test n 

• Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 

• Value 

$139.95for the BEST double density 
controller on the market. 

$179.95 ''or "DDC complete with DOSPLUS 3.3D 
S229.95 for "DDC" complete with LDOS 




JTY OF DATA RECOVERY THAN WITH ANY OTHER 

-l^cQcomp. No need to worry about the pro- 
Jesign phase lock loop data separator 
iiiows high resolution data center- 
)DC" analog circuit allows in- 

Board to board 




d LNW's "LNDoubier"** using 
6m TFD100' disk drive 
ed piece of media to deter- 
re installed sequentially in the 

attern on all tracks. The 6DB6 
urers of drives and diskettes. An 
/ig system was Newdos/80, version 
■ / The test was run ten times with 
i the table. 

• TEST RESULTS • 



MFR & PRODUCT 


SEaORS LOCKED OUTiavo 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



NotB: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp's 14 day money back guarantee applies to nardware onlv- 

specials will be prorated, snipping S2.00 In Cont. US, see opposite page for details. 



Data separators 

The advances that make the "DDC" great are Incorporated 
and Double Density Data Separator ("DDS"). 

* Has your original manufac- 
turer left YOU holding the bag? 

If you already own a Percom Doubler A", "Doubler ii" or lnw 
"LNDoubier ", the aerocomp "DDS" will make It right Look at tHe test 
results: 



in the new aerocomp Single Der 



Happy DDS customer writes 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER II" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






• "DDS" $49.95 

(Use 1791 chip from your dd Con- 
troller) 

y^ \J\J^ with disk controller 
chip Included y / y.y Ij 

• Disk controller 

chip $34.95 

(snipping S2.W cont US - see opposite 
page for detaits) 



Note: same test procedures as "DDC". 

* Trademark of Percom Data Co. 

• * Trademark of lnw 

'• • Trademark of Tandy corporation 



Plugs directly into your existing 
Double Density controller. 



I dOii'L olten write letters 
such as this, but I feel I should 
in thla case ... I am suprleed 
and pleased with your DDS. It it 
not often a product is better 
than one expects , , , This 
(these) test (s) used a Percom 
Doubler "A". (Test without DDS 
Installed showsd many errors), 
(With DDS) not one errorll! 
After ten (10) tests of format- 
ting and verlf ing and zeroing 
NOT ONE FAILURE OR LOCK 
OUT. Great!!! 



Phil Qnadt 

Kansas City, Kansas 



See opposite 
pageiMMI 
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NEW LOW PRICES 

Thinks to you our sales volume has 
allowed us IQ cut costs and we're pass- 
ing the savings along. We offer the best 
disk drive value in the market place. 
Reliability, features and cost cough to 
beat. We deliver, .and we stand behind 
our products AEROCOMP is the only 
manufacturer to offer FREE TRIALI Buy 
Aerocomp drives today. You deserve the 
best. 

BEST FEATURES 

• Fast 5 ms. track-track access time. 
*■ Operates single or double density. 

* "FLIPPY" feature for lower media cost 
[40-1 &80-I), 

• Head toad solenoid. 

• Disk ejector, 

* Easy entry door. 

* NEW EXTERNAL DRIVE CABLE 

CONNECTION, (no longer- rref?d to 'pnicie :he 
VI r." fiook up cable) 




TRS80 Cable (I & III) w.95- 

APPLE Cable & Interface. . s 1 05.00 

RS232 Interface S69.95 

Ribbon Cartridge, Black. . . S9.95 

Add S6.CX) shipping |Cont. U S.| does not 
ndude cable. 



Ail the features of MX80 plus Friction 
Feed. Shipping & cables as above. 




40-Track Drive S299.95 

80-Track Drive S409,95 

40Track "FLIPPY" Drive S329.95 

80-Track "FLIPPY" Drive S419,95 

4aTrack Dual-Head Drive . S4 19.95 
80-Track DuaFHead Drive. . S569.95 

All sbove ddues sre complete wjlh silver enclosure, power supply 
itnd external driue cable connection 1 1 5 VAC. 50/60 H; 230VAC 
50/60 Hz ai/ailaoie on special order 

• 4aTrack Bare Drive S259.95 

• 80-Track Bare Drive S359.95 

• 4C>Track "FLIPPY" Bare DnveS279.95 

• 80-Track "FLIPPY" Bare DriveS369.95 

• SPECIAL PACKAGES* 

STARTER A S339 95 

40-Track Drive. 2-drive cable, TRSDOS 
2.3 Disk & Manual, Freight & Ins, 

STARTER B S369.95 

4aTrack "FLIPPY" Dnve.cable. TRSDOS 
2.3 Disk & Manual, Freight & Ins. 

COMBO C S465.00 

40-Track "FLIPPY" Drive, 2-drive cable, 
LDOS' Freights Ins. 

COMBO D S559.O0 

80-Track "FLIPPY" Drive. 2-drive cable, 
LDOS' Freight 8. Ins. 

COMBO E $709.00 

Two 40-Track "FLIPPY" Drives, 4-Drive 
cable, TRSDOS 2.3 Disk & Mannual, 
Freight & Ins. 

COMBO F S989.00 

Two 8(>Track "FLIPPY" Drives, 4-drive 
LDOS Ins 

COMBO G S889,00 

Two 40-Track DuaFF4ead Drives, cable, 
TRSDOS 2.3 Disk & Manual, Freight & 
Ins. 

COMBO H SI 289.00 

Two 80-Track Dual-Head Drives, cable, 
LDOS . Freight & INS. 

DOSPLUS 3.3 or NEWDOS / 80,2.0 
, available with any package, 

■ A<jclS5 00 per drive foi shipping & handling |Coni US| 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund. (Hardware only SperisI parkages will be prorated) 

We have complete confidence in our pro- 
ducts and we know you will be satisfiedl 
ORDER TODAYirl 



WARRANTY 

We offer you a !20 day unconditional 
warranty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment IS fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABILITY!! 

ORDER NO\X/ll 

To order by mail, specify Model 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order, VISA or 
MASTERCHARGE card number and ex- 
piration date, or request COD ship- 
ment. Texas residents add 5% sales tax. 
Add S 5.00 per drive for shipping & handl- 
ing [Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
C.O.D, shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact C.O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship.!! 



DR[VE CABLES 

?- DRIVE 
4-DRIVE 



S24.95 
S34.95 



WRITE AEROCOMP TODAY 
FOR MORE VALUES ril 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

Colifornia dial (800) 852-7777. Operator 24. Alaska 
ond Hawaii dial (800) 824-7919, Operator 24. 

TOLL FREE LINES WILL ACCEPT ORDERS ONLTI 

For Applications and Technical inflormalion, call 
(214) 337-4346 or drop us a card. 



Dealers inqines invitsf 

ikcRGCOIilP 

Redbird Airport, Bidg. 8 
P.O. Box 24829 

Dallas, TX 75224 



82 



•^See List of Advertisers on Page 455 
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GRAPHICS 



Epson A 




by Bob Boothe 



A 



re you tired of laboriously plotting airfoils 
by hand? Use this program with your 80 and 
an Epson printer to make it fast and easy. 



Besides being interested in com- 
puters, I am also a weekend flyer — of 
radio-controlled model aircraft. The 



STATION 


UPPER 


LOWER 


VALUE 


SURPACF. 


SURFACE 


1 


0.00 


0.000 


0.000 


2 


1.25 


0.950 


-0.950 


3 


2.50 


1.310 


-1.310 


4 


5.00 


1.780 


- 1 .780 


5 


7.50 


2.100 


-2.100 


6 


10.00 


2.340 


-2.340 


7 


15.00 


2.670 


-2.670 


8 


20.00 


2.870 


-2.870 


9 


25.00 


2.970 


-2.970 


10 


30.00 


3.000 


-3.000 


11 


40.00 


2.900 


-2,9(X) 


12 


30,00 


2,650 


-2,650 


13 


60.00 


2,280 


-2.280 


14 


70.00- 


1.830 


-1.830 


15 


80.00 


1.310 


-i.310 


16 


90.00 


0.720 


-0.720 


17 


95.00 


0.400 


-0.400 


18 


99,00 


0.060 


-0.060 


19 


100.00 


0.000 


0.000 


20 


100.00 


2.000 


-2.000 




IciMe 1. 


NACA 0006 A 


irfoil 



computer offered an ideal tool to use in 
the experimentation with various wing 
shapes. Airfoil data is widely available 
in tabular form (sec Tables 1-5), but 
the conversion of this data into a usable 
pattern is a time-consuming job involv- 
ing the accurate plotting of perhaps 50 
points to an exact scale for a single 
wing rib. Also, if the aircraft is to have 
anything other than a perfectly straight 
wing, as many as 10 or more different 
sizes of ribs might be needed. The 
design job, done manually, could 
quickly get out of hand. 

Getting Started 

To do the job on the computer, the 
first thing we must decide is what size 
to make the field for plotting the air- 
foils. For most model aircraft a chord 
of about 10 inches is adequate, and fits 
nicely on a .sheet of 8.5-by-ll-inch pa- 
per. The printer used for this work is 
an Epson MX-80 with the Graftrax op- 
tion. This machine has a nine-wire 
head, which is rather handy because we 
can address eight wires with one data 
byte in the graphics mode. In the verti- 



cal direction the Epson prints at 72 
dots per inch. If we use 95 rows of dots 
at eight per row, the vertical size of our 
field is 10.55 inches ((8 x 95)/72 = 
10.55). 

The program runs on a 48K disk 
machine and after allowing room for 
Disk Basic, the machine-language 
line-plotting program, and a medium- 
sized Basic program to process the 
tables of data, about 32K of RAM is 
left over that can be used as a storage 
buffer for the field. Horizontally, if we 
use 340 columns of dots the field takes 
32,300 bytes. (That's 258,400 in- 
dividual points at eight per byte.) 
Horizontal spacing is at 60 dots per 
inch, so our field turns but to be 10.55 
inches high by 5.66 inches wide— a 
rather generous area. 

The Program 

That Does the Work 

Now that we have established a field 
size, the next step is to set up the ma- 



The Key Box 

Model I 

48K RAM 

Disk Basic 

2 Disk Drives 

Epson MX-80 with Graftrax 
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i^^ 



L 




MOVE NOW ON COMPI 
FROM CHECK-MATE-lSlWW. 



IJ^E FRINTE 



't?' 










BONS 






{Radio Shack P/N's 26-1 1 50. 26-1 1 52, 26-1 1 

mmm. *3i.9 









M«lii 



TF^»I 



HI 






•X REFILLS DESIGNED TO FIT 
N MX - 100 REFILLABLE CARTRIDGE 
AT 



(Radio Shack P/N 26-1414) 



X- 



'.^*?5r"''V-.: Jjjijppi^ 



-, \,^ 



oz. 









LABEL SPE 

3 1/2 X 15/16'' 1-up pin-feed iStt^ls 
OW^2.99/M (5M Minimum) 



A-,'-" 



3 1/2 X 15/16" CONTINl^M^^^IBEiS 
Nylon , 2-ACROSS ON 9 1/2" FIXED CARRIER 



oz./\ NOW ^3.99 






|W4?PING IN CONTINENTAL U.S. (MASS. RESIDENTS ADD 5° 
^^r?/r?--I -SJpWINIMUM ORDER FOR RIBBONS »29;85 

;: :: -:^RiM^:^HACK IS A REGISTERED TRADEMARK OF THE TANDY ' 














chine-language program. As men- 
tioned earlier, the basis of this work is 
a line-piotting program. You can find 
it starting on page 139 of the May, 
1981 80 Micro. For the present version 
see Program Listing 1. Even though 
the program is intended to run in Disk 
Basic, three of the disk commands 
have been redefined to be used for en- 
try to the machine-language routines. I 
prefer this method of entry over USR 
calls since it seems to be more reliable 
and allows more flexibility in program- 
ming. (See the April, 1981 issue of 80 
Micro, page 1 16.) Program conversion 
to Level II Basic, which only has a 
single USR call, is also much easier 
this way. 

- The first three ORG statements in 
lines 200, 220, and 240 of the new pro- 
gram enable the three disk commands 
while the rest of the program is load- 
ing. Our 32,300-byte field buffer 
resides from 64635 down to 33235, 
which means that the machine-lan- 
guage program should end at 33234 
(81D2H). The ORG in Hne 260 takes 
care of this. 

The original program was written 
for the Bases printer which has only 
seven wires, numbered top to bottom, 
as compared to the Epson which has 
eight addressable wires, numbered 
from the bottom up. Lines 1410-1480 
set things up for the Epson. 

This can be compared to lines 1330- 
1390 of the May, 1981 program. The 
routine PRTOUT starting at line 1570 
will not work on a Model III. The 
Model III still uses 37E8H for printer 



STATION 


UPPER 


LOWbR 


VALUE 


SURFACE 


SURFACE 


1 


0.00 


0.000 


0.000 


2 


1.25 


3.070 


-1.790 


3 


2,50 


4.170 


-2.480 


4 


5.00 


5.740 


-3.270 


5 


7.50 


6.910 


-3.710 


6 


10.00 


7.840 


-3.980 


7 


15.00 


9.270 


- 4.180 


8 


20.00 


10.250 


-4.150 


9 


25.00 


10.920 


-3.9X0 


10 


30.00 


1 1 .250 


-3-750 


11 


40.00 


1 1 .250 


-3.250 


12 


50.00 


10.530 


-2,720 


13 


60.00 


9.300 


-2.140 


14 


70.00 


7.630 


-1.550 


15 


80.00 


5.550 


-1,030 


16 


90.00 


3.080 


-0.570 


17 


95.00 


1.670 


-0.360 


18 


99.00 


0.160 


- 0.160 


19 


100.00 


0.000 


0.0(X) 


20 


100.00 


2.000 


-2,000 




Table 2. 


NACA 4415 


1 irfuil 



Status but to output a byte you must 
change line 1650 to an OUT statement 
10 the printer port, or Call 03BH. 

Finally, there are a few bits of code 
worth looking at in lines 1780-1840. 
Line 1780 sends the escape character 
(27) to the printer, which in essence 
means "Interpret the following byte(s) 
as control codes." The 75 in line 1800 
sets the printer into the bit-image 
graphics mode, and the following two 
bytes define the number of dots to be 
printed per Hne. The 1 in line 1840 is 
the code for 256 dots, and the 84 in 
hne 1820 is added to this to produce 
the desired 340 dots per line (256 + 84 
= 340). 

If any other details of this new pro- 
gram need explanation, look up the 
May, 1981 article. All we have done is 




adjusted the original to work on a new 
field size with a different printer. Per- 
haps you have noticed that two of the 
original disk commands (Open and 
Close) have been changed. The original 
program was written for a 32K Level II 
machine without disk drives. The pre- 
sent program is intended to run in Disk 
Basic and these two commands are 
needed for handling of data files. I 
have substituted Field and RSET since 
these are not needed for any other pur- 
pose in this application. 

(Jetting Down To Basic 

From here on we will use only Basic, 
primarily because of the ease of editing 
and changing as our needs might dic- 
tate. The program AIRFOIL/BAS (see 
listing 2) handles all our file-manage- 
ment problems and does all the neces- 
sary math to calculate the precise posi- 
tion on the field of each point that we 
want to plot. 

The program is written in com- 
pacted style, using the smallest line 
numbers possible, multi-statement 
lines, and eliminating spaces except 
where absolutely necessary. The sole 
reason for going to this extra trouble is 
conservation of memory space. 

Only one frivolous excess can be 
found; the use of the down arrow to 
improve the readability of the listing in 
this compact format. Look at line 13, 
for example. You should type the 
down arrow after the colon following 
the 2 then type three spaces to get out 
of the line-number column and con- 
tinue on . A second down arrow 
comes after the colon following Next, 
and so on. 



Fig. I. Airfoils Plotted from NACA 65!-2l2Duia 



STATION 


UPPhR 


LOWER 


VAl.UR 


SURFACE 


SURl-ACE 


1 


0.00 


3.040 


3.040 


2 


1.25 


5.400 


1.860 


3 


2.50 


6.400 


1 .420 


4 


5.00 


7.800 


0.910 


5 


7.50 


8.800 


0.590 


6 


lO.fX) 


9.600 


0,390 


7 


15.00 


10.600 


0.120 


8 


20.00 


H.300 


0.010 


9 


30.00 


11.700 


0.000 


10 


40.00 


11.400 


0.000 


11 


50.00 


10.500 


0.000 


12 


60.00 


9.130 


0.000 


13 


70.00 


7.300 


0.000 


14 


80,00 


5.200 


0.000 


15 


90.00 


2.800 


0,000 


16 


95.00 


1,500 


O.Offl) 


17 


100.00 


0.000 


0.000 


18 


100.00 


2,000 


■ 2.000 




Table 


3. Clark- Y / 


irjoil 
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You've Cot 




i U 



r ... ::,;^(Zlng in TRS80 & IBM) 

OUR COMPUTER HARDWARE & SOFTWARE 



EDS. CALL ROSE TODAY! 



iv'e got 

* DISK DRIVES 

TA400 (40-Tl S289 

TA800 (80-T) '..5399 

TA400 Flippy S319 

TA800 Flippy S409 

TA400-2 Dual Head S409 

TA800-2 Dual Head S549 

Complete with silver enclosure & power supplV- 
Ail TA Drives are iviPl. 

* CABLES 

2-Drive 323.95 

a-Drive $33.95 

Extender Cable S14.95 

* BARE DRIVES 

TA400B S249 

TA800B $349 

TA400B Flippy $269 

TA800B Flippy $359 

* EPSON PRINTERS 

MX80 3469.00 

MX80 F/T 3579.00 

MX100 3769.00 

Parallel Cables $9.95*^ 

MX 70-80 Ribbons 59.95 

* OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual. . , . S19,95 

LDOS $119.95 

IMEWDOS/80 3129.95 

DOSPLUS 3. 3,3. 3D 389.95 

* IRON 

Disk Drive Power Supply, 

Single 337 

Disk Drive Case (silvertand Base S19 
Diskettes (box of 10) 325 

90 dav warranty on drives. Add 55.00 freigint per 
drive in cont u s. UPS cod charge si .50. There is also 
a 15 day FREE trial on ta dnves. If not completelv 
satisfied I'll refund your money (less shipping, ill 
take exception to improper use or mishandling. 

* RADIO SHACK COMPUTERS 

26-1061 Mill, LI, 4K 3595 

26-1062 Mill, Lll, 16K 5835 

26-1065 Mill, 48K, 1 Drive. ...'. 31695 
26-1066 Mill, 48K-2 Dr-RS232. . 32099 

26-3001 4K color computer. . . 331 5 

26-3002 16K w/ext. Basic 3485 

26-3003 32K w/ext. BasiC 3566 

26-3501 Pocket computer. ,..3185 

26-4002 Mil, 64K, 1-dr 33288 

* PERIPHERALS - Model I, II, III 

26-1140 OK Exp. interface $299 

26-1140 With 16K Mem. Tstd/S349 
26-1140 With 32K Mem. Tstd/S375 

26-1145 Ml RS232 W/Cable 385 

26-1148 Mill RS232 W/cable $89 

26-6001 M16,128K,1DR S4399 

26-6002 M16,128K,2DR S5Q99 

26-1172 D.C. Modem I S135 

26-1173 D.C. Modem II $199 

26-1206 CTR-80 Recorder 351 

26-3008 CC Joysticks, pr S21 

26-3010 13" color Video $353 

26-4150 Mil 8.4MB Disk 33820 

26-4151 Mil Hard Disk NO.2. . . 32970 

16K 200nsec Memory Guar lyr. 329 

Trademark of PERCOM DATA CO., '■Trademark of 



* OTHER PRINTERS & ACCESSORIES 

26-1158 Daisy Wheel ii S1694 

26-1455 Acoustic cover $339 

26-1447 Tractor Assy $208 

26-1448 Sheet Feeder Siill 

26-1165 Una printer v $1581 

26-1166 Line printer V! 3986 

26-1167 Line Printer vil 3339 

26-1168 Line printer VIM 3679 

26-1191 Flat Bed Plotter $1695 

26-1195 Digitizer 3379 

AIMADEX DP-9500, 9501 31295 

starwriter F10 Daisvwheel 31499 
Daisy Wheel Printer, 45cps. . . $1779 

Tractor for above 3237 

Sheet Feeder for above $1250 

26-1308 Printer Stand $88 

26-4302 Printer Stand S129 

26-1401 or 4401 Printer Cable. .$32 

HOT PRICES-CALL!! 



ALL NEW DISK DRIVES 

FOR IBM PERSONAL 

COMPUTER 

INTERNAL & EXTERNAL 

ADD-Or> DRIVES 

"FLIPPY"* or STD. ao-track 

^ A&B INTERNAL DRIVES 

(First & Second) 

Standard $249ea. 

(List 569.99) 

Flippy S269ea 

iNot available from IBM) 

Purchase your IBM PC without 
drives but with the disk drive 
controller/adapter & cable 
and the Disk operating 
System (DOS) and SAVE A 
BUNCH! 

*r C&D External Drives 

(Third & fourth) 

Standard S289ea 

"Flippy" 5319ea 

complete with matching 
case & power supply 

* 2 External Drive Cable $23.95 

*"FlipPY" allows flipping the 
diskette over & 
reading/writing to the back 
side. Cuts diskette cost in 
half. NO special diskette 
reouired. 



The complete line of Radio Shack products is 
available througn ta with standard RS limited 
warranty. Call me, for price and delivery. Just 

cause voLi don't see it don't mean we ain't got it 

ROSE 



ZENITH MONITORS 

12" Screen ' Green Phospher 
This is the one you have been waiting 
for. Well built, works great with the 
model I. Also has 40/80 column switch so 
the Apple folks can use it 90 day warran- 
ty good Nationwide. Sell your old Model I 
monitor and hethefirston your block to 
have a "realgreen screen. 

1 2" Zenith Green Phos. Men S135 

cable for Model i S7 

Why pay $344.99 for an IBM 
monitor when you can buy this 

one. Requires 21022 color/graphics card. 



* RADIO SHACK SOFTWARE 

Ihave most all R/s software instocK 
and It can be yours at 15% off tne 
R/s retail price. Call me for the 
latest availibility. 

Double Density 
Disk controller 
from Aerocomp 

C'DDC") $139.95 

Make your Model I run in double 
density. The "DDC" has the most 
sophisticated data separation cir- 
cuitry available, "ddc" Is available 
with DOSPLUS 3.5D for a mere 

179 95 RUN FOR THE PHONEI 

ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call ROSE TOLL FREE at 
1-800-527-3582. Texas residents call 
214-^58-1966. Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. Prices are 
mail order only, you pay by VISA or 
MASTERCARD, you can send check or 
money order (allow a couple of 
weeks for personal checks to clear) 
or order COD (we ship COD'S cash, 
certified check or money order on- 
ly). Rose will take American ' 
money in just about any form. Add 
freight (UPS where possible) on all 
orders.Texas residents cough up 5% 
sales tax. Allow 2-4 weeks for 
delivery, order today - i need the 
money! 

Prices subject to change without notice. 

TOTAL ACCESS^ 

P.O. BOX 3002 
RICHARDSON, TX 75080 
214-458-1966 .. 

* With purchase of Epson Printer 



mw ' TRS80 & Radio snack are trademarks of Tandy Corp. copyright 1981 total ACCESS 



e-See List of Adverlisers on Page 455 
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RAT -MAZE MANIA 

New Arcade Game With 

Real Time Graphics, 
Music and Sound Effects 




Object is to guide the rat through 
mazes which change randomly while 
an intelligent dog chases the rat. 

CAN YOU OUTWIT THE DOG ??? 



$14.95 



• Music & Sound effects 

• High Scores saved with Disk Ver 

• Alpha Joystick compatible 

• Tape version req 16K L2, Disk Ver 
works with most DOS req 32K 

14.95 for tape and disk version on 
tape. $2.00 Shippmg, CA add 6% tax 
When ordering specify Mod. I or III 

SHELBOY ENTERPRISES 

P.O. BOX 1757 MANTECA, CA 95336 
(209) 239-6775 ^,95 



*TRS-80 MOD m/TRSDOS 
|^= OWNERS 

=riRCH5pEEd= 

*tm of TANDY Corp. 



Are your BASIC PROGRAMS 
much too SLOW? You don't 
have the time to make your 
own MACHINE LANGUAGE 
conversions? If we can ^ree 
that time is "$", particular- 
ly in our BUSINESS applica- 
tions, then this UNIQUE offer 
is just what you've been look- 
ing for. Weai take your BASIC 
PROGRAMS and RE- 

STRUCTURE, COMPACT and 
then CONVERT them into a 
SPEEDY MACHINE 

LANGUAGE PROGRAM. (For 
an APPLICATION & 

DETAILS), send a S.A.S.E. and 
$1 for S&H to: 

R.N. da Silva, P.O. Box "P", 

Calexico, CA 92231 



In case you are wondering about the 
slight jaggedness of some areas on the 
plots, remember that we are plotting 
on a dot-matrix printer and the finest 
detail we can obtain is the size of one 
dot. At 60 per inch horizontally, dot- 
to-dot spacing is 1/60 inch, or .0167 
Inch. Vcrlically, [he spacing is l./'72 
inch or .0139 inch. We would say that 
we have a resolution of .0167 by .0139. 
In trying to plot a curve, the dots print 



STATION 


UPPER 


LOWER 


VALUE 


SURFACE 


SURFACE 


1 


0.00 


0.000 


0.000 


2 


1.25 


1.058 


-L058 


3 


2.50 


' 1.421 


-L421 


4 


5.00 


1.96! 


-1.961 


5 


7.50 


2.383 


-2.383 


6 


10.00 


2.736 


-2.736 


7 


15.00 


3.299 


-3.299 


8 


20.00 


3.727 


-3.727 


9 


30,00 


4.282 


-4.282 


10 


40.00 


4.496 


-4.496 


11 


50.00 


4.336 


-4.336 


12 


60.00 


3-743 


-3.743 


13 


70.00 


2.856 


-2.856 


14 


80.00 


1.805 


-1.805 


15 


90.00 


0.738 


-0.738 


16 


95.00 


0.280 


-0.280 


17 


loo.ai 


0.000 


0.000 


18 


100.00 


2.000 


-2.000 




Table 4. NAC09 Tip Airfoil 



STATION 


UPPER 


LOWER 


VALUE 


SURFACE 


SURFACE 


1 


0.00 


0.000 


0.000 


2 


0.42 


0.970 


-0.870 


3 


0.66 


1.176 


-1.020 


4 


1.15 


1.491 


-1.290 


5 


2.39 


2.058 


-1.700 


6 


4.88 


2.919 


-2.270 


7 


7.37 


3.593 


-2.700 


8 


9.87 


4.162 


-3.120 


9 


14.90 


5.073 


-3.720 


10 


19,89 


5.770 


-4.170 


1] 


24.91 


6.300 


-4.500 


12 


29.92 


6.687 


-4.740 


13 


34.94 


6.942 


-4.870 


14 


39.96 


7.068 


-4.910 


15 


44.98 


7.044 


-4.840 


16 


50.00 


6.860 


-4.654 


17 


55.02 


6.507 


-4.320 


18 


60.03 


6.014 


-3.860 


19 


65.04 


5.4U 


-3.355 


20 


70.05 


4.715 


-2.770 


21 


75.05 


3.954 


-2.160 


22 


80.05 


3.140 


-1.544 


23 


85.05 


2.302 


-0.950 


24 


90.03 


1.463 


-0.426 


25 


95.02 


0.672 


-0.040 


26 


100.00 


0.000 


0.000 


27 


100.00 


2.000 


-2.000 




Table 5. 


NACA 651-212 Airfoil 



in a given row or column until the 
calculated position changes by one full 
increment. When you stop and think 
about it, the computer plots every 
single point that lies exactly on the 
calculated line. It is a simple matter to 
make a template from the plotted data 
by trimming so that the outline just 
touches the high points. 

How It All Works 

The first six POKEs in line 2 initialize 
the three disk commands, Line, Field, 
and RSET. The other two set memory 
size so the Basic program won't wipe 
out any of the machine language and 
other information stored in higher 
memory. Line 3 is a simple check to 
make sure that the machine-language 
program is loaded before we go any 
further. 

After some housekeeping, the file 
DATALIST/TXT is input from disk. 
Next, a list of all data files on the disk 
is printed at the top of the screen for 
reference (Une 13). This is a nice fea- 
ture to have in a program like this. 
How often have you wanted to input a 
file but couldn't remember exactly 
what you had called it? The file 
DATALIST/TXT is updated auto- 
matically as new files are added from 
the keyboard. The title for a file is in- 
put in line 19, as N$(D). When it comes 
time to update DATALIST/TXT, a 
subroutine in line 55 converts N$(D) to 
a suitable filespec that keeps the ma- 
chine happy, but retains your title 
for use in update of DATALIST/TXT 
in Line 23. 

On With The Plot 

Tables of data for various airfoil 

sections are available from a variety of 
sources. Tables 1, 2, 4, and 5 are based 
on NACA data frequently quoted in 
engineering handbooks (Marks), 
books on airplane design (R/C 
Modeler's Handbook of Gliders and 
Sailplanes, by George Siposs), and 
various monthly publications aimed at 
the model builder {R/C Sportsman, 
R/C Modeler, and so on). 

Table 3 was copied from some data 
scribbled on the back of an envelope 
(source unknown). The tables are 
presented here only for the purpose of 
demonstrating the plotting functions 
and no claims are made for their ac- 
curacy or recommendations made for 
their use. All values in the tables are 
given in percent of chord length. Sta- 
tion is the leading edge, the station 
100 is the trailing edge. In the case of a 
more or less symmetrical airfoil, the 
upper surface ordinates have positive 
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TURN YOUR COLOR COMPUTER olF* 
O THE POWER OF FLEX AND OS-9 

NOW FROM THE WORLDS LARGEST SUPPLIER OF SOFTWARE FOR FLEX AND 0S-9#| 
;OMES FHL COLOR FLEX AND COLOR OS-9, JUST LOOK AT THESE Fl 



OS-9 ONLY $2 

OS-9 WITH BASIC09 $299 

•Unix"-based, multitasking, mc. 

and versatile 

•Over 40 utiiity commands . 
•Friendly "Shell" command interpre 
•Tree structured multilevel file 

directories 
• Full time sharing support witii log In^ 

file security % 

•Fast, secure, random and sequentlaf 

access files 
•Comprehensive Eng- ^^^^ 

lish language error ^^ 

messages 
•Compact real-time 

multitasking executive 



-^ fJt 



fft 






jr-* 



V. - 



's screen i , 

v>1, upper and lowercase. 

..64 upper case .:(i 

' additional hardvi/are rei " 

Easy start-up— just type I 

•R/S disk basic running ' 

optional $30 

■ disk 1/0 
termii 



\ Y 






- ^^ 



;i4*»; 



-s^-^ 




\^ 



«-/rji.:^^ 



ORATlSm^ 



'■'■:" 130 MIDTOWN PLAZA • SYRACUSE, NY 13210 TELEPHONE (315) 474-7856 ■.''■; :>-■'' 

Is a trademark of Bell Labs. 'OS-9 & BASIC09 are trademarks of Microwave & Motorola Inc. 'FLEX Is a trademarJt of Technical Systems Consultants Inc. 



Within Continental 48 States 



LAZYWRITER 

Latest Version Model I/Ill $159.95 

DOSPLUS 

Version 3. 4S/3,4D/3-4lll $119.95 

Version II For Model H $199.95 

LDOS -5-1-Mod I or III $114.95 

IVIORE MAXIS 

Max! Cras Mod I/Ill $ 84.95 

Max! Mgr vi//Util Mod t/iii $119.95 
Max! Utility Mod l/lll S 44.95 

Maxi Mail Mod III Only $ 84.95 

Max! Stat Mod i/iii $1 79.95 

^^"Z^f^ljy .2) Mo6\ or \\\ $134.95 

SUPERUTILITY ■ Mod l/lil$46.95 
UNITERM Modi/Ill $74.95 

UNITERM/80 Modi/Ill $84.95 

MICROSOFT 

Fortran 80 or A.L.D.S $89.95 

Basic Compiler $1 79.95 

Editor/Assembler ^ Tape$27.95 di5k$45.95 

HEXSPELL 2 Mod i/iii$94.95 
New Random House Version 

Proofreader by Aspen Modl/lll$49.00 

Proof-Edit by Aspen Mod i;iii $25.00 

Grammatik by Aspen won v\u $49.00 

SPECIAL. , All 3 FOR ONLY $110.00 



FREE SHIPPING MICROIMAGES FREE SHIPPING 

»A/ithin Prtnt^r.^„i->i :io c.-.t^r. ■ » ■ ■ : Within P.nntinpntAl 4fi RtatPK 



LNW-Doubler 5/8 $205.95 



Includes Dosplus 3.4D 



SOOPER SPOOLER byCompuimk 

I6K Parallel I/O Unit $334.95 

46K Memory Opt, $149.95 Serial I/O Opt, $89.95 
Complete Unit - All Options $549.95 



LYNX autodial/answer Mod t/lll $239.95 



• VISION FRIENDLY • 

Vision Friendly is ah eye exercise package for the Model III wnicn 
comes with a Green. Blue, and Amber screen and a short graphic 
program. The package combines color & graphics to relax your 
eyes and ease eye strain. Each screen Is a full grade quality 
screen which needs no glue, tape, etc, to attach and can be 
removed without a trace. The three plexiglass screens are more 
than worth the price. We are so sure you will like this package we 
are ottering a tO day money back guarantee on Ihts Itam. $29.95 



SPACEAGE" PRINTER STANDS -nofrills 

MX 80 Clear $27.50 MX 80 Clear $13.50 

MX 80 Bronze .. .$29.95 MX 80 Bronze ...$15.95 
Microline 82A Space Age Bronze $29.95 



We also carry a lull line ot Adventure Int'l. Automated Simulations, 
Big Five, Fantastic, Med-S)|stems, Microsoft and most other tine 
software at discount prices/' 



SEND FOR YOUR FREE CATALOG 

No credit cards dt these low prices Add S2 00 or- all COD orders 
Certified CMMO/GOD shipped immediately. Please allow 2 weeks 
for personal checks. For extra fast service phone in your COD order. 
Prices subject to change v/ithout notice. New York State residents 
olease add appropriate sales taj;. 

We offer Great Values & Prompt Delivery — Try Us! 



14603 25th Road ^157 
Flushing, New York 11354 
10AM-9PM (212)445-7124 ioam-5Pm 



Within Continental 48 States 



RIBBONS 

ZIP BOX RELOADS y. Dz Dz 

Epson MX 70/80-20 Yds 24.00 42.00 

Epson MX 1 00-30 Yds 30.00 52.00 

LP-1/ll/IV-16YdS 18.00 32.00 

Centronics 730/737/739 

and 779- 16 Yds 18.00 32.00 

All ZIP BOXES are individually sealed black nylon 

CARTRIDGES each Dozen 

Epson MX70/80 8.95 90.00 

LP-III/V 6.50 70.00 

Cenlronic 702/03/04/53. ... 11.00 120.00 

RSDSYWHLM Mjit, strike 6.50 70.00 

Diablo Hytype II Muiti strike . 6.50 70.00 

Qume-300,000 chr Mum stnke 6.50 70.00 

NEC SPIN H-Yield Muiti Sirihe7.00 75.00 

MICRLNE80/82A/83ASpl ,.N/A 24.00 

Minimum order 3 cartridges - any mi*. For smaller 
quantities add $1 50 per order. All our reloads and 
cartridges are msr.ulactured by one of the oldest 
and most reputable ribbon Mfg's in the country. 
***** QUALITY GUARANTEED* * * * * 



GAMES 



Tape 

. 17.95 
. 22.45 



Sea Dragon 

Penetrator 

Defiance 

Panik 17.95 

Armored Patrol 17.95 

Eliminator 17.95 

Starfighter 22.45 

Forbidden Planet or City 

Strike Force 14.50 

Voyage of Valkyrie 31.95 

Bounceoidsor Sp. Castle . 14.50 

The Institute 17.95 

irtress or Allen Def 14.50 

my Big 5 Program 14.50 



Disk 

22.45 
22.45 
22.45 
22.45 
22.45 
22.45 
26.95 
34.95 
17.95 
34.95 
17.95 
20.95 
17.95 
17.95 



.^ See List of Advertisers on Page 455 
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This graph was produced with less than two 
dozen keystrokes on a TRS-80 Model I with 
EPSON MX-80 printer plus GRAFTRAX 

YOU CAN DO IT TOO WITH AUTOPLOT, the 
sensatfonal automatic curve plotter written in 
BASIC * fast machine language, 

• Plot functions y=t(x), x=t(y), or x=t(v), y=9(v) 

• Plot data from keyboard or disk file 

• Linear or logarithmic presentation 

• Numeric integration or differentiation 

• Automatic scaling and labelling of axes 

• 4 different print sizes and formats i 

• fvlany more features 

AUTOPLOT for TRS-80 

(fulodel I or III with 48k, 1 disk drive] 

on disk with 40 page manual $79.50 

AUTOPLOT for LNW-80 

l+Hi-Res video graphics) $99.50 

CA. residents add 6% sales tax 

Phone orders, VISA and MASTERCARD welcome 

MENLO SYSTEMS -^^'' 

3790 El Camino Real, Suite 221 
Palo Alto, CA. 94306, Tel (415) 327-7424 

TRS-8D TMol Tandy Corp MX-80. GRAFTRAX TM of EPSON Inc 




WHY BUY A JOY 
wf STICK TWICE ! 

an Atari ToLjSr.ck, 
you C3 n use ifon <jour 



JOY STICK KIT 

Without Joy Stick Model I/Ill $15.95 

With Joy Stick Modell/lll $26.95 

— Be Your Own SYSOP !!!!!— 

8ullet-80 Bulletin Board Model 1 $130.00 

Bullet-80 Bulletin Board Model III $150.00 

Screen Artist ll-Create Graphics, 

Save As Basic Routines $32.95 

Panik-New From Fantastic Software 

Model I/Ill Disk $24.95 

Panik-Modelt/NITapeieK $19.95 

Bounceoids-New From Cornsott 

Mpdell/IIIDisk $19.95 

Bouticeoids-Model I/Ill Tape $15.95 

We Also Have In Stock A FULL LINE Of Software 
From ALL The Ma|or Houses. 
Please Call For Intormation About Any Products. 
After-Markel Computer Gallery* ^^ 257 
P.O. Box 993 ^^ 

14 Summit Street (Mail Order) Wm 

I Franklin Street (Retail Outlet) ^g" 
Voice Line - 203 743-1299 ^» 

Bullet-80 Computer Line - 203 744-4644 
D<,nb«.y,cT06aio (300/1200 Bsud) 

*A Division Of Computer Services Of Danbury 



values and the lower surface ordinates 
are negative. For the flat-bottomed 
Clark-Y, all values are positive. 

Lines 1(X)-106 of Listing 2 were used 
to print Tables 1-5. If you want to print 
a similar table, press break and enter 
GOIOIOO. If you want to use this fea- 
iLirc IVequently, add the following to 
line 14: (5) Prim a data tabic. Then add 
,100to theendpf line 17. 

Once we have input a data table and 
a few parameters such as number of 
ribs to be plotted, lengths, and so on, 
the program must calculate the room 
needed to plot each rib. In line 26 the 
maximum upper ordinate and the max- 
imum lower ordinate arc found (MU 
- Max. Upper, ML = Max. Lower). 
In line 29, the total number of dots in 
the horizontal direction needed to plot 
the rib is calculated (E). Line 30 takes 
care of inverting the plot for every 
other rib. 

We then calculate the horizontal 
coordinates of the first two points on 
the upper surface (XI, X2), and then in 
line 37 the vertical coordinates (Yl, 
Y2). A GOSUB 46 gets aline between 
the two points just defined stored in 







Fig. 2. Progressiva Airfoils — Root Section: 
NACA 4415; Tip Section: NACA 0006 



the field buffer. Note at the start of line 
54 is the simple command. Line. As the 
Basic program reads this command, a 
jump is made to memory location 
808AH (36874), the start of the Line 
subroutine. (Sec Program Listing 1, 
lines 390-1400.) This is a good illuslra- 
iion of the simplicity of this method for 
access to machine-language routines. 

While all this is going on, a little 
bookkeeping is done on the screen. A 
pair of < > characters are printed 
each time a line increment is drawn to 
the field buffer. If you place an AM 
radio close to the keyboard you will 
hear a wondrous array of sounds. 

When all the points are calculated or 
when there is no more room in the field 
buffer, the program branches to line 45 
where the RSET command causes a 
jump to memory location 8192H, the 
start of the routine to output the con- 
tents of the field buffer to the printer in 
bit-image format. 

The process seems slow compared to 
normal printing speeds. In the graphics 
.mode the printer always prints in one 
direction only, to help ensure the best 
possible column alignment. Also, be- 
cause the buffer in the printer simply 
cannot hold enough data for a full line 
of dot graphics, the head must make a 
second pass on each line. The net result 
is a speed roughly one-fourth that of 
normal. 

Paper positioning is critical with this 
program since the field takes up vir- 
tually the complete page. With the 
power switch on the side of the printer 
turned off, move the paper so the top 
of a page is just even with the top of the 
ribbon. This gives a margin of about 
1/4 inch top and bottom. If you are 
plotting more than one page, the paper 
must be adjusted this way for each new 
page. With vertical printing set at 72 
dots per inch the printer cannot keep 
track of the top of the form. 

Progressive Airfoils 

The program allows you to load a 
pair of data files — ^one for the root sec- 
tion, and one for the lip. Figure 2 
shows a set of ribs with a rather thick 
semi-symmetrical airfoil at the root 
and a thin fully symmetrical shape at 
the tip. This is more or less the plan for 
the old C-47 of World War II. 

As each rib is plotted, points are cal- 
culated for both root and tip sections 
and, from these, points for the rib are 
calculated by interpolating values re- 
lated to the position of the rib on the 
wing. The result is a wing with a con- 
stantly changing airfoil shape from 
root to tip. 
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Some interesting intermediate air- 
foil sections result from using two sec- 
lions with very different sliapes — like 
tlie flat-bottomed Clark-Y at the root 
and the symmetrical NACA 65 009 for 
the lip (Fig. 2). One word of caution: 
The data tables for both sections 
should have the same number of sta- 
tions, and the same station values. 
Tabic 4 is an edited version of the 
NACA 65 009 data set up to match the 
Clark-Y. Table 5 is more typical of the 
type of data that you will find for some 
of the newer sections. 

There are several closely spaced sia- 
Lions in the critical leading-edge area. 
This leads to a better definition of the 
nose part of the section. Figure 1 was 
plotted from this data. Each data table 
has two stations with a value of 100. 
This is a feature that I always add to a 
table, and ihc purpose is to draw ihe 
little hash mark at the traiUng edge of 
each rib to define this point exactly 
when cutting out. 

I usually use these plotted sections in 
one of two ways: First, for balsa wood 
ribs, I make copies and then transfer 
the pattern to the wood using an elec- 
tric iron. The first cut I make is at the 
hash mark. Second, the plot can be 
glued to a piece of thin metal or for- 
mica, trimmed to shape, and used as a 
master template in hot-wire cutting of 
foam wing cores. 

Other Applications 

Not everyone is going to get excited 



about plotting airfoils, but fortunately 
the Basic program can be easily changed 
and adapted to do all sorts of plotting. 
As used with the machine-language 
program FOU.EXEC/OBJ, the sys- 
tem runs rather tight on memory. You 
will find that you can manage six or 
eight data tables before running into 
memory constraints. This is no prob- 
lem when using the system as written to 
plot airfoil sections. If you want to 
store more than this, switch to another 
data disk. The first time you run the 
program you will create a new DATA- 
LIST/TXT file. 

If you decide to adapt this program 
to another use that will require more 
space for the Basic program, you can 
gel this space by changing the field 
size. For instance, a six-inch-square 
field {432 vertical by 360 horizontal) 
takes about 20K bytes of memory. The 
key lines of Listing 1 that will need 
revision arc 260, 1260, 1270, 1500, 
1510, 1520, 1760, 1820, 1860, and 
1990. 

As for the Basic program, all you 
have to do is calculate the X and Y 
coordinates for a pair of points (XI, 
X2, Yl , Y2) and then execute the com- 
mand Line. When ready to print, exe- 
cute RSET and to clear the field for a 
new plot, execute Field. ■ 

Boh Boo! he (4651 Browndeer 
Lane, RoUing Hills Eslaies, CA 
90274) is studying computer engineer- 
ing at the Univ. ofCA, San Diego. 











Profwuin Lisiinf> 1 








00100 






"FOILEXEC". . . . 








00110 














00120 




;LINE 


DRAWING ROUTINE 


FOR "EPSON" 






00130 




;KX-8 


PRINTER WITH "GRAFTRAX"' ROM | 






tl0140 




;AND 


TRS-80 HOD I ... 


48K DISK BASIC 






00150 














00160 




•THIS 


VERSION DEFINES 


A RECTANGULAR FIELD 






00170 




;760 


DOTS HIGH BY 340 


DOTS WIDE. (10,55" X 5.66") 






00180 














00190 




•BOB 


BOOTHE 12/20/81 


REVISED 01/25/82 


41A3 




00200 




ORG 


16804-1 


;LINE LOCATION 


41A3 


C3 8A80 


00210 




JP 


LINE 


; AUTOMATIC CilABLE 


4179 




00220 




ORG 


16762-1 




4179 


C37iai 


00230 




JP 


FIELD 




4195 




00240 




ORG 


16774-i 




41S5 


C39281 


00250 




JP 


RSRT 




8072 




00260 




ORG 


32882 ;S0 t;ND IS BIrJLOW 33235 j 


8072 


0000 


00270 


ST ART K 


DEFW 





;RESERVE 4 BYTfclS 


8074 


0000 


00280 




>DEFW 





;FOR EA. VARIABLE 


8076 


0000 


00290 


STARTY 


DSPW 







8078 


0000 


00300 




DEFW 







a07A 


0000 


00310 


ENDX 


DEFW 







807C 


0000 


00320 




DEFW 







807E 


0000 


00330 


ENDY 


DEFW 







8080 


0000 


00340 




DEFW 







8082 


0000 


00350 


DIRX 


DEFW 





jLEAST SIGNIFICANT 


8084 


0000 


00360 




DEFW 





;MOST SIGNIFICANT 


8086 


0000 


08370 


DIRY 


DEFW 







8088 


0000 


00380 




DHKW 







80 8A 


D9 


00390 


LINE 


EXX 




; SAVE REGISTERS 


808B 


2A7C80 


00400 




LD 


HL, (ENDX+2) 


; GET END OF X POINT 


&08E 


ED5B7480 


00410 




LD 


DE, (STfiRTX+2} 


; START OF X 


8092 


B7 


00420 




OR 


A 


; RESET CARRY FLAG 


8093 


ED52 


00430 




SBC 


HL,nK 


; FIND DIFFERENCE 


8095 


228280 


00440 




LD 


(DIRX) ,HL 


Lisnng 1 Connnues 



S^tttuiitiKi^mf^.-^:'^, • ■■ti'-tfim 



The 

Lawyer's 

Microcomputer 

A Newsletter for Lawyers 
Using the TRS-80* 

Seminar 

St. Thomas 

U.S. Virgin Islands 

January 3-10, 1983 

For Lawyers Using 

Radio Shack Computers 

For Details: 

Call Ton Free; 

800-821-6129 

A New Monthly Newsletter 

For Lawyers 

Send $28 lor A 
One Year Subscription 

The Lawyers Microcomputer™ 

Post Office Box 1046A 
Lexington. B.C. 29072 
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TM Tandy Corp 



Wl I n TRSDOS Enhancement 

" ' LU Use i.^^iif] _ ^3^^" 

file names with your DOS com- 
mands (APPEND, COPY, DIR, KILL, 
LIST, etc.)* Select files based 
on character strings, position, 
type, ...» Mon scrolling display 
• "AH except" switch* (Yes, No. 
Quit, Go) processing controls* 
Example: Delete all files except 
those with a 2nd letter of "D" 
WILD KILL -JD*:1 

Model 3 disk $25 

FPPFPTQ SoiJ^fl * Graphics 
LTFLl/ I O Effects Editor 

Add high speed graphics & sounds 
to BASIC programs* Create/Edit 
effects 5 save them in RAH or on 
disk* Screen portions saved and 
recalled to any location* 3 re- 
cal 1 modes (replace, add, and 
erase)* Text S special character 
support* Sounds generated with 
cassette port* User specified 
tones and durations* Screen for- 
matted input routines provided* 
Demo programs and a two player 
game included* 8K+ machine code 
editor with 2K run time module* 
32K and 48K version on same disk 
Manual $5, with Model 3 disk $39 

Send SASE for more information 
Else check or money order to: 

^>350 

Ledford Computer Services 
23007 La Pierre Drive 
Mountlake Terrace, WA 98043 
"TRSDOS is a TANDY Corp. Trademark 



■See List 0/ Advertisers on Page 455 
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foi^I'MeOIModillll 

and th^ CokNf ^^flRipwIfr 



■ Church Contribution Sysietn 

desigieO to simplify and facilitate the tedi- 
ous chore of recording envelopes. Provides a 

variety of reports Maintains its own data- 

liles OtiiySlSO 

■ Data Base Manager 

designed to fielp organize all your data and pro- 
vide you with meaningful reports. Add or delete 
any information. New files can he created and 
old information transferred Only $150 

■ Single Entry Ledger 

designed as an uncomplicated control of 
finances for fiome or small business. Add. de- 
lete, edit at any time. Compatible with 
DBM. Only $95 

Write or phone lor complete sotlware price list 




i=:!S!^ayclev- 



■ELF Jliuly proq ram... lliEW£>US-60... returns mlo. ir 
in mini-page display,., mod. I S III,,, disk,,, can be user 
modified. ..disk price includes 
shipping tlS-SO 

"lUTMY" ■«<IM pMgnai" 

FeafurGfi auto log on, 38 K buffer, DOS cmds, ecfio. set paramelers, 
prinler loqqle, warm restart, variable transmiasion speed, RS-232 
loggle, spec, characters (keyboard), review buffer, and MORE. 
Running now under t NEWDOS, 'TRSDOS and will be available 
lor others soon, Inlroduolory special,, ,(incl jrl,r,q 

shipping) «31.S0 

will include the SOOBCE LISTING on the disk ior »S1.J0 



Very compact and easy to use witli The MAYDAY modem sotfware. 
This 300 baud modem can operale with 9-volt battery system or witfi 
optional AC adapter (J7 SO) and automatically delects the carrier 
3lgrul tor originate or answer. There is a buill in RS-232 ^able and 
connector to your computer and with the "MAYDAY modem" sofl- 
ware you're in business. Modular lelepfione connects required. 

Price includes shipping t99>95 

Package price of MAYDAY modem software PLUS the Mart 1 
modem unit PLUS the AC adapter PLUS shipping within the contin. 
U,S tiaS-SB 



Allow 2 wks./pers, checks. ..Wis. residents add S-'-'-i tax 



MAYDAY Software 

Po*t Ofilc* Ban Se. Rock Creek Hosd, Fhillips. Wis 

(715) 339-3966 



Save Grief & Aggravation 

—Know Before You Buy— 

READ 

"Consumer Protection for 
the Microcomputer Owner" 

COVERS; 

1 Prelimnary Considerations before Buying 

2 Legal Differences between Mail Order and 
Local Store 

3 Pitlails and Protection of Paying by Cash, 
Check. CteditCard. etc 

4 Whala Warranty Really Is 

5 How to Complain Effectively 

6. How to Legally Reject and Revoke 

Acceptance of Goods 
7 Miscellaneous Hinis and Suggestions 

ONLY $15 Poit Paid (COD $3 Extra) 

Send Clieck or Money Ordet io 

L. J. KUTTEN, ATTORNEY 
201 South Csntral 
P.O. Box 16185 
St. Louli (Clayton). MO 63105 

314-721-6644 

Mo. RMldanti add 4.e25°/o mIm tax 

CompuServe ID #70655,376 Source ID# TCK092 

p^444 
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8098 


CB7C 


C0450 




BIT 


7,H 


; IS RESULT NEGATIVE 


809A 


2805 


B8460 




JR 


Z,DX0 




809C 


21FFFF 


0047'0 




LD 


HL,-1 


; YES, MAKE MSW NEG 


8H9F 


1803 


00480 




JR 


PDX 




80A1 


210000 


0049B 


DX0 


LD 


H L , 


; WO, MAKE MSW 


80A4 


228480 


03Sm 


PDX 


LD 


{DIRX+2) ,HL 




80A7 


2A8080 


00510 




LD 


HL, (ENDY+2) 


; REPEAT ABOVE FOR Y 


80AA 


ED5B7 880 


00520 




LD 


DE, (STARTY+2) 




80AE 


B7 


00530 




OR 


A 




80AF 


ED52 


00540 




SBC 


HL,DE 




80 Bl 


228680 


80556 




LD , 


(DIRY) ,HL 




80B4 


CB7C 


00560 




BIT 


7,H 




8066 


2805 


00570 




JR 


Z,DY0 




a0B8 


21FFFF 


00580 




LD 


HL,-1 




80BB 


1803 


00590 




JR 


PDY 




80BD 


210000 


00600 


DY0 


LD 


HL,0 




80C0 


228880 


00610 


PDY 


LD 


(DIRY+2) ,HL 




80C3 


2A8280 


00620 




LD 


HL, (DIRX) 




80C6 


ED5B8680 


00630 




LD 


DE, (DIRY) 




80 CA 


7C 


00640 




LD 


A,H 




80CB 


E68B 


00650 




AND 


80H 


; PUT BIT 7 OF H IN B 


80CD 


47 


00660 




LD 


B,A 




80CE 


7A 


00670 




LD 


A,D 




eacF 


K6 80 


006 80 




AND 


80H 


; PUT BIT 7 OF D IN C 


e0Di 


4F 


0069B 




LD 


C,A 




S0D2 


CB25 


00700 


SfllFT 


SLA 


L 


; EXPAND DIRECTION UNTIL 


80D4 


CB14 


00710 




RL 


H 


; BIT 7 CHANGES 


80D6 


CB23 


0S720 




SLA 


E 


; THIS GIVES MAX. SPEED 


80D8 


CB12 


00730 




RL 


D 




80DA 


7C 


007 40 




LD 


A,H 




80DB 


E680 


0075B 




AND 


80H 




80DD 


B8 


00760 




CP 


B 




30DE 


2008 


09770 




JR 


N2, DSHIFT 




80B0 


7A 


00780 




LD 


A,D 




8BE1 


E6 80 


00790 




AND 


e0H 




80E3 


B9 


00800 




CP 


c 




80B4 


2002 


00816 




JR 


NZ, DSHIFT 




80E6 


18EA 


00820 




JR 


SHIFT 




80E8 


228280 


00830 


DSHIFT 


LD 


(DIBX) ,HL 


; DONE SHIFTING SO STORE 


80EB 


ED538680 


00840 




LD 


(DIRY) ,DE 




80EF 


CD3C81 


00850 


KXTBLO 


CALL 


SET 


; SET 1ST POINT 


80P2 


AF 


00860 




XOR 


A 


; RESET CARRY FLAG 


80P3 


2A7C80 


00870 




LD 


HL, (ENDX+2) 




80^6 


ED5B7480 


00880 




LD 


DE, (STARTX+2) 




80FA 


EDS 2 


00890 




SBC 


HL,DE 


; DOHS START = END YET 


80FC 


2830 


00900 




JR 


Z, MAY BE 




80FE 


2A7280 


00910 


NOTYET 


LD 


HL, (STARTX) 


; ADD DIRt;CTION TO START 


8101 


ED5B8280 


00920 




LD 


DE, (DIRX) 




8105 


19 


00930 




ADD 


HL,DE 


; ADD LSW S FIRST 


8106 


227280 


00940 




LD 


(STARTX) ,HL 




8109 


2A748D 


00950 




LD 


HL, (STARTX+2) 




810C 


ED5Ba480 


00960 




LD 


DE, (DIRX + 2) 


; (DIRX+2) SHOULD BE 


8110 


ED 5 A 


00970 




ADC 


HL,DE 


; ADD CARRY FROM LSW ' S 


8112 


227480 


00980 




LD 


(STAKTX+2} ,HL 


; REPEAT FOR Y'S 


8115 


2A7680 


00990 




LD 


HL, (STARTY) 




8118 


ED5B86e0 


01000 




LD 


DE, (DIRY) 




811C 


19 


01010 




ADD 


HL,DE 




8ilD 


227680 


01020 




LD 


(STARTY) ,HL 




8120 


2A7880 


01030 




IrD 


HL, (STARTY+2) 




8123 


ED5Be880 


01040 




LD 


DE, {DIRY+2) 




8127 


ED 5 A 


01050 




ADC 


BL,DE 




8129 


227 880 


01060 




LD 


(STARTY+2) ,UL 




812C 


18C1 


01070 




JR 


NXTBLO 




812E 


B7 


01080 


MAYBE 


OR 


A 


; ARE Y' S ALSO EQUAL 


812E' 


2A80 80 


01090 




LD 


HL,(EKDY+2) 




8132 


ED5B7880 


01100 




LD 


DE, (STARTY+2) 




,8136 


ED52 


01110 




SBC 


HL,DE 




8138 


20C4 


01120 




JR 


NZ, NOTYET 


; NO, GO BACK AND FINISH 


813A 


D9 


01130 




EXX 




; GET BACK OLD REGISTERS 


813E 


C9 


01140 




RET 




; RETURN TO PROGRAM 


813C 


060 


01150 


SET 


LD 


B,0 


; ROUTINE TO SET A POINT 


813E 


2A7880 


01160 




LD 


HL, (STARTY+2) 




8141 


110800 


01170 




LD 


DE,8 


; GOING TO DIVIDE BY 8 


8144 


B7 


01180 




OR 


A 


; RESET CARRY FLAG 


8145 


ED52 


01190 


DIV7 


SBC 


HL,DE 


; DIVIDE BY SUBTRACTION 


8147 


3803 


01200 




JR 


CDONDIV 




8149 


04 


01210 




INC 


B 


; COUNT THE 7'S 


814A 


18F9 


01220 




JR 


DIV7 




8i4C 


19 


01230 


DONDIV 


ADD 


HL,DE 


; PUT BACK LAST 7 


814D 


40 


01240 




LD 


C,L 


; PUT REMAINDER IN C 


814E 


04 


01250 




IKC 


B 


; SO B ISN'T 


814F 


115481 


01260 




LD 


DE,340 


; 340 BYTES PER LINE 


8152 


217F80 


0127fl 




LD 


HL, 33235-340 


; COMPENSATE FOR (INC B) 


8155 


19 


01280 


MULT 


ADD 


HL,DE 


; ADD 340 FOR EACH LINE 


8156 


10FD 


01290 




DJNZ 


MULT 




8158 


ED5B7 4 80 


01300 




LD 


DE, (STARTX+2) 


; GET X COLUMN 


815C 


19 


01310 




ADD 


HL,DE 


; MAKE ADDRESS 


81 5D 


41 


01320 




LD 


B,C 




815E 


04 


01330 




INC 


B 


; SO B DOESN'T EQUAL 


815F 


116881 


01340 




LD 


DE,TABLE-1 


; COMPENSATE FOR (INC B) 


8162 


13 


01350 


FINDT 


INC 


DE 




8163 


10FD 


01360 




DJNS 


PINDT 


; FIND LOCATION IN TABLE 


8165 


lA 


01370 




LD 


A,(DE} 




8166 


B6 


01380 




OR 


(HL) 


; SET THAT BIT 


8167 


77 


01390 




LD 


(HL) ,A 


; STORE 


8168 


C9 


01400 




RET 




; FINALLY DONE 


8169 


80 


01410 


TABLE 


DEFB 


80H 


; BIT 


816A 


40 


01420 




DEFB 


40H 


; BIT 1 


816B 


20 


01430 




DEFB 


20H 


; SO ON 

Listing 1 Conlinuei 
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YOU DON'T NEED A 

TIANCI USE TO 
CASH IN ON MODEL II SALES. 




It's true, all you have to 
do is carry the DOSPLUS II 
operating system for TRS-80 
Model II users. 

DOSPLUS II outperforms the O.EM. 
DOS with an ultra sophisticated operating 
system that is five or more hmes faster, more 
reliable and totally compatible with all standard 
business orientated software that's designed for 
use with the Model II. 

The result is a unique computer/operating 

system that far exceeds manufacturers 
specifications with more potential and capacity 
to handle any business needs. Which in turn 
means increased sales for you. 

The DOSPLUS II is a winner, there's abso- 
lutely nothing available like it. The popular- 
price tag will almost certainly guarantee a high 
sales turnover. 




That's why we're backing 
it with an impressive 
multi-publication national 
advertising campaign that 
includes co-op advertising, toll-free 
dealer hot lines, 48 hr. phone in pro 
cessed orders, liberal return policy, easy 
updates and a terrihc sales margin. All together 
DOSPLUS II spells success. And as a DOSPLUS 
dealer you're carrying the latest state ot the art 
innovations in software technology, that meets 
tomorrow's business needs today So who needs 
a franchise? Cash in today Carry DOSPLUS 11 
the ultimate operating system for the TRS-80 
Model II. 




DOSPLUS hist in qualitYl First In the Industry! 

'Radio Shack is a trademark of Tandy 



A Division of Breeze/QSD, Inc. 

11500 Stemmons Fwy., Dallas, Texas 75229 

To order call toll free 1-800-527-7432 

For product information (214) 484-2976 

Micronet 70130, 203 ^6i 

^See List of Adveitisers on Page 455 




MICRO SYSTEMS SOFTWARE, INC. 

4301-18 Oak Circle 

Boca Raton, FL 33431 

To order call toll free 1-800-327-8724 

For product information (305) 983-3390 

,'364 
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ABS Suppliers 

3352 Chelsea Circle 

Ann Arbor, Ml 48104 

(313) 971-1404 



B1 7 TAPE OPERATING SYSTEM will let you 

• Save 8 Load programs 6X faster Ihan Model-1 

• Save & Load Data Arrays over 800X faster. 

• Backup standard System tapes that load-n-go. 

• Certify cassette tapes for B1 7 use, 
$14.95 Specify Model 1/3 16K/32Ky48K RAfJ. 
Inexpensive Upgrades available. 3rd year ot sales, 

B17DISK/BAS isa Disk version. Lets you save any 
disk tile lo cassette at 3000 baud. Inexpensive way 
to backup your files. Works with an/ DOS. Includes 
tape certifier. Requires 32K RAM-up, 
$14.95 Specify Model 1/3, 

WORDSMITH Word-processing program m BASIC. 
A Trainer' tor more complex W/P programs. Easy- 
to-use. Specify Tape/Disk version. Tape version 
requires 81 7 Tape Operating System (above). Disk 
version req ul res 32 K RAM-up UsesMX-80 Printer. 
$14.95 Specify Model 1/3. 



Add $1.50 postage/handling per item. 
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The Worlds Most Powerful 

Software Vendor 

Is Looking For 

SOFTWARE AUTHORS 

for MOD I, II, III & IBMP.C. 

Ifyou have a product for the Micro 
Market, let us help you with the 
design, production and distribution. 
Cdll or write for an Authors Kit today! 

PDWERSDFT 

A Division ot Brce?e/QSD, Inc. 
11500 STEMMONS FREEWAY, SUITE 125 

DALLAS, TEXAS 75229 
ATTENTION SOFTWARE ACQUISITIONS 

(214) 484-2976 




Epson IVIX70/80 Cartridges 

Available in Black, Red, 

Green, Blue, Brown. 




Min. 3 each 

Reloads $2.50 each Min. 12 
$30™ Doz. 



35 Cherry Court 

East Norltiporl, N,Y, 11731 

N.Y.S. Residents Add Tax 

Add S2.00 Shipping-Handling 
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816C 10 


01440 




DEFB 


10H 




816D 08 


01450 




DEFB 


8H 




816E 04 


01460 




DEFB 


04H 




ai6F 02 


01470 




DEFB 


02H 




8178 01 


01480 




DEFB 


01H 




8171 D9 


01490 


FIELD 


EXX 




; SAVK Hf-.GISTERS 


8172 21D381 


01500 




LD 


HL, 33235 


; yTART PICTURE 


8175 11D481 


01510 




r.D 


DE, 33236 


; START -M 


8178 012C7E 


01520 




LD 


BC, 32300 


; [760'340)/a = 32300 


ei7B 3600 


01530 




LD 


(HL) ,0 


; CLEAR 


817D EDB0 


01540 




LDIR 




; COPY ALL THE WAY 


817F U9 


01550 




EXX 




; GIVE 'EM OLD REGISTERS 


8180 C9 


01560 




RET 




; GET BACK TO PUN STUFF 


8181 V.5 


01570 


PRTOUT 


PUSH 


HL 


; SAVE Ht. 


8182 C5 


01580 




PUSH 


BC 




8183 0600 


01590 




LD 


B,0 


!256 STEP DELAY LOOP 


8185 10FE 


01600 


DELAY 


DJHZ 


DELAY 




8187 CI 


016,10 




POP 


BC 




8188 21E837 


01620 




LD 


HL,37i:;8H 


; LP POINTER - MOD I 


81 8B CB7F, 


01630 


PRTLP8 


BIT 


7,(HL) 


; BIT 7 OK MEANS BUSY 


81BD 20FC 


^1640 




JR 


NZ,PRTLP8 




818F 77 


01650 




LD 


(HL) ,A 


; LP RlrlADY, SO OUTPUT 


8190 El 


01660 




POP 


HL 


; GET BACK HL 


8191 C9 


01670 




RET 




; BACK TO WORK 


8192 D9 


01680 


RSET 


EXX 




; YOU KNOW WHAT THIS DOES 


8193 3E1B 


01690 




LD 


A, 27 


; ESCAPF 


8195 CD8181 


01700 




CALL 


PRTOtIT 




8198 3E33 


01710 




LD 


A, 51 


; ASCII - 3 


819A CD8181 


01720 




CALL 


PRTOUT 




819D 3EiB 


01730 




LD 


A, 24 


; 8 DOT SPACING 


819F CDSiei 


01740 




CALL 


PRTOUT 




81A2 eSBF 


01750 




LD 


B,95 


! NUMBER OF LINES 


81A4 21D3 81 


01760 




LD 


HL, 33235 


; FIRST BYTE LOCATION 


81A7 C5 


01770 


LOOP 


PUSH 


BC 


; SAVE LINE COUNTER 


eiA8 3E1B 


01780 




LD 


A, 27 


; ESCAPE 


81AA CD8181 


01790 




CALL 


PRTOUT 




81AD 3E4B 


01800 




LD 


A, 75 


; TRANSMIT GRAPHICAL DATA 


31AF CD8181 


01810 




CALL 


PRTOUT 




81B2 3E54 


01820 




LD 


A, 84 


;ADD TO 256 = 340 


81B4 CD8181 


01830 




CALL 


PRTOUT 




81B7 3E01 


01840 




LD 


A,l 


;256 BYTES 


B1B9 CD8181 


01850 




CALL 


PRTOUT 




81BC 015401 


01860 




LD 


BC,340 


; NO. CHARS FROM MEMORY 


81BF IV. 


01870 


CHAR 


LD 


A,(HL) 




81C0 CD8181 


01880 




CALL 


PRTOUT 




81C3 23 


01890 




IKC 


tlL. 


; INC ADDRESS AFTCR EACH 


81C4 0B 


01900 




DEC 


BC 


; DEC COUNTER AND CHECK 


81C5 79 


01910 




LD 


A,C 




81C6 B0 


01920 




OR 


B 




81C7 20F6 


01930 




JR 


NZ,CHAR 




81C9 3E0D 


01940 




LD 


A, 13 


; CAUSES LINE FEED 


eiCB CD8181 


01950 




CALL 


PPTOUT 




81CE CI 


01960 




POP 


BC 


; GET LINE COUNTER 


81CF 10D6 


01970 




DJKZ 


LOOP 




81D1 D9 


01980 




EXX 


: 


GET BACK OLD REGISTERS 


81D2 C9 


01990 




RET 


;ADUHESS 


SHOULD BE 81D2H WHEN ASSEMBLING 


1A19 


02000 




END 


1A19I1 


jENTRY TO LEVEL II BASIC 


00000 TOTAL 


ERRORS 











Pr<)i.',rani l.isiiuK 2 



1 ' AIRFOIL/BAS — BOB BOOTHE — 12/28/81 

2 POKLie 804,1 38 :P0KE16 805, 128 :POKE15765, 113 :POKE16766, 129: 

POKE167 95,146:POKE16796,129:POKEl6561,113:POKE16B62,128: 
CLEAR150 

3 IFPEEK{&H41A3) 0195THENCLS: 

PRINT"YOU MUST LOAD (FOILEXEC/OBJ) BEFORE YOU CAN RUN.": 
INPUT"PRESS <ENTER> TO RETURN TO DOS" ; Q?: CMD-S" 

4 FS="## =###.## ##.«## ##.###" 

5 FIELD:DEFINT A,D,N,Q,W,Z: 

DIMP(30,3) :DIMTR(30,3) :G0T08 

6 IF ERRO106 THENPRINT"ERROR":END 

7 CLOSE1:D=0:CLS:PRINT"NO DATAFILE LIST ON THIS DISK 1": 
PRINT:RESUME14 

8 ON ERROR GOTO 6 

9 0PEN"I",1,"DATALIST/TXT:1" 

10 IF E0F(1)THEN12 

11 D=D+1:INPUT#1,NS(D) :GOTO10 

12 CLOSE1:ONERRORGOTO0 

13 CLSiF0RQ=lT0DSTEP2: 

PRINTQ;" - ";N${Q) ;TAB(24)Q+1; " - " ; N$ ( Q+1) : NEXT : 
PRINT: PRINTSTRINGS (64,"=") 

14 PRINTia643," (1) LOAD A DATA FILE FROM DISK 

(2) LOAD A PAIR OF DATA FILES ~ FOR PROGRESSIVE AIRFOILS. 

(3) INPUT A DATA TABI E FROM KEYBOARD 

(4) REVISE A DATA TABLE 

15 INPUT"CHOOSE A FUNCTION BY NUMBER" ;DT 

16 PRINT@640,CHRS(31) ; 

17 ONDTGOT057,62,19,57 UsUn, 2 ConUnues 
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Li sung 2 ConUnued 

18 G0T015 

19 ONERRORGOTO0:D=D+a: 

INPUT"TITLE FOR THIS DATA .... 

(FIRST EIGHT CHARACTERS MUST BE UNIQUE) ";N${D) 

20 INPUT"HOW riANY STATIONS PER RIB (30 MAX) ";NS 

21 FORW=iTONS: 

INPUT"STATION VALUE, UPPER, LOWER " ; P(W,1) ,P t W, 2) , P ( W, 3) : 
NEXT 

22 INPUT"SAVE DATA TO DISK (Y/N) " ; Q$: IFQ5<>"Y"THENCLS : GOT025 

23 0PEN"0",1,"DATALIST/TXT:1":F0RQ=1T0D:PRINT#1,N$(Q) :NEXT: 

CLOSEl :DF=D : GOSUB55 

24 0PEN"0",1,FS$:PRINT#1,NS:F0RW=1T0NS: 

PRINT#1,P(W,1) ;P(W,2) ;P{W,3) ;: NEXT: CLOSEl :CLS: IFDT=4THENRUN 

25 INPUT"HOW MARY RIBS (10 HAX)";NR: 

INPUT"SPAR CENTERLINE AT WHAT STATION" ; SC:F0RW=1T0NR: 
INPUT"LENGTH IN INCHES "; L (W) :NEXT:C=0 

26 MU=P(1,2} :ML=P(1,3) :FOR E=1T0NS: IFP(E,2) >MUTHENHU=P(E, 2) 

27 IFP ( E , 3 ) <MLTHENML=P ( E , 3 ) 

28 NEXTE 

29 FOR W=1T0NR:PRINT:PRINTW; :E=[MU-ML)/100*L(W) *60: 

IFC+E>33 9THENGOSUB45 

30 XC=C-ML/100*L(W)*60:YC-0:F=1: 

IF(W/2)=INT(W/2)THENYC=7 59:F=-1 

31 IFF=--1THENXC=C+C+E-XC 

32 F0RA=1T0NS-1 

33 X1=F*P(A,2)/100*L(W}*60+XC:X2=F*P(A+1,2)/100*L(W)*60+XC 

34 IFDT02THEN37 

35 T1=F*TR(A,2)/100*L(W)*60+XC:T2=F*TR(A+1,2)/100*L(W)*60+XC 

36 Xl=(Xl*(NR-W}+Tl*(W-l))/(NR-l} : 

X2=(X2*(NR-W)+T2*(W-1))/(NR-1) 
3 7 Y1=F*P{A,1)/100*L(W) *7 2+YC : Y2=F*P ( A+1 , 1 ) /10 0*L ( W) *7 2+YC 

38 GOSUB46 

39 X1=F*P(A,3)/100*L(W}*60+XC:X2=F*P(A+1,3)/100*L(W)*60+XC 

40 IFDT<>2THfJNGOSUB46:NEXT:GOT044 

41 T1=F*TR(A,3)/100*L(W)*60+XC:T2=F*TR[A+1,3)/100*L[W)*60+XC 

42 Xl=(Xl*{NR-W) +T1* (W"l) )/(NR-l) : 

.X2=(X2*(NR-W)+T2*(K-1))/(NR-1) 

43 G0SUB46:NEXT 

44 X1=XC!X2=XC:Y1=YC:G0SUB46: 

X1=C:X2=C+E:Y1=YC+F*SC/100*L(W)*72:Y2=Y1:GOSUB46: 
C=C+E : NEXT : GOSUB45 : END 

45 C=0!RSET:FIELD:RETURN 

46 PRINT"<''; jREM LINE ROUTINE 

47 IF XI < OR XI > 339 THEN PRINT"X1 

48 IF X2 < OR X2 > 339 THEN PRINT"X2 

49 IF Yl < OR Yl 

50 IF Y2 < OR Y2 

51 IF INT(X1)=INT(X2) AND INT( Yl) =INT( Y2) THEN 

PRINT"VALUE TOO CLOSE ": RETURN 

52 X3=INT(Xl/256) :X4=INT(x2/256) : Y3=INT(Yl/256) : Y4=INT(Y2/256 ' 

53 POKE&H8074,X1-X3*256:POKE&H8075,X3: 

POKE&H807 8,Y1-Y3*256:POKE&H8 07 9,Y3: 
POKE&H807C,X2-X4*256:POKESH807D,X4: 
POKE&H80 80,Y2-Y4*25 6:POKEJ.[180 81,Y4 

54 LINE : PRINT" >"; iRETURN 

55 FS$^LEPTS(N${DF)+" " , 8) : F0H0=lTO8 : 

FT=ASC(MID$(FS$,0,1)) : 

IFFT>31ANDFT<4 8ORFT>57ANDFT<65THENMID$(FS$,Q,1)="0" 

56 NEXT:FSS=FS$+"/DAT:l": RETURN 

57 INPUT"WHICH DATA FILE ";DF:GOSUB55 
5 8 OPEN"I",1,FSS:INPUT#1,NS:FORW=1TONS: 

INPUT#1,P(W,1) ,P(W,2) ,P(W,3) ;NEXT:CL0SE1:IFDT=2THEN63 
'59 Z=NS/2:IF2*Z<>NSTHENZ=Z+1 

60 CLS:F0RW=1T0Z:PRINTUSINGF$; 

W,P(W,1) ,P(W,2) ,P(W,3};: PRINT" * " ; :PRINTUSINGF$; 
W+Z,P(W+Z,1) ,P(W+Z,2) ,P{W+Z,3) :NEXT 

61 IFDT=1THEN25ELSEIFDT=4THEN65ELSE63 

62 INPUT"WHICH FILE FOR THE ROOT RIB " ; DF : G0SUB55 :GOT058 

63 INPUT"WHICH FILE FOR THE TIP RIB " ; DF :GOSUB55 : 

0PEN"I",1,FS$:INPUT#1,NS:F0RW=1T0NS: 
IMPUT#1,TR(W,1) ,TR{W,2) ,TR(W,3) :NEXT:CL0SE1 

64 GOT025 

65 INPUT"CHANGE WHICH LINE (0, IF THROUGH) " ;CL: IPCL=0THEN24 

66 CLS:PRINT"CHANGE EACH ITEM AS IT APPEARS" : PRINT 

67 PRINT"STATION VALUE " ; P(CL,1) ; ; INPUTP (CL, 1) 

68 PRIWT"UPPER SURFACE " ; P(CL,2) ; : INPUTP (CL, 2) 

69 PRINT"LOWER SURFACE " ; P(CL,3) ; : INPUTP (CL, 3) 

70 GOT059 

100 INPUT"TABLE NO, " ; TN 

101 LPRINT," DATA TABLE FOR ";NS(DF);" AIRFOIL" : LPRINT: 

102 LPRINT," STATION"," UPPER"," LOWER" 

103 LPRINT," VALUE", "SURFACE", "SURFACE":LPRINT 

104 DT5="## ###.## ■ #!.### ##.###" 

105 F0EQ=1T0NS:LPRINT,USINGDT$;Q,P(Q,1) ,P(Q,2) ,P(Q,3) :NEXT 

106 LPRINT:LPRINT:LPRINT," TABLE -";TN 



ILLEGAL" 
ILLt;GAL' 

> 759 THEN PRINT"Yl ILLEGAL' 

> 759 THEN PRINT"Y2 ILLEGAL' 



:END 
; END 
;END 
:END 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 
prices and information. Dealer 
inquiries invited. C.O.D. and 
charge cards accepted. 




VISA 



PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
SanLuisObispo.CA 
93401. InCal. call 
(800) 592-5935 or 
(805)543-1037. 

^207 



color 
communications 

Communicate in color with the MICRO 
CONNECTION™ direct connect 
modem for the TRS-80* Color 
Computer, Run 300 bps serial printers 
to download color files. Send E-mail, 
&\3i buy merchandise, access the 
Source* and other exciting data bases 
with the MICROCONNECTION™ for 
the TRS-80* Color Computer, S 199.50 

the microperipheraf corporation 

2643 - 1 51 St Place NE 

Redmond, WA 98052 

(206)881-7544 
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96K model 1 

BIGMEM* consists of eight 64K W.Ks to 
replace your old 16K chips and a inem- 
ory-controller board that fits neatly 
within the keyboard case. Features: 

48K keyboard memory on power-up 

plus access to 32K E/I memory. 

2.7K RAM above ROM available. 

Can overlay ROM with RAM. 

DOS operations unaffected. 

Remaps kybd and video for CP/M** 

BIGMEM kit includes 64K RAMs, A&T 
controller board, internal cable, 
wire, solder and instructions. Only 

$180 ppd. shipping with check 

or money order. COD $3 extra. 
NYS residents add sales tax. 

MICROHATCH 
PO Box 501 
DeWItt, NY 13214 

* Trademark of Mfcrohatch ►'419 

** Trademark of Digital Research 



.^See List ol Advertisers on Page Abb 
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This system uses only one key. 



Plant a Binary Tree 



Ken Knecht 

1340 West Third St. tt130 

Yuma, AZ 85364 



You might wish to plant the 
binary tree in your random 
disk files. Easy to utilize, it re- 
quires only two bytes in each 
record. It allows for fast sorted 
printouts, in key data order, and 
very quick searches for a record 
using key data. 

Key data is the record data 
most often used for sorts and 



when searching fora record. For 
example, in an inventory file It 
could be a part number. 

The system described here 
only permits one key. The dis- 
advantage of this is that you 
cannot use the binary tree's 
help in searching for an address 
in a mailing list if names are 
used as your key data. A se- 
quential search is needed in this 
case. Also, you cannot move 
records around in afile or easily 
replace deleted records when 
using the binary tree. 

The system works most effi- 
ciently with blocked files (ran- 
dom length records), like those 
found in LDOS and Model III 
TRSDOS. Note: You can't use 



LP RN KEY FIELD RP 



Figure 1 




several subrecords in each 
256-byte record without modify- 
ing the system. 

In the following example I've 
used records consisting of three 
fields: a part number; a part de- 
scription; and the quantity. (In 
actual use as many fields as 
needed could be used.) The part 
number is the key data field. The 
file layout is as follows: 

Part Number Field lOCharaclers 
Description Field 20 Characters 
Quantity Field Integer Numtwr (2 Bytes] 

The field statement resulting 
from the above file layout is: 

1000FIELD1,10ASA$, 20ASBS, 2AS 
OS, 1 AS D$, 1 AS E$; RETURN 

The D$ and E$ field variables 
store the binary tree pointers. 

Before we go any further, let 
me explain how a binary tree is 
formed (see Fig. 1). The LP (for 
the left pointer) stores the offset 
to the next record number 
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The Key Box 

Basic Level II 
Model III 
16K RAM 
LDOS or TRSDOS 



whose key field is lower (in this 
case lower in alphabetical order) 
than the present record. The RP 
(for right pointer) stores the off- 
set to the next record number 
whose key field is higher than 
the present record. RN stands 
for the present record number. 
Figure 2 shows ten records, 
stored by key field In the follow- 
ing order: P50, P40, RIO, P30, 
P60, P80, PI 00, P70, P20 and 
P90. Remember, LP and RP are 
offsets from the present record 
number to the next record 
number. 

To search for the key field P70 
start at Record 1 (always begin 
at Record 1) and note if the key 
field is higher or lower. Record 1 
contains P50; P70 is higher. 
Next, look at the right pointer. 
This pointer is a four so one (we 
are at Record 1) is added to four 
with a result of Record 5. Com- 
pare P70 to the P60 contained in 
Record 5; P70 Is higher. Again, 
add the right pointer (one) to the 
record number (five) and go to 
the sum, or Record 6, Compare 
the P80 found in Record 6 with 
P70. This time the contents of 
the present record are higher so 
look at the left pointer. It is two, 
so add two to the record number 
(six) and move to Record 8 (the 
total). We compare again and 



Disk Drives anc. Jases 

The B.T. Enterprises Mini-Floppy 5-1/4 incli Disk Drive Case is unique in that it is 
construGted of clear plexiglass. This innovative design is the first on the market which 
enables the user to actually see the Disk Drives working while using the computer. The 
oase is constructed of a 1/4 inch durable plexiglass base with a 1/16 inch clear plexiglass 
cover. The case and power supply are available for single or dual drives. One advantage of 
the dual design is that both floppy drives are built into one case for saving space and easier 
handling. 

The unit is equipped "with a linear filtered power supply that is regulated to match the 
power consumption of the mini drives. The power is AC fuse protected with a chasis 
mounting fuse on the back of the case for easy maintenance. An on/off switch is provided 
on the bacck of the case. The AC line cord is a standard 3 prong plug designed to meet Uh 
listing. 



FLOPPY DISK DKnTBS 

201100* 5-1/4 Disk Drive Case & Power Supply (Sgl) 

201S00* 5-1/4 Disk Drive Case Sf Power Supply (Dbl) 

301101* Tandon 40tk SH w/case fif Supply 

201 lOS* Tandon 40tk DH w/case & Supply 

201103* Tandon 80tk SH w/case & Supply 

201104* Tandon 80tk DH w/case &" Supply 

201201'^ Dual Tandon 40tk SH w/case &" Supply 

201202^ Dual Tandon 40tk DH w/case 6f Supply 

201203* Dual Tandon 80tk SH w/case & Supply 

201204* Dual Tandon 80tk DH w/case &• Supply 

200300 Disk Drive Extender Cable 
*Complete with extender cable 

Bare Drives 

200101 Tandon 40tk SH Bare 

200102 Tandon 40tk DH Bare 

200103 Tandon 80tk SH Bare 

200104 Tandon 80tk DH Bare 



79.95 
109.95 
299.95 
399.95 
399.95 
499.95 
579,95 
779.95 
779.95 
979.95 
9.95 



$ 259.95 
$ 359.95 
$ 359.95 
$ 459.95 



Helpful Products for 
your Computer 




Printer Stands 

End the paper mess on 

your computer desk. Our 

printer stand allows 

your paper to be fed from 

under the printer, 

making room for the 

used paper to stack behind the print out of the way, 

Availalile with an optional removable shelf (Shown) for 

easy computer forms change. Available in" Large size 

also, for MX- 100 and other large printer users also. Also 

available with center slot for bottom fped printers. 

(Large only). 

Regular Stand (300010) «29.95 

Regular w/shelf (300011) $44.95 

Large Stand (300020) $34.96 

Large w/sheLf (300021) $49.95 

Large w/slot (300050) $49.95 

Diskettes 

Elephant Memories Systems Diskettes at a special LOW 

price!!! 

Single Density/Single Sided/Soft Sector 500351 $22.50 

Double Density/Single Sided/Soft Sector 500352 $26.50 

Double Density/Double Slded'Soft Sector 600353 $33.30 

Portalsle Disk Bulk Eraser 

Clean all old data off of youi' diskettes before reusing 
them! This is a MUST for your computer room. Easy to 
use. non-electric, portable!!! 
500102 Only . . .$4,95 
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(600011) $49.50 dz. 
(500021) $49.50 dz. 
(500031) $49.50 da. 
(500041) $49.50 dz. 



Ribton Reloads for MX 70/80/100 

Reload your old ribbon cartridge for much less than 
replacing the cartridge! Quick and easy to do, takes only 
about 2 minutes each to reload. Includes complete 
instructions. Available in Black and 4 popular colors! 

Black Reload (500000) $3.95 ea. (500001) $39.95 dz 
Red Reload (500010) $4.95 ea 
Blue Reload (600020) $4.95 ea 
Green Reload (500030) $4,95 ea 
Brown Reload (500040) $4.95 ea 

Ribbon Cartridges for MX 70/80 

Replacement cartridges for your printer. Complete 
cartridge for your printer at great savings! Available in 
Black and 4 popular colors! Buy in 3 packs and save! 
Black Cartridge (500050)$10,95 ea. (500061)$29.95/3 
Red Cartridge ( 500060) $11. 95 ea. (500061 )$31.95/3 
Blue Cartridge (500070)$11,95 ea. (500071)$31.95/3 
Green Cartridge (500080)$H,95 ea. (500081)$31,95/3 
Brown Cartridge(600090)$11.95ea. (500091)831. 95/3 

- ^ -_ - - _ lOB Carlough Rd. 

^ ^ ^ M Bohemia. N.Y. X1716 
^ ^ m ^^"^ (816) 867-818B (voice) 
W = M ^^ (816) 588-8836 (modem) 
M-_^ -^ --^^p- Dealer Inquires Welcome 
^1''" "'i^'lLZl^ Prices subject to change 
N.Y.S. Residents Add Tax Add SB shippin| - handling ^300 
To!l Free 800-645-1165 
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12000 


Y%=1: X%=t.OF(l)+i! RP=0: LP^B: IF LEK(PNS)<10 THEN 




PKS = PNS+STRING5(10-LEN(PW5) (32) 


12010 


GOSUB 1000: GET 1,Y% 


12020 


IF LEFTS(AS>1)=CHRS(0) then X%=li GOTO 12100 


12030 


IF PNS>AS then A%=ASC(ES): GOTO 12070 


12040 


A»=flSC{DS) 


12050 


IF A%-0 THEN LSET DS=CHR?(X%-Y%) : PUT l,y%: GOTO 12100 


12060 


Y%=Y%+A%! G0t6 12090 


12070 


IF A%=0 THEN LSET ES»CHRS(X%-Y%) i PUT 1,Y%: GOTO 12160 


12080 


Y%=Y%+A% 


12090 


GET 1,Y»! GOTO 12030 


12133 


LSET A?=PNS: LSET BS=DES! LSET CS-HKlS(QU%) = 




LSET DS=CHRS(LP)! LSET ES=CHRS(RP): PUT l,X%t RETURN 




Subroutine 1 



i4aEa 


X%=l! GOSUB 1000; GET 1,X%! ER=0! IF LEN(PNS)<1M THEN 
PBS=PNS+STRIHGS(10-LEN(PN$) ,32) 




14010 


IF LEFTS[AS,1)=CHRS(0} THEN 14050 




14020 


IF PN$<AS THEH Y%=ASC(DS)! X%=X%+Y%: IF Y%=0 THEH 14030 
ELSE GET 1,X%! GOTO 14020 




14030 


IF PNS"AS then RETURN 




14040 


Y%-ASG(ES); X%''X»+Y%1 IF Y%-0 THEN 14050 ELSE GET 1,X%: 
GOTO 140 20 




14050 


ER=l! EETURN 






Subroutine 2 





150HM 


X*-l! GOSUB 1000: GET 1,X%! ER=0: Z%=0: LN%(0)=0: Y%=1 


l^Bia 


IF LEFT$(AS,1)=CHRS(0) THEN ER=l! RETURN ELSE 15030 


15020 


IF Y%>0 THEN GET 1,X%! GOTO 15030 ELSE 15040 


15030 


Z%=Z%+l! LN%(Z%)=Xft: y*=ASC(D5)! X%=X%+Y%: GOTO 15020 


15040 


X»=LN*(Z*): Z%=Z%-1: IF X%=0 THEN EE=1: RETURN 


15050 


GET 1,X%: IF LEFTS(BS,1)-CHRS(0) THEN 15070 


15060 


RETURN 


15070 


y%=ASC(E5): X%~X%+Y%: GOTO 15020 'REENTER HERE 




Subroutine 3 



find the key field, P70. 

This search took four file ac- 
cesses to find the record. If we 
had been looking for P10 )l 
would have taken three. As more 
records are added to the file the 
advantages of the binary tree 
become greater. A balanced 
tree requires a maximum of nine 
accesses for a file containing 
256 records. If searched sequen- 
tially this file would take an 
average of 128 accesses. The 
larger the file the more Im- 
pressive the binary tree's 
results. 

One peculiarity of the binary 
tree is that key fields must be 



entered in random order. If they 
were entered in alphabetical 
order the resulting tree would be 
the same as a sequential file. 
Try it and see! 

Note also that the pointers 
are set to zero if they do not 
point to another record, signify- 
ing the end of a branch. 

The Program 

Subroutine 1 stores the first 
record and any thereafter. Use 

whatever code you vi/ish to get 
the new part number in PN$, the 
description in DE$ and the quan- 
tity in QU%. Now call Subrou- 
tine 1 to store the binary tree 



pointers and the new record. 

Assume our new key field is 
P45. Let's follow the subroutine 
through and store the new 
record in the tree. Figure 2 is the 
file before P45 is added. 

In line 12000 Y% is set to one. 
The variable Y% contains the 
number of the record being ex- 
amined for a space for P45. X% 
is set to L0F(1) plus one. This is 
the first empty record in the file, 
where the new record will be 
stored. However, the pointers 
must be set correctly first so we 
can find the record in the future. 
The pointer of the record des- 
ignating the new record (from 
zero to the correct offset) must 
be changed. 

In the same line (12000), spac- 
es must be added to PN$ so it 
will be in the same format as the 
part numbers already in the file. 

In line 12010 the program ex- 
ecutes a GOSUB 1000 (the Field 
statement) and retrieves record 
Y%. I! line 12020 finds Record 1 
(Y%) to be empty (CHR$(0) as 
the first byte in the part number 
field) then the file is also empty, 
so line 12100 stores the record 
in record 1. Zeroes are stored in 
the LP and RP fields (preset in 
line 12000) as there are no other 
records to point to. 

If a part number (the P50) is in 
Record 1, it is compared to the 
new part number, P45. Since the 
new part number is smaller the 
program skips to line 12040 and 
gets the LP in variable A% in 
line 12040 (A% equals one). 

Line 12050 is skipped 
because A% does not equai 
zero. In line 12060 the program 
adds A% to Y% (1 + 1). Then in 
line 12090 the program retrieves 



the record Y% andgoes back to 

12030 to begin again. 

Next P40 is found in record 
V% (2); this time line 12030 is 
true. The RP in A% (A% equals 
zero) is retrieved and we jump to 
12070. This time A equals zero 
so 12070 follows and the RP Is 
LSET in record y% to point to 
record X%. The record Y% is 
stored next and the program 
jumps to line 12100, stores 
record X%, and finally returns to 
the calling program. 

Deleting Records 

To delete a record change the 
first byte in the B$ field to a 
CHR$(0). (Do not change the A$ 
field or the searches and sorts 
won't work any more.) In the 
future test this byte to see if the 
record is deleted. Note, we leave 
the A$ field and the pointers in 
the D$ and E$ field intact in this 
record; you cannot use it again. 

It is possible to write a routine 
to reset the previous pointers to 
skip this record so its space 
could be reused. However, 1 
haven't found it necessary in my 
programs. This routine would 
also have to keep track of all the 
deleted record numbers so they 
could be reused. The present 
subroutine does not. 

Part Number Searches 

To search for a specific part 
number use Subroutine 2. The 
proper record number is re- 
turned In X%, and the proper 
data in the fielded variables 
(AS, B$ and C$ in this example). 
The variable ER is returned as 
zero if the record number in X% 
and the data are valid, if ER 
equals one, the record was not 
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• Enclosures 

and power supplies 
^*. - with or without drives 

vjAj? • Low minimum orders • At- 
qX*^ tractive quantity pricing •Durable, 
\^ textured, color-compatible finish 
looks great on your display counter! 
Fully engineered product — high reliabil- 
jA5^' ity design • All standard configurations, plus: 
jf^n Canon 2/3 height, TEAC V2 height, mini- Winches- 
ter and Tandon 8" V2 height • Retail customers: 
send us the name of your local dealer 



Ann Arbor Precision 

7536 Jackson Road 
Ann Arbor, Ml 48103 
Order Desk: 9-5 EST 
(313)426-5477 Mon-Thu 
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found. 

Note how I use CHR$ and 
ASC for the pointers. I find this a 
convenient way to store positive 
integers from zero to 255 in a 
single byte in a random record. 
It only works for positive 
numbers, so don't use this 
method when writing a routine 
to reuse deleted records as men- 
tioned earlier. You would have to 
use MK!$ and CVI for the 
pointers, two bytes for each— 
another reason I don't reuse 
deleted records. 

You can use the binary tree 
pointers to give you a sorted 
printout. Subroutine 3 does the 
job. When you first use the sub- 
routine begin with GOSUB 
15000. This gets you the record 
iowest in alphabetical order. For 
the rest of the records in 
sorted order use GOSUB 15070. 
(See the example program.) 

As long as ER equals zero 
your record data is the Fielded 
variables (in the example A$, B$ 
and C$) each time you return 
from the subroutine. If ER 
equais one you have completed 



the file. Deleted records are 
skipped in line 15050. You must 
DIM LN%(50) at the beginning 
of the program. 

The sort algorithm is difficult 
to explain. Try walking through 
the subroutine using the file in 
Fig. 2 as an example. Don't 
forget to reenter the routine at 
15070 for all records after the 
first one. If you keep using 
GOSUB 15000 you'll keep get- 
ting the first record. 

The Program Listing demon- 
strates the use of the three sub- 
routines. Enter it, line 1000 (the 
field statement), and the three 
subroutines and try out binary 
trees. Note the 34 at the end of 
the Open statement (line 10). If 
you don't have blocked files 
(variable length random rec- 
ords) leave this off. 

Model III TRSDOS is sup- 
posed to support variable length 
records but as of this writing 
Version 1 .2 does not do so prop- 
erly. The program works perfect- 
ly using variable length records 
under LDOS. 

Data can be changed in a 



record: however, don't change 
the key data field. If you must 
change the key data delete the 
record and generate a new one. 
I think you will find the binary 
tree useful for files that only 
have one key field, and need fast 
searches and frequently sorted 
printouts. Remember to use 
blocked files (variable length 
records) and that the routines 



are not set up to use subrecords 
in a 256 byte record. 

One last reminder: Enter key 
data in random order for a 
balanced, efficient tree. ■ 

The author is a free-lance 
writer, programmer and broad- 
cast engineer. He has been as- 
sociated with computers since 
the original MITS Altair. 



20 
1: 
2: 


CLEAR 1000: DIM LN*(50)t OPEH"R" , 1 , "TES 

PRINT "MENU 

ADD RECORD 

SEARCH FOR RECORD 


i: 
4: 

30 
40 


PRINT SORTED FH.E 

FINISHED" 

INPUT"CHOICE";CH!lF CH<1 OR CH>4 THEN 3 

ON CH GOTO 50, 90, 150, 220 



50 



■;PNS: if LEK(PNS)>ia THEN 50 
';DE5: IF LEN(DES)>20 THEN 60 



iPNS 



LINEINPUT "PART NOHBER? 
60 USEIRPOT "DESCRIPTION? 
70 IMPUT"QUAHTITY''lQO% 
ea GOSUB 12000! GOTO 20 
90 LINEINPUT "PART NtlMEER? 
10B GOSUB 14000 

110 IP ER=1 THEK PRINT "PAST HUMBER NOT FOUND": GOTO 20 
120 PRINT "PART H0.", "DESCRIPTION", r"QUAKTITY" 
130 PRINT AS, BS, CVI[CS) 
140 GOTO 20 

150 GOSUB 200: GOSUB 15000 
160 IF ER=1 THEN 20 ELSE GOSUB 210 
170 GOSUB 15070 

180 IF ER=1 THEN 20 ELSE GOSOB 210 
190 GOTO 170 

200 LPRINT "PART N0.", "DESCRIPTION", /'QUANTITY": RETURN 
210 LPRINT AS, B$, CVKCS): RETURN 
220 CLOSE: END 

1000 FIELD 1, 10 AS AS, 20 AS BS, 2 AS CS, 1 AS DS, 1 AS ES: 
RETURN 



Program Listing 



COM 



69.95 




LNW SEMI-KITS can save you hundreds of dollars. By obtsJning your own parts at the lowest 
possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 
microcomputer m the industry- the LNW80. The LNW SEMI- KITS are aflordable modules You 
can start with a modest cassette system and expand loaf ul I 4MhzTRS-ao compatible system with 
5 or 8 inch double density disks and color at any lime, 

A. LNW80 CPU- Made of high quality FR4 glass epoxy double sided circuit material, with pla ted- 
through holes and gold edge connector. It is fully solder-masked and silk screened. Here are just 
some of the outstanding features you will have when your .LNWSO CPU board is fully assembled 
• 16K RAM • Color andblackandwhifevideo • 480;<l92high resolution graphics • 64 and 80 
column video • A Mhz ZSOACPU • Upper and lowercase display • 500 and 1 000 baud cassette 
I/0-S89.95 

B. SYSTEM EXPANSION-Expandthe LNWSOcomputerOoard, TRS-80and PMC-80 computer 
with the following features: • 32K memory • Serial RS232C and 20Ma port • Real time clock • 
Parallel printer port • 5 inch single density dish controtler • Expansion bus (screen printer port} • 
Onboard power supply • Solder-maskod and silk screened legend- $69. 95 [tin plated contacts) - 
$84.95 (gold plated contacts) 

C. KEYBOARD- 74 key expanded professional keyboard- includes 12 key numeric keypad. Fully 
assembled and tested - $99.95 

D. COMPUTER CASE -This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional factory-built appearance. - $84,95 Add $1 2.00 for shipping. 

E. SYSTEM EXPANSION CASE -This stylish inslrument-quality sol id steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory- built appearance -$59.95 
Add SI 0.00 for shipping. 

F. LNW80 CPU- HARD TO FIND PARTS KIT -$82.00 

G. LNW80 VIDEO- HARD TO FIND PARTS KIT -$31 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT - $27.50 
I. LEVEL 11 ROM set. (6 chip setl - $1 20.00 

VISA and MasterCard accepted. Add S3.00 for shipping plu3$T00 for each additional item. All 
shipments via UPS surf ace Add $2 00 tor U.S. Mail. Shipments outside continental U.S.: funds must 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS 8, INFORMATION - (714) 544-5744 
SERVICE- (714) 641-8850 



LNW Research Corp. 

2620 WALNUT TuPtin, CA. 92G80 
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LOAD 80 



Does your 80 have a better poker face than you? 



Casin 



r- 




Ron Balewski 
412 East Ridge St. 
Nanticoke, PA 18634 



Atlantic City casinos feature 
rows upon rows of elec- 
tronic video draw poker games. 
More than conventional arcade 
games, these video games can 
get mighty expensive. Rather 
than depositing a quarter for a 
few minutes of play, these cost 
a dollar for about 15 seconds of 
play. Sure you can win some 
back, but as casinos are not 
charity institutions, you will 
probably not come out ahead. I 
enjoy the play, but not the 
losses. So I wrote my ovi/n poker 
software. Listing 1 is the result 
of this brainstorm. 

Most of the program is written 
in Basic. I used machine lan- 
guage to draw the cards on the 
screen. Using a short machine- 
language routine helped keep 
the Basic program simpler. 

The payoff table used by this 
program is identical to that in 
the casino machines. I do not 
recommend your changing it, 
but will tell you how just in case 
you can't resist. The graphics 



The Key Box 

Model I or III 
16K RAM 
Level II Basic 



also closely duplicate the casi- 
no machines. The graphics are 
not quite as pretty, but they get 
the job done and in no way 
detract from the fun. 

The Basic Program 

Housekeeping is fallen care 
of by lines 10-150. A routine 
POKES inthe machine-language 
routine and sets up constants 
such as the payoff table (line 130) 
and the win type Strings (line 90). 

Line 160 draws five random 
cards on the screen and lines 
180-200 print the necessary text. 

Elements of array DK(4,13)are 
set to zero at line 210. This array 
represents the deck of cards 
(four suits by 13 values per suit). 
Each time a card is dealt, its cor- 
responding element in this array 
is set to one. By checking the ar- 
ray after randomly generating a 
card, the program can tell if it 
generated a duplicate and, if so. 
tries again. 

Line 220 decodes the input 
commands and lines 230-300 
perform the deposit coin func- 
tion. 

The subroutine starting at line 
1000 POKES the card value string 
in variable A$ into the card top 
and bottom images defined in 
the Assembly listing of the sub- 
routine (Program Listing 2). The 
four locations used here corre- 
spond to assembly labels N1, 
N2, N3, and N4. 

Subroutine 2000 prints a card 
of suit SU on the screen. The 
card's upper left corner is 
printed at position PL. Sound is 
also generated in this routine. 



Section 3000 lets you add 
money to your pot. Section 4000 
prints a payoff chart on the 
video screen. Section 5000 
prints an analysis of your losses 
(or winnings) at the end of play. 
Section 6000 deals the first five 
cards. 

Section 7000 lets you draw 
new cards. Lines 7010-7080 ac- 
cept the input of cards to be 
redrawn, while lines 7100-7200 
deal the new cards. 

Your cards are checked for a 
win at section 8000, All five of 
your cards are stored in array 
CS(5,2) where CS(n,1) is the 
value of the nth card and CS(n,2) 
is the suit of the nth card. 

Section 9000 pays your win- 
nings. Everything up to line 9040 
deals with a standard win. The 
rest is for a royal flush win. Hold- 
ing the top hand treats you to 
some special effects. 

Subroutine 11000 POKES the 
machine-language program into 
reserved memory. I used Data- 
gen by Dan and Cass Lewart 
(see 80 Micro, August 1981) to 
generate the data statements. 

The Assembly Listing 

The first 10 bits of the argu- 
ment contain the print position 
on the screen. With 10 bits you 
can get up to 1024 print posi- 
tions, exactly how many there 
are on the screen. The 11th and 
12th bits are set or reset depend- 
ing on the suit of the card to be 
printed, as indicated on the top 
of the listing. Bits 11 and 12 of a 
binary number have decimal 



values of 1024 and 2048. By add- 
ing this amount to another deci- 
mal number, the corresponding 
bit in the binary representation 
will be set to one (provided it 
was zero to start with). 

Basic line 120 sets up an array 
of values to be added to the print 
location for each suit. As an ex- 
ample, notice that SV(3) is set to 
3072. This is the sum of 1024 and 
2048. When this amount is added 
to a print location, both bits 11 
and 12 will be set. This combina- 
tion will print a spade (comment 
line 250). Basic line 2020 uses the 
array SV in calculating the argu- 
ment for the USR call. 

Assembly line 290 gets the 
argument from Basic. The argu- 
ment is then duplicated in reg- 
isters DE (lines 3100-3110). Bits 
two and three of the H register 
are reset (lines 320-330) to mask 
out the suit bits, leaving only the 
print location in HL. (An AND 
03H operation could have been 
used here just as effectively as 
the two RES instructions.) Next 
D is shifted right twice (lines 
340-350) and incremented (line 
360) to give D a value between 
one and four, depending on the 
suit selected. The suit value is 
stored in C temporarily (line 
370). 3C00H is now added to HL 
(lines 380-390) to give the actu- 
al location in memory of where 
to draw the cards. The top two 
lines of a card are written to it 
(lines 410-420) by calling sub- 
routine M0VE2L. Then DE is set 
to point to the proper suit pic- 
ture in memory (lines 440-510) 
and move the three lines with 
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the suit symbol to the screen us- 
ing subroutine 'M0VE3L (line 
520). The value for DE is calcu- 
lated by first setting DE to 36 
below the start of the suit 
images. Then 36 is added to DE 
from one to four times, depend- 
ing on ttie suit value saved ear- 
lier in register C. (Each suit im- 
age is three lines long by 12 
bytes per line, or 36 bytes total.) 
Last, the bottom two lines of the 
card are printed (lines 540-560). 

The Subroutines 

M0VE2Ljust calls subroutine 
M0VE1L twice while routine 
M0VE3L calls M0VE1L three 
times. This could have been 
eliminated by putting multiple 
CALL MOVEILs in the main pro- 
gram. But, I think this method 
looks a little nicer. 

Subroutine MOVEIL is vi/here 
the action really takes place. 
Here 12 bytes are moved from 
the image line pointed to by reg- 
isters DE and stored in video 
memory starting at the location 
stored in HL. The DJNZ loop 
takes care of this (lines 900- 
950). Next, 52 is added to the 
video pointer register HL. This 
sets the pointer to exactly one 
screen line below where this line 
Started, In preparation for print- 
ing the next line of the card. 

TOPHAF and BOTHAF con- 
tain graphics for the top and 
bottom two lines of the cards. 
They are the same no matter 
what suit is being printed. 

Sound is a modified version of 
the Supersound routine (see 80 
Micro, May 1980). 

The rest of this listing con- 
tains all the DEFBs needed to 
define the graphic characters In 
the card suits. 

How to Play 

Set your memory size to 32255 
to reserve space for the machine- 
language routine. Then CLOAD 
and Run. After it sets up the ma- 
chine-language subroutine five 
cards will be dealt out complete 
with the "plop. . . plop" of cards 
hitting a table. Since these cards 
arejust for show, I did not put val- 
ues on them. 

Your pot starts at 50 coins as 
displayed. To Insert coins into 
the machine, just press the 
down arrow key. Just like the 
casino machines, you can insert 
up to five coins for each play. 



Each time you feed the machine 
you will hear the "'ker-plunk" of 
dropping money and the coin 
accepted light will flash. 

Press the space bar to tell the 
computer to deal your hand. 
Each card is numbered and has 
the word Keep printed below it. 
If you want to draw a new card in 
place of one, tap Its correspond- 
ing number key. You will get a 
strange noise (maybe the dealer 
ruffling the deck) and the word 
under the card will change to 
Draw, if you make a mistake or 
change your mind, press the left 
arrow key. All cards will return to 
the Keep state. When you are 
satisfied with your draw 
choices, hit the space bar again 
toget your new cards. If you win, 
the type of win will be printed 
above the cards and coins will 
tinkle Into your pot. 

How many coins? All ma- 
chines have payoff charts stuck 



on them somewhere. Press the 
P key for your payoff chart. The 
win combinations are on the left 
and the number of coins played 
is along the top. These payoffs 
are completely authentic, hav- 
ing come from a machine in 
AltantlcCity. 

Since these are casino odds, 
you will probably lose your 50 
coins fast. To keep playing hit 
the M key for more money and 
enter how many coins you want 
added to the pot. 

To quit type Q. You will be told 
how many coins you had, how 
many you have left and how 
many you lost or won. 

Changing the Payoff 

Basic line 130 defines the pay- 
off table in array PT. PT(1 ,n) con- 
tains the payoff for a pair of 
jacks or better with n coins 
played. The payoffs then pro- 
ceed upwards in order of value 



until PT(9,n) contains the payoff 
for a royal flush with n coins 
played. All payoffs are direct 
multiples except for the royal 
flush at five coins. This is a 
super big pot. The casinos use 
the chance to win this grand 
amount of money as an incen- 
tive for people to deposit five 
coins per play instead of less. 

I have not hit the royal flush 
yet and would love to hear from 
anyone who does. One word of 
warning; When you lose money 
to your TRS-80 and try to pay up 
by forcing money into the 
machine through the ventilation 
slots, be sure to use paper 
money— coins may short some- 
thing outIB 

Ron Balewski, a self-em- 
ployed free-lance programmer, 
enjoys ham radio, model rail- 
roading, community ttieater and 
electronics. 



Program Listing 1. Basic 



E R ***** 



REM ***** CASINO DRAW POK 

REM by Ron Balewski 

REM 

REM November 3, 1981 

REM 
REM 

I CLEAR500:DEFINTA-Z 
DIMDK(4,13) ,CS(5,2) ,SV(3) ,IMS(13) ,PT(9,5) ,WNS(9) 

* * *" . 



:PRINT:PRINT 



30 CLS:PRINTTAB(16) "* **DRAW POKER 

TAB(20)"JUST A MINUTE, PLEASE." 

40 GOSUB11000 

90 WN$(1)=''PAIR":V™$(2)="2 PAIR" : WN$ (3) ="3 OF A KIND" :WNS ( 4) ="ST 

RAIGHT":WN$(5)="FLUSH":WN$(6)="FULL HOUSE" : WN$ (7) ="4 OF A KIND": 

v™$(8)="STRAIGHT FLUSH" : WN$ ( 9) ="ROYAL FLUSH" 

100 POKE16526,130:POKE16527,126 

110 PO=50:MA=50 

120 SV(0)=0:SV(1)=10 24:SV(2)=2048:SV(3)=3072 

13 PTC1,1)=1:PT{2,1)=2:PT(3,1)=3:PT(4,1)=4:PT(5,1)=6:PT(6,1)=9: 

PT(7,1)=25:PT(8,1)=50:PT(9,1)=250:FORK1=1TO9:FORK2=2TO5:PT(K1,K2 

)=PT{Kl,l)*K2:NEXTK2iNEXTKl:PT(9,5)=4000 

140 N1=32352:N2=32358:N3=32364:N4=32370 

150 IMS(1)="A ":IM$(2)="2 ":IMS(3)="3 ":IMS(4)="4 ":IM$(5)="5 ": 

IM$(6)=''6 ":IM$(7)=''7 '•:IM$(8)="8 ":IM$(9)="9 " : IMS ( 10) ="10" : IM$ 

(11)="J ":IM${12)="Q ":IM$(13)="K " 

160 CLS:A?=" " : GOSUB1000 : F0RK = lT05 : SU = RND ( 4) : PL=320-I- (K-1 ) *13 : G 

OSUB2000:NEXTK 

180 PRINT@768,CHR?(31) ; :PRINT@20,"FIVE CARD DRAW POKER" ;: PRINT@8 

4,STRINGS(20,"=") ; :PRINTia768,"0 P T I N S : " ; : PRINT@835 , "DEPOS 

IT COIN" :PRINT@85 4, "COINS PLAYED" ;: PRINT@1010 ,P0; : PRINT@942 ," ** 

YOUR POT **"; 

190 NC=0 

200 PRINT@922,NC; 

210 FORK1=1TO4:FORK2=1TO13:DK(K1,K2)=0:NEXTK2:NEXTK1 

220 A$=INKEY?:IFAS=" "ANDNC>0THEN60 0ELSEIFAS=" "THEN220ELSEIFAS= 

"P"THENGOTO400 0ELSEIFAS="Q"THENGOTO50 0ELSEIFA?="M"THENGOTO3000E 

LSEIFA$<>CHRS(10)THEN220 

230 IFPO=0THEN220 

240 IFNC<5THENNC=NC+l:PO=PO-l:PRINTia92 2,NC;: PRINT@1010,PO; : PRINT 

@9 82, "COIN ACCEPTED"; :X=USR(296} :X=USR(266) : FORK1=1TO3 : NEXTKl : P 

RINT@982 , " " ; ELSEGOTO220 

260 PRINTia899,"DEAL''; 

Listing 1 Continues 
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Listing ? Continued 



280 IFNC=5PRINT@835,'' " 1 

300 GOTO220 

1000 ' LOAD AS INTO THE CARDS 

1010 AL=ASC(LEFTS(AS,I)} : AR=ASC (RIGHT$ ( A$ , 1) ) 

10 20 POKENl,AL:POKENl+l,AR:POKEN2,AL:POKEN2+l,AR 

1030 P0KEN3 ,AL : P0KEN3+1 ,AR: P0KEN4 ,AL : P0KEN4+1 ,AR 

1040 RETURN 

2000 ' PUT CARD SUIT SU , VALUE CV AT LOCATION PL 

2010 POKE16526 ,0 

2020 X=USR(SV(SU-1)+PL) 

2030 POKE16526 ,130 

2035 FORKA=290TO400STEP15:X=USR(KA) : NEXT 

2040 RETURN 

3000 ' ADD MONEY TO YOUR POT 

3010 CLS 

3020 PRINT@260,"HOW MANY COINS WOULD YOU LIKE TO ADD TO YOUR POT 

n , 

3030 INPUTAM:P0^PO+AM:MA=MA+AM 

3040 PRINTia772,"SO FAR YOU ADDED" , -MA; " COINS TO YOUR POT." 

3050 FORK1=1TO1000:NEXTK1 

3060 GOTO160 

4000 ' PRINT PAYOFF TABLE 

4010 CLS:PRINT@20,"P OKER PAYOFF TABLE" 

4020 PRINT: PRINT" # COINS PLAYED ===> 12 3 

4 5":PRINTSTRING$(64," = '') ; 

4030 PRIHT"ROYAL FLUSH" : PRINT"STRAIGHT FLUSH" : PRINT" 4 OF A KIND" 
:PRINT"FULL HOUSE" : PRINT"FLUSH" : PRINT"STRAIGHT" : PRINT"3 OF A KIN 
D":PRINT"2 PAIR":PRINT"PAIR JK OR BETTER" 

4040 FORKl=lT09:FORK2-lT05 

40 50 PRINTS ( 203+ {Kl*6 4) +(9*K2)) ,PT{ 10-Kl ,K2) ; 

4060 NEXTK2:NEXTKl 

4070 PRINT@980, "PRESS ANY KEY TO RETURN TO GAME . " ; : KYS=INKEY$ 

4080 KYS=INKEY$:IFKYS=""THEN4080ELSEGOTO160 

5000 ' END OF GAME ANALYSIS 

5010 CLS:PRINT:PRINTTAB{10) "A NALYSIS:" 

5020 PRINT: PRINT"PERSONAL MONEY USED" ;TAB ( 20) ;"==>" ;MA; "COINS" :P 
RINT"MONEY LEFT IN POT" ; TAB ( 20 );"=->"; PO; "COINS" 

5030 PRINTTAB(20) "==^=======" ; prinT"NET GAIN/LOSS" ;TAB ( 20 ) ; ABS ( P 

O-MA) ; "COINS "; 

5040 IFPO>MAPRINT"GAINED*'ELSEIFPO=MATHENPRINT" *** EVEN ***"ELSE 

PRINT"LOST" 

5050 PRINT:PRINT:PRINT:ST0P:END 

6000 * DEAL INITIAL 5 CARDS 

6010 CLS 

6030 F0RK^1T05 

60 5 SU-RND{4) :CV=RND(13) : IFDK ( SU ,CV} =1GOTO6050 

6070 DK(SU,CV)=1 

6090 A$=IM$(CV) :GOSUB1000: 

6110 CS(K,1)=CV:CS(K,2)=SU:PL=320+(K-1)*13:GOSUB2000 

6150 NEXTK 

7000 ' PROCESS DRAWS 

7010 FORK-1T05:PRINT@899+13*(K-1} , "CARD" ;: PRINT@96 4+13* (K-1) ,K;: 

PRINT @771+13*(K-1) ,"KEEP"; : KT (K) =0 : NEXTK 

7030 A$=INKEY$:IFA$=""THEN7030ELSEIFAS=" "THEN7100ELSEIFA$=CHR$ ( 

8)THENPORK^lTO5:KT(K)=0:PRINT(a771+13*(K-l) , "KEEP" ;: NEXTK :G0T07 03 



7050 A=VAL(A$) :IFA<1ORA>5THEN7030 

7060 IFKT(A) =0THENFORKA=1TO5 :X=USR ( 512) : NEXTKA 

707 KT(A)=l:PRINTia771+13*tA-l) ,"DRAW"; 

7080 GOTO7030 

7100 F0RK=1T05 

7120 IFKT(K)=0GOTO7200 

7140 SU=RND(4) :CV-RND(13) : IPDK (SU ,CV) =1GOTO7140 

7160 DK(SU,CV)=1:A$=IM$(CV) :GOSUB1000 

7180 CS(K,1)=CV:CS(K,2)=SU:PL=3 2 0+(K-1)*13:GOSDB2000 

7200 NEXTK 

8000 ' DETERMINE WINS AND PAYOFFS 

8020 WV=0 

804 FORK=lT04:FORL=4TOlSTEP-l:IFCS(L,l) >CS (L+1 ,1 ) THENTP=CS (L,l) 

:CS{L,1)=CS(L+1,1) :CS(L+1,1)=TP;TP=CS(L,2) : CS ( L , 2} =CS (L+1 , 2) : OS ( 

L+1,2}=TP 

8060 NEXTL:NEXTK 

8100 ' ROYAL FLUSH 
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(^Correct BASIC programs (no dynamic 
renaming, no out-of~ range arguments) 
compile without modification. 

You owe it to your programs. 



Allen Gelder Software 

(415) 387-3131 

Box 11721 San Francisco CA 94101 



EDIT IS to your line-editor as oisk is to tape, lets y^ |i^»«k |ifia SflO 

play in one more dimen^n^;,,,.^^ ',:^'3'.rQ\' .^ " 



J" 



^ See List of Advertisers on Page 455 
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8110 FF=1:FORK=2TO5:1FCS(1,2)<>CS(K,2)THENFF=0:NEXTKELSENEXTK 

8120 IF(FF=1)AND(CS(1,1)=13)AND(CS(2,1)=12}AND(CS(3,1)=11)AND(CS 

( 4 , 1 ) =10 ) AND ( CS ( 5 , 1 ) =1 ) THENWT=9 : GOTO90 00 

8140 IF(CS(1,1)=CS(2,1)) AND ( CS (1 , 1 ) =CS (3,1)) AND ( CS ( 1 ^ 1) =CS ( 4 , 1) ) 

THENWT=7:GOTO9000 

8150 IF{CS(2,l)=CS(3rl))AND(CS(2,l)=CS(4,l)}AND(CS(2,l)=CS(5,l) ) 

THENWT=7:GOTO9000 
8160 ' STRAIGHT FLUSH 

8170 SF=1:F0RK=1T04:IF((CS(K,1)} <>(CS(K+1,1)-1) ) THENSF=0 : NEXTKEL 
SENEXTK 

8175 IFCS(1,1)=1ANDCS(2,1)=10ANDCS(3,1)=11ANDCS{4,1)=12ANDCS{5,1 

)=13THENSF=1 

8180 IFSF=1ANDFF=1THENWV=8:GOTO9000 

8190 ' STRAIGHT 

8200 IFSF=1THENWV=4:GOTO9000 

8210 ' FLUSH 

8220 IFFF=1THENVW=5:GOTO9000 

8230 ' FULL HOUSE 

8240 IF(CS(ia)=CS(2,l)}AND(CSCl,l)=CS(3,l))AND(CS(4,l)=CS(5,l)) 
THENWV=6:GOTO9000 

8250 IF(CS(1,1)=CS{2,1))AND(CS(3,1)=CS(4,1))AND(CS(3,1)=CS(5,1)) 

THENWV=6:GOTO9000 

8260 ' 3 OF A KIND 

8270 KR=1:KM=0:FORK=2TO5 

8280 IFCS(K,1)=CS(K-1,1)THENKR=KR+1ELSEIFKM<KRTHENKM=KR:PV=CS(K- 

1,1) :KR=1ELSEKR=1 

82 90 NEXTK:IFKR>KMTHENKM=KR:PV=CS(5^1) 

8300 IFKM=3THENWV=3:GOTO9000 

8310 ' 2 PAIR 

8320 IF(CS(1,1)=CS(2,1))AND{CS(3,1)=CS{4,1))THENWV=2:GOTO9000 

8330 IF{CS(1,1)=CS(2,1))AND(CS(4,1)=CS(5,1))THENWV=2:GOTO9000 

8340 IF(CS(2,1)=CS(3,1)}AND(CS(4,1)=CS(5,1))THENWV=2:GOTO9000 

8350 ' 1 PAIR, JACKS OR BETTER 

836 IFKM-2AND(PV>10ORPV=1)THENWV=1:GOTO9000 

9000 ' GIVE WINNINGS 

9010 IFWV=0THENGOTO180 

9015 PRINT@768,CHRS(31) ; : PRINT@287- (LEN (WN$ (WV) } /2) ,WN$ (WV) ; :PRI 

NTia942,*'** YOUR POT **"; :IFWV=9GOTO9100 

9020 F0RK=1T0PT(WV,NC) : P0=P0+1 : PRINT@1010 ,P0; :X=USR(261+RND (15) ) 

; F0RK1=1T03 : NEXTKl : NEXTK 

9030 WV=0 

9040 GOTO180 

9100 ' JACKPOT — ROYAL FLUSH 

9110 PO=PO+PT(WV,NC) :PRINTiai010,PO; 

9120 FORK=1TO6:FORL=300TO257STEP-1:X=USR(L) :NEXTL:NEXTK 

9130 FORK=1TO100:NEXTK 

9200 STOP 

11000 ■ SET MACHINE LANGUAGE PROGRAM 

11010 K=32256:FORL=1TO300 

11020 READM:POKEK,M 

11030 K=K+1:NEXTL:RETURN 

11040 DATA 205,127, 10,229,209,203,148,203,156,203 

11050 DATA 58,203, 58, 20, 74, 17, 0, 60, 25, 17 

11060 DATA 82,126,205, 48,126,229, 17, 36, 0, 33 

11070 DATA 118,126, 65, 25, 16,253,235,225,205, 55 

11080 DATA 126, 17,106,126,205, 48,126,201,205, 65 

11090 DATA 126,205, 65,126,201,205, 65,126,205, 65 

11100 DATA 126,205, 65,126,201,197, 6, 12, 26,119 

11110 DATA 19, 35, 16,250,213, 17, 52, 0, 25,209 

11120 DATA 193,201,188,140,140,140,140,140,140,140 

11130 DATA 140,140,140,188,191,128, 32, 32,128,128 

11140 DATA 128,128, 32, 32,128,191,191,128, 32, 32 

11150 DATA 128,128,128,128, 32, 32,128,191,131,131 

11160 DATA 131,131,131,131,131,131,131,131,131,131 

11170 DATA 205,127, 10, 62, 1, 14, 0, 69, 47,230 

11180 DATA 3,211,255, 13, 40, 4, 16,247, 24,243 

11190 DATA 37, 32,242,201,191,160,188,191,189,180 

11200 DATA 160,190,191,188,144,191,191,130,143,191 

11210 DATA 191,191,191,191,191,143,129,191,191,128 

11220 DATA 128,128,131,139,135,131,128,128,128,191 

11230 DATA 191,128,128,128,128,190,189,128,128,128 

11240 DATA 128,191,191,136,174,191,140,174,157,140 

11250 DATA 191,157,132,191,191,128,128,128,140,143 



Listing 1 Continues 



250 • 80 Micro, November 1982 




.»u>^j-T* . r-tt^t'o^^i imr.Tiiiw.. - i. •-, aaiSB «-**««> -is.^.ai^--. j» i/iiiBiJH iiw» Brsaa*) 



Ru^ 



WITH ZBASI 

WORLDS 



BELIEVE IT OR NOT WE'VE ADDEi^ ^n 
NEW FEATURES to the ONLY INTERACTIVE 
BASIC COMPILER for the TRS-80! 

1. speed increases of 10- 100 limes are typical after compilation. 

2. Compiled code can be RELOCATED to run anywhere in memory. 
Code is even ROMablel 

3: ZBASIC 2.2 NOW SUPPORTS BOTH RANDOM and 
SEQUENTIAL DISK I/O. 

4. 2BASIC 2.2 Is now a super tool for business programmers: 
RANDOM ACCESS FILES, and PRINT USING statements are 
supported as well as a HIGH PRECISION MATH package (with 
no rounding problems). 

5. Special BUILT-IN MACHINE LANGUAGE COMMANDS to 
increase program operation by as much as 1000 timesl Special 
commands are implemented for fast memory searching (CPDR, 
CPlRj, diock memory moves |LDIR, LDDR), inputting and printing 
HEX numbers, inserting MACHINE LANGUAGE into COMPILED 
CODE, disabling and enabling interrupts, inverting memory, 16 bit 
PEEKS and POKEs, and stack control, debug and much more. 

6. ZBASIC 2.2 compiles the ENTIRE PROGRAM into to Z-80 
machine language. (Not 8080 code or a combination of BASIC and 
machine language like some other compilers.) Clumsy LINKING 
LOADERS, and RUNTIME MODULES are not needed: ZBASIC 2.2 
createsa ready to run MACHINE LANGUAGE program, 

7. NO ROYALTIES imposed on registered ZBASIC owners. 

8. Typical COMPILATION TIME is TWO SECONDS for a 
4K program. 

9. Use TRS-80 Basic to write ZBASIC programs) 

1 0. Compile many existing programs with only minor changes. 
(Some BASIC programming experience is required,) 

1 1 . Fully compatible with both the Model I and the Model III. Mod I 
compiled programs work on a MODEL III. and visa-versa. ZBASIC 
works with NEWDOS-80. NEWDOS+, DOSPLUS, LDOS, MULTIDOS, 
ULTRADOS, TRSDOS etc. 

1 2 BUILT-IN and much improved MUSIC and SOUND EFFECTS 
commands. 

13. Improved CHAINING for disk users, 

1 4. TIME S now available on DISK version. 

15. ZBASIC 2.2 now has an INPUT ©command [similar to PRINT @). 

16. The TAB function will now tab 255 columns on a printer. (BASIC 
cannot tab past column 64.) 

1 7. NEWDOS 80 2,0 USERS can use the CMD dos command" 
function! 

18. NEW and EASIER to use USR COMMANDS, 

1 9. New math functions to calculate XOR and INTEGER 
REMAINDERS 

20. Logic-al STRING COMPARISONS are nowsupported, 

21. The disk commands INSTR,MIDS ASSIGNMENT are now 
supported on both DISK AND TAPE ZBASIC, 

22. DEFSTR IS now supported, 

23. Eight disk files may be opened simultaneously; random, 
sequential or mixed, 

24. LINE INPUT#, is now supported 

25 Invoke the compiler by simply hitting these two keys: ":-" 
26. NEW 100+ PAGE fWANUAL WITH DESCRIPTIONS AND 
EXAMPLE. 

2 7, ZBASIC 2.2 Comes with CMDFILE/CMD program from 
MISOSYS, to allow appending or merging complied programs and 
machine language programs from tape or disk. 




41. 2.d BOBS f^OT SUPPORT THESE 
BASIC COmmf\MBS^. 

1 . ATN, EXP COS, SIN, LOG, TAN. and exponentiation, (However, 
subroutines are included in the manual for these functions.] 

2. ERROR, ON ERROR GOTO, ERL. ERR RESUME 

3. No direct commands like AUTO, EDIT, LIST LLIST ETC, although 
these commands may be used when writing programs. 

4. Others NOT supported: CDBL. CINT, CSNG, DEFFN, FIX, FRE, 

5. Normal CASSETTE I/O. (ZBASIC supports its own SPECIAL 
CASSETTE I/O statements,) 

6 SOME BASIC COMMANDS MAY DIFFER IN ZBASIC. For 
instance, ENDjumps to DOS READY STOPjumps to BASIC 
READY etc 

7 MEMORY REQUIREMENTS: to approximate the largest BASIC 
program that can be compiled in your machine (at one time], enter 
BASIC and type: PRINT IMEM-6500]/2. Remember, you can merge 
compiled programs together to fill memory. 

ZBASIC 2.2 SPEED COMPARISON DEMO 

To help give you an idea how fast compiled programs are, we have 

included this demo program. 

ZBASIC 2.2 DEMO PROGRAM 

Time to compile and run complete program : MIN. 2 SEC. 

BASIC Execution speed MOD I , LEVEL II : 7 MIN. 3* SEC. 

ZBASIC Execution speed MOD I, LEVEL II :OMIN. IB SEC. 

BASIC Program size (WITHOUT VARIABLES) : 895 BYTES 

ZBASIC Program size [WITHOUT VARIABLES) :2733 BYTES 
[Remember that the ZBASIC program includes an 1879 byte sub- 
routine package.) Program shown exactly as compiled and run in 
BASIC and ZBASIC. 

J8 •========= ZBfiSIC £,E eXfiMPLE PRDGROM OND TIME TEST— ====== 

ee CLS!CLEBR100:DEFINT 0-X;DEFSTR Z:DIM flQ (64, 24) , Z (50) : RRNDDM 
30 fln=10B!BB=-1000jCC=3:DD=-3:EE=-g9gg!ST«="STfiRT TIME "'■TIME* 
4«B FOR I=1TD1£7STEP£ :FDR J=47T01STEP-3 : XX=POINT (I , Jl jSET (I , J) 
56 XX=(I-J) /CC»17 + I-t-J> :XX=BBS(INT(HND(I»J)-0fi)+7) :RESET(I,J1 
e.9 XX = PEEK(I + J) :PDKE15360+I+J, J :0UT955,J fiND (3»J> : XX = INP ( I) 
7e fiBS=STRS<I'-JI :Bft«=LEFT*(flB«,E) :fifi (I /2, J/2) =VaL (BO*) '-00»3 
ee Bfl*=BfiI-t-RIGHT5(Bfi», RND(3) 1 : XX = INSTR 11 , Efl«, "9" 1 :XX=S0R(Ii>J) 
9^ Bfi«=MID*(B0«,2,2) :MID«(Bfl«, 1, 1)=Z : IF XX THEN 100 ELSE CLS 
100 IF LEN(BfiI)>3 OR SGN(XX)=] OND RSC<Bfl*)=32 THEN PRINT"***"; 
110 IFPDS(0)>62 THEN TRDN: TROFF : PRINT ELSE XX=NDT ( RND (99) ) *100 
120 fi«=INKEy«:IF B*="Y" OR H«="y" RND I>1£0 THEN PRINT"TRUE. . " 
130 RESTORE sREflDfi, C, Z (J) , D : GOSUB170 : QOSUB170!GOSUB17e :GOTO2I0 
140 NEXT ;PHINT"*"i :NEXTI:CLS:PRINT(»51E, ST», "STOP TirtE ";T1ME« 
150 STOP' ============— END OF MfilN TEST LOOP ================= 

160 DOTfi lES'tS, -I, "TEST'\-9gg3 

170 ON RND(&> GOTO 130, 1 90, 200, IBa^ 198, S00 

180 RETURN 

igp RETURN 

£00 RETURN 

210 ON RND19) GOSUfi IBS, 190, £00, 160, ISB, £30, IBB, 130, 2B0 

£20 GOTO 140 

NOTICE ZBASIC 2,0 OWNERS: you can upgrade your ZBASIC 2.0 lor no charge. 
Just send uS your original diskette/cassette ana a S.A S.e ivitfi your registered 
serial rtumberandcopy of your invoice We will send you ZBASIC 2.2 and 
updates to your manual 
VISA, MASTERCARD, AMERICAN EXPRESS, C.O.D. ORDERS ONLY. 

800 528-1 149 order line 

ZBASIC 2 2 DISK VERSION AN.D MANUAL . 89.95 

ZBASIC 2 2 TAPE VERSION AND MANUAL 79.95 

ZBASIC 2.2 DISK & TAPE VERSION AND MANUAL 99.99 

MANUAL ONLY [APPLIES TO PURCHASE] *..'. 25 00 

ciiiiiTftf Pfiiiiiiii^^ i^^iiifSf" 

TECHNICAL QUESTIONS PLEASE CALL (602) 323-9391 
4897 E. SPEEDWAY, TUCSON, ARIZONA85712 ^^2 

TRS-80 Is tm of Radio Shack, a Tandy Coip. 



pi-See List of Advertisers on Page 455 
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11260 DATA 143,140,128,128,128,191,191,128,128,160 




11270 DATA 184,190,189,180,144,128,128,191,191,128 




11280 DATA 130,139,175,191,191,159,135,129,128,191 




11290 DATA 191,128,128,128,128,130,129,128,128,128 




11300 DATA 128,191,191,128,128,176,188,190,189,188 




11310 DATA 176,128,128,191,191,128,130,175,159,175 




11320 DATA 159,175,159,129,128,191,191,128,128,128 




11330 DATA 140,143,143,140,128,128,128,191,253, 4 









Program Listing 2 


, Assembly Language 








00100 






***************************** 








00110 






* CARD PLACER SUBROUTINE * 








00120 






***************************** 








00130 






BY 








00140 






RON BALEWSKI 








00150 














00160 






SEPTEMBER 28, 1981 








00170 














00180 














00190 


MAIN 


PROGRAM 










00200 


ARGUMENT — 


1ST 10 BITS -PRINT POSITION 








00210 






BITS 11 S 12 -CARD AS FOLLOWS 








00220 






00 - HEARTS 








00230 






01 - CLUBS 








00240 






10 - DIAMONDS 








00250 






11 - SPADES 








00260 










\ 




00270 










7E00 




00280 




ORG 


7E00H 




7E00 


CD7F0A 


00290 


:ard 


CALL 


0A7FH 




7E03 


E5 


00300 




PUSH 


HL 




7E04 


Dl 


00310 




POP 


DE 




7E05 


CB94 


00320 




RES 


2,H 




7E07 


CB9C 


00330 




RES 


3,H 




7E09 


CB3A 


00340 




SRL 


D 




7E0B 


CB3A 


00350 




SRL 


D 




7E0D 


14 


00360 




INC 


D 




7E0E 


4A 


00370 




LD 


C,D 




7E0F 


11003C 


00380 




LD 


DE,3C00H 




7E12 


19 


00390 




ADD 


HL,DE 








00400 


DISPLAY TOP 


2 LINES OF CARD 




7E13 


11527E 


00410 




LD 


DE,TOPHAF 




7E16 


CD307E 


00420 




CALL 


MOVE 2 L 








00430 


DETERMINE WHERE THE PROPER SUIT IS AND DISPLAY IT 




7E19 


B5 


00440 




PUSH 


HL 




7E1A 


112400 


00450 




LD 


DE,36 




7E1D 


21767E 


00460 




LD 


HL,CARDIM-36 




7E20 


41 


00470 




LD 


B,C 




7E21 


19 


00480 f 


JXTADD 


ADD 


HL,DE 




7E22 


10FD 


00490 




DJN2 


HXTADD 




7E24 


EB 


00500 




EX 


DE,HL 




7E25 


El 


00510 




POP 


HL 




7E26 


CD377E 


00520 




CALL 


HOVE 3 L 








00530 


DISPLAY BOTTOM 2 LINES OF CARD 




7E29 


116A7E 


00540 




LD 


DE,BOTHAF 




7E2C 


CD307E 


00550 




CALL 


M0VE2L 




7E2P 


C9 


00560 
00570 
00580 
00590 
00600 
00610 
00620 
80630 




RET 
MOVE 2 


********** 

* M0VE2L * 
********** 

12-BYTE LINES TO THE VIDEO SCREEN. DE 








00640 


IS THE SOURCE 


, HL IS THE DESTINATION. 




7E30 


CD417E 


00650 ^ 


10VE2L 


CALL , 


MOVEIL 




7E33 


CD417E 


00660 




CALL 


MOVEIL 




7E36 


C9 


00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 




RET 
MOVE 3 


********* 

* M0VE3L * 
********** 

12-ByTE LINES TO THE VIDEO SCREEN. DE IS 








00750 


THE 


SOURCE ADDRESS, HL IS THE DESTINATION ADDRESS. 




7E37 


CD417E 


00760 ^ 


10VE3L 


CALL 


MOVElL 




7E3A 


CD4i7E 


00770 




CALL 


MOVEIL 




7E3D 


CD417E 


00780 




CALL 


MOVElL 




7E40 


C9 


00790 




RET 
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is LYNX. 



Considering expanding your TRS-80 
Model 1 or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in fiomes and busi- 
nesses around the block and across 
the country A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 fyiodel I and Model 

HI, It's the latest innovation from the people who 
are making data commurncalions affordable. It's 
the best first step you can take in expanding, it 
makes your microcomputer a whole new animal. 




DLYivnco 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phone 717/291-1116 

TRS-80 isattatJemarkot ihe Radio Shack Division of Tandy Corporalion 
FCC Registration Number; A909KE-681 71 -DM-N 



re- 



in- 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it s the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
f and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or fuli duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



^49 



Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



THE BOTTOM LINE 
Miiford, NH 
800/343-0726 



BREEZE/QSD 
Dallas, TX 
214/484-2976 



THE PROGRAM STORE 
Washington, DC 
800/424-2738 



SIMUTEK 
Tucson, AZ 
800/528-1149 



SOFT SECTOR MARKETING 
Garden City, Ml 
800/521-6504 



B. T. ENTERPRISES 

Centereach, NY 
516/981-8568 

^See List of Advertisers on Pago 455 



COMPUTER PLUS 
Littleton, MA 
800/343-8124 



STEVENS COMPUTERS 

Phoenixville, PA 
800/345-6279 



PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 
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00800 , 

00810 

00820 

00830 

00840 , 

00850 

00860 

00870 




TO 


MOVE 1 
■IL TO RE 


********** 

* HOVElL * 
********** 

12-BYTE LINE FROM (DE) TO (HL) AND ADD 52 
-CYCLE TO TO THE NEXT LINE ON THE VIDEO 










00880 




DISPLAY. 








7E41 


C5 


00890 MOVEIL 


PUSH 


BC 






7E42 


060C 


00900 






LD 


B,12 






7E44 


lA 


910 NXTBYT 


LD 


A, (DE) 






7E45 


77 


00920 






LD 


(HL) ,A 






7E46 


13 


00930 






INC 


DE 






7E47 


23 


00940 






INC 


HL 






7E48 


10FA 


00950 






DJNZ 


NXTBYT 






7E4A 


D5 


00960 






PUSH 


DE 






7E4B 


113400 


00970 






LD 


DE,52 






7E4E 


19 


00980 






ADD 


HL,DE 






7E4F 


Dl 


00990 






POP 


DE 






7E50 


CI 


01000 






POP 


BC 






7E51 


C9 


01010 
01020 
01030 






RET 








7E52 


EC 


01040 TOPHAF 


DEFB 


188 






7E53 


8C 


01050 






DEFB 


140 






7E54 


8C 


01060 






DEFB 


140 






7E55 


8C 


01070 






DEFB 


140 






7E56 


8C 


01080 






DEFB 


140 






7E57 


8C 


01090 






DEFB 


140 






7E58 


8C 


01100 






DEFB 


140 






7E59 


8C 


01110 






DEFB 


140 






7E5A 


8C 


01120 






DEFB 


140 






7E5B 


8C 


01130 






DEFB 


140 






7E5C 


8C 


01140 






DEFB 


140 






7E5D 


EC 


01150 
01160 




2ND 


DEFB 
LINE 


188 






7E5E 


BF 


01170 






DEFB 


191 






7E5F 


80 


01180 






DEFB 


128 






7E60 


80 


01190 Nl 




DEFB 


128 






7E61 


80 


01200 






DEFB 


128 






7E62 


80 


01210 






DEFB 


128 






7E63 


80 


01220 






DEFB 


128 






7E64 


80 


01230 






DEFB 


128 






7E65 


80 


01240 






DEFB 


128 






7E66 


80 


01250 


M2 




DEFB 


128 






7E67 


80 


01260 






DEFB 


128 






7E68 


80 


01270 






DEFB 


128 






7E69 


BF 


01280 
01290 

01300 






DEFB 


191 






7E6A 


BF 


01310 


JOTHAF 


DEFB 


191 






7E6B 


80 


01320 






DEFB 


128 






7E6C 


80 


01330 


•J3 




DEFB 


128 






7E6D 


80 


01340 






DEFB 


128 






7E6E 


80 


01350 






DEFB 


128 






7E6F 


80 


01360 






DEFB 


128 






7E70 


80 


01370 






DEFB 


128 






7E71 


80 


01380 






DEFB 


128 






7E72 


80 


01390 


N4 




DEFB 


128 






7E73 


80 


01400 






DEFB 


128 






7E74 


80 


01410 






DEFB 


128 






7E75 


BF 


01420 
01430 


. 


2ND 


DEFB 
LINE 


191 






7E76 


83 


01440 






DEFB 


131 






7E77 


83 


01450 






DEFB 


131 






7E78 


83 


01460 






DEFB 


131 






7E79 


83 


01470 






DEFB 


131 






7E7A 


83 


01480 






DEFB 


131 






7E7B 


83 


01490 






DEFB 


131 






7E7C 


83 


01500 






DEFB 


131 






7E7D 


83 


01510 






DEFB 


131 






7E7E 


83 


01520 






DEFB 


131 






7E7F 


83 


01530 






DEFB 


131 






7E80 


83 


01540 






DEFB 


131 






7E81 


83 


01550 
01560 
01570 
01580 






DEFB 


131 










01590 






********* 










01600 






* SOUND * 










01610 






********* 










01620 


















01630 






SOUND 


ROUTINE CALLED BY BASIC TO GENERATE SOUND 










01640 




EFFECTS. 


NOT CALLED BY ABOVE MACHINE LANGUAGE PGM. 






7E82 


CD7F0A 


01650 


SOUND 


CALL 


0A7FH 
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E ULTIMATE IN COLORCOMPUTlWf^ 



^v WORD PROCESSING 

,,^ ^ THE SUPER "COLOR" WRITER II 

• :^i^: The Word Processor that re-wrote the book on Word Processing 

" 7 , - The Super "Color" Writer is a FAST, machine code, full featured, 

character (screen) oriented word processing system for the TRS-80(TM) 

; iv; ,i;-Color Computer and ANY printer The video display is styled after a 

'...';;. '"-.professional phosphor (green characters on black background) display 

- '■ ;,vi'';r^orhoursof use withouteyefati9ue(optionalorangeon black). Theunique 

^^•. .:■... ";.:^^^f(nt WINDOW frees you from 32, 51 or 64 character tines FOREVER! This 

/ [.li---}'-!wiiiiiin<iow can be moved anywhere in the text file, up. down, left or right to 

.■,::'■ S'^.'^^isplay the text as it will be printed without wasting paper.' You can create 

r edit Super "Color" Terminal files, ASCII files. BASIC programs or 

t^^f^ssembler source listings. It's simple enough for beginners with 4K 

^.-.^ the professional writer with a 32K disk system and a lot to say. 

F;|!^iBlenty of room to say it' 

" -ONfcMART SUPEB COLOR WRITER THE COMPETITION 

^ilK 16K 32K 
'^- 2K I8K 

N/A .N/A 
D5K 16 ^K ■ 



COMMUNICATIONS 

THE SUPER "COLOR" TERMINAL ^ ^ 

Time Share, Smart Terminal, High-speed Data X'fer & Videotex ji^^i 
The Super "Color" Terminal turns the Color Computer into a Super-smart '^'j^''^- 
terminal with ait the features of VIDEOTEX(TM) plus much mQrs.'..ii?f;^-'"i, 
nr\>LAtL»\ iMir^ A Tc ..mk r\™., 1^^.%.. o r- i...:ii . ••afey("'v. ■..'','"; 'v.':... 



COMMUNICATE with Dow Jones S CompuServe and with computersj^»)^'es 

theTRS-80(TM) MODEL I, II, III. APPLE etc.. via moden or RS-235a,^^j^l;^^V 

Save the data to tape or print W. Reduces ON— LINE cost to a if^J^^^''--" 

FEATURES 'tMsV^'^- 






wmmm&immm 



xt space 
..-^^lify 

eo WinOow ' <'.' 
1 any ASCII File _ .^-■--:---'-V^S"'-':-?--'-^(^'';^- ■}[ 
e figures speak for themselves and wi: 
lOGRAMMABLE function String commt 



conle^Is-^ull iirfOA:?^!! Keyooaro'Compalible with Super' , 
files • UPLOAD & DOWNLOAD ASCII files. Machine Langu 
programs • Set flS-232 parameters • Duplex: Half/Full • Baud Rate: 
300.600. 1200. 24b0, 4800" Word Lengths: 5, 6. 7 or 8 •Parity: Odd. E\ 
None • Stop Bits: 1 -9 • Local linefeeds to screen • Tape save & loc 
ASCII tiles. Machine code & Basic programs • Unique clone '--■ 
copying any tape 

Super "Color" Terminal Disk 'V 

The Disk version offers all the features listed above plus h&t^ 
duplex" Lowercase masking" 10 Keystroke Multiplier (MACHOrbu 



■^'cv&^-^^^^i-^H'-^ on disk to perform repetitive log-on tasks and send short messages (upto'-'- ■■ ' 
:;:t;j^' ' 255 bytes) " Programmable prompts for send next line • Selectable 




B^a\ leatures iike character trapping • Set printer line length • Pagination" Linefeed with CR 
;OGRAMMABLE function String comm^t^'td-^^Horm up to 28- option " Printer Baud: 110. 300. 600. 1200 & 2400 • Documentation, 
mmands automatically. PROGRAMMABLE text file chaining, hA' 

lOGRAMMABLE column insert & delete, and right hand ^^t^l^^ppf^^-^^ ROM PAK $49.95 DISK $ft|.?|!^^; 
STIFICATION with punctuation precedence, the choice .is clear but '^,y^:^^i^'^"'^'^'"*'"'"" ""'" *'' "" '^''•■■'"^-'►'i" ►- ^~-"•" '■-■;,<;'..;. S?.;'..---.- 

...jre's still more! ' ''^^?--''-'' '" 

fhpSuper''Color" Writer takes full advantage of the new breed of ■■smart,iis;£^r;,vr;-,--^^ .',? -S-i^v.^ . ■ ,»*rt««n«i^ u-i-r*> 




:"- "' ._.-_--.-..-. .ri:K.-^^v-V':.:-^-^?>^^^-^^./flOMPAKKITS ,..;■, 

i^your programs in a ROMPAK or execute tape based prograiBS:jt» a 
tflPAK at $COOO. Kit includes 1 socltet^,(3^.teBrd that holds up io4,'. 
J6 EPROMs or 4, 2K Static Ram Ch}pjs:t^;;^i^lel of 8K and a plastig^ 
^WO-4o fit the rom port. $24,95 ' -'"'"'"■'■ ^'^■;;S;,'^,|"- 

" '^y EPROM $5.95 ea. 2K Static RAM "' 

; j^ COLOR GAMES!! 
. URING GREAT GRAPHICS & . 

-ve, copy & delete • Global Search, Exchange & Delete • Merge or ADVENTURE 3-PAK Requires 16K Extended Basic. TAPE $24.95 

pend files" Imbed Control.Codes in text "Undeiline" Superscripts" jujs TRILOGY OF 3-D FANTASY GAMES takes you to the WORLD 

bscrip(s • Headers, Footers & 2 Auxiliary footnotes on odd. even or all UNDER THE CIMEEON MOON. Engage in ritual combat with Tooamoath 

3esdefinableposition"Flushright.Non-breakablespace"4cenler.ng Narthokc Monsters and skilled warriors. Advance m rank with play 

.des:5.8.3,-10& I6,7(CPI)"Fullpage&prmHormattingintext»Single experience Then adventure through DAZMAR'S UNDERWORLD OF 

^/:Bf use • Set Page length • Line length, Line spacing. Margins, page DOOM to the forbidden ruins of Castle Argaan. Search for the Eye of 

^^^^ Title pages • Printer baud 110. 300. 600. 1 200, 2400 • Linefeeds Dazmar while avoiding the sorcerors intricate traps. Survivors must then ■ 

fB||!^>,SM|t & hard formfeed • Works with 8 bit printer ''"1^^^^, negotiate the perilous peaks of Ihe Ugrek Mountains to the FORSAKEN 

7- !i':,'-V"^,'""r--'"i ■ 'i-^^^^^ GULTCH where the wicked idol awaits restoration. 

s¥^'^<^'''f'>MSUPER "COLOR" WRITER DISK VEGAS S-PAK Requires 16K Extended Basic TAPE $19.95 

F^lt'i^^j^^" °* '•'^ ®"P*" "*^*""" *"'*' *°'"'*^ *''^ "''' TRS-80C Disk -r^,g THRILLS OF A VEGAS CASINO at home. Five action packed Vegas 



''''"" " ■' with Control codes 1 -31 , 20 Programmable control codes r'""""" 
'■»\ needs and built in Epson MX-60, Centronics 737, T*^ 
{(rifV. VII, VIII drivers. 
, .:B-C CHECK THESE FEATURES!! 

^^EED& normal operations "32K Compatible "Wi, 
itP'iable • 1 26 character ASCII & graphics • Memory left • L^#^a 
ull cursor control "Ouick paging"Scrolling" Word wrap around "Tabs 
lepeat all functions • Repeat last command " Insert character & line • 
lete character, delete to end of line, line to cursor, line & block • Block 
ive, copy & delete • Global Search, Exchange & Delete • Merge or 
pend files " Imbed Control.Codes in text • Underline • Superscripts " 
bscripts • Headers, Footers & 2 Auxiliary footnotes on odd. even or all 
ges definable posit ion "Flush right "Non-breakable space "4 centering 



^ttft^i^nd has all the features listed above plus many more! Use with up 
:£^rvOisk Drives. Includes an extended HELP table you can access at 



games for up to four players: CASINO CRAPS * 21 ' ONE ARMED BANDIT 
' UP & DOWN THE RIVER * KENO. Bank tracks players winnings tr^ra^ 



,y time call a directory, print FREE space. Kill disk tiles and SAVE and ^^^^ ,^ ^^^^ . ^^^,,^,.^ ^^^^^ . .gg^igt^^n tables " boards " autherii' 



)AD text files you ve created all from the Super "Color" Wtiter. Print. 
■rgeor append any Super "Color" Terminal file! ASCII tile. BASIC 
jgram or Editor/ Assembler source listing stored on the Disk of tape The 
per "Color" Writer Disk version has additional formatting and print 
itures for more control over your printer and PROGRAMMABLE 
lining of disk files for hands'off" operation. Pnntan entire BOOK 






Includes comp 







?' A'/v.^i 



sounds " lively graphics • official rules in each game, """. ,V",'" '. 

COMBAT 3-PAK Requires 16K Extended Basic TAPE $24.95 / 

Three action packed two player games featuring lifelike graphics and '.'. 

sound of LASER FIRE, CANNONS and PHOTON TORPEDOES. 
2-1-0 TANK COMBAT five terrains " the experienced arcade player caft,.v '^''- ;%. 
design combat scenario, STELLAR BATTLE pilot a Flex-Wing Fighters^/- " ' 
incredible speeds m enemy space taking out Dorian Tye Fighlei^ 
'^■'•ending'the Imperial Star Fortress GALACTIC BLOCKADE rQt^s^)^f:^-(^'f.-:s 
ir craft in a course that boxes your opponent but avoid cost^^i^^^its^f;?'^-fi-iifi '-' 



-|e space pr' 



dable with purch 

D orders add 

.i'Wftfe and add S2 00 
tax. VISA/Master Chg. 






[MasterCaW 



DEALER INQUIRES ARE I 



-80 ■■ ■ r»flj«l*rtdJrMl«inarh of the Tan 




|..',.^*.. 
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MECHANICAL & STRUCTURAL 
ENGINEERING PROGRAMS 

EASl Software, Inc," supplies commercial quality 
analysis and design programs for architects and engin- 
eering consultants. All programs are available on 
TRS-80 and CP/M formats, 

EASI-PATH Project ManagamentSy8tam(S300 00) 

IS a data-base oriented program which uses CPM (critical 
path method) to schedule project operations against 
lime periods and cost restraints. While the reports 
generated by this program were designed as a tool to 
assure management that detailed project planning is 
performed, it is also an effective SALES TOOL for 
customer project presentations. 

PV-CODE ($995.00) is a menu driven design program 
which interactively designs complete pressure vessels 
including shells, heads, stiffeners, reinforcements, and 
flanges. It is based on the ASME Code and includes 
mathematical models of the required charts and tables. 
A complete design report is generated. 

Manuals w/demonstration diskette available for the 
above programs $30.00 each. 

Other engineering programs available(MCt2*): 

Finite Element (Space Frame); 

Concrete Design {Beam, Column, Slab, 2 Way Slab); 

Steel Design (Beam, Column); Fire Sprinkler; 

HVAC; Electrical Engineering; Accounting, etc, 

EASl Software Inc.' 

DEPT: MC-2 

2 Windsor Court 

Jackson, NJ 08527 

(201)367-5735 

•MCt-2 fs ihe Trademark for McClintock. Inc. 

*EASI Softw/arslnc. previously known as Engineering Analysis 

Software Consuliarifs 
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MAXPRIN 



FOR THE STANDARD EPSON MX--B0 PRINTER 




* SLJF=-F=-aF<-rs .^i_i_ MX— so p^rimt btyi_es 

* waR;i:>i=-i^cjc:;e:ss I MG text cdi-itrol r-ion>E 

* r-|^|v(U MODE EOR C3EMEI=t»=*l_ *=1F="F='1_. 1 Ci^T I OIM 

* TP%UE R-F«C3F=-OF«T I ONAL. JUST 1 F 1 Cf^T I OIni 



* UNDERLINES ANVWHfcRK 
-.SCRIPTS 



» CENTERS TITLES 
g^ja3i.r<iri3 • ^'^''^'^SCRIPTS 

* DYNAMIC CONTROL OF LINE SPACING IN 1/72 IN. INCREMENTS 
* ITOLICS MJTH HX-S0 BHUfTHOX 
t WORKS WITH MOST PROSRAMS 1NCLUOIN0 §£515511 '" 

MaMprlnt ia an e-Atraoriiinery user oriented printer driver utility 
program which allows you to select ^ny HX-5lil print style Or 
functJort eueh as underlining nn a •^hsrscter by chtraet^r basis 
within Mord oroteSElng text. Ma^forlnt also features proport i ariAl 
right margin justification within a block o-f Etandard tBJct to give 
your printout s truly profesaionel appearance. 

ThS 3tand«rd MsKprlnt works with all BABIC programs. Adapter 
pragrama available tor SCRIPSIT, PENCIL, and LAZyWRITER. Mtnlmutn 
system requirements ere a 32K Model I or Model lil with one dieti 
drive. (Model 111 needs two drives to convert only.) 



aeie^£^_£«e_t?'«p_ee£e^fiiaj_gf_K2ur_«J!-gg. 

on dldk with manua), adapter programs, a 



Maxprint Is supplied 
d shipping -for only: 



TO OFtDEir^l 



Call 140B> 737-22S3 
Send check or mnney 

3B1 First Street, Suite 3147 
Lob Altos, California 94022 



Visa / Mast er card 

irder tot 



1^333 



Cft rtsiitnis iflil tl Silg^ ;a< /' Sfripi^t T>i c( tinJi- Carp. 
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7E85 


3E01 


01660 


LD 


Arl 


7E87 


0E00 


01670 


LD 


C,0 


7E89 


45 


01680 


S0UND2 LD 


B,L 


7E8A 


2F 


01690 


CPL 




7E8B 


E603 


01700 


S0UND3 AND 


3 


7E8D 


D3FF 


01710 


OUT 


(255) ,A 


7E8F 


0D 


01720 


DEC 


C 


7E90 


2804 


01730 


JR 


Z , SOUNDD 


7E92 


10F7 


01740 


DJNZ 


S0UND3 


7E94 


18F3 


01750 


JR 


S0UND2 


7E96 


25 


01760 


SOUNDD DEC 


H 


7E97 


20F2 


01770 


JR 


N2,S0UND3 


7E99 


C9 


01780 
01790 
01800 


RET 








01810 


J HEART FIRST 


LINE 


7E9A 


BF 


01820 


CARDIM DEFB 


191 


7E9B 


A0 


01830 


DEFB 


160 


7E9C 


BC 


01840 


DEFB 


188 


7E9D 


BF 


01850 


DEFB 


191 


7E9E 


BD 


01860 


DEFB 


189 


7E9F 


B4 


01870 


DEFB 


180 


7EA0 


A0 


01880 


DEFB 


160 


7EA1 


BE 


01B90 


DEFB 


190 


7EA,2 


BF 


01900 


DEFB 


191 


7EA3 


BC 


01910 


DBPB 


188 


7EA4 


90 


01920 


DEFB 


144 


7EA5 


BF 


01930 
01940 


DEFB 
; HEART LINE 2 


191 


7EA6 


BF 


01950 


DEFB 


191 


7EA7 


82 


01960 


DEFB 


130 


7EA8 


8F 


01970 


DEFB 


143 


7EA9 


BF 


01980 


DEFB 


191 


7EAA 


BF 


- 01990 


DEFB 


191 


7EAB 


BF 


02000 


DEFB 


191 


7EAC 


BF 


02010 


DEFB 


191 


7EAD 


BF 


02020 


DEFB 


191 


7EAE 


BF 


02030 


DEFB 


191 


7EAF 


8F 


02040 


DEFB 


143 


7EB0 


81 


02050 


DEFB 


129 


7EB1 


BF 


02060 
02070 


DEFB 
; HEART LINE 3 


191 


7EB2 


BF 


02080 


DEFB 


191 


7EB3 


80 


02090 


DEFB 


128 


7EB4 


80 


02100 


DEFB 


128 


7EB5 


80 


02110 


DEFB 


128 


7EB6 


83 


02120 


DEFB 


131 


7EB7 


8B 


02130 


DEFB 


139 


7EB8 


87 


02140 


DEFB 


135 


7EB9 


83 


02150 


DEFB 


131 


7EBA 


80 


02160 


DEFB 


128 


7EBB 


80 


02170 


DEFB 


128 


7EBC 


80 


02180 


DEFB 


128 


7EBD 


BF 


02190 
02200 


DEFB 
; CLUB LINE 1 


191 


7EBE 


Bf 


02210 


DEFB 


191 


7EBF 


80 


02220 


DEFB 


128 


7EC0 


80 


02230 


DEFB 


128 


7EC1 


80 


02240 


DEFB 


128 


7EC2 


30 


02250 


DEFB 


128 


7EC3 


BE 


02260 


DEFB 


190 


7EC4 


BD 


02270 


DEFB 


189 


7EC5 


30 


02280 


DEFB 


128 


7EC6 


80 


02290 


DEFB 


128 


7EC7 


80 


02300 


DEFB 


128 


7EC8 


80 


02310 


DEFB 


128 


7EC9 


BF 


02320 
02330 


DEFB 
; CLUB LINE 2 


191 


7ECA 


BF 


02340 


DEFB 


191 


7ECB 


88 


02350 


DEFB 


136 


7ECC 


AE 


02360 


DEFB 


174 


7ECD 


BF 


02370 


DEFB 


191 


7ECE 


8C 


02380 


DEFB 


140 


7ECF 


AE 


02390 


DEFB 


17 4 


7ED0 


9D 


02400 


DEFB 


157 


7ED1 


8C 


02410 


DEFB 


140 


7ED2 


BF 


02420 


DEFB 


191 


7ED3 


9D ^ 


02430 


DEFB 


157 


7ED4 


84 


02440 


DEFB 


132 


7ED5 


BF 


02450 
02460 


DEFB 
; CLUB LINE 3 


191 


7ED6 


BF 


02470 


DEFB 


191 


7ED7 


80 


02480 


DEFB 


128 


7ED8 


80 


02490 


DEFB 


128 


7ED9 


80 


02500 


DEFB 


128 


7 EDA 


8C 


02510 


DEFB 


140 
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Listing 2 Continued 








7EDB 


8F 


02520 


DEFB 


143 


7EDC 


8F 


02530 


DEFB 


143 


7EDD 


ac 


02540 


DEFB 


140 


7EDE 


80 


02550 


DEFB 


128 


7EDF 


80 


02560 


DEFB 


128 


7EE0 


80 


02570 


DEFB 


128 


7EE1 


BF 


02580 


DEFB 


191 






02590 ; 


DIAMOND LINE 


1 


7EE2 


BF 


02600 


DEFB 


191 


7EE3 


80 


02610 


DEFB 


128 


7EE4 


80 


02620 


DEFB 


128 


7EE5 


A0 


02630 


DEFB 


160 


7EE6 


B8 


02640 


DEFB 


184 


7EE7 


BE 


02650 


DEFB 


190 


7EE8 


BD 


02660 


DEFB 


189 


7EE9 


B4 


02670 


DEFB 


180 


7EEA 


90 


02680 


DEFB 


144 


7EEB 


80 


02690 


DEFB 


128 


7EEC 


30 


02700 


DEFB 


128 


7 BED 


BF 


02710 


DEFB 


191 






02720 , 


DIAMOND LINE 


2 


7EEE 


BF 


02730 


DEFB 


191 


7EEF 


80 


027 40 


DEPB 


128 


7EP0 


82 


02750 


DEFB 


130 


7EF1 


8B 


02760 


DEFB 


139 


7EF2 


AF 


02770 


DEFB 


175 


7EF3 


BF 


02780 


DEFB 


191 


7EF4 


BF 


02790 


DEFB 


191 


7EF5 


9F 


02800 


DEFB 


159 


7EF6 


87 


02810 


DEFB 


135 


7EF7 


81 


02820 


DEFB 


129 


7EF8 


80 


02830 


DEPB 


128 


7EF9 


BF 


02840 


DEFB 


191 






02850 


DIAMOND LINE 


3 


7EFA 


BF 


02860 


DEFB 


191 


7EFB 


80 


02870 


DEFB 


128 


7EFC 


80 


02880 


DEFB 


128 


7EFD 


80 


02890 


DEFB 


128 


7EFE 


80 


02900 


DEFB 


128 


7EFF 


82 


02910 


DEFB 


13 


7F00 


81 


02920 


DEFB 


129 


7F01 


80 


02930 


DEFB 


128 


7F02 


80 


02940 


DEFB 


128 


7F03 


80 


02950 


DEFB 


128 


7F04 


80 


02960 


DEFB 


128 


7F05 


BF 


02970 
02980 


DEFB 
SPADE LINE 1 


191 


7F06 


BF 


02990 


DEFB 


191 


7F07 


80 


03000 


DEFB 


128 


7F08 


80 


03010 


DEFB 


128 


7F09 


B0 


03020 


DEFB 


176 


7F0A 


EC 


03030 


DEFB 


188 


7F0B 


BE 


03040 


DEFB 


190 


7F0C 


BD 


03050 


DEFB 


189 


7F0D 


BC 


03060 


DEFB 


188 


7F0E 


B0 


03070 


DEFB 


176 


7F0F 


80 


03080 


DEFB 


128 


7F10 


30 


03090 


DEFB 


128 


7F11 


BF 


03100 
03110 


DEFB 

SPADE LINE 2 


191 


7F12 


BF 


03120 


DEFB 


191 


7F13 


80 


03130 


DEFB 


128 


7F14 


82 


03140 


DEFB 


130 


7F15 


AF 


03150 


DEFB 


175 


7F16 


9F 


03160 


DEFB 


159 


7F17 


AF 


03170 


DEFB 


175 


7F18 


9F 


03180 


DEFB 


159 


7F19 


AF 


03190 


DEFB 


175 


7F1A 


9F 


03200 


DEFB 


159 


7F1B 


81 


03210 


DEFB 


129 


7F1C 


80 


03220 


DEFB 


128 


7F1D 


BF 


03230 
03240 


DEFB 
SPADE LINE 2 


191 


7F1E 


BF 


03250 


DEFB 


191 


7FiP 


80 


03260 


DEFB 


128 


7F20 


80 


03270 


DEFB 


128 


7F21 


80 


03280 


DEFB 


128 


7F22 


8C 


03290 


DEFB 


140 


7F23 


8F 


03300 


DEFB 


143 


7F24 


8F 


03310 


DEFB 


143 


7F25 


8C 


03320 


DEFB 


140 


7F26 


80 


03330 


DEFB 


128 


7F27 


80 


03340 


DEFB 


128 


7F28 


80 


03350 


DEFB 


128 


7F29 


BF 


03360 


DEFB 


191 


7E00 




03370 


END 


CARD 


0000 


3 TOTAL 


ERRORS 
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SOFTWARE CONCEP 



AVIATION PROC^^ 

• Pilot Flight Planning 

• Financial Trip Information 

• Flight Plan Revisions 

• Determination of optimum altitude 

• Area Navigation 

• Course Reversal 

• IFR Alternate 

• Great Circle Courses 

• Cost Projections 

• Cash Flow 

• Weight & Balance 

• More 

Aviaiion (Model ill disk only) $99.00 

RETAIL INVE^T0EY CONTROL 

• Maintain Inventory 

• Sales Register 

• Full Editing 

• User Configured 

• Track Backorders 

• Tracks Re-order Time 

• Prints Purchase Orders 

• More 

Retail Inventory (Mod i/iii Disk) $99.00 

With Cash Register Module $148.00 

THE DISASSEMBLER 

• Disassemble Command Files 

• Generate EDAS Source Code 

• Insert User Defined Labels 

• Generate ORG's & EQUates 

The Disassembler (MOD l/lll Disk) $39.00 

EDAS $75.00 

ELECTRA SKETCH 

• Screen Graphics 

• Mix Graphics & Text 

• Dump Screen to MX-80 

• Movie Display Mode 

• Load Screens Fromom BASIC 

• Instant Recall of Screens 

• More 

Electra Sketch (Mod l/lli Disk) $29.00 

FINE LINE 

• Graphics Drawing in COLOR! 

• Movie Mode 

• Save screens to Tape 

Fine Line (Color 16K Tape) 



:. $34.00 

(Most TRS software available at similar discounts, CALL!) 

SOFTWARE CONCEPTS 

105 Preston Valley Shopping Center 
Dallas, Texas 75230 

Our retail store is located at the SW corner of 



Preston & LBI 

(214) 458-0 



^^\ 



t'See List ot Advertisers on Page 455 



MasterCard, Visa, American Express, COD 
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PUSH YOUR TRS-80* TO ITS LIMITS 



Volume 1 1 

Down Ihe RoaO 
Aller llie Goldrush 
Business Fofms' The Invoice 
How Much Interest— The Rule at 78 
ComDuler Educalmn 
Weaauring Inatruclional Effectiveness 

with Ihe TRS-80 
Using a TRS-80 lo Tabulate Student Ratings 
SworOs ana Sorcery II 
The President Decides 
Babe Rutti Is Alive and Well 

and Hilting Home Runs on My TRS-BO 
Four Graphics Meltiods 
TRSpirograph 
Adventures in Roseland 
Punch Out Vour Disks 
Build a Snooper^Snubber 
Car Pool 

Doctor Your Records 
Computacar 

Bio-Baraj Biorhyihms in Bar Graph Form 
TTY Interface 
Why Bother lo Interface 
Into the SO's. Part I. Part II, Part III 
Printer Calibration 
Delay Loop 



How? 

You don't have to add 
You don't have to add 
You just have to add on 
ENCYCLOPEDIA FOR 



on peripherals 
on nnemory 
information with 
THE TRS-80* 



Volume 2 

The Nameand Address File 

Eipense Report 

Story r^ath 

Smile— TRS-80 Loves You 

Keno 

Tte Attack 

Worksheet 

Curve Plotter 

Chip Tester 

Budda Ligtit Pen 

BASIC Word Processor 

States Worked: 

A Prograin lor Radio Amateurs 
Personal Property Inventory 
Testing 1, 2, 3 
Decode CW Directly 

from the Cassetle Earplug 
Into the 80's, Pan IV, Part V 
EDTASM lor ^^odel III 
Put Some Flash inio Your Menus 
FILEX. A Communication Package for 

File Exchange 



Volume 4 

Mailing Lisl for a Small Business 

Business Forms — The StatemenI 

Grade Calculator 

Classroom Doodles 

Asteroid Adventure 

Compukala 

Puzzler 

On Your Ivlar*. Get Set, and Go 

Program an EPROM 

Pah-IHutuel 

Income Tax Withholding 

An Automallc Cassette Tape Interlace 

Send and Receive RTTY in BASIC 

A Belter Way 

Oont Be a Slow POKE. 

Take a PEEK at Your Computer 
Hairy Bl-Nary and Hexy-Decimal 
Instant Indeier Programming m Disk BASIC 
Uni-Key for the Model I 
BREAK DIsahle 
Z-80 Disassembler 



Volume J 
Flei(Fo'm 
Inventory 
Algebra Tutor 
Supermaie 
Micro Baskelt^all 
Images 

Regulate Your Video Monitor 
CTR-80 Modifications 
The Great Girl Scout Cookie Caper 
Two Energy Savers 
Listen To Vour Keyboard 
A Delu«e Expansion Interlace 
Interfacing Ihe TflS-80 

to Ihe Heath Hia Printer 
Saving Machine Language Below BASIC 
CISAB— Backwards BASIC 
Into the 80s, Pari VI. Part VII 
Spool and Despool 
Renumbering Made Easy 



Volume 5 
HiHoSitver! ■■- 
Xccountants AiO. 
Vocabulary Builder 
Mumerical Expression Input m Level II 
Pre-School Math- 
A'Day>at Ihe Races 
Star Dreck 
Slide Show 
Graphs, Plus 
Interrupt Mode 1.5 

Reverse Video Hardware Modification 
Team Stats 
Loans— Do You Really 

Know the Cost of Yours? 
A Home-Brew Interlace 
A Handle on Programming- Store and Reca 
Prime Up Your SO 
The Z-80's Hidden Abilities 
KBFIX Your BASIC Programs 
File Name 
Macros Let Your Ivticro Do the Work 



The Encyclopedia for the TRS-80* is the largest single 
source of TRS-8.0 information in the world. All ten vol- 
umes are loaded with practical programs and articles 
designed to tal<e you and your computer beyond the lim- 
its of the manufacturer's documentation into a new and 
exciting world. 

Each volume contains between 15 and 20 articles ac- 
companied by diagrams and program listings. Virtually 
all of the articles are totally new and cover such topics 
as utility, tutorial, business, word processing, educa- 
tion, hardw^are, graphics, games and more. If you were 
to purchase individually all the programs contained in a 
single volume, It would cost you more than the $109.50 

price of an of an entire ten 
volume soft-cover edition. 
Think of It— over "ISO pro- 
grams for $109.50. That's 
less than 73c per pro- 
gram! And, when you buy 
a complete set, soft or 
hardcover edition, we pay 
the $15.00 shipping and 
handling charges. PLUS 
you get Volume 1 of EN- 
CYCLOPEDIA LOADERTM 
absolutely free— A $14.95 
value. 

'Programs contained on Encyclopedia Loader. 
Book is needed to use Loader. 



6 



Volume 6 
Exponential Smoothing 
Voter Registration 
Keeping Track — 
Student Scheduling and Attendance 

Part I 

Part II 
Space Mission 
Slot Machine 
Level II Graphics Code 
New Compu-Skelch 
As You Like It With the PR.80 
Add PROM Capability to Your TRS-80 
Magazine Indei 
Money Minder 

Groupies' A Strategy to Group Like Objects 
Stick With It 
Easy Selectric(TM) Output lo' the TRS.8D. 

Take Me to Your Solenoids 
On Toward Better Sorts of Things 
Random Dislribulion Graphics 
Using LMOFFSET 
Extractor' An Ace in the Holei 
Page Print Your Listings 
Let Your TRS-80 Do the Typing 



Volume 7 
Point and Figure Charting 

for Stocks and Commodities 
Dii'idend Reinvestment Plan 
Keeping Track — 

Student Scheduling and Attendance 
Part III 
Part IV 
Roulette 

Five Short Games 
Rubik's CubelTM) Manipulator 
Easy CHRS Graphics and Animation 
Memory Size— 20KI 
Disk BASIC Word Processor 
The Big Game 
Using the Useful UART 
String Problems In the TRS-80 
Hex, Octal, and Binary 

lo Decimal Conversions 
EMOD— EDTASM Modifications 
' (or Ihe Model III 
Renumber One 
Command 



7 



Volume S 

Business Predictions from the TRS-BO 
Slock Valuation 
Practical Applications of 

Classroom Programs 
Super Curve Fit 
Queen Rama's Gave 
TRS-80 Jukebox 
Instant Graphics for Everyone 
Screen Editor tor Graphics Creations 
Lowercase Driver for the TRS-80 
Minor Monitor Maintenance 
Can You Find that Slide' 
Controlling Your Home with Your TRS-BC 
Speak for Ycursall: 

A Speech Synthesiser lor the TRS-BO 
Computer Number Systems and 

Arithmetic Operations- Part I 
Down in the Dumps' Examining Memory 
New Disk Owners' Delight 
Generate 
Professional Looking Listings 

with a TeletypefTM) 
More Patches to EDTASM 



8 



Volume 9 

La yaw ay 

Your Fair Share 

Getting Your Searings 

Do-ll-Yoursell Maze Package 

Munch 

LefURighl for ihe Color Computer 

Super Fast Graphics in BASIC 

Recreating Graphics 

Dynamic Graphics wilh Pool Ball 

EPROM Programmer 

Aulocosi 

Your Personal Expense Account 

Celestial Soltware 

Model III TO Porl 

A Bit of Precision 

Computer Number Systems and Arithm 

Operations — Part II 
Slow Scroll . 

TRSDOS Multiple Command Processor 
Dandy^ap 



Volume 10 ' *-' 

Plan Ahead— A Program (or Proiect Planning 

Check Storage Program 

Loan Amortization 

Physics In Molion— Eipionng the Projectile 

Problem 
Another Magic Trick 
Satan's Square 
Card Playing 
Unlocking the Color Computer Graphics 

Character Code 
SBLOCK 

Graphics and ZBASIC. Part I, Part II, Pari III 
Heart/BAS Heart/CIM 
Planning Your Retirement 
Low Resolution Voice lor the Color Computer 
Atari Joystick to TRS-80 Interlace 
Screen S talus Byte 
TRS-80— Cryptographer 
Lazy Logic Trainer 
Modilymg Scnpsit to Send Control 

Characters to Printers 
ShortstutI 
COMPLETE INDEX FOR ALL 10 VOLUMES 
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What is ENCYCLOPEDIA LOADERTM? |t is a 
dump, on 30 minute cassettes, of most of the 
programs contained in the ENCYCLOPEDIA 
FOR THE TRS-80. It gives you the ability to 
load those programs quickly and easily, 
saving you hours of keying in programs 
and correcting keyboard errors. ENCY- 
CLOPEDIA LOADER helps you realize 
the full potential of your computing 
time. Individual cassettes are priced 



at $14.95. The entire ten volume set is only 
$119.97. That's a $149.50 value! And again, 
we pay the shipping and handling charges. 

So push your TRS-8Q to its limits and 
maximize your computing time with ENCY- 
CLOPEDIA FOR THE TRS-80 and ENCYCLO- 
PEDIA LOADER. Use the attached card for 
ordering, or fill in the coupon and mail today 
to: Wayne Green Books, Sales Dept., Peter- 
borough, NH 03458 



CALL TOLL FREE 1-800-258-5473 for credit card orders. 



*TRS-80 is a trademark of the Radio 
Shack division of Tandy Corp. 

The ENCYCLOPEDIA FOR THE TRS-80* 
is a Wayne Green publication . 

ENCYCLOPEDIA LOADERTM ,5 manu- 
factured by Instant Software, a division 
of Wayne Green Inc. 

Dealer Inquiries Invited. 



Wayne Green Books. 

A division of Wayne Green Inc. 

Pine St., Peterborough, NH 03458 



r 



ENCYCLOPEDIA FOR THE TRS-80* & ENCYCLOPEDIA LOADER™ 



To Order Complete »el9 (and save an extra SI I^.IXl)* 
P Encyclopedia for iheTRS-SO*. Volumes 1-10. 

filiJi FREE V.ilume 1 of Encyclopedia LoaderTM 

Hard Co'erKdilion ENSIIMIL 
! F.n, vdopcdia for ihc TRS-SO*, Volumes I 10. 

plus IREE Volumu 1 o( [■TiLydopeiiia Lomicr^M 

Sufi Cover Kdilii.i. ENSOSfll 

SHKCiAi. okflk: 

tnc>clopc(tia Loader"^ V flume; 1-lOLLaOOO ilVJ.91 

a 1149.50 value . 
•Save 115.00 shipping and handling charge. When you order a 
complete set of Encyclopedias or Loaders, WF PAY THE 

SHIPI'INC.i 



SIM, 5(1 



iKw.so 



lu (iFder Single Volumes 

Please indicate the Volume Nos. and "'hich edition you prefer 
J Hard Cover edition @ S19.95 per vol. 

D Sofl Cover edition @ S10.95 p«- vol. 

D Encyclopedia Loader ® S14.95 per easselle 

Shipping and handling: 11.50 per volume for single volumes of 
books and cassettes, SIO.OO per item foreign air mail. 
Ail Encyclopedias shipped UPS with complete street address, 
all I naders shipped 1st class mail. 



□ Payment enclosed D Master Card 



VISA 



Cardii* 

Signature. 

Name 

Address_ 



□ AmEx 

_ IoterBank# 

_Card Expires 



-State. 



-Zip, 



City 

WAYNE GREEN BOOKS • SALES DEPT. • PETERBOROUGH, NH 03458 

EN11 



BUSINESS 



After all you print all the news that fits. 



Make Those Headlines Fit 




/ 

Richard Ramella 

1493 Mountain View Avenue 
Chico, CA 95926 



Who needs a program that 
measures headline type? 

• Student journalists who 
need electronic experience be- 
fore they jump from typewriters 
to video display terminals. 

• People who produce type- 



set newsletters, flyers and 
posters. 

• Anyone who occasionally 
prepares material for publication. 

TRS-80 ownership gives you 
powerful capabilities when pre- 
paring the printed word. Word 
processing systems such as the 
Electric Pencil and Scripsit offer 
writing and editing ease. Print- 
ing firms offer phone-to-phone 
typesetting originating from a 



18 POINT 

24 POINT 

30 POINT 

36 PO 



48 POINT 



iSf'-^ 



W 



-A 



%^' 




TRS-80. The product is paper 

type, high resolution photos of 
material set to user specifica- 
tions. After pasteup in the form 
desired, the material goes to a 
printer for production. 

In short, the TRS-80 owner ap- 
proaches the same production 
capability as newspapers which 
use sophisticated electronic 
word processing and typeset- 
ting computer systems. 



'j^^^^^^^ 



.1^ 





Fig. 1. Point sizes 



Measuring headline type is a 
partial but integral part of this 
publication process. 

The accompanying program is 
written in Level II Basic and is 
about 3000 bytes long. A line 
printer is helpful but is not neces- 
sary. If you do not have one, I will 
include a program modification. 

Some Basics 

Why must you count headline 
type? Body type, such as the 
type in which this article is set, 
is small enough that it can be 
justified to even lines through- 
out. But headline type is larger 
and must be counted with three 
aims: that It is neither too short 
nor too long for the space it will 
occupy, and that succeeding 
lines in the headline are about 
even in length. 

Type comes in various sizes 
and is measured in points. The 
measurement "point" refers to 
height (see Fig. 1). 

The same type styie may come 
in condensed, medium and ex- 
tended forms. This refers to the 
way the type is "squeezed," 



The Key Box 

Basic Level II 

Model t 

4K RAM 

Line printer optional 
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Push your refiexes, 
coordination, 
judgment to 
their limits! 



16-48K TRS-80 MODEL I or 

CASSETTE TAPE $16.95 

DISK $19.95 

Please add $1.50 for shipping and handling 
6y2% sales tax in California 

M/C, VISA, CHECKS OK 



BOX 560 
NORTH HOLLYWOOD, CA. 916031 





THIS PRINTER SELECT 
HAS GOT THE SMARTS! 

TWOPRINr^ is the Smartest Dual 
Printer Switch on the Market for 
Your Money. 



An original design by Ron Wirth 

INTRODUCTORY 

SPECIAL — S99.95* 

*Save S18 off the regular price 
of $117.95 with this ad. 



• Hard select of desired 
printer with toggle 
switch. Software select 
mode via CHRSfl) or 
CHR$(2J 

• Lights indicate which 
printer has been selected 



• "Centronics" compatible 
for MOD I, II or III [Please 
Specify]. [MOD II requires 
cable modifications) 

• Requires purchase of 
Radio Shack P/I\l 
(270-)552A) Battery 
Eliminator 



Check or Money Order. 
Visa or MasterCard accepted 



California resfdents add 6''.% Sales Tax' 



CALIFORNIA WORD EXCHAMGE 

802 E. Lime • Monrovia, CA 91016 
(213) 443-5866 



^See List of Advertisers on Page 455 
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"stretched" or left in regular 
dimensions. This sideways mea- 
surement is not absolute. 

And last, the widths of dif- 
ferent letters are different. For 
example, the letters I, m, R and 
W all have different count 
values. This program totals 
each line's count value and tells 
you how well It fits in the space 
you have allowed. 

The only other esoteric infor- 
mation I must pass on has to do 
with column size. Your daily 
newspaper is divided into col- 
umns. Chances are, those col- 
umns are either 10 picas or 14 
picas wide. Forget about picas 
except to note that a 10-pica col- 
umn is about 1 5/8 inches wide, 
and a 14-pica column is about 
2 5/16 inches wide. You need to 



know this if you decide to work 
with coiunin widths other than 
the 10-pica standard this pro- 
gram uses. 

How the Program Works 

The program instructs you to 
make two punctuation substitu- 
tions: < for a comma (,) and an 
asterisk (*) for a colon (:). If you 
place a comma or a colon in an 
input response, the program ig- 
nores all following material. Re- 
member to make these substitu- 
tions and be assured the final 
version will be translated into 
the correct punctuation marks. 

Then make the four Input 
choices: 

• Number of (10-pica) col- 
umns the headline will occupy. 

• Type size (18-60 point). 



• Condensed, medium or ex- 
tended type. 

• Number of lines in the 
headline. 

The program flashes a 
reminder of the kind of headline 
you are going to write and then 
prompts you to enter the suc- 
ceeding lines. The prompt also 
includes a field of dashes rough- 
ly defining the limit of the line. 

Note for f\/lodel I Owners 

If you own a Model I and have 
a line printer that can print 
lowercase characters you may 
have noticed something curi- 
ous. If you want to LPRINT in 
lowercase, hold down the shift 
key; for uppercase, leave it up. In 
either case the screen prints 
only capital letters. 



Program Listing 




100 REM 'FITS AND ETAKTS : A HEADLINE CODtJTING PROGEAH* BY RICHARD 


RAMELLA 


110 CLS 




120 PRINT 'WiiEN WHITING HEADLINES, SUBSTITUTE" 




130 PRINT ■< FOB , AND » t'OF :' 




140 PRINT "LRFINT WILL TRANSLATE CORRECTLY." 




150 INPUT "HIT ENTER TO CONTINUE" jX 




160 CCS 




170 P - 




18b CLEAR 400 




190 INPUT "NUMBER OF COLUMNS'; K 




200 INPUT "TYPE SIZE: 18 24 30 36 42 4a 60"; S 




210 PRINT "TYPE STYLE:" 




220 INPUT "(CONDENSED - 1) (MEDIUM - 2) (EXTENDED - 3)"; T 




230 INPUT "NUMBER OF LINES*! D 




240 IF S = 18 THEN C = 16 




25a IF S - 24 THEN C = 10 




269 IF S = 30 THEN C = 8 




270 IF S » 36 THEN C = 6.5 




280 IP S - 42 THEN C = 6 




298 IP S = 48 THEN C = 3.5 




300 IF S = 60 THEN C = 2.5 




310 IF T = 1 THEN C = C * 1.25 




320 IF T = 3 THEN C = C * ,75 




330 H '- K * C 




34B A = H 




350 E = IHT(B) 




360 B - A - E 




370 IF B < .25 THEN H = INT(H) : GOTO 400 




3au IF B < .60 THEN H = INT(H) + .5: GOTO 400 




390 H - IKT(H) + 1 




400 CLS 




410 PRINT "NOW WRITING";K;"COLUHN",-S; "POINT", 




420 IF T = 1 PHINT * CONDENSED"; 




430 IF T = 2 PRINT " MEDIUM"; 




440 IF T = 3 PRINT " EXTENDED"; 




450 PRINT D;"LINE HEADLINE." 




460 PRINT 




470 PRINT "APPROXIMATE WIDTH" 




480 PRINT 




490 PRINT STRINGS{9,'' ") + STRINGS ( INT (H) ,"-") ; 




500 PRINT " COUNT";INT(H) 




510 FOR F = 1 TO D 




520 PRINT ■LIHE'';F; 




53B INPUT AS(F) 




540 NEXT F 




55B FOR F = 1 TO D 




560 GOSUB 1160 




570 NEXT F 




580 FOR F = 1 TO D 




590 G = LEN(AS[F) ) 




600 FOR U = 1 TO G 




610 BS = «IDS(AS(F) ,U,1) 




620 J = ASCCB?) 




630 IF J < 65 AND J > 31 GOSUB 990 




640 IP J > 95 GOSUB 1B80 




650 IF J > 64 AND J < 96 GOSUR 1120 




660 NEXT U 




670 P(F) = P 




6BB P = 8 




6913 HEXT F 




700 CLS 




710 "FOK F = 1 TO D 




720 Q = H - P(F) 




73B PRINT AS|P) ;" "; 




740 IF Q = PRINT Q "PERFECT" 




750 IF Q ^ PRINT Q - (Q + Q) "LONG" 




760 IF Q > PRINT Q "SHORT* 




77B P(F) = 




780 NEXT F 






Listing continues 



To relieve some of this Model I 
confusion, I have included a sub- 
routine (lines 1160-1290) which 
exchanges the ASCII numbers of 
upper and lowercase letters. It af- . 
fects only letters. So type as you 
would on a typewriter and it will 
print correctly. 

Owners with built-in lower- 
case will want to delete the sub- 
routine and the two GOSUB 1160 
references at lines 560 and 840. 

After your first try at writing 
the headline, it takes several 
seconds for the program to 
gauge each character's assigned 
width. It then reprints each line 
you have written with one of 
three messages to the right; 
Perfect means the line fills all 
column space. N Short or N Long 
gives the number of counts the 
headline is over or under the col- 
umn space allowed. 

You can then rewrite any line; 
the program remeasures and 
gives you the result. This pro- 
cess of fits and starts comes to 
an end when your headline 
satisfies you and you enter 
rather than the number of the 
line. 

At this point the program 
prints the headline and adds the 
information the printer (not the 
line printer but the man with ink 
on his hands) needs to set it ac-. 
cording to your specifications 
(for example, 2 column 24 point 
medium). 

If you do not have a line print- 
er, you will have to copy the head- 
line by hand. In this case, delete 
lines 900-960, add 965 INPUT X 
so you can hold the result on the 
screen before the program re- 
verts to its start for more head- 
lines. Change LPRINT state- 
ments to PRINT statements in 
lines 870-880. 

This program is nearly as 
good as those I used while work- 
ing on computerized daily news- 
papers. The major difference is 
that this program requires you 
to rewrite a line in its entirety, 
whereas newspaper systems 
have a moveable cursor for dele- 
tions and additions. 

A Disclaimer 

The values I have used for the 
10-pica columns adhere to stan- 
dards that served me well in 20 
years of writing newspaper 



262 • 80 Micro, November 1982 



headlines. But if you show these 
counts to another crusty old 
editor, he will say, "Yeah, that's 
about how it would count out. 
Close enough." 

Type styles vary in widths of 
characters. It will be a rare occa- 
sion that this program plays you 
false because i have set limits 
which are comfortably within 
usual types used. 

If you are a serious headline 
writer, talk to your printer and 
get his counts for type in the col- 
umn width you plan to use. 
Armed with that Information, 
refer to program lines 240-300. 
In these lines C equals the 
10-picacolumncountof the type 
size represented by S. 

If you are Interested in the 
count of each character on your 
keyboard, you can figure it out 
by looking up the ASCII values 
of J in the subroutines starting 
at lines 990, 10B0, and 1120. B 

Richard Ramella is a writer 

whose favorite computer use is 
writing programs tor liis two 
children, ages 6 and 9. 



Listing continued 




7 90 PRIKT 




see PRINT "ENTER TO PRINT COMPLETED HEADLINE." 




810 PRINT "ENTER LINE NOHBER [ 1, 2, 3 ETC.} TO REWRITE LINE." 




820 INPUT F 




830 IF F = THEN 860 ELSE INPUT A5[F) 




840 GOSUB 1160 




85 B GOTO 580 




860 FOR F " 1 TO D 




870 LPRINT AS(F) 




880 LPRINT 




890 NEXT F 




900 LPRINT STRINGStlB." ") jKj "COLUMN" jS; "POINT" i 




91B IF T = 1 LPEINT " CONDENSED" 




920 IF T - 2 LPRINT " MEDIUM" 




930 IF T - 3 LPRINT " EXTENDED" 




94B LPRINT STRINGS(50,"-") 




956 LPRINT 




960 LPRINT 




970 RESTORE 




980 GOTO 160 




990 IF J = 32 THEM P = P + 1: RETURN 




1000 IF J > 34 AND J < 39 THEN P = P + 1.5: RETURN 




1010 IF J = 48 THEN P = P + 1.5: RETURN 




1020 IF J > 49 AND J < 58 THEN P = P + 1.5: RETURN 




1030 IF J > 38 AND J < 43 TBEN P ■= P + .5: RETURN 




1040 IF J > 44 AND J < 47 THEN P = P + .5! RETURN 




1050 IF J = 49 OR J = 58 OS J = 59 THEN P = P + .5: RETURN 




1060 P = P + 1 




1070 RETURN 




1080 IF J = 102 OR J = 105 OR J = 106 OR J = 108 OR J = 116 THEN P = 


P -^ .5 


: RETURN 




1090 IF ■= 109 OR J - 119 THEN P = P + 1.5: RETURN 




1100 P » P + 1 




1110 RETURN 




1120 IF J = 73 OR J = 74 THEN P = P + li RETURN 




1130 IF J = 77 OR J = 87 THEN P = P + 2: RETURN 




1140 P = P + 1.5 




1150 RETURN 




1160 G = LEN{fiS(F)) 




1170 FOR U = 1 TO G 




1180 B$ = MIDSIAS(F) ,D,1) 




1190 J - ftSC(BS) 




1200 IF J = 42 TBEH J - 58 




1210 IF J - 60 THEN J = 44 




1220 IF J > 96 THEN J = J - 32: GOTO 1240 




1230 IF J < 91 AND J > 64 THEN J ■■ J + 32 




1240 BS = CBR$(J) 




1250 CS = CS + BS 




1260 NEXT U 




1270 A$(F) - CS 




1280 C5 ■= ■" 




1290 RETURN 





"^^^ 



E E S H I 



P I 



c 



DEE 



SH 



$99.95 



W/48K, 2 TANDON 

5V4" DISK DRIVES 

INCLUDES TRS DOS 

(No RS 232) 



S232 

Instructions 
Included 



$1735 



TRS-80 MOD Ml D s 



Includes DiskController, 
PowerSupply, Mounting 
Hardware, Cables and 
Instruction Manuals 



COMPLETE 



T E R S TAIMDON DISK DP|M£S« 



MX80 . S 450 

MX80F/T 535 

MX100 685 

SMITH-CORONA TP-1 595 

iLeuer Quality, Daisy Wheel Printer) 

Printer Cable $26.95 

($20 w/purchase of printer) 



VISA, MASTERCARD iSiooMin., Add 2%) 
Or Certified Check 
90 Day Warranty (Parts S Labor) 

TRS 80 IS a Registered TrademarK Tandy Corp. 
Prices Subject to Change Wittiout Notice 



TM1 00-1 Single 40 Track Drive S2io 
With Cabinet & PowerSupply $?G5 

TM 1 00-2 Double 40 Track Drive 

S3 30 

TM 100-3 Single 80 Track Drive 

$330 

TM 100-4 Double 80 Track Drive 

S425 

16K MEMORY KIT $15 



DATA— M AJL 

P.O. Box818, Reseda, CA91 335 



FREE SHIPPING IN CONTINENTAL U 8 

(TRS 80 MOD Ml EXCEPTED) 



(213) 



!nr. 



M-See LisI of Advertisers on Page 455 
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SERIES 



What makes a robot tick? 



Cybernetics 




Stephen Davids 
Robot Researcti and 
Development, Inc. 
PO Box 541, Station Z 
Toronto, Ontario 
Canada, M5N 2Z6 



All robot systems are com- 
posed of three parts: sen- 
sors, a decision-base and 
actuators, 

A sensor is a device that re- 
lays information about the en- 
vironment. Humans have sen- 
sors to detect tactile, visual, 
audible and other stimuli, both 
internal and externai to their 
bodies. These sensors allovi' us 
to create a workable, though im- 
perfect, internal representation 
of the world. All of our decisions 
are ultimately based on this in- 
ternal conception. 

Human sensors are electro- 
chemical; most man-made sen- 
sors are either mechanical or 
solid state. The selection of me- 
chanical sensors is quite large. 
An example of a mechanical 
sensor Is the switch: There are 
67 switches on the current ed- 
ition of theTRS-80 Model 1. 

Ail switches connect two 
wires which allow a current to 



The Key Box 

Basic Level It 
Model I 
16K RAM 



flow and a circuit to be com- 
plete. A complete or closed cir- 
cuit may perform a function; an 
open or interrupted circuit can- 
not. A switch Is generally a 
digital device that exists in only 
two states— opened or closed. 
There are a variety of switches 
that come in different sizes, 
power handling capability and 
mechanical action. These in- 
clude mercury wetted contacts, 
momentary push buttons, lever- 
action microswitches and mem- 
brane keypads, to name a few. 

Problems Interfacing to a Micro 

There are three problems with 
interfacing switches to the 
TRS-80 (or any other micro). 

• First, most switches 
create RF noise by arcing as the 
switch is almost closed and the 
electrons collected on the neg- 
ative side of the switch leap 
across a very small air gap to the 
positive side of the switch. Be- 
cause microcomputers are sen- 
sitive to RF noise, minimize the 
interference by enclosing all 
switches in an aluminum box 
and grounding the box, or pur- 
chasing higherquality switches- 
The effect of the RF noise will be 
minimal if low voltages and cur- 
rents are used. 

• The second problem is 
switch bounce. The double char- 
acters that plagued early ma- 
chines were a direct result of 
one complication — the rate at 
which the computer scanned 
the keyboard was too fast, often 
resulting in a key being read 
twice. There are two solutions 
for this. One is a bounceless 
switch [Fig. 1). The other, a soft- 
ware fix, slows the rate of scan 



by adding delay loops. 

• Thirdly, ringing is a phe- 
nomenon affecting the voltage/ 
current relationship. If you de- 
sign a very sophisticated sys- 
tem, you will have to study ring- 
ing in more depth. 

The solid state sensor may be 
either a digital or an analog de- 
vice. Almost all solid state sen- 
sors are based on the physics 

VDD (*3 TO -I5M( 
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1/4 
7400 
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SI 
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1/4 
7400 
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and chemistry of the FN junction. 

The PN Junction 

The PN junction is the fun- 
damental technology behind the 
electronics, computer and robot 
industry. Pure silicon mono- 
crystals, formed in a gradually 
cooling crucible of molten 
silicon, are processed (or doped) 
by adding impurities in one of 



TO BUFFER DRIVER 



BOUNCELLSS SWITCH 4001 OUAD NOR GATI 
CMOS-CONNFCT ALL UNUSED PINS TO PIN 
7 OR 14 



rO BUFFER DRIVFR 



BOUNCELESS SWITCH 7400/74LSOO OUAD 
NAND 6ATE TTL-VCC MUST NOT EXCEED 
5.25V. AVOID LONG WIRES, 



TO BUFFER DRIVER 



BOUNCELESS PUSHBUTTON 74LSI3 DUAL 
WAND SCHMITT TRIGGER T1L-VCC MUST 
NOT EXCEED 5 25V, flVO'D LONG WIRES 



Fig. 1. Examples of Bounceless switches for use as input sensors 
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MICRO MANAGEME 
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TRS-80 
Color Computer 

PRICED FROM 



$ 



BUY 
J DIRECT 



289 



fL-r--T-— .^1 TRS-80 Model III 
Computer 



BUY 
DIRECT 
SAVE J| -0— 



PRICED FROM 




BUY 
DIRECT 



Smith Corona TP-1 
Daisy Wheel Printer 

PRICED FROM 



BU 
DIRECT 



99 




NEW! 

Radio Shack TRS-80 
\% HARD DRIVES %% 
For Model i & III 
Call For Prices 



TRS-80 Model II 
Computer 

PRICED FROM 

2988 



N 




fR$-80 
Model 16 Computer 



BUY 
DIRECT 



$ 



PRICED FROM 

41581 

(! II 



CALL US TOLL FREE FOR YOUR DISCOUNT PRICESi 

*WR1TE FOR FREE CATALOG* 




^ See Lis! of Advertisers on Page 455 
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PROGRAMS 
FOR THE 80's 



yyAR In the SOUTH ATLANTIC puts 
you in the commander* s seat of the Bri- 
tish Armed Forces. Deal with unpredic- 
table weather, political unrest, and the 
unruly Argentine Forces to win the ul- 
timate goal. . .Sovereignty over the 

FALKLAND ISLANDS!!! 



FOR RADIO SHACK LINE PRINTERS VII & VIII 



GHARACTSR GSUERATOR - Allows you to gen- 



erate any special character you wish for 
use in your own printouts with ease- 



All programs for Models I and IIIl 
16k Cassette $l^o95 / 32K Disk $l9o95 

Programs For The 80 's 
P^^— , P.O. Box 50160 

^^P^J Indianapolis, IN 

l^i^J ^6250 

1-317-849-2055 



!iny-c is a structuied programming language designed 
to give BASIC programmers experience in structured 
programming concepts. Structured programming 
brings a different way of tfiinking to a software project. 
Tiny-c is the natural step up from BASIC towards this 
different way. Once you've made the transition, you are 
ready for any modern structured language, such as C 
or PASCAL, tiny-c, the structured programming trainer, 
tiny-c ONE now on disk for the TRS-80 mode! I, S100. 

tiny c associates. P.O. Box 269. Hofmdel, NJ 07733 

(201) 671-2296 You'll qurckly discover tiny-c 

jc natiirarivr rinJit fnr VO'T 



tiny 




PICTURE GENERATOR - Allows you to draw 
pictures on the screen and print them 
normal size, or enlarged 1 or 2 times!! I 
Also, save your pictures for use again I I 




three processes. 

The type of impurity added to 
the silicon determines its elec- 
trical character. Pure silicon 
does not conduct electricity. 
Silicon with boron added be- 
comes a P-type material. Other 
impurities produce N-type ma- 
terials. N and P~type materials 
are semiconductors, meaning 
they conduct electricity but not 
very well. External factors affect 
their ability to conduct. When N 
and P-type materials are physi- 
cally joined, a PN junction is pro- 
duced. Electricity may flow from 
the N to the P-type material 
when a voltage is applied across 
the junction, but may not easily 
flow in the opposite direction. 

Light, heat and pressure all in- 
crease the junction's conductiv- 
ity. That is why normal transis- 
tors are sealed in hard, opaque 
and sometimes aluminum pack- 
ages. The package retains uni- 
form performance over a wide 
range of environmental changes. 

A diode, photodiode, or LED 
has only a single PN junction 
wlijle phototransistors have two 
i,see Fig. 2). The normal direction 
of current flow is from N-type 
material to P-type material 
across the PN junction. A leak- 
age current is a current that 
flows in the opposite direction, 
from P to N. Light shining on 
these junctions greatly in- 
creases the leakage current 
forcing the device to conduct in 
the opposite direction. 

As sensors for the TRS-80, 
light sensitive devices are excel- 
lent. They can detect a light of par- 
ticular frequency (such as infra- 
red). Used with a source of such 
light these sensors detect the 
presence of a reflective object or 



'riOTO DIODE 



// 



PHOTO TRiNSISrOR 



^/ 



locate the source arid notify the 
TRS-80 of its discovery. Obsta- 
cles to the robot's movement are 
sensed before actual contact. 

In much the same fashion, 
heat and pressure-sensitive 
solid state devices vary their re- 
sistance according to the quan- 
tity of strain or heat applied. Al- 
though these devices are analog 
and have a wide operating or 
functional range, the experi- 
menter can use them as part of a 
threshold detecting device. This 
device uses the analog sensor in 
an all-or-none circuit where the 
output of the circuit is a binary 
low (less than 1.4 volts dc) until 
the sensor detects a predeter- 
mined weight or temperature. At 
this threshold the circuit pro- 
duces a binary high (over 4.2 
volts dc). 

Programming the TRS-80 for 
digital input is much simpler than 
for analog; the related hardware 
is also less expensive. 

The Hardware 

A simple way to interface sen- 
sors to the TRS-80 is to have the 
software handle the analog to 
digital conversion (ADC) process. 
The following is a straightfor- 
ward approach to building an in- 
terface which plugs directly into 
the TRS-80 expansion port. Soft- 
ware is written for Level II Basic. 

The interface circuit (see Fig. 
3) is designed to handle six sen- 
sors, although a single sensor 
couid be used. The 74367 in- 
tegrated circuit is a bus driver 
chip and the 555s are common 
timers used here as monostable 
pulse generators. (Do not worry 
about unfamiliar terminology. 
The proper names are included 
merely to label — not to confuse). 

LIGHT PHOTON 



^ 



DIRECTION OF CURRENT FLOW 
IN CLOSED CIRCUIT WHEN 
LIGHT STRIKES PHOTO DIODE 
PN JUNCTION 



LIGHT 
PHOTOM ■ 



X 



sm4ll control 
'current 
generated 

ev LIGHT 



EMITTER BASE COLLECTOR 

DIRECTION OF LARGE WORKING 
CURRENT FLOW IN CLOSED CIRCUIT 
WITH CURRENT SOURCE SUCH AS 
BATTERIES CONNECTED 



f\g. 2. 
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Looking at Fig. 3, when the 555 
timers are triggered by a negative 
OUT pulse from the TRS-80, 
a positive output may be seen on 
pin 3. The voltage applied to pins 
6 and 7 by the sensor determines 
the duration of this output pulse, 
usually betvi/een 10 and 30,000 
microseconds. 

Before OUT goes negative, 
enabling the 555, pin 7 is close 



to ground. Output 3 of the 555 
w/ill gohigh Vi/hen OUT goes neg- 
ative until the current from the 
sensor charges the sensor ca- 
pacitor and the voltage at pins 6 
and 7 of the 555 match the volt- 
age at pin 5 (usually 3.33 volts 
do). I recommend a simple 10 or 
one transistor amplifier as an in- 
termediate stage between the 
sensor and the 555 for any sen- 




SENSOR *'J> 



T3 



T J 1 



OI^F 



Ol^F 



SENSOR #5 




L>- 



Xl 



THE 74LS3S7 
IS ATTL LS IC 
HEX 3-ST*TE 
BUS DRIVER 



Fig. 3. The TRS-80 Model 1 sensor interface 




T800-841-0860 Toll Free 



BUY DIRECT 

PURE RADIO SHACK EQUIPMENT 

LOW DISCOUNT PRICES 



TRS-80 Color Computer 




PRICED $ 
FROM 



BUY 
DIRECT 



289 



TRS-80 Model 
Computer 




E^i ^""^ 

a~ai DIRECT 



PRICED t 
FROM 



599 



Smith Corona TP-1 
Daisy Wheel Printer 



BUY 
DIRECT 




LIST $895 



FRANKLIN 

ACE COMPUTER 



TRS-80 Model 
Computer 



BUY 

DIRECT 



PRICED ^ 
FROM 




TRS-80 Model 16 Computer 



BUY 

DIRECT 



PRICED 
FROM 




4158 



NEW! 

Radio Shack TRS-80 

HARD DRIVES 

For Model I & III 

Call For Prices 



A ATARI 



WRITE FOR YOUR FREE CATALOG 
We Carry The Full TRS-80 Product Line 

MICRO MANAGEMENT 
SYSTEMS, INC 



ffffff 



PARCEL DIVISION - DEPT. NO^A 
2803 Thomasville Road East - Cairo, Ga. 31728 
GA. & INFO 912-377-7120 

TM - TANDY CORPORATION ■ FREE COPY OF WARRANTY UPON REQUEST 

..„ VI&20 



BMITH-CaitaNA 



thousands o{ Satisjied Cufitome/is Since '78 
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trigger A to D converter 
; initialize converter 
; with most significant byte 
; least significant byte 
; increment counter 
; limit max converter value 
; return it value exceeded 
; input sensor data D^ 
; check if Dj- 1 (see note 1) 
; store count in 7001 H (see note 2) 
■ keep counting if Dy = 1 
; stop count when D^ = 
; and return to Basic 



Note 1: Op-codes for BIT n, A with n = 0, 1,2 ... 7 are: 



D310 


AS 


OUT(IOH) A 


CD 7F OA 




CALLOA 7FH 


44 




LDBH 


40 




LDCL 


03 


LOOPl 


INCBC 


CB5S 




BIT3B 


CO 




RETNZ 


DB10 




IN A (10H) 


CB7F 




BIT 7 A 


ED 43 01 70 




LD(7001H)BC 


20 F2 




JR NZ LOOPl 


C9 




RET 



n ^ 7:CB 7F 
n = 6:0B 77 
n = 5:CB6F 



n^4:CB67 
n = 3:OB5F 
n = 2:CB57 



n = 1:CB4F 
n = 0:CB47 



Note 2: To deposit the results at different addresses change 
the last two bytes of the LD instruction to the desired address 
low-order byle first so that "ED 43 03 70" will store the result 
at 7003-4, etc. 

Program Listing 1 



sor with a very low output. 

The 74367 is a tri-state bus 
driver. Upon receiving a negative 
IN pulse from the TRS-80 the bus 
driver presents the sensor out- 
puts or 1 onto the TRS-80 data 
bus. A switch may be interfaced 
to the input of the 74367 directiy 
and read only once by the IN(0) 
command from Level II Basic. 

The machine language code 
(Program Listing 1) may be 
POKEd into the string defini- 
tions in Program Listing 2 or en- 
tered permanently using T-Bug. 
If the latter approach is used, 
the resultant Basic program can 
be stored on cassette, as is, for 
later use. 



The use of sensors to monitor 
its environment is only the first 

step towards creation of the 
TRS-80 based robot I affection- 
ately call "Trashie." Next month 
you can expect a discussion of 
actuators and output devices. If 
there is sufficient response I will 
release the complete schematics 
for Trashie in the final install- 
ment. Let us hear from you if 
you're interested. ■ 

Stephen Davids has designed 
and developed some of the 
world's most fascinating robot 
systems, including talking vend- 
ing machines, rot>ot waiters and 
K-9 the robot dog. 



10 flS=" SENSOK ♦! A/D CONVliRSIOB" 

20 BS=" SENSOR #2 A/D CONVBRSIOH" 

30 CS=" SEHSOR #3 A/D COfiVESSION" 

40 DS=" SENSOR #4 A/D CONVERSION" 

b0 ES=" SENSOR #5 A/D CONVERSION" 

60 l"£=" SENSOR #6 A/D CONVERSION" 

70 X=VftHPTR(AS) 

00 POKE16526, PEEK (X l 1) : POKE16527 , PEEK (X+2) 

90 L=OSR[a) 

100 X=VARPTR[BS) 

110 POKE16526,PEEK(X+l) :POKE16527 ,PEEK [X+2) 

120 L=OSR[0) 

130 X=VARPTR(CS) 

140 POKE16526,PEEK(X+l) :POKE 16^27 , PEEK (X+2) 

150 L=tJSR(0) 

160 X=VaRPTR(D5) 

170 POKE16526,PEEK(X+l) !P0KE16527 ,PEEK[X-^2) 

180 L=USR(0) 

190 X=VARPTR(ES) 

200 POKE16526,PEEK(X+l) :POKE16527 ,FE£K (K-f 2) 

210 L=t)SR(0) 

220 X=VARPTR(FS) 

230 EOKE16526,PEEK[X-t-l):PORE16527„PEEK(X+2) 

240 L=USH[0) 

258 S1 = PEEK( 28673) ■t-256*PEEK{ 28674) 

26 8 S2=PEEK{ 28675) +256*PEEK[2B676) 

270 H3=PEEK{28677)+256*PEEK(28678) 

280 S4^PEEK I 28679) +256*PBEK( 28680) 

290 S5=PEEK( 28681) -f256*PEEKC286a2! 

3flE S6 -PEEK (28683) +256*PEEKi;2BiS83) 

310 PRINTS1,S2,S3,S4,S5,S6 

3 20 GOTO70 

330 END 

Program Listing 2. Basic Program for Analog Digital Conver- 
sion and Display 




THE SOFTCORE 
SOFTWARE CO. 



Circle. Keltermg, OK 45429 



"TOO MUCH" 

FOR 
RADIO SHACK! 

Radio Shack REFUSED to 
include MISADVENTURE 
#1 in their SOURCEBOOK 
due to our description of 
the game! 

_-379 



MISADVENTURE SERIES— model I & 11116k 

#201 (#1) Madam Rosa's Massage Parlor* Slb.OO 

#202 (#2) Wei T-Stiin Contest* $1 5 00 

#203 (#3} Sewers of Moscow"'— with sound! $15.00 

#204 (#4} Casino of Pleasure"— witti sound! $15.00 

#205 (#5) Naked Nightmare"— with sound! NEW' $15.00 
•not as hard "experience recommended 

ARCADE— TYPE GAMES — model i & ill 16k 

#302 Block Breaker by Cedar Software— with sound' 



#303 Leafier by Cedar Software— NtW'—with sound! 



$14.95 
dt 
$15.95 



ADVENTURE DECODER-model 1 & III 15k 
#301 Dohne' Bugg (Adventure-decoderl $15.00 

COLOR COMPUTER— games and Misadventures 
MOt Mystery of the Keys (4k)— with sound! $15.00 

#501 ittVt Madam Rosas Massage Parlor {16k)— 

with sound! $15,00 

#50? !#?) Wet T-Shirt Contest(16k)— with sound! $15.00 

Immediate shipment! Check, credit cards, or phone 

orders [12-6 p.m.] Dealers and distributors welcome- 
please inquire! HINT SHEETS AVAILABLE! 



LEAPER! 




•'Big Five: EAT YOUR 
HEART OUT!" 

-the Gamester 



New! 






A0« 



'fib/ 



Go Frog Go! 



Our MISADVENTURE SERIES consist of CHALLENGING 

and FUN "adventure- type" programs that may occasion- 
ally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a 

graphic puzzle as addicting as "The Cube" and similar to 
'The Linl(" . 4k and up. 

DOHNE' EUGG is our best-sellmg ADVENTURE-DE- 
OOOER! Are you STUCK in a machine-language 
ADVENTURE GAME? This program will display on the 
screen all VERBS that interact in ttie game, all 
LOCATIONS & OBJECTS you will find, and all ACTIONS 
that result! A MUST FOR THE SERIOUS ADVENTURER! 

All programs are presently available in cassette form. 
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Whether you're in business and do 
microcomputing, or in computing 
and sell to business, you'll like OASIS* 
Not a hobby or scientific system warmed 
over for business use, 
OASIS is the only operating 
system designed from the 
ground up for business. 



siness microcomputing, 
erating ^fstei 
fits. 




available, type 'HELP' and the command 
function title — OASIS displays the syntax 
and options available. 
Of course it's all in your language — 
not computerese. (OASIS 
exact business fit #5: 
user-friendliness.) 



SERIOUS BUSINESS 




COMES IN ALL SIZES. 

Whatever your business 
need, OASIS has the 
operating system to match: 
8-bit or 16-, single-user or 
the multi-user system that 
professionals tell us makes 
micros run like minis. And 
that's even truer now with 
newOASIS-16.**('0'^S/S 
exact business fit #T: 
choice.) 




■St, most 

umentation 

packed 

vel train- 
elephone; 
worldwide^^^Si sef 
options (tf^^MTROt 
e 
m 

ancial 
P^kage; OASIS 
. (OASIS exact 
business fits #6 through #12.) 

Now you know why there's 
no reason to struggle trying 
to put a square peg in a 
round hole. For serious 

'ib?':mmmi^m^-mi^:.j0Mrw*miimmm business microcomputing. 



rurlMp It. meres 
nearly any job. 

it's top quality, too, because our 

inteP&ted tools are top quality — and 
there are more of them. Like a high-level 
BASIC Interpreter/Compiler/Editor/ 
Debugger; ISAM/Keyed/Direct/ 
Sequential Files; a smart Print Spooler; 
Automatic Record Locking (OASIS 
exclusiv esi); plus COBOL & 'C 
Languages. These tools are mandatory 
for high-quality business application 
program development — ask any 
developer. (OASIS exact business fit #2: 
high-quality application software.) 

PORTABILITY PROTECTS BUSINESS 



SOFTWARE INVESTMENTS. 



OASIS is custom-fitted to manufac- 
turers' hardware so application soft- 
ware developed to run on one OASIS 
equipped machine can also run on 
others— and is upwardly compatible 
from 8-bit OASIS Single-User to Multi- 
User, on uptoOASIS-16. This kind of 
applic ation software p ortabilit y is 
exclusi ve with OASIS. 

Device independence allows various 
printers and terminals to be used — 
with no modification to application 



sofTWaie OASIS system software com- 
pensates for differences. (OASIS exact 
business fit #3.- portability.) 

ACCURATE DATA & A SECURE 

SYSTEM REDUCE BUSINESS RISKS. 

Data integrity — a challenge for any 
multi-user system — is insured by 
OASIS File & Automatic Record Locking. 
With it, normally all users can view a 
record at the same time. BUT, if the record 
is being updated by one user, other users 
are automatically denied access until 
the update is complete. That means 
data is always accurate and up-to-date. 
It's sti ll another OASI S excl usive. 

For system security, thces OASIS 
Logon, Password & Privilege Level. 
UserAccounting keeps track of who used 
the system, when. (OASIS exact business 
fit #4; data integrity/system security.) 



A FRIENDLY SYSTEM IS 
GOOD BUSINESS. 



there IS one operating system that 
exactly fits: OASIS. Call or whte us 
today for details. 



' For Z80 
" For 8086, 68000, Z8000, LSI-11, & others. 



For user-friendliness, OASIS sets new 
standards. Example: the EXEC Job 
Control Language is so smart it walks 
users through their applications — 
and around the operating system. 

With our 'HELP' feature, if you are 
unsure of the functions and options 




STRICTLY BUSINESS 



PHASE ONE SYSTEMS, INC. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621-3051 

Telephone 415/562-8085 TWX 910-366-7139 

I'm serious about my business- 
please send me : 
aOASIS-16 Manual, $75 

□ OASIS Manual, $60 

□ Free Application Software Directory 
and put me on your mailing list. 

(Add S3for shipping. Caiilornia residents add sales tax.) 



Name 

St. (No Box#) 
City^ - 



State - 



Zip. 



D Check enclosed □ VISA D Mastercharge 
□ UPS C.O.D. D American Express 



Card No.- 
Signature. 



Exp. date_ 



^See List of Advertisers on Page 455 
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DEMISE 




By Case troni Acorn 
A fasi-acljon space game thal's very challenging! 
You must destroy the aliens with lasers and "smart 
bomts." Then, make your way carefully through a 
meteor storm and a rocky tunnel. Great sound ef- 
fects; keyboard control. 

16K Tape or Disk, $19.95 



KING 
OF THE 




Sy Vanaewalle from Acorn 

An unusual combination of fast pinball action plus 

the challenges and dangers of an arcade game. 

Keep the ball in play, scoring points as It caroms 

from obstacle to obstacle, while wandering through 

the jungle searching for the hidden crown. And try to 

avoid the deadly Cobra. Lots of action, sound and 

fun! Choice of 3 screens. Can be used wltti Trisstick 

joystick. 

16KTapeor Disk, $19.95 




EVADE 

By Knight from Acorn 
You're In charge of the USS Krestan, an inlersleilar 
tri-ship. If you defeat the enemy aliens you en- 
counter, you get a chance to earn extra points by 
successfully docking with a larger ship. Then come 
the evil Malicians and dangerous meteor showers. 
Never a dull moment with this one! 
16K Tape or Disk, $19.95 



MYSTERIOUS 
ADVENTURE 

ARROW OF DEATH. 
PARTI 

By Brian Howarth from Acorn 
Proper English only! This British Import is Acorn Soft- 
ware's frrst adventure and it meets their reputation for 
high quality. The vocabulary you use in this adventure 
must conform to proper English standards — not the 
bartianc tongue spoken here in the colonies! You and 
Sorcerer Zardra must restore the kingdom from the 
engulling sense of bitterness and ill feeling that 
forced the ruler to flee the palace. 

16K Tape or 32K Disk, $19.95 
Hint Sheet, $1.00 




PANIK 




By Demas from Fantastic 

An arcade style game of a fascinating future world 
with high-res graphics and voice. Filled with action 
and excitement; In machine language. 

16KTape,$19.95 32K Disk, $24.95 



ARMORED 
PATROL 




By Westmoreland SGiiman from Adventure 
As commander of a lumljering T-36 lank you have the 
firepower to destroy the enemy— if you can find Ihem. 
They may be hiding behind the houses scattered about, 
the bleak terrain and your only view is thru the drivers 
port (your screen). Impressive animation in this ar- 
cade game. 

16K Tape, $19.95 32K Disk, $24.95 



COMPUTER 

FOOTBALL 

STRATEGY 




From Avalon Hill 

Exciting computer version of the famous board 
game. You'll have to think fast as you plan the offen- 
sive and defensive formations for your team. Play 
against the computer or a friend. 

32K Tape, $21.00 



ASYLUM 




From Ivied Systems ** 

You are sitting alone at 2 AM. Your eyes are bloodshot 

as you peer into your computer's screen and cry, "I 

must be CRAZY!" If this has never happened to you. 

you've ne'jet tried ASYLUM. It's Med Systems most 

ambitious 3-D graphics adventure yet! 

ASYLUIi/1 places you on a cot in a small (padded?) 

room. Periodically the janitor lobs a tiand grenade 

through the window. Wtiat you do next could mean 

escape— or disaster, 

16K Tape, $19.95 32K Disk, $22.95 

Also available: 

ASYLUM II 

16K Tape, $19.95 32K Disk, $22.95 



Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores: 

829 Bethel Rd., Columbus OH 

Seven Corners Center. Falls Churcfi. VA 

W. Bell Plaza, 6600 Security Blvd., Baltimore MD 



I 



2t\ 



STRIKE 
FORCE 




From Melbourne House 
You are the warrior-savior ot cities under relentless 
alien attack. You're armed with rapid-fire missiles, 
radar and incendiary star-shells, but you'll need your 
fastest thinking and instantaneous response to pro- 
tect yourself and your people. Great real-time 
graphics! 

16K Tape, $15.95 32K Disk. $19.95 



PENETRATOR 




Bv Phihp Mitctiell from Beam 
Armed with missiles and tiombs, you must lly your 
fighter to the enemy's cache of neutron bombs and 
destroy them. Your mission is in tour stages, involving 
rugged terrain, caverns and manmade obstacles— not 
to mention enemy radar, missiles and paratroopers. This 
new departure in arcade gaming allows you to set up 
your own terrain and enemy emplacements, then save 
them for future use. Make your mission as hard or easy 
as you like. Joystick compatible. 

16K Tape or 32K Disk, $24.95 



SEA 
DRAGON 




By Westmoreland & Gilman from Adventure 
UfiderwatcF adventure is yours as you command a 
nuclear sub armed with deadly missiles and 
torpedoes. Guide.it carefully through sea mines and 
underwater mountains; watch out for depth charges 
being fired by overhead ships. . ,and dcn'l run out ot 
air! Scrolling sea bottom for added excitement. 

16KTape, $19.95 

32K Disk, $24.95 



REAR 
GUARD 




By Neil Larimer from Adventure Int 

A space battle between your crui.'ier ana wave-aner- 

wave of enemy ships. You can destroy them with 

your energy darts or you can ram them — as long as 

your shields are intact. The action takes place on a 

continuous horizontal landscape. You control the 

altitude and speed of your craft as you pursue the 

enemy. Skill level 1 is exciting, and there are four 

more levels available, 

1 6K Tape, $1 9.95 24K Disk, $24.95 



ATARI 400/800, APPLE & IBM. 



To Order Call Toll-Free 



800-424-2738^^ 



/TORE 



TM 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus 32.00 postage & handling. D.C., MD. & VA.: add 
sales tax. Charge cards: include all embossed information 
on the card. 



4200 Wisconsin Avenue, NW, Dept. 8E21 1 Box 9609 Washington, D.C. 20016 
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Your TR 




From Sett Sector Marketing 
This is the fast-action arcade game you've been 
waiting to play at home! You must hit mus^rooms and 
caterpillars— segment by segment— moths and tum- 
ble bugs. The challenges: ihey are all moving; when hit 
they spilt into additional segments or metamorphose 
into dHlerent shapes: when you destroy a caterpillar, 

the new one that replaces il ip ' "'■■ ' >nngcr ""nn 

the original! 

16K Tape, $15.95 

32K Disk, $19.95 




By Warren Green from Fantastic 
Realistic space conflict simulation with continuous 
projection map display ttiat shows you complete 
globe of space around your airship: front, sides, 
back, above and below. Your ship — and the 
enemy's — can maneuver in 3-D space, and can 
move by hyperlight jumps. You can only learn by 
playing what are the best strategies and tactics for 
survival. "Talks" through cassette port. 
48K Disk, $19.95 



THE 




Ui 
Warriors 
of RAS, 
Vol.3 

By Mastetler from Ivied Systems 

The newest in this fascinating series of adventure/ 

role playing games. You create the characterst then 

play the game, solving all its complex challenges. 

Save the games, and the characters. Characters are 

Interchangeable among the 3 volumes. Machine 

language, great graphics. No ''rules" to consult; no 

waiting for the computer. 

48K Tape or Disk, $29.95 

Also available: ^^^^ 

KAIV, volume 2, ^""^ 

48KTapeor Disk, 

$29.95 



BOUNC 




From Cornsott 
We're not sure what they are, but they're huge and 
dangerous! BOUNCEOIDS bounce off walls, and can 
kill with one touch Your mission is to destroy them 
with your new class 4 annihilator. Then there are the 
terrible bugs coming out of null space to crunch you 
to smithereens. You'll need coordination, strategy 
and courage! Joystick-compatible. 

16KTape,$15.95 16K Disk, $19.95 





By Fine from Superior PifP^- 

3-part maze game for the nimble-fingered. First, you 
must move through maze while avoiding barrels 
coming at you; second, you must look out for fires 
that break out randomly on screen; third, you ride 
elevators up and down from platform to platform. 
The sky's the limit. . .how far can you go? 1 or 2 
player game with sound; joystick compatible, 
32K Tape, $19.95 32K Disk, $21.95 



hrom Fantasiic 
The first talking space simulation! You're defending 
Starbase 12 during war between United Federation 
of Planets and the Klingon Empire. You have just 
been given command of the USS Defiance, and are 
authorized to take any action necessary to defend 
yourself and the Federation. "Talks" through cas- 
sette port; joystick compatible. 
48K Disk, $24.95 




Warriors of RAS, 
Voi. 1 

By Masteller from Med Systems 
The first adventure/role playing game to combine 
fast graphics, fast response lime and complete com- 
puter implementation. DUNZHIN places you in a 
many-level dungeon, filled with demons and goblins. 
You must search for hidden treasures, but only one 
will win the game, in this series you create the char- 
acters, and can save them tor future gamea, or use 
them in other volumes. 

48K Tape or Disk, $29.95 



LE^ 




From Cedar Software 
Fast action, machine language game for one or 2 
players. Your frog must dodge traffic and cross river 
on fast-moving logs. Beady, set . . . LEAP! 

16K Tape, $15.95 




SOm DATABASE 



By G. Hatton from Acorn 

An easy-to-use, yet powerful database management 
tool, ISS alleviates many of the complications usu- 
ally found in setting up and maintaining information 
files. Written in machine language, ISS can provide a 
multitude of sorts, subsorts, searches and categori- 
zations in seconds. Because the processing is done 
in memory, you can manipulate the data at will with- 
out risk to your database on tape or disk. The number 
of records is limited only by your file format and the 
amount of BAM in your system. 

16K Tape or 32K Disk, $49.95 




By Richard Wilkes from Acorn 

Using your Superscript modified Scripsit Word Pro- 
cessor and a compatible printer, you can now 
underline, boldface, insert teyt during printout, slash 
zeros, set type pitch, subscript and, of course, 
superscript! "You can even read your directory and kill 
files without ever leaving Scripsit. 
Superscript comes with drivers for popular serial and 
parallel printers (now including Centronics 737 and 
RS Daisy II), and easy instructions for patching to 
your Scripsit program (does not include Scripsit). 

32K Disk, $49.95 Use Model i Scripsit 




By Andre-w P. Bartorillo from Acorn 

A complete management tool for the home budget, it 

keeps track of your checkbook and provides for easy 

budget allocation. You can store information on up 

to 100 checkbook entries per month (250 with 48K), 

specify automatic withdrawals, keep records of tax 

deductibles, record expenses by category, even 

break up charge account payments into the proper 

categories. 

32K Disk, $39.95 



POWER 




By Kim Waft from Powersoft 
A graphic screen editor that works with all majtw 
operating systems. Special features: graphics and 
text may be intermixed; screen may be saved to 
available memory buffers; buffers may be saved to 
tape or disk in 6 formats; single and double wide 
video are supported. With trace mode to constantly 
display cursor positioning; grid mode to aid in cen- 
tering figures on screen. Alpha jo/stick compatible. 

Disk, $39.95 
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UTILITY 



Put numbers on your CC screen while in the graphics mode. 



Show the Sc 



Frederick F. Battista 

9 Belle Court 

Budd Lake, NJ 07828 

The fast moving full graphiic 
Color Computer games are 
Challenging and quite exciting. 
The excitement is diminished 
somewhat by the computer's in- 
ability to display numeric char- 
acters such as scoring and tim- 
ing while in the full graphic 
mode. I wrote a machine ian- 
guage program and a demon- 
stration program to add this 
missing pizzazz to your game 
displays. 

The program can be called 
from Basic, displays numerics 
0-999, operates in PMODE 1, 2, 



and 3 and allows positioning the 
screen display. 

Operation 

Program Listing 1 is a Basic 
program that loads the machine 
language routine. The machine 
language code, Program Listing 
2, resides in 230 bytes of 
memory and starts at address 
16054 decimal. The machine 
language routine starts at 
memory address 16235, while 
data starts at 16054. The screen 
display position is POKEd into 
memory addresses 16286 and 
16287. The value of the numeric 
display is transferred from the 
Basic calling program to the ma- 
chine language routine through 



the Basic USR(N) fuhction. 

The character set in the ma- 
chine language routine is gen- 
erated through a bit-mapping 
technique. The characters are 



mapped in a 16 bit wide by 9 bit 
high display (Fig. la-d). Each 
character requires 18 bytes for 
definition. For the character set 
0-9, 180 bytes of memory are re- 



Byte 


1 


2 


7 6 


b 4 


3 2 10 


7 6 5 4 


3 2 10 


1 


1 


10 10 


10 10 


10 1 


1 


1 


10 1 


10 1 


1 


1 


1 


1 


10 1 


10 1 


1 


1 


C! 1 


1 


10 1 


10 1 


1 


Q 1 


1 


1 


10 10 


10 10 


10 1 


1 


1 


10 1 


10 1 


1 


1 


1 


1 


10 1 


10 1 


1 


1 


1 


1 


10 1 


10 1 


1 


1 


1 


1 


10 10 


10 10 


10 1 



Fig. la. 



5 REM INITIALIZE 

10 REM************ *•"*•*********■**************** 

20 REM* ADD NUMERICS TO T8SB0 * 

25 REM DRAW SHIP 

30 REM' COLOR GRAPHICS * 

40 REM* * 

50 REM* P.P. BATTISTA * 

60 REM' BUDD LAKE, N.J. * 

70 REM* APRIL 2S,19B1 * 

7 5 REM DRAW SUB 1 

89 REM***'**""*"***************"*************** 

90 REM PROTECT MEMORY ABOVE 16054 
100 REM 

105 REM DRAW SUB 2 

110 CLEAR 62,16054 

120 REM 

130 HEM POKE MACHINE LANGUAGE ROUTINE INTO MEMORY 

13S REM SOUND EFFECTS 

140 REM 

150 FOR 1=16235 TO 16371 

155 HEM DRAW TITLE 

160 READ CD 

170 POKE I, CD 

180 NEXTI 

185 REM LASER DISPLAY ROUTINE 

190 KEM 

200 REM POKE BIT HAP DATA INTO MEMORY 

205 REM MOVE SHIP DISPLAY 

210 REM 

228 FOR 1=16054 TO 16233 

230 READ A 

240 POKE I, A 



Program Listing 1 

250 NEXT I 

26 REM 

270 REM DEFINE MACHINE CODE BTAKTING ADDRESS 

2S0 REM 

290 DE;fuSR=16235 

300 DATA 189,179.237,206,63,255,54,15,134,63,30,139,15,180,15,181,15,1 

82, 55, 7, 16, 131, a, 100, 45, 7, 131, 0,100, 12, 180, 32, 243, 16, 131, 0,10, 45, 7, 131 

,0,10, 12, 161,32, 243, 215, 1182,150,180, 142, 6, 3, 189, 63, 184, 150, 181, 48, 002, 

189,6 3,134, 150,182, 4 8, 2,189, 

310 DATA 55,8,57,0,0,0,0,15,244,15,245,15,246,15,247,15,248,54,16,198, 

18,61,215,246,134,9,151,244,16,142,62,182,16,159,247,220,245,16,158,24 

7,166,171,167,132,12,248,229,245,16,158,247,166,171,167,1,198,32,58,12 

,248,10,244,3 8,227,55,16,57 

320 DATA 90,165,101,89,101,89,101,89,101,89,101,89,101,89,101,89,90,16 

5 

330 DATA 86,85,86,65,86,85,86,85,86,85,86,65,86,85,86,85,86,85 

340 DATA 90,165,101,89,85,89,85,101,85,149,86,85,89,85,101,85,10 
8,169 

■340 DATA 90,165,101,89,85, S'g, 85,181,85,149,86,85, 89, 85,101, 85,108,169 

345 REM PUT SHIP AT NEW POSITION 

350 DATA 90,165,101,69,85,101,85,14 9,86,165,85,89,101,8 9,101,101,90,14 

9 

355 REM READ AND UPDATE SHIP POSITION 

360 DATA 101,89,101,89,101,89,101,8 9,101,89,106,16 5,85,89,85,89,85,89 

370 DATA 10 6,165,101,85,101,85,106,165,85,89,85,89,101,89,101,101,90,1 

49 

380 DATA 90,165,101,89,101,85,101,85,102,165,105,89,101,89,101,89,90,1 

65 

390 DATA 108,169,85,89,85,101,85,149,86,85,89,85,101,85,101,85,101,85 

400 DATA 90,165,101,89,101,89,101,89,90,165,101,89,101,89,101,89,90,16 

5 

410 DATA 90,165,101,89,101,89,181,89,90,165,85,89,65,89,101,89,90,165 
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Invader's Revei 

By Ken Kalish from Med Systems. 
You are the lasl space invader— numans have 
destroyed all the others — and you're out for 
REVENGE! Wipe out as many as you can, avoiding 
their lasers and photon blasts. Multiple skill levels; 1 
or 2 players; extended BASIC not required. Machine 
language, hi-res graphics, great sound. 

16K Tape, $19.95 



Color _ 
Space War 




From Spectral Associates 

You command the last combat Viper, and must break 
through the defenses of the Death Star while avoiding 
the pull of gravity of the Black Hole. Watch out for 
space mines and enemy ships. Extended BASIC not 

required. Joysticks. 

16K Tape, $21.95 



Madness 
and the 
Minotaur 




From Spectral Associates 
Classic adventure game with 200 rooms, assorted 
friendly and dangerous creatures, 8 magic spells and 
— of course— treasures. The computer obeys two- 
word commands such as "get lamp" to move you 
through your journey. You must enter the castle of 
King Minos, descend into the labyrinth and collect all 
the treasures you can. 
16K Tape, $19.95 



By Ken Kalish from Med Systems. 
You are the Phantom Slayer, assigned to enter the 
deadly Catacombs and destroy the mutant Phan- 
toms. You're armed with a laser pistol and proximity 
detector, but be careful — the Phantoms' touch is 
fatal! Real-time machine language game with hi-res 
3-D graphics and sound. Multiple skill levels; extend- 
ed BASIC not required. 

16K Tape, $19.95 



Scepter 
of Kzlrgia 




From Rainbow Connection Software 
Real-iime graphics adventure game v^ith arcade 
sound for the color computer 13 floors of dungeon 
with monsters, treasure chests, hidden trap doors . . . 
even a flying magic carpet! All in your quest to find 
the Scepter of Kzlrgia. Whatever you do, don't get 
caught in Ihe poisonous gas cloud! Extended BASIC 
required, 

16K Tape, $16.95, 
16K Disk, $21.95 



TRS-80 

Color 

Basic 




By Bob Albrecht from John Wiley S Sons 
Step-by-step guide to the unique color, sound and 
graphic capabilities of your new Color Computer. No 
previous experience is required. Teach yourself 
BASIC— there's a whole chapter on typical program- 
ming problems and solutions, 
Softcover, $9.95 



From Soft Sector Marketing. 
Six tapes, filled with programs to delight every color 
computer user! You'll find games that are fun, 
fascinating, challenging. Learning programs to in- 
terest the whole family. Utilities to help organize your 
home or office, and learn more about programming 
your computer. Truly a BONANZA, for hours and 
hours of home entertainment — 50 programs in one 
package! 
6 Tapes, 8K-24K, $49.95 




By Greg Zumwalt from American Small 
Business Computers 

Pilot your spacecraft over the moon's landscape and 
try to land it amid the mountains and craters. While 
carefully controlling your tuel consumption, use your 
joysticks to maneuver your craft and control your 
velocity against the forces of gravity. Be careful to 
avoid the asteroids drifting through space. 
16K Tape, $14.95 



Ghost 
Gobbler 




From Spectral Associates 
In this new and exciting version of the popular arcade 
game, use your joysticks to move your Ghost Gobbler 
through the maze, eating dots and power pills to 
score points. 8 bonus shapes, super sound, and 16 
skill levels. Extended BASIC required; joysticks. 
16KTape, $21.95 



Master 
Control 




From Soft Sector Marketing 

This is a BASIC language program designed to de- 
crease typing time and error v^hile providing direct 
control of motor, trace, audio and run. With Automatic 
Line Numbering and a custom key you can re-use or 
change at any time; plus 50 preprogrammed com- 
mand keys. Can be used on a 32K system. 

16K/32K Tape, $24.95 
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Program Listing 2 



3 DieiT BIT nftPPEE UISPLHV PDUTINE FDP 

THE TRS80 CDLDP CCPtPtlTER. CftLLED FPDM Efi^lC 



liiPITTEM BY FPEII BflTTISTH RPBIL 5.1981 
BUCn LHKE. H.J. 



*•***»«*»»*«««*->«♦♦< 



■'GET USP'Mi F^RCOMEMT firtli PLT IN Ii PEG.. 



quired for data. 

Integer values are passed to 
the machine language routine 
through the USR(N) argument. 



Decimal 


Value 


Byte1 


Byte 2 


90 


165 


101 


89 


101 


89 


101 


89 


90 


165 


101 


89 


10) 


89 


101 


89 


90 


165 



Fig. 1b. 



Basic jumps to the machine lan- 
guage code starting at the mem- 
ory address established by the 
statement DEFUSR= address. 

The high order address byte 
for the screen display location is 
POKEd into 16286. The low order 
address byte is POKEd into 
16287. The value POKEd must 
be the decimal equivalent of the 
high and low address byte. Ad- 
dress 0AF1 would have the dec- 
imal values of 10 for the high 
byte and 241 for low. 

The display start position is 

I CI I Cal 01 I C2 I 01 I C2| ci I C2| 
Byte Format 

Fig. 1c. 



COLOR COMPUTER SOFTWARE 

BASIC AID 



HELP FOR THE 
BASIC PROGRAMMER 



Al lasi ihe Oevelopment tools you need' Ail ava.laD:G pnsiatitly al power-up 

MERGE COMMAND: Inseri progfams stored on cassette into your Basic program You 
can even assign new line numbers to the file you read in Create your own tape libraryi 

MOVE COMMAND: Lets you renumber any part ol.your Basic program GOTOs 
GOSUB's, etc. automatically changed. 

AUTOMATIC LINE NUMBERING: You'll love this Newer type in another line number 
PLUS ■i.S common Basic commands available as single key Control characters. Or 
change ANY OR ALL keys to your own specifications' Comes with convenient, easy to re- 
move, plastic keyboard overlay. All of this in a convenient ROM canndge that uses almost 
none of your valuable memory , . ^ CARTRIDGE $34 95 

COLORCOM/E SMART TERMINAL PROGRAM 

We didn't wait for the competition to catch up with usi We've added even moref eatures Ic 
COLORCOM/E, our superb Smart Terminal program 

• Complete upload & download support • Send all 127 ASCII characters 

• Oh line cassette reads & writes • Woed mode eliminates split words 

• Automatic capture of files • Off line AND on line scrolling 

• Pre-enter data before calling • Selectable HS232 parameters 

We've got the best cassette and upload/download support available And you can con 
veniently pnnt any portion of the received buffer you want NOW ON DISKi Heads anc 
writes files from disk. Same great features plus more 
DISK OR CARTRIDGE $49 Sb 



EDITOR ASSEMBLER DEBUGGER 



«6 



95 



CCEAD: This 8K Basic Program supports cassette tiies. has full cursor control line 
insertion/deletion, and much more. Two pass assembler supports full 6809 instruction 
set & addressing modes, lists to screen or pnnter Debugger allows memory examine 
/modify, program execution, if not delighted return within 2 weeks for a full refund You 
ge( fully commented Basic source & complete instructions. Requires Ext Basic & 16K 

CASSETTE $6 9b 

STRIPPER: Three valuable commands (1 ) Delete Remarks: (2) Pack Lines (3] Delete 
Spaces Fully automatic, is not fooled by GOTOs. GOSUB's, etc. Your programs will run 
(astp' and lake up much less memory CASSETTE $7 9S 

CUSTOM CARTRIDGES: Put YOUR Basic program into a convenient ROM Cartridge 
Runs 'istsnl y at power-up. Use for Ad displays, schools, etc. Call or write for infc 

Send check, money order 

or Visa/MC Number: C'Oen PO Bov10?J4 

clu2e $1 for postage anO ^ Austin, Texas 7876G 

handling Visa/MC: Phone Q ^_ (512)837-4665 

lor last service. , _ . . . 
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3FfcC 
3F6D 
3F6E 

3F6F 
3F7CI 
3F71 
3F72 
3F73 
3F74 
3F75 
3F76 
-5F77 
/F7Fi 
3F79 
iF7ft 
3F7B 
3F7C 
3F7D 
3F7E 
3F7F 

3Feo 

3F8I 
3F8e 
3F83 
3F8+ 
3F85 
3FSe 
JF87 
;FSS 
3Fa9 
:;F8fi 
::F&B 
SF8C 
3F8D 
3FeE 

;f8f 

:'F9 n 

3F?1 

SFse 

3F93 
3F94 

?F9^ 
'r:F°6 
3F97 
3F9e 
SFEi? 
JF^-fi 
5F9E 

::F?i: 

::F?F 
3F9E 



LDU K3FFF 



iET STRCe FGINTER 



36 
OF 
86 
3F 
IE 



OF 
E6 
37 






P!HII i^CC-H.E.Tlp --SAVE IM STHCK 

Li'M ■■■■y-F :ft direct prge register 

EXC H»DP 

CLP E4 'TNITIflLlZE IHGIT': TD ZEPD 

CLP E^ 

'I LP B6 

PULU "iIC.fi.B "PESTDPE USRfh*> fiPGUMENT 

CMPS :-6-l IF ri<]00 THEN BRANCH TD 3F8C 



10 
83 
00 



BUT 07 
SUBD i!64 

INC E4 
BPft F3 
CMPD r.ff 

ELT 07 
CUED ^ifi 

IMf 515 
BPfi p-3 
STB Et 
LDFI E4 
LDX ;:r.ie,[<3 



■■SUBT&FirT 100 FPDPl I- 

iNrPEMEriT (id!;t ^jeniFicRhT digit 

'GGTD 3F7F 



IF D-irj THEM BPRHCH TD 3F99 
'^.LIBTPPCT 10 FPOn D 

■INCPEMEHT SECOND UISIT 
'GOTO 3F8C 

STORE LERST j 16r4I FICFiNT DIGIT 
"LQBB HSD 
■LDflr' SCREEN ruSPLRY 'ICPEEN iRDDPE: 



3F9F 


03 






3FftO 


BD 


JSP 3FBe 


'JUP1P TD rii;PLRV PDUTINE 


3FFII 


3F 






:-!FR£ 


Ee 






3FFI3 


96 


LDR E5 


LORE 3ND DIGIT 


3FR4 


E5 






?FH^ 


30 


LER- £.X 


INiTPEMErtT SCPEEH DISPLRY RDDPESi 


JPfit 


Nt 






-;FR7 


ED 


JSP 3FER 


JUMP TD DISPLR'-( PDUTINE 


SFRS 


3F 






JFR?' 


E£i 






IFflR 


3t. 


LDR E6 


'LGRD LERST S16NIF1CRNT DIGIT 


:-.FHE 


E^ 






3FftC 


30 


LEfiX £rX 


-"INCREMENT ■■CPEEN DISPLFlY RDDPESS 


:-:FF(D 


OE 






■iFFlE 


ED 


JSR 3FB8 


"■JUMP TD DISPLRV PDUTINE 


3FRF 


3F 






SFBO 


BS 






3FB1 


37 


PULU -:DP 


PESTOPE DIRECT PRGE PtGi:TEP 


3FFe 


|J8 






3FE3 


39 


PTN 


'RETURN TO MAIN PPDSRBM 


.3Fg4 


00 




■MDST SI5NIF1CRNT DIGIT 


3FBT. 


n n 




-5ND DIGIT 


3FB6 


»Z^ 




LEflST SIGMIFICRNT DIGIT 


• 






• 


L«* 


DISPLBV 


ROUTINE FDP 


TRSeo CnLDR CDtlfiJTER . 

• 


3FEe 


riF 


CLP F4 


"IMJTIRLIZE SCPRTCH PRD 10 ZEPD 


-iFB9 


F4 






3FBR 


llF 


CLR F? 




3FFE 


F5 






3FEr 


OF 


CLP F6 




3FBD 


F€ 






3FEE 


>1F 


CLP F7 




3FEF 


F7 






3FC0 


OF 


CLP FE! 




::fci 


F8 






S-:FC£ 


3 b 


PSHU ::^ 


■SfiVE ECPEEH DISPLRV LDCRTION 


3FC3 


10 






3FC4 


ce 


LDB 'm 


-■CRLCULRTE CHfiPRCTEP TRELE DFF"ET 


3FC5 


la 






3FC6 


3Ii 


nuL 




3FC7 


D7 


:te f6 


STDPE THBLE QFFEET 


3FC8 


F6 






3FC9 


86 


LBR ;:=! 


'LOfili LIMES PER PISPLfiY 


3FCfi 


09 






BFCE 


97 


:tr f4 


:tdpe line: pep eisplmy 


3FCC 


F4 






3FrD 


ID 


LBV :!iEEE 


'LDmD STRPT DF CRRPRlTEP TRELE 


3FCE 


8E 






3FCF 


3E 






3FB0 


BE 






3FDI 


10 


STY F? 


STDPE STRPT RDDPESS 


3FDB 


9F 






;;Fii3 


F7 






3FD4 


DC 


LDD F^ 


LDRD TRBLE DFFSET 


3FD^ 


F^ 






iFDfc 


10 


LD'i' F7 


LORD STRPT RDDPESS 


3FD7 


^■E 






3FDf< 


F7 
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Mod III GRAFYX SOLUTION . $299.95 

512 X 192 Dot Graphics increases resolution 16 X {better than Apple) 
Extensive Business, Personal, Educational, and Scientific applications 
14 BASIC commands set and reset Points, Lines, Circles, Boxes, etc. 
Allows Display and Printout of detailed Line, Bar, and Pie graphs 
80 Character/line display compatible with BASIC programs and DOS 
Price includes 98K bits memory, 30 programs, 52 page manual 
Plug-in, clip-on board eliminates soldering for easy installation 




:.e*>.r.i- .■, ., ■, 


^^^.^,,^^^. 


|| M^^ 


jrct-i -s.-ss'^ 




; 


n:5:tH:^ 


t-« 


i- ■ " ^ 


' " "^Tyi 


...^.<s. 


'^ 


ISBS^BM 


. I ■'■■ 





^ 


^111 


n 


IH 


Wf 


rllt 


■H 


mHIH 


"■j^XT^T 


1 1 R II 


■jHt -^ 


IS i-^TDI.j^HHiyiH 


IfUt 


< k lilt 

SIIIIIIE 
■Kill 


^7 


W-MBM 


i^m 


■»lll 


rinu 


1 V . ^HDUHI 


Is 


■■111 


LKiTj 


1 , HIBHaU 


%£ra| 


HIIHIIi 


pift 


M. 


,»-i«u 


2IPI^ 



1^ 



Mod I, III 80-GRAFIX- -... $169.95 

• Create and Save 128 programmable hi-resolution characters/shapes 

• Characters are generated within an 8 x 12 matrix (Mod I: 6 x 12) 

• Great for creating game figures, symbols, and alternate character sets 

• Excellent software support (20 programs) & extensive documentation 

• Module easily installs within the computer with no soldering 



Manual only $15 
Products guaranteed 
Dealers welcome 



Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



FREE shipping 
Prepaid or COD 

Tx. res add 5% 



f^See List of Advertisers on Page 455 
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MICRO 

MOONLIGHTER 

NEWSLEITER 

The ONLY publication devoted exclusive- 
ly to helping you create, build, and main- 
tain a home-based business using your 
micro-system. SUBSCRIBE NOW to what 
may be the most important publication in 
YOUR FUTURE! 

1 Year (12 issues) only $25 U.S., $29 
Canada, $35 World Wide 

J. Norman Goode, Publisher 
Micro Moonlighter Newsletter 

21 15-D Bernard Avenue • Nashville. TN 37212 
Visa and Mastercard welcome. Send account 
number and expiration dale. 615-297-5106. 

D Visa Acct # Exp 

DM/CAcct# . Exp 

Name^ . 



Address. 
City 



St. 



Zip 



• 270 



I'i <<i<W ituo; 



HOW YOUR TRS-80^^ CAN OUTSMART I BM-PC® 

With XYZTsoftwareyourTRS-SObecomesa real pro! 

INTERACTIVE CONTROL LANGUAGE(rel.2-A) . . $59.00/510 ma 
The most powerful control language ever designed lor the micro. Inlended for 
control of computer operation, software enhancement and customization. Just 
check list of features: 



• Interactive program/lCL coexecution' 

• Enhances DOS. assemblers, 
compilers, word processors, 
database, etc* 

• Provides data for keyboard inoul 

• Access to display oulpul' 

• &RETCODE indicates result of 
execution* 

• Conditional execution of DOS 
commands & /CMD files 



• Complete control over computer 
operation 

• Powerfull command language 
processor 

• Interaction with operator 

• Control interception* 

• Queue structure for data 
manipulation* 

• Variables and information passed 
between programs 

• Virtual I/O tor keyboard and display operatiorrs' 
' Exclusive ICL (eafijre 

LIBRARY SUPPORT OPTION . . .S79.00/S1 ma 

Upgrade your DOS with libraries! Organize yourfiles neatly- put all 
/BASfilesinto8AS/LIB,/CMDstoCMD/LIB./RELstoREL/LIB,etc. 
Use regular DOS commands to list, copy, kill, print, load, save . . . files 
directly to/from libraries. Your processing wiii be faster, plus LSO 
saves space- minimal filesize is 1 sector, not granule! In addition, the 
compress option saves another 30% of space. Using LSO we 
managed to place ail files that previously occupied 2.5 diskettes 
onto one diskette and still 1 0% of space remained free! 

SPECIAL OFFER: ICL and LSO $99.00 

To order, specify Mod I/Ill and DOS. 
ChecK M.O., C.O.D, plus $2.50 s/ti 
Foreign orders - extra S 1 0.00 

XYZT COMPUTER DIMENSIONS, INC. 

2 PENN PLAZA, SUITE 1500 
NVC, N.Y. 10121 
{212)244-3100 ^^ 158 

Dealers inquires welcomed ^ -registered trademarks 
NEWDOS/30" G DOSPLUS* O LDOS" H' TRSDOS'^ D NEWDOS'^ !^ 




■ ^m ^m (SAW m*^ ^^ i^& ■.aa^ ^sm: ^m, 
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-:<- 11=. 


Hit. 


LDB D.r 


LORD FtCCfi 


yiTH 


■/BLUE IN <Y+DJ 


iFDH 


BB 










3FDB 


fl7 


STfi n^y. 


-STURE TD SCREEN 


D I SPLRY 


3FDC 


84 










■?FDP 


rrC 


IHC F8 


'IMCREMEtlT 


CMfiPfiCTER TABLE | 


jFriE 


FS 










jFrF 


DC 


LDB F5 


-LDRD THELE OFFSET | 


iFEO 


F5 










3FE1 


10 


LDY F7 


■LDHD NEXT 


CHRP. 


'BYTE ADDRESS 


3FE2 


9E 










-:FE3 


F7 










:-:FE4 


Ht 


LBfl DjV 


-LORD RCCR 


UHTH 


iY*D> 


JFE^ 


ftF 










3FEb 


B7 


3TR 1,X 


•STORE TD SCREEN 


DISPLRY+l 


3FE7 


01 










3FE8 


Cfe 


LDB :!£0 


■■ LDflD B WITH MEXT LINE IMCStriENT | 


3FE9 


eo 










3FER 


3fi 


RBX 


'X+B=MEXT EREEN 


DISPLAY LDCRTinn 


3FEB 


oc 


INC F8 


'INCREMENT 


CHRRfiCTER TRELE | 


::FEC 


FS 










?FFII 


uFi 


HEl F4 


DEHPEHtNT 


LINES 


DISPLAY COIiHTFi* 


HFEE 


F4 










3FEF 


Sb 


BNE E3 


IF COUMTER^jO GDTD 3FB4 | 


3FFn 


E3 










3FF1 


37 


PULU ■-■■>: 


FESTDPE DRIGIHRL SCREEN DISFLRY | 


3FFS 


10 




'LDCHTiDN 






3FF3 


39 


PTM 


•RETUPN TD 


CALLING PPOGPAM 1 


3FF4 


00 




LINES/DISPLHY COUNT | 


3FF5 


00 




■TBBLE OFFSET HI 


BYTE 


3FF6 


00 




■ TfiBLE aFFSET LD 


BYTE 


3FF7 


00 




CHBP. TflELg HDBPESS HI BYTE 


3FF8 


uu 




'CHRP. TABLE flDBPESS LO BYTE 


PIT fIRPPIMe 


DFtTR FDR CHRRftCTER SET 0-9 






HEX RDDR 




DRTFt 


DEC. RDDR 


DRTR 


3EB6 




5H 


16054 




90 


3EB7 




ft5 


16055 




165 


3EBEI 




65 


16056 




101 


3EB9 




59 


16057 




S9 


3EBH 




65 


16058 




101 


3efiB 




59 


16059 




89 


3EBC 




65 


16060 




101 


3EBD 




59 


16061 




89 


3EBE 




65 


1606S 




101 


3EBF 




59 


16063 




89 


3ECI) 




65 


16064 




101 


3ECt 




59 


16065 




8-9 


3EC2 




65 


16066 




101 


3EC3 




59 


16067 




89 


3EC4 




65 


16068 




101 


3EC5 




59 


16069 




S9 


3EC6 




5f» 


16070 




90 


3EC7 




B5 


16071 




165 


3EC8 




56 


16072 




86 


3EC9 




55 


16073 




S5 


3ECR 




56 


16074 




86 


3ECF 




55 


16075 




85 


3ECC 




56 


16076 




86 


3ECD 




55 


16077 




85 


3ECE 




. 56 


16078 




86 


3ECF 




55 


16079 




85 


3EDCI 




56 


16080 




86 


3ED1 




55 


16081 




85 


3Erie 




56 


16082 




86 


3EI13 




55 


16083 




85 


3EII4 




56 


16084 




86 


3ED5 




55 


16085 




85 


3ED6 




56 


16086 




86 


SEB? 




55 


16087 




85 


3EDS 




56 


16088 




86 


3ED9 




55 


16089 




85 


3EDFI 




5Fi 


16090 




90 


3EDB 




FI5 


16091 




165 


3EtiC 




65 


16092 




101 


3EDD 




59 


16093 




89 


3EIIE 




55 


16094 




85 


3ECF 




59 


16095 




?! 


3EE0 




55 


16096 






3EEt 




65 


16097 




101 


3EES 




55 


16096 




65 


SEES 




95 


16099 




149 


3EE4 




56 


16100 




86 


3EE5 




55 


16101 




85 


3EE6 




59 


16102 




Svi 


3EE7 




55 


16103 




35 


3EE8 




65 


16104 




101 


3EE9 




55 


16105 




85 


3EEfl 




fcC 


16106 




108 


3EEB 




fl9 


16107 




169 


3EEC 




5fi 


16108 




90 


3EED 




H5 


16109 




165 


3EEE 




65 


16110 




ioi 


3EEF 




59 


16111 




89 


3EF0 




55 


1611^ 




85 


3EF1 




65 


16113 




101 


3EFe 




55 


16114 




85 


3EF3 




95 


16115 




149 


3EF4 




56 


16116 




86 


3EF5 




H5 


16117 




165 


3EF6 




55 


16118 




.85 


3EF7 




59 


16119 




89 


3EF8 




65 


16120 




101 


3EF9 




59 


16121' 




89 


3EFFI 




65 


161£'2 




101 


3EFB 




65 . 


16123 




101 


3EFC 




5H 


16124 




90 


3EFD 




95 


16125 




149 


3EFE 




65 


16126 




101 


3EFF 




59 


16127 




89 


3F0C1 




65 


16128 




101 


3F01 




59 


16129 




89 


3F0£ 




65 


16130 




101 


3F03 




59 


16131 




89 

Listing 2 Continues 



for%ie IMNBO from Micro- Mega 



The Origmal GREEry^SCREEIM 



;*i*-3;'S:^jSfeV'i.'-2, + 



f! 




The eye-pleasing Green-Sc. ._ over the front of your 

TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't contuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a lull 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly Improves the 
overall appearance of your system. 

(Specify whether for Model I or tvfodel III) 

THEGREEr4-SCREEN 573,95 

Add $1.50 for postage and handling. 



Terms Check or money order, no CODs or credi! cards, please Add amount 
shown lor postage and handlmg lo price ol tne Item All items shipped within 48 
hours 6y lirst class or priority mail Virginia residents, add 4% sales lax ^-[Q2 



Micro-Mega •PO.Box GSBS- Arlingtun,\^SS^^ 



a»a»n»n«a»a 



a 



n«a«n»n»n»n«n«n»n»n»n«a«u»Lj»Li»n»n»n 




D»a»n»a«a»n»n»n»n»a«a»n«n»a«D»n«n«n 
• IN STOCK NOW!! call for special • 
□ PRICES ON LNHSOs^ NEC printers^ □ 

• RGB COLOR MONITORS^ AND TANDON • 
n DISK SYSTEMS. D 



a 
a 

D 



»»«»# 



NEW LNW SOFTWARE! 



»»«*«■ 



7180 WooDRow Wilson Dr 
Los Angeles. CA 90058 



n (213) 650-5754 - (714) 973-1939 n 





DISKIT II 

W/Out Drives 




OQMPARE 
DISKIT] 

MODEL III UPGRADE 
FEATURES: 

Gold Plated Edge Connectors 

Switching Power Supply 

' tuns cooler) 

40/80 Track supported 

Single/Dual Head supported 

Metal Disk Drive Brackets 

All Hardware and Cables for 

Disk Dnve 

1 Hour or Less for Insiailalion 

100% Compaiible 

No Soldering Needed 

180 Days Warranty on Controller 



DISKIT III 

W/One Tandon 



$32900 $54900 $75400 

DEALER INQUIRIES WELCOME I 

EPSON 

NEW LOWER PRICES! 
WITH GRAPHTRAX 

MX-oU y^.^.. L . ....... ..t^.-i.^ 

CALL FOR,^^ ' ■ ' 

PRICE 
MX-80 F/T 
$559.00 
MX-100 
$729.00 

IHE NEW MICROBUFFER'^ 

ACCEPTS DATA AS FAST AS 

YOUR COMPUTER CAN SEND IT 

MBP—I6K Parallel S159.00 

WBS— 6K Senal S1 59,00 

INTERFACE CARDS 

6141 (RS-232) $ 75 

8150 (2K Buffered RS-232} $150 

8161 (IEEE 488) $ 55 

8131 (Apple Card) $ 85 

8230 (Apply Cable) $ 25 

8220 (TRS..80 Cable) S 25 

OKIDATA MICROLINE 82A S 499.00 

OKIDATA MICROLINE83A.... S 729.00 
OKIDATA MICROLINE 84. . .. S1199.00 




PARAGON 

^/f^f/7 DISKETTES 

MTC's 
premium Single Sided Soft-Sectored 

DOUBLE DENSITY. 5' 4-incf) diskettes 
witli reinforcinq HUB-RINGS. Individually 
100% ERROR tree certified. Invest in 
GOLD 
PARAGON MAGNETICS GOLD. .$23.95 



cotch 



Soft-Sectored Diskettes 



5-1.'4' iS'SDen(744 0) 
5-1/4"1S/DDert(744D-0) 
5-1/4*' 2S;D Den (745-0) 
8" 1S(S Den (740-0) 
8 iS/ODen (741-0) 

8' 25/OOen (743-0) 



528.95 
S31.95 
S39.9& 
S29 95 
$37,95 
549.95 



ADD-ON DISK DRIVES 

Includes Case. Power Supply 

120 Days 100°.^ Warranty 

$28995 



. 229.00 
, 299.00 

299.00 
, 429 DO 



BARE DRIVES 

TANDON 5V4 INCH 

100 1 SINGLE HEAD 40 TRK ., 

100 2 DUAL HEAD 40 TRK 

100 3 SINGLE HEAD 80 TRK 
100 4 DUAL HEAD 80 TRK 

MODEMS 

UDS 103 LP DIRECT CONNECT.. 175.00 

UDS 103 JLP AUTO ANS 209.00 

HAYES MICROMODEM II (APPLE)299 00 

HAYES 100 MODEM (S-100) 325 00 

HAYES SMART MODEM (RS-232) 249,00 



Soft-Sectored Diskettes 

5V4" IS/DDen (MD525-01) 

5V4" 2S,'DDen {MD550-01) 

5V." 2S/4Den (MD557-01) 

8" IS/DDen (FD34-B000) 

Hard-Sectored Diskettes 

51/4" 1S..DDen 10-sector (MD525-101 

5V<" 2S,'DDen 10-seclor (MD550-10) 

5V." 2S/4Den 10-seclor IMD557-10] 



526,95 
S39,95 
S51.50 
$43,95 

$26.95 

539,95 
$51.50 




Supplies 

HUB RING KIT for SVi" disks 

HUB RING KIT for 8" disks 

REFILLS (50 Hub Rings) 

CLEANING KIT for S'A" drives ., 

5'/a-inch dlskelte case 

e-incfi diskette case , 

5V4-inch File Box for 

50 diskettes 



.$10,95 
$12,95 

..$ 5.95 
$24.95 

..$ 3,50 

..% 3.95 

$24.95 



SKIT III IS A®OFMD 



Prices. Specifications 

and Offerings subject 

to change without 

notice. 



WE ACCEPT 

VISA 

WASTER CHAflGE 

CHECKS 

MONEY ORDERS 

COD 



f*^-'-"^'^' 



Add S3 00 for sfiop- 
ping & handling 

EXTRA lor 
CO.D. 

Ohio residents add 
6 5t sales tax 



^mxatO DATASUPPLICS 



22295 EUCLID AVENUE 

EUCLID. OHIO 44117 

Call: (216) 481-1600 



i^See List ol Advertisers on Page 455 



80 Micro, November 1982 • 277 



Usiing 2 Continued 
















3F04 


65 


1613a 


101 


3F37 


59 


16183 


ti9 , 


SF05 


59 


16133 


89 


3F38 


55 


16184 


85 ' 


3F06 


65 


16134 


101 


3F39 


65 


16185 


101 


3F0? 


59 


16135 


89 


3F3ft 


55 


16186 


85 


3F08 


6R 


16136 


106 


3F3B 


§5 


16187 


14° 


3F09 


1=15 


16137 


165 


3F3C 


56 


16188 


86 


3F0R 


55 


16138 


85 


3F3D 


55 






3F0B 


59 


16139 


99 


3F3E 


59 






3F(IC 


55 


16140 


85 


3F3F 








3F0II 


59 


16141 


39 


3F4 


65 






SFOE 


55 


16142 


85 


3F41 










59 


16143 


89 


3F4£ 


65 


16194 


101 


3F10 


6C 


16144 


1 (18 


3F43 


55 


16195 


35 


3F11 


fl5 


16145 


165 


3F44 


65 


16196 


101 


3FI£ 


65 


16146 


101 


3F45 


55 


16197 


35 


3F13 


55 


16147 


95 


3F46 


5fi 


16198 


90 


3F14 


65 


16148 


101 


3F47 


Fl5 


16199 


165 


3F15 


55 


16149 


85 


3F48 


65 


16£O0 


101 


3F16 


6fl 


16150 


106 


3F49 


59 


16E0t 


89 


3FI7 


fl5 


16151 


165 


3F4fi 


65 


162 Q2 


101 


3FI8 


55 


1615S 


85 


3F4B 


59 


16203 


89 


3F19 


59 


16153 


39 


3F4C 


65 


162 04 


101 


3F1H 


55 


16154 


85 


3F4I1 


5'5 


16205 


89 


3F1B 


59 


16155 


89 


3F4E 


5fl 


16S06 


90 


3F1C 


65 


36156 


101 


3F4F 


Fl5 


16507 


165 


3Fltl 


59 


16157 


89 


3F50 


65 


16£08 


101 


3F1E 


65 


16158 


' 101 


3F51 


59 


162 09 


89 


3F1F 


65 


16139 


101 


3F52 


65 


16210 


101 


3FS(i 


5fl 


16160 


90 


3F53 


59 


16211 


89 


3Fai 


95 


16161 


149 


3F54 


65 


16212 


101 


3FEe 


5R 


1616£ 


90 


3F55 


59 


16213 


89 


3Fe3 


R5 


16163 


165 


3F56 


5fl 


16214 


90 


3FE4 


65 


16164 


101 


3F57 


FI5 


16215 


165 


3Fe5 


59 


16165 


39 


3F58 


5H 


16216 


90 


3Fe6 


65 


16166 


101 


3F59 


R5 


16217 


165 


3F27 


55 


16167 


85 


3F5FI 


65 


16218 


101 


3Fe8 


65 


1616S 


101 


3F5B 


59 


16219 


89 


3F29 


55 


16169 


85 


3F5C 


65 


16220 


IQl 


3F2FI 


66 


16170 


loe 


3F5D 


5^ 


16221 


89 


3F8B 


Fl5 


16171 


165 


3F5E 


65 


16222 


toi 


3Fec 


69 


1617S 


105 


3F5F 


59 


16223 


89 


3F2D 


59 


16173 


89 


3F60 


5f( 


16224 


90 


3F5E 


65 


16174 


iOl 


3F6t 


H5 


16225 


165 


3F2F 


59 


16175 


89 


3F6£ 


55 


16226 


85 


3F3CI 


65 


16176 


101 


3F63 


59 


16227 


89 


3F31 


59 


16177 


89 


3F64 


55 


16228 


85 


3F3£ 


5R 


16178 


90 


3F65 


59 


16229 


89 


3F33 


fi5 


16179 


165 


5F66 


65 


16230 


101 


3F34 


6C 


16180 


108 


3F67 


S9 


16231 


89 


3F35 


H9 


16181 . 


169 


3F6e 


5ft 


16232 


90 


3F36 


55 


16182 


85 


3F69 


F(5 


16233 


165 





T^F MicMO'DEsiQN MocIeI til upqRAciE JNcludES MicRO-DEsiqNS ExcEprioNAl MDX-6 disk 

CONTROUeR bOARd, one 40 TRACk TANdoN Disk DrIvE, necessary iNSTAll ATiON CAblES ANd 
hARdwARE. C 



For More liNfonMAiioN N \m\ LiuRAnrif 
Call on Wfjiir 



6501 MancIiaca koACJ 
Austin Texas, 78745 




jSee our Full Pat.E Ad im PAqt 159 
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MICRO-ACCOUNTINNG SYSTEMS 

BOX128-R2 

OTt AWA. (<ANSAS 66067 

PHONE 913-242-2674 



^56 



Buy and try any one of the MAS 80 programs for $99. Then within 30 days purchase the total MAS 80 
accounting package for $390, a saving of $77 over the reguiar price of $566. if not satisfied return the 
package and receive a full refund. 

user formotted business system, designed for the first time computer 
coordinating wittiout modifications, they are menu driven with cursor 



MAS 80 Accounting is a flexible, versatile 
user. MAS 80 programs run stand alone or 
control and full screen instructions, plus 
two types of file maintenance. Regular 
maintenance - provides maintenance 
on transactions and account files. Spe- 
cial maintenance is automatic at the 
end of posting to insure that posting is 
correct. Any errors detected are printed, 
eliminating error searching, Provisions 
for Single entry or Double entry book- 
keeping, with valid account editing 
and an out-of-balance error detection. 

MAS 80 Accounting programs will oper- 
ate on Mod I and Mod 111, with 2 or 3 
drive versions, MAS 80 also has versions 
operating on Corvus and Micro Systems 
hard drives. Requires the use of NEW- 
DOS. NEWDOS/8G or DOSPLUS disk 
operating systems, 

MAS offers the best user support for the 
novice as well as the professional. 

GENERAL LEDGER $159.00 

• Stondord laymon format, with screen instruc- 
tions. Multiple linking MENUS provide easy oper- 
ation, 

• Post to any of 200 G/L Accounts, you set up 

yourself [Not Preset Accountsl. 

• Process transactions in BATCHES of up to 200 
debit ond credit entries, withi eachi batcti editing 
for out-tof-baionces, ttien when correct and re- 
corded, answer "Yes" to continue with each " 
batch of transactions. 

• Tronsoction UPDATE provides for unlimited 
transactions. Eosy fiie maintenance. 

• Accounts Receivabie and Payable coordinat- 
ing or Stand Alone. 

ACCOUNTS RECEIVABLE $159.00 

Designed with machine ianguage routines to re- 
duce set-up time, without sacrificing fiexibiiity or 
requiring professionai knowledge of com- 
puterized accounting. MAS 80 saves for more effi- 
cient management, by providing: 

• Balance Forward Systems w/true ageing and 
multi-function programs. G.l coordinating for 
Auto-Posting or Stand Aione. 

• Postfo an unlimited number of General Ledger 
Accounts with valid G.l and Customer Account 
# editing per invoice. 

• Process charge entries with detail break down 
as you choose. Maintenance before and after 
posting. 

• Open/ClosedorOver Due listings by number of 
days that you specify, 

• Two different formots for Billing Statements plus 
Invoice Printing, 

• 700 Customers per 40 track double density dis- 
kette. 






ACCOUNTS PAYABLE $159.00 

Features reduce time for more efficient monage- 
ment, by providing: 

• Balance Forward Systems w/true ageing and 
multi-function programs, G/L coordinating for 
Auto-Posting or Stand Alone. 

• Post to an unlimited number of General Ledger 
Accounts with valid G/L and Vendor Account # 
editing per Invoice. 

• Process charge entries with detail break down 
as you choose. Maintenance before ond offer 
posting. 

• Detailed, Aged, Manage.^ Report to analyze 
Liabilities, volume of purchoses, poyment 
choice and discounting. 

• Wilt handle 400 Vendor and 1600 Unpaid 
charge entries. 

• Check writing format Is standard Moore or 
Nebs form, with A.-'P and Ck.'Reg. 

CHECK REGISTER $159.00 

Here is a Check Register Program ":hot will operate 
by itself or linked with MAS 80 Accounts Payable 
and/or General Ledger, This will compile al! 
checks written, allow choice of 26 expense codes 
for later look up and listing of different categories 
for tax time. Record deposits and reconcile your 
check register with your bank statement. 

• Will handle 600 checks per month. Record de- 
posits, 

• Record/Print checks from Accounts Payable 
and hand written checks. 

• Print check register, expense codes comes Y-T- 
D totals. 

• File Maintenance - checks - deposits - miscel- 
laneous. 

• Account Status- balance, account #, etc, 

• Reconciliation-prints a simliar form and com- 
pare with Bank balance. 

Other Programs by request, some with 
options of linking with Micro Accounting: 
Payroll Shipping Invoice Program 

Invoicing Personal Check Register 

Inventory Multi-Utility 

Phone Directory (with mailing label) 

Coll Collect tor Orders 
COD - Visa - Mastercard 
D'^a*. s 'lyquiries invited 



Dealer List: 




Apparat, Inc 

Denver, Colorado 


Micronet 
Omaha. Nebraska 


Micro Systems Software 
Hollywood. Florida 


Scholastic Software 
Lubbock, Texas 


Data Resources Corp. 
Denver, Colorado 


Soft Sector Marketing 
Garden City, Michigan 


Ebert Personal Computers 

Denver, Colorado 


A & M Electronics 
Ann Arbor. Michigan 


B. T. Enterprises 1 
Centereach, New York 1 



defined as the upper left corner 
of the most significant digit's 
chararacter block (16 by 9 bit 
block). In the Coior Computer, ad- 
dress 1536 decimal (600H) is the 
start of page 1 graphic screen 
memory. Allowable screen posi- 



trons for the 3"digit display de- 
pend on the graphic mode. Use 
Tabie 1 to determine which values 
to POKE into 16286 and 16287. 

Demonstration Program 

The demonstration program 



C1, C2 


00 


01 


10 


1 1 


SCREEN 1,0 


GREEN 


YELLOW 


BLUE 


RED 


SCREEN 1.1 


BUFF 


CYAN 


MAGENTA 


ORANGE 



Color Coding 

FOR THE ABOVE EXAMPLE. 8 IS DISPLAYED AS A BLUE FOREGROUND 
AGAINST A YELLOW BACKGFtOUNO IN SCREEN 1,0 WHEN IN PMODE 1,n OR 
PMODE 3.n 



Fig. Id. 



Program Listing 3 




420 REM 




43fl HEM DEMO PROGRAM 




435 REM SHIP CANNOT DROP CHARGE AT 


SCREEN LEFT 


440 REM 




445 REM CHECKS EIRE BUTTON CLOSURE 




450 PMODEl,! 




455 REM RESTORE V TO SHIP LOCATION 




46B COLOR 2,l!PCLS 




465 REM DROP DEPTH CHARGE 




470 LINE(B,0)-(255,:91) ,PSET,B 






Listing 3 Continues 



in Program Listing 3 uses the 
machine language routine. It 
displays three different numeric 
values in three different screen 
locations. The center display is 
a 3-digit random generated num- 
ber. The display in the upper left 
corner is a 3-digit value rep- 
resenting the game score. The 
upper fight corner contains a 
3-digit display equal to the num- 
ber of tries. 

The program begins with a 
changing random number dis- 



played in the center of the 
screen. After a fixed time in- 
terval, the display stops chang- 
ing. If any two digits in this 
display match, 10 points are ad- 
ded to the score. If all three 
match, 100 points are added. 
Pressing S on the keyboard 
starts the next try. The number 
of tries is displayed on the up- 
per right corner of the screen. 
The game ends after 100 tries. 

Line 540 defines the random 
number display location. Line 



Char. Size 
In Pixels 



Increment Last Char. Start 



PMODE Horiz. 

4,N 16 

3,N 8 

2.N — 

1,N e 

Pi^el Resolution: 



Vert. 
9 
9 



Resolution 
Horii. Vert. 

1 1 

2 1 



Per 
Line 

20 H 
20 H 

20 H 



Position 



Ot 



First Line Last Line 
061 AH 1CC0H 

061AH 1CC0H 



061AH 



1CC0H 



PMODE 4,N 



PMODE 3,N 



PMODE 1,N 



D 



Table 1 is based on graphics starling in page 1 of graphic 
memory. If graphics start in any other page add 600H times 
Page Number (N) to "Last Character Position First Line" and 
"Start of Last Line." Last character position in each line 
equals the first character position plus 1AH. 



WHY $ IN 



i'Tuff-*!f'"-"rT" 



TAPE ... RELIABLE, EASY, FAST! 



SPEED, RELIABILITY. VERSATILITY 

KVVICOS (Mod ll A proi;r;[mmfr's progrnm... for novice or expert. 
Not just a simple si)ecci-up (2\ to ()\ keyboard selccll but an easy 
ll) use operaliiig system tluit fully sui)ports your eassette recorder. 
Features save, loiitl, verify, search, cliain-load, ciitalog. and lest- 
re:id of hofli BASIC and machine code programs: passwords, long 
titles, dcbounce. self 'backup' capability, and more $26 

K0S3: (Mod3| All 'KWICOS" features at 2200 baud, plus KWIK 
sei of: clock and date, cassette high/low, I/O routing, etc $26 

KVVIKIT: (miiii-'!vitcni. BASIC programs only) EasyLoad double- 
speed for \U.d I, 2200 baud for Mod 3. Many 'KWICOS" features 
and upward eoni[i:iIible $12 

KWINK: I mod ll '.SYSTEM' copter supreme. Makes stand-alone fast- 
loading KWIK tormal (2x to 6x band) copy of any standard 500 
baud SYSTEM program. (At 6x, 3 min pgm loads in 44 sec!)... $15 

KLOAN. i.Vlod 31 Makes standard 500 or 1500 baud copy of am 
standard 500 or 1500 baud "SYSTEM" prograjii $12 

KLOAD: (Mod I) Makes slaiul-alone fasl-loadinjj copy of BASIC 
programs. Similar to KWINK , but for liASIC programs $15 




r^^ii 



f y SOFTWARE 






816 E. MauplnSlrsat 
P.O. Box 328 
Bolivar, Mo. 6S613 

(417) 326-7154 



TAKE SYSTEM AND CLOADs OFF YOUR MIND 

EASY AS [1] PLUG IN A LEMON-AID LOADER IN SECONDS 12] 

TURN CTR VOLUME FULL UP [3] THAT'S IT!! 
Banishes Model 1 tape loading "finickies" at regular speed, or 
flawlessly loads all your programs at high speed alter making KWIK 
Sottware copies {ad at lelt). 

NEW MODEL LLQ-2 Deluxe Loader- 
Updated version of popular LLO. Has 
volume controlled jack tor tape listening. 
without plug pulling, usirtg external 
speaker or earphone. A MUST FOR 
MODEL 1 ... Compatible with Mod. 3 
,.- ppd $21.99 
NEW MODEL LL-2 Standard Loader- 
Same as i.LO-2 above except with fixed 
tow-level output jack lor speaker or ear- 
phone. Model 1 [3 compatible! ... 

ppd S17.99 "' "^'■' 

SOFTROL MODEL LSS. Pushbutton CTR motor override. Solid stats to 
eliminate "switch hits." Cushioned motor-off delay pulls pgms past 
CTR pinch roller to eliminate "pinch hits" on LOADS and puts 
automatic gaps between pgms on SAVES. Protects delicate CPU relay 
contacts too. Great for DATA. The Model LSS gives you no hits .., lots 
ol runs. Works with all Radio Shack and most other recorders ... and 
mosi computers. ppd $18.99 

NEW MODEL LHL ... "Hind Legs" to support your CTR 80 so you can 
see tape counter ... and ejected tape falls in your hand. Plated spring 
steel, vinyl tipped non-scratch clip-on non-slip legs ... $2,99 with any 
order. Alone ppd S4.99 

LEMONS TECH SERVICES 

'** 325 N. Highway 65 P.O. Boi 0429 

Buffalo, MO. 65622 

(417) 345-7S43 



Waite<Cci 



Gill eitlicr number for any information or order. U.S. orders postage [)aid, add S3 for COD or overseas: Missouri residents add sales tax. 
Special: Free on recuK";! with order, or SI and SASE... parts aiid iiistractions to pasilv add 'aieade' sound rnnabilil\ to ( I R 80 iir CI R 4! 
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560 calls the machine language 
routine. The display location for 
the number of tries is set in line 
700 and the score location is 
established in line 720. 

Beyond Numbers 

Although the machine lan- 
guage program restricts itself to 
numeric displays, the imaginative 
programmer can extend this to al- 
phabetic and special characters. 

The demonstration program 
can be converted to a One- 
Armed Bandit game by adding 
special characters in place of 
the random numbers. These 
special characters should re- 
side in a table separate from the 
numeric character table. The 
Basic calling program could ac- 
cess the machine language rou- 
tine to the character set by 
POKEing the table's starting ad- 
dress into locations 16335 and 
16336. ■ 

Frederick Battista designs 
process and plant automation 
systems for BASF Wyandotte 
Corp. Engineering Group. 



Listing 3 Continued 



475 REM ALLOWS SUB HOVE DURING CHARGE DROP 

4 60 DRAH'BH88,120;U6eE15R3BFl5D6 0L6 0" 

490 PAlNT(90,6e) ,4,2 

495 REM CHARGE DROPPING 

500 SR=0:K=0:TR=0 

510 SCREEN 1,0 

515 REM CHARGE EXPLODES 

520 TIMER-0:Y=4e 

525 REM CHARGE HIT BOTTOM 

530 N=RHD(999) 

535 REM DESTROY SUB 

540 POKE162S6,10: POKEi6287,:2 

545 REM CLEAN UP REMAINS 

550 RHODE 1,1 

555 REM CHECKS TO SEE IF SUB 2 WAS DESTROYED, IF SO SETS NEW SUB 2 POS 

ITION 

560 fi=USR(Nl 

565 REM SETS NEW SUB 1 POSITION 

570 B=TIMER 

560 Y=Y+3 

565 REM REMOVES CHARGE FROM SCREEN AFTER HITTING BOTTOM 

590 IF Y>-70 THEN Y-70 

595 REM MOVES SUB 1 TO NEW POSITION 

6 00 LINE 114 6, 701- (17 8,Y-3) , PRESET 
610 LINE|14e,70)-{17a,Yl ,PSET 

615 REM SUB 1 LASER ROUTINE PPOINT CHECKS FOR LASER HIT 

620 IF B<120 THEN530 

630 LINE (148,70) -1 17 8,70) , PRESET 

635 REM FIRES LASER-WON'T FIRE IF SHIP TOO FAR LEFT 

640 LINE(14e,70)-(i7e,40) ,PSET 

650 N1=FIX(N/100) :R1=N-N1'100 

655 REM POSITION SUB 2 

660 N2=FIX(R1/1B) :N3=R1-N2*10 

670 IF N1=N2 OR N1=N3 OH N2=N3 THEN SR=ia 

675 HEM SUB 2 LASER ROUTINE 

680 S=RND(20);IF RND(5]=3 THEN GOSUB 70 : IFPPOINT (H-tS ,571 =4 THEN HT-HT 

+1 

690 TR=TR-I-SR;SR=3 

695 REM FIRE SUB 2 LASER 

700 POKE16286,6!POKE16287,0 

710 D=USH(TR) 

715 REM END ROUTINE 

7 20 K-K+l;POKE16 286,6:POKE162 87,5B 
730 YS=INKEYS 

740 L=USR|K) 

750 IF K=100 THEN 780 

760 IF Y5="S' THEN 520 

770 GOTO 73 

775 HEH RESTORE COMPUTER TO POWER UP STATE 

780 CS^INKEYS 

790 IF CS-"R" THEN 500 

800 GOTO 7 80 




PROOUCTS FOR YOUR RADIO SHACK 





MACRO-BOC 

The Micro Works is pleased to announce ihe release of ils disk-based editor, 
macro assembler and monitor, written for Color Computer by Antjy Phelps. THIS 
13 IT — The ultimate programming tooJi 

Ihe powerful 2-pass macro assembler features conditional assembly, local labels, 
include files and cross referenced symbol tables. MACRO-80C supports tfie 
complete fVlotorola 6809 instruction set in standard source format. Ttiere are no 
changes, constraints or shortcuts in the source language definition. Incorporating 
all of the features of our Rompack-based assembler (SDS80C), f^ACRO-80C con- 
tains many more useful instructions and pseudQ-ops whicti aid the programmer 
and add power and flexibility. 

The screen-oriented text editor is designed for efficient and easy editing of 
assembly language programs. The "Help Key" feature makes it simple and fun to 
learn to use ihe editor. As the editor requires no line numbers, you can use the 
arrow keys to position the cursor anywhere in the file r^ACRO-80C allows global 
changes ant) moving/copying blocks of text. You can edit lines of assembly 
source which are longer Ihan 32 characters. 

DCBUG is a machine language monitor which allows examining and altering of 
memory, setting break points, etc 

The editor, assembler and monitor — as well as sample programs — come on one 
Radio Shack compatible disk. Extensive documentation included. Macro-80c 
Price: $99.95 



SDS80C - Our famous editor, assembler and monitor in Rompack, Complete 
manual included. Price: $89.95 



PARALLEL PRINTER INTERFACE ■ Serial to parallel converter allows use of all 
standard parallel pfmters. You supply printer cable PI8DC Price; $69.95 



MICROTEXT — Gel printouts while using your modem! Also download to cassette 
General purpose terminal Rompack. Price: $59.95 





YOU NEED COLOR FORTH!! 

Why? •Forth is faster to program in 'than Basic 

•Forth is easier to learn than Assembly Language 
•Forth executes in less time than Basic 
Forth IS a highly interactive language like Basic, with structure like Pascal and 
execution speed close to that of Assembly Language. The Micro Works Color Forth 
is a Rompack containing everything you need to run Forth on your Color Computer 
Color Forth consists of the standard FORTH Interest Group (FIG) implementation of 
the language plus most of FORTH-79. It has a super screen editor with split 
screen display. Mass storage is on cassette. Color Foilh also contains a 
decompiler and other aids for learning the inner workings of this fascinating lan- 
guage, it will run on 4K, 16K, and 32K coniputers. Color Forth contains 10K of 
ROM, leaving your RAM lor your programs! There are simple words to eftectively 
use the Hi-Res Color Computer graphics, joysticks, and sound. The 112-page 
manual includes a glossary of the system-specific words, a full standard FIG 
glossary and complete source listing. COLOR FORTH .. THE BEST! From the 
leader in Forth. Talbot Microsystems. Price: $109.95 






Also available: Machine language Monitor ■*■ 2-pass Disassembler * Books ■* 

Memory Upgrade Kits ■* Parts and Services * Call or write for information 

l^^l>$i^ P.O. BOX 1110 DEL MAR. CA 92014 



GAMES 

star Blaster — Blast your way through an asteroid field in this action-packed Hi- 

Res graphics game. Available in ROMPACK; requires 16K. Price: $39.95 

Pac Attack — Try your hand at this challenging game by Computerware, with 

fantastic graphics, sound and action! Cassette requires 16K. Price: $24,95 

Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 

Products. Cassette requires 16K. Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Data ProOucts. Eacti 

cassette requires 16K. Price: $19.95 each. 

Cave Hunter — Experience vivid colors, bizarre sounds and errie creatures in hot 

pursuit as you wind your way through a cave maze in search of gold treasures. 

This exciting Hi-Res game by Mark Data Products requires 16K for cassette 

version. Price: $24.95 

California Residents add 6% Tax 

lUlaster Charge/Visa and 

COD Accepted 

714-942-2400 



^See List of Advertisers on Page 455 
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Create readable insert cards. 



Cassbox 



Charles E. Gillen 
1458 Greenmont Court 
Reston, VA 22090 

Necessity, not inspiration, 
forced me to design a pro- 
gram to create neat, readabie 
cassette insert cards. That 
previousiy irksome chore is now 
fast and easy, and my tape col- 
lection never looked better. 

Cassbox (Program Listing 1) 
was written for the Microline 80 
printer. For ttiose without a 
Microline I wrote Baby Cassbox 
(Program Listing 2) to be used 
with any standard 80-column 
printer. Though Baby is not as 
fancy, the two programs have a 
number of features in common. 

Common Features 

• The insert card format is 
displayed on your screen. The 
printer turns out a finished in- 
sert just the right size, complete 
with marks Where to cut and 
fold, 

• The insert card can hold 13 
text lines on the front and four on 
the back. The separate line for the 



tape title is easily visible when changes or corrections before all three Microline 80 character 
your tapes are stacked. The for- and after printing. Up to nine sizes producing lines 17, 35 or 



The Key Box 


Basic Level II 


Model 1 


16KRAM 


80-column printer 



mat is similar to the original tape 
manufacturer's insert. 

• Typing @ before the first 
letter centers text lines. 

• An edit mode permits 



copies can be printed in a single 
run. 

Cassbox Extras 



57 letters long; the first two are 
set using # or $ to begin a line 
and the 57-letter mode requires 
no flag. The tape title side of the 
The deluxe version handles insert card can be one or two 



flnEHTIQN 
ftTTENTIOW 

*=^"r"re:MT- :i om 

THIS INTRODUCES THE ONE AND ONLY 

ftCCOHPfiNIED BY THE JUNIOR VERSION NflHED 
BABY CfiSSBOX 

fiN fiPPLICflTIQN FOR T^€ MICROLINE 8o OR ANY PRINTER 
BY CHARLES E. GILLEN 
U. S. EMBASSY SEOUL RDK 
ftPO SAN FRAN 9G3ol 



AND BABY CASSBOX TOO 

SIDE fl CASSBOX RECORDED TWICE 
SIDE B BftBY CflSSBQX RECORDED TWICE 



DESIGN & PRINTING! TfS-80 COMPUTER 



CUT 



FOLD 



FOLD 



CUT 



'Fig. 1. Cassbox Sample 
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48K 

with two double sided drives $1995.oo 



A 

■Perfect for .youc TRS80 , IBM or other Computers, cases and 
pover supplies sold separatly below but «e will assemble and 

[figure them for your computer at no extra charge, 
5 \/A' FLOPPY DRIVES 

TMjpO-l Single Sided 40 Track (199, 95 

TMlOO-2 Double Sided 40 Track J299.95 

TM-50 new half sized 5 1/4 Drive (not for Mm Usage) $189.95 
8" FLOPPY DRIVES 
TMB4B-1 Single Sided 8" Drive Slim Line Type (399. 95 



TH84B-2 Double Sidt 
HARD DRIVES 
TM602-S SMegabyte 
TM603-3 lOMegabyte 
TM604-S 15Megabyte 



'd 8" Dri 

5 1/4 dri\ 
5 1/4 driv 
5 1/4 dri\ 



Slim Line Type 

vs case style 

i'e case style 

? style 



CASES, POWER SUPPLIES AND DRIVE CABLES 

1 Drive 5 1/4" case with power supply 

2 Drive 5 1/4" case with power supply 
2 drive 5 1/4" case for TH-50 drives 

1 drive 8" case with power supply 

2 Drive 8" case- with power supply 
2 drive 5 1/4" I.B.M. lookalike case 
2 Drive Cable for 5 1/4- Drives 
4 Drive Cable for 5 1/4- Drives 
2 drive. Cable for R- Drives 
1 nriv..' Cauli; 7 fui -J 1/4" drives S, I • 



$499.95 

J 949.95 
$1049.95 
$1349.95 



% 49.95 
$ 79.95 
$ 59.95 
$109.95 
$129.95 
$299.95 
$ 24.95 
J 34.95 

^ 29.95 



MODEL III DISK DRIVE EXPANSION KITS 

High Quality,Low Prices 

Dont Be Fooled ByThe Competition 

All ol thfj Comt-ukiL drlvt; kits i^icludt j iw,ti;hing Power 
Supply, a Double Density Dish Controller, 32K RAM, Mounting 
Brackets, All Neccessary Hardware and Cables, a 120 day 
warranty, Tandon DisK Drives and a Installation Manual That is 
Simple and Easy To Use 



The No Drive Drive Kit 

Drive Kit with one 40 track single sided dri 
Drive Kit with two 40 track single sided dri 
Drive Kit with two 40 track double sided dri 
Drive Kit with two 80 track double sided dri 



Complete Model Ill's 

Model II i 16k 

Model III 48k no dri\ 

Model III 48k one SS 40 track drive 

Model III 48k two SS 40 track drives 

Model III 4Bk one DS 40 track drive 

Model III 48k two DS 40 track drives 

Our delux system 

Model III 48k two DS 40 track drives Gru 

RS/232 DosPlus 3.4 

ASTEC SWITCHIHG POWER SUPPLIES JUST LIKE R/S'S 
16K Memory add on for your R/S machine 8/4116"e 
Genuine R/S 16K Memory Set 

MODEL I A£M DOUBLE DENSITY BOARD 

DISK OPERATING SYSTEMS 
DOSPLUS 3.4 
DOSPLUS 3.3 
DOSPLUS 4,0 
NEWDOS 80 

DISKETTES BOX OF 10 

ELEPHANT SS/DD 5 1/4" $25.95 

VERBATIMS SS/DD 5 1/4" $26.95 
ELEPHANT SS/SS 8" $24.95 



Head Cle 



ng Kit 5 1/4" 



% B99. 
* 929. 
$1395. 
$1795, 
$1695. 
$1995, 

iiphor CRT 
$2395. 

$76.95 
$14.95 
$19.95 

$99.95 



$119, 
j 89. 
$270. 
$129. 

CASE OF 100 
$249.50 
$259.50 
$249.50 

$ 24.99 



MICRO MAIN FRAME PRODUCTS 

5Meg Hard DisK Kit 

M50FM Hard Disk Multicomputer Sub System 

120 Megabyte Multicomputer Sub System 

SA3I NET Multiplexer 

Model III Drive Controller Board DC3B 

Model III Drive Controller Board DC3C 

Streamer Tape backup for disk subsystems 

SEE THEIR AD THIS ISSUE OF 80 MICROCOMPUTING 

WE WILL INSTALL ANY OF OUR KITS IN YOUR ' COMPUTER FOR ONLY $49 



$ 1949. 

$ 2895, 
$10,000. 

$ 719. 

$ 129. 

$ 169. 

$ 1949. 



Printers 



C.ITr)|[ RtIH PA.-iALLEL prowriter 

C.ITOH PROWRITER II 14" PARALLEL 

C.ITOH FIO 40 CPS 

C.ITOH FIO 55 CPS 

SMITH CORONA TPl 

EPSON MXeO WITH GRAFTRAX 

EPSON MX 8 OFT WITH GRAFTRAX 

EPSON MXlOO WITH GRAFTRAX 

EPSON 2K BUFFER 

EPSON 4K BUFFER 

TR3-aO PEItJTER CABLE 

APPLE PARALLEL BOARD WITH PRINTER CABLE 

C.ITOH F-10 TRACTOR FEED 

C.ITOH F-10 RITTENHOUSER PAGE FEEDER 





$ 379 


180KB 


$ 479 


360KB 


$ 699 


720KB 


$ 899 


1.4MB 


$1099 




$ 519, 




$ 749, 




(1449. 




$1699, 




$ 649. 




* 498. 




t 559. 




$ 7-27, 




$ 110, 




$ 149, 




$ 29. 




$ 119. 




$ 229. 




$1199. 




$ 130. 




$ 99. 




$ 99. 




$ 899. 



MODEL III GREEN SCREEN KIT 
Includes a Genuine P-31 Phosphor 



MODEL III RS-23Z KIT 

Everything you need to do your own upgrfide 



istructions $99.00 
$94.95 



EXTERNAL HARD DISK KIT 

A premium complete external 5 Megabyte Hatd drive Kit with 
error checking circuits, including everything you need but a 
case $1949. 



A.M. HARD DISKS 
Ready to plug in 
5Meg (1649, 



and go (not a kit), 
lOMeg $2149, 



DOS 
15Meg $2349. 



NEM 20MEGABYTE SUBSYSTEM INCLUDES ONE IOMB FIXED HARD DISK AND 
ONE REMOVABLE 10MB HARD DISK WITH PLUG IN ADAPTERS FOR UP TO 4 
MODEL III COMPUTERS (THIS SYSTEM USES ERROR CHECKING) $8750. ■ 

NEW REPLACEMENT MODEL III ROM FOR HARD DISK THAT ALLOWS 
BOOTING DIRECTLY FROM THE HARD DISK WITH OUT THE USE OF A 
FLOPPY DISK DRIVE $ 150. 



FREESHiPHNG 120 DAY WARRANTY 




i^and C.O.L). 



H'See Us,t ot Ad'jerlisers on Page 455 
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lines. The one-line titie is printed 
right down the middle. 

Baby Cassbox 

Since the junior version uses 
the 80 character per line mode 
Only, it produces 35 character 
maximum lines. The result Is 
more than adequate for most 
applications but is utilitarian 
-compared to the custom de- 
signed look produced by the 
Microline 80 version. 

Listings Compared 

The two listings do not resem- 
ble each other at all. Cassbox is 
dense, while the junior version 
looks simple. The programs use 
the same variable and constant 
names wherever possible. 
Studying the junior version will 
show you the mechanics of the 
fancier Cassbox. This will help if 
you need to modify Cassbox for 
a different, maltl-font printer 
(such as the Epson or the Base 
2). The M80 printer control codes 
are translated early in Cassbox 
(lines 220-280) into constants 
used frequently in the program's 
LPRINT section. Exchanging 
M80 codes with those required 
by your printer makes the con- 
version a cinch. You will still 
have to fiddle v/ith the line 
lengtlis. 

Th^ listings are pain free. You 
can use the Auto command to 
the end without being caught by 
, an out-of-series line number and 
not one REM statement is the 
target of a GOTO or GOSUB. 
Leave them out if you w^lsh, or 
put them in later. Cassbox is as 
bombproof as I could make it. 
Cassbox has few instructions 
and Baby Cassbox almost none. 
Simple prompts are built in. 

The Program 

The initialization section of 
Cassbox, down to line 280, con- 
tains almost everything used in 
the program more than once, 
particularly strings. After the 
brief instructions, the program 
recycles itself if you forget to 
turn on the printer. At line 320 
the menu INKEY$ loop controls 
all of the action as follows: 



1 = Do Front 

2 = Do Back 

3 = Do Title 

4 = Edit Front 

5 = Edit Back 
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6 = Edit Title 

7 = Print 

8 = Erase All 



Input 

Starting with Option 1 you will 
be prompted to input up to 13 
lines under a format line. The 
format line shows the maximum 
distance you can type in any 
character size as well as the 
middle points for those sizes. 
The two-column format is useful 
for listing programs or songs in 
two equal columns. 

The program will not stop you 
from entering a line too long for 
the character size selected, but 
the LPRINT section will backoff 
the surplus text without mercy. 

After entering the text hit 
Enter a few times to reach the 



bottom of the screen. Another 
Enter will bypass the invitation 
to edit and return you to the 
menu to do the insert back or ti- 
tle section. 

Before you Do Back, try Edit 
Back. Line 16 has a sample 
message for routine printing. 
Change this string, initialized on 
listing line 190, to your name. 
The message will always be 
printed unless you add so many 
entries on the back that line 16 
is overwritten. To skip the 
message, use the Erase All 
selection to wipe it clean. 

To Do Title Cassbox asks: 
"One line or two?" This wrinkle 
was demanded by my son the 
rock 'n roll fan and his friends 
who wanted to show both group 
names and album titles clearly. 



After inputting the lines you 
will be asked if you want to 
change anything before return- 
ing to the menu. Do not feel 
pressured; you can make 
changes later too. 

Editing 

If you goofed in line 8 on the 
front, just Edit Front, hit the 8 
key and presto— you see every- 
thing down to and including line 
8. The question mark shows you 
are in the input mode. You will 
have to retype the whole line for 
any correction. After Enter, if 
you have no more changes an- 
other Enter brings you back to 
the menu. 

Printing 

The Print command first asks 



Program Listing 1 



CASSETTE BOX LPRINTER 
BY CHftBLES E. GILLEN 

U.S. EMBASSY, SEOUL, ROK 
APO SAN FRAN 96301 

( VERSION 9, 24 JUL 81 ) 



100 

110 

120 

130 

140 

150 

160 

170 

180 REM IKITIALiaATION 

190 CLS!CLEAR20a0;DEFINTA-Z:DIMPLS[19) :AR5=CHR5 (9 2) iGBS-CHHS (176) !CLS='CHAN 

GE LINE NUHBER":CUS-" CUT":FOS=" FOLD" : PLS (16) =' SSFROM: THE GILLEN COLLEC 

TIOH' 

200 F1S='E«D POINTS: BIG = ■+ARS+' MEDIUM = "+ARS+" 

SMALL - ■+ARS+CHRS(1991 +" ■+GBS + "BIG »"+GBS+"MED "+GBS + "SML 

___g ":F2¥^"** " 

2J0 DLS=CHRS(124)+STRINGS(39,"-"j+C}iR5(124) :BLS="DO NOT TYPE A COMMA OR A C 

OLON'+STRING?(2,10|+"START LINE: @ = CENTER, AND/OR t = BIG, S = MEDIUM 

":PSS=STRINGS(63,",") 

220 REH CONTROL CODES FOR HICROLINE-SO PRINTER 

230 BIGS=CHR5(31) ' DOUBLE WIDTH CHARACTERS, 40 CPL 

240 HEDS-CHRS(30) ' NORMAL 10 CHARACTERS PER INCH, 80 CPL 

250 SMLS-CHRS[29) ' CONDENSED 16.5 TO THE INCH, 132 CPL 

260 S6S=CHRS(27] +"6" ' SPACE SIX LINES PER INCH 

270 S8S-CHRS(27)+"e" ' SPACE EIGHT LINES PER INCH 

280 SL5=CHRS(27)+''B" ' PRINT SHORTER LINE (TAB IN FROM EDGE} 

290 REH GET INSTRUCTIONS, CHECK PRINTER OK 

300 GOSUB650 :IFPEEK( 14312) :-255THENRUN 

310 REM MENU MAIN LOOP 

320 CLS:PRINTPS5:PRINT@215,"1 = DO FRONT" : PR1NTTAB( 23] "2 = DO SACK" :PRINTTA 

B[23)"3 - DO TITLE" jPRINT;PRINTTAB(23] "4 = EDIT FRONT' :PRINTTAB ( 23) "5 = EDI 

T BACK"[PRINTTAB(231 "6 = EDIT TITLE" :PRINT: PRINTTAB( 23 ) "7 = PRINT" 

330 PRINT:PRI(JTTAB(23) "8 - ERASE ALL" : PRINTe960 , PSS; 

340 IN-VAL{INKEYS) !ONINGOTO380 , 430 , 480 , 400 , 450 , 510 , 550 , 360 :GOTO340 

350 REM ERASE STRINGS IN MEMORY ON COMMAND 

360 F0RNL=1T019:PLS(NL1 ="' : NEXT:GOTO320 

370 REM DO FRONT 

3 80 CLS:PRINTi648,BL?:PRINTPSS: PRINT: PRINTF1S:FORNL=1T013:PRINTUSINGF2S;NL; 
:INPUTPLS(NL) :NEXT 

390 REM EDIT - DISPLAY FRONT 

40 CLS:PRINTF1S:F0BNL=1T013;PRINTUSINGF2S;NL; : PRINT" "PLS (NL) :NEXT 

410 LCS = "":PRINTe9 83,CLS;:INPUTr.CS;GOSUB93 0:IFCL=0THEN320El.SEIPCL<lORCL>13T 

HEN400eLSECLS!PRINTFiS:FORNL=lTOCL:PRINTUSINGF2 5;NL;TPRINT" ■PLS(NL) :NEXT: 

PRINTUSINGP2 5;CL; : INPUTPLS (CL) :GOTO4 

420 REM DO BACK 

43 CLE:FRINT@256,BL5:PRINTPSg:PHINT;PRINTF15:F0RNL=14TO17:PRlNTUSINGF2S,-NL 

,- ;INPUTPLS(NL) : NEXT 

440 REM EDIT - DISPLAY BACK 

450 CLS:LCS='"!PRINT@2 56,F1S!F0RNL-14T017:PRINTUSINGF2 5;NL;:PRINT" "PLS(NL 

) : NEXT: PRINT e9 83, CLS; : INPUTLCg:GOSUB93 : IFCL=0THEN320ELSEIFCL<14ORCL>17THEN 

450 

460 CLS:PRINTBLS:PRINTFlS:FORNL=14TOCL:PRINTUSINGF2S;NL;: PRINT" ■PL5(NL) :N 

EXT:PRINTUSlNGF2S;CLf : INPUTPLS (CL) :GOTO450 

470 REH DO TITLE 

480 PRINT@343,"1 OR 2 LINES?" ;: GOSUB950 : TL=VAL (INKEYS) : IFTL<1ORTL>2ORTL-0TH 

ENPRINTe343,CHRS{20e) ; : GOSUB950 :GOTO480ELSE4 90 

4 90 CLS :PRINT§256,BLS: PRINT jPRINTFl 5: PRINT" 1 "; : INPUTPLS (18) : IFTL="2THENPR 
INT'2 "jilNPUTPLSdS) 

500 REH EDIT - DISPLAY TITLE 

510 CLSiLCS-"" : PRINT i 2 56, Fl 5: PRINT"! ";PLS(181 : IFTL-2THENPRINT" 2 "i 

PLS(19) 

520 PRINTe983,CLS; : INPUTLCS:GOSUB93 j IFCL=0ORCL>TLTHEN320 

530 CLS:PRINTBLS!PRINTF1S!IFCL=1THENPRINT"1 "PLS (18) : INPUT" 1 "(PLS (18 

) :GOTO510ELSE1FCL-2THENPRINT"1 "PLS(18) :PRINT-2 "PLS(19] ■INPUT"2 

";PLS(191 :GOTO510 

540 REM LPRINT SECTION 

550 PRIKTe727,"HOW MANY?" ; : GOSUB950 : PR=VAL ( INKEYS) : IFPR=0THENPRINTi727 ,CHRS 

(202) ; :GOSUB950!GOTO550ELSEFORHM=1TOPR 



Listing 1 Continues 



Listing continued 



':F0RNL=1T013:G03UB7 8B:NEXT!LPRINT' 



■iLP 



):LPRINT" ":GOTO61BELSEGOSlIB7a0:LPRINT 



';lpr:htsmlstab( 



: PRINT 
= 17 LETTERS/LINE 
= 35 LETTERS/LINE 

- 57 LETTERS/LINE 
THEN ADD S 



560 REM LPRINT FRONT 

570 LPRINTSeSMEDSSLSDLSCUSi LPRINT" 

RINTHEDSSaSDLSFOS 

5B0 REM LPHINT TITLE 

590 NL=1B:IFTL=1THENLPKINT" ":G0SUB7! 

* ■:NL=19;GOSUB7B0 

600 REM LPRINT BACK 

610 LPRINTS6SHEDSDLSFOS:FORtiL = 14T017:G0SUB7 80: NEXT: LPRINT' 

18] 'DESIGN S PRINTING: TRS-80 COMPUTER" :LPRINTHEDSDI.5Cl)S 

620 REM PRINT AGAIN OR ADVANCE PAPER 

630 LPRINT" ":LPKINT" ": NEXTHH : F0RLF=1T04 : LPRINT" " :NEXT:GOTO320 

640 REM PROGRAM INTRODUCTION - INSTRUCTIONS 

650 CLS:PR1NTPSS:PR1HT(S393,"LPRINTER FOR CASSETTE BOX INDEX CARD IHSBRT'lPR 

INT 

660 PRINTTAB(91 "AN ORIGINAL FOR THE MICROLIHE-BO PRINTER" :PRINT! PRINTTAB 

(2B)"BY CHARLES E, GILLEN" : PRINT?960 , PS5 ; : FORTD=1TO1500 : NEXT: CLS 

670 PRINT"YOU CAN LPRINT: 13 INDEX LINES ON THE FRONT" :PHINTTAB(19 ) " 4 L 

INES ON THE BACK" : PRINTTAB (19) " TITLE IN 1 OR 2 LINES" 

6B0 PRINTPES:PRINT"IN THREE DIFFERENT CHARACTER SIZES:' 

690 PRINT"BIG: BEGIN LINE WITH I SYMBOL MAX 

700 PRINT"MEDIl]H: BEGIN LINE WITH S SYMBOL MAX 

710 PRINT"SMALL: JUST TYPE AS USUAL MAX 

720 PRINT;PR1NT"F0R flUTO-CEHTERING, FIRST SYMBOL MUST BE 

R S": PRINT 

730 PRINT"A FORMAT LIKE WILL SHOW CENTBR "GBS" AND BBD "CHRS(92)" POINTS PO 

R EACH SIZE";PHINTPS$ 

740 PHINT:PRINT"TURN ON PRINTER"TAB ( 43 ) " AND HIT < SPACEBAK >"; 

750 IFINKEYSO" ''THEN750ELSEC:LS:RETURN 

760 REM LPRINT SUB-ROUTINE FOB UNCENTERED S CENTERED LINES 

770 REM NOTE THAT LINES TOO LONG GET CUT TO RIGHT SIZE 

7S0 LL=LEN(PLS|NL) ) :IFLEFTS(PLS(NL1 ,l)="@"THENe30 ' GO CENTER 

790 IFLEFTSIPLSIHL) ,1)="I"TBBNI,PRINTBIG5'' "HIDS (PL5 (NL) ,2 ,17) :RETURN ' 40 

CPL 

800 IPLEPTStPLS{NL) ,1)="S"THENLPRINTHEDS' "MIDSfPLSCNL) ,2,35) JRETUHN ' 60 

CPL 
eie LPHINTSHLS" "LEFTS{PLS(NL) ,57] :RETURN ' 132 CPL 

B20 REM LPRINT CENTERED LINE IN 40, 80 OH 13! CPL 
830 TLS=PLS(NL) :LL=LEN(TLS1 : IPHIDS (TLS , Z , 1) <>"* "THEN860 
840 IFLL>19THENLL=19;TLS=LEFTS(TLS,19) ' COT IP LONG 
65 TB=(25-LL)/2:LPRINTBIGSTAB(TB)MIDS{TLS,3,17) ;GOT09ia 
86 IFMIDS(TLS,2,1) <>"S''THEN890 
870 IFLL>3 7THENLL='37:TLS=LEfTS(TLS,37) 

880 TB=[45-LL)/2:LPRINTMEDSTAB(TB)M1DS(TLS,3,351 :GOTO910 
890 IFLL>58THENLL=59;TlS=LEFTS(TlS,5 8) 
90 TB=(7 2-LL1/2:LPRINTSMLSTAB(TB)MIDS(TLS,2,57) 
910 PLSINL) -TLS:RETURN ' S DO NEXT LINE 
920 REM "REDO" TRAP, BACK TO MENU 
930 IFVAL(LCS1 =0THEN320ELSECL=VAL(LCS) :RETURN 
940 REM BLINKER FOR TITLE, PRINT INPUTS 
958 F0RTD=lT09fl:NEXT:RETURN 



"How many?" You can run off a 
maximum of nine copies per 
Print command. This section is 
the only complicated part of 
Cassbox. The action begins 
when line 780 in Listing 1 
measures the length of a text 
line and jumps to the centering 
routine at line 830 (If the first let- 
ter is the @ symbol). If centering 
is not called for, lines 790 and 
800 print in the double-width or 
normal 80-coIumn mode, or line 
810 prints a condensed line. 

The MID$ function is used to 
skip over the size flag and to 
hack off any excess length. The 
MtD$ function is also used in the 
center and print section in tines 
830-910. This part is a bit in- 
volved, but if you modify Cass- 
box for a different printer rather 
than using Baby Cassbox, pay 
attention to the number of tet- 
ters the lv1ID$ action will print 
(the last number inside the MID$ 
parentheses). Your printer may 
print a different number of char- 
acters for each size mode. You 
will have to change that number 
and the amount of tabbing. 




TRS-80 
64-K $ 

26-400^ 

8 4 MEGABYTE HARD DISKS (PRIMARY UNIT)$4000 



WE ALSO CARRY EPSON AND OKIDATA 
PRINTERS, XEROX 820 AND 

ALTOS COMPUTERS. 
NO OUT-OF-STATE TAXES 

Sold with the manufacturer's limited warranty. Copies 

of such warranty may be obtained for review from 

Perry Oil and Gas Co. 



WE ACCEPT 

CERTIFIED CHECKS, 

CASHIERS CHECKS 

AND MONEY ORDERS. 



iiilKSi£:^~MMi^afejM^afcfSS^KSt*i 




1 fi-K 

TRS-80 COLOR 26-3oo4' 






COLOR DISK DRIVES 

0^475 12-3 »31 5 



T-? rr^.nn 



|I^^S%37 NORTH MAIN ST, PERRY. MICHIGAN 48872 C : . V" /, 

'^^^^^i/'Vi- PHONE f517) 625-4161, MICH. V . ."^24 

||ij(f ipflCES, PLEASE CALL TOLUFRee t?^P00-248-3M3 



■See List of Adi/erlisers on Page 455 
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If your printer is not an M80, 
see Fig. 2 for the control codes 
used in Cassbox. Replace them 
with the codes needed by your 
printer. 

Line 390 also contains an 
LPRINT CHR${27)"B" which 
tabs in from the paper edge. 
This was my personal prefer- 
ence and can be ignored. 

Th« Beginning Programmer 

The very first step in creating 
Cassbox was to measure an ori- 
ginal Insert card and then fool 
around with a few trial lines of 
Basic to see if I could LPRINT 
something to the same dimen- 



sions. These tests showed how 
long each printed line could be 
and how many lines I could fit on 
each part. Further development 
showed the need for help in for- 
matting via prompt lines, t 
worked out the concept of flexi- 
ble editing and things began to 
snowball. 

Not until I felt sure the 
original objective was within my 



programming ability did I try to 
get fancy with the different 
character sizes of the M80 
printer. The menu that makes 
Cassbox so easy to use was a 
very late idea. When the pro- 
gram seemed to work nicely I 
tried to rethink smalt bits of the 
Basic code in a more direct way. 
What sustained me through 
countless early versions of 



LPRINT CHR$(27)'-8" 


Set spacing a1 8 lines per Inch 


, LPRINT CHR$(27)"6" 


Set spacing al 6 lines per inch 


LPRINT CHR$(29) 


Print 5 letters per incti 


LPRINT CHRS(30) 


Print 10 letters per inch 


LPRINT CHR$(31) 


Print 16.5 letters per inch 


Fig. 2. Printer Control Codes 



Cassbox was the original simple 
goal I had set: to print any kind 
of text arrangement within the 
confines of the insert card size. 
As I went along, the original goal 
became more sophisticated and 
inspired better programming. I 
frequently dipped into the Level 
II Manual for syntax help. 
Always decide what you want to 
do, try to do it, then do it 
better. ■ 

Charles Gillen, after spend- 
ing most of tiis 20-year govern- 
ment service career abroad, 
tiopes to return to the U.S. 
soon to personally witness the 
microcomputer boom. 



1920 
1030 
1040 
1B50 
1B60 
107 
1080 

laga 

liBB 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

119B 

1200 

1210 

1220 

123 

1240 

1250 

1260 

127fl 

128B 

129B 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1386 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1460 

1490 

1500 

1510 

1520 

153B 

1540 

1558 

1560 

1570 

15 60 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 



BABY CASSBOX LPRINTER • 

THIS IS THE BARE-HONES VERSION • 

FOR ANY PRINTER * 

BY CHARLES E. GILLEN • 

U.S. EMBASSY, SEOUL * 

APO SAN FRANCISCO 96301 * 

( VERSION 2, 26 JULY 1981 1 * 



REM INITIALIZATION 

Cr,S:CLEAR10 00:DEPINTA-Z :DIMP1.S(19 

F1S = " C 

F2S = "1t* ■ 

CLS="CHANGE like NUMBER" 

DLE = "t''+STRINGS(39,"-'' 

blS-'-begin line with 
rem top of menu loop 

CLSiPRINT"! = DO FRONT 



■+CHRS(921 



FOR AUTO-CENTER. NO COMMAS OR COLONS" 



13 LINES 

LINES 
LIMES 



PRINT''2 = DO HACK 

PRINT'S = DO TITLE 2 LIMES'lPRIHT 

PRINT'4 = EDIT PROMT 

PRINT"5 = EDIT BACK 

PRINT"6 - EDIT TITLE":PRINT 

PRINT"? = PRINT": PRINT 

PRINT"8 = ERASE 

IN-VALIINKEYS) 

ONIHGOTO1340,1570, 180 0,1400, 1630, 1860, 2060,1290 ;GOTO1260 

REM ERASE MEMORY 

F0RNL=1T019 

PL5{NL) ="" 
NEXTNL 
GOTOlie0 
REM DO FRONT 
CLS : PRI NTBL S : PRI (JTFl S 
F0RNL=1T013 

PRINTUSINGF2S;NL; 

INPUTPLSINL) 
KEXTNL 

REM EDIT FRONT 
CLS;PRINTBLS:PRINTF1S 
F0RNL=1T013 

PRIN'EUSINGF2S;Nl,f 

PRINT" "jPLS(NL) 
NEXTNL 

LCS-"' : PRI NT 89 33, CLS; 
INPUTLCS:GOSUB203a 

IFCL=0THEN11S0 

IFCL<1ORCL>13THEN1400 
CLSiPRINTFlS 
FORNL=1TOCL 

PRINTUSINGF2S;NLr 

PRINT" -PL5(NL) 
NEXTNL 

PRINTUSINGF2S;CL; 
INPUTPLS(CL) :GOTO14a0 
REM DO BACK 
CLS:PBINTBLS:PRINTF1S 
FORNL=14T017 

PRINTUSIHGP2SiNL; 

INPutplS(nl) 

NEXTNL 

REM EDIT BACK 

CLSlPRINTBLSlPRINTFlS 

FORNL=14T017 

PRINTUSINGF2S;NL; 

PRINT" "jPLSlNLj 
NEXTNL 

LCS=""! PRI NT §9 83, CLS I 
INPUTLCStGOSUB2 03 

1FCL=0THEN1180 

IFCL<14ORCL>17THEN16 3 
CLS : PRINTBLS : PRINTFIS 
F0RNL=14T0CL 

PRINTUSINGP2S;NL; 

PRINT" "jPLSINL] 



176 NEXTHL 

1770 PRINTUEINGF2S;CL; 

1760 INPUTPLS(CL] :GOTO1630 

17 90 REM DO TITLE 

16B0 CLSiPfilNTBLSiPRINTFl? 

lelB F0RKL-18TO19 

1628 PHINTUSINGf2S;NL) 

1630 IKPUTPLS(NL) 

1840 NEXTNL 

1850 REM EDIT TITLE 

1860 CLSiPHINTBLSjPRINTFIS 

1870 F0RNI,=18T0i9 

188B PRINTUSINGF2 5;NI,J 

1890 PRINT" ",-PLS(NL) 

1900 NEXTNL 

1910 LCS-'"":PRINTi983,CL5; 

1920 INPUTLCS;GOSUB2030 

1930 IFCL=0THENlieB 

1940 IFCL<18ORCL>19THEKie60 

1950 CLS:PfiINTBLS:PRINTFlS 

1960 FORNL'ISTOCL 

1970 PRINTUSINGF2S;NL,- 

1980 PRINT" "PLS(NL) 

1990 NEXTNL 

20BB PfiINTUSINGF2S;CL,- 

2010 INPUTPLS(CL) :GOT01S6e 

2020 HEM 'REDO' TRAP AND BACK TO MENU 

203 IFVAL(LCS)=BTHEN1180 

2040 CL=VAL(LC5] iRETURN 

2050 REM LPRINT ROUTINE 

2060 PRINT@532, "PRINT HOW MANY?"; 

2B70 PRS=INKEYS 

2080 IFPRS=CHRS(13)THENlia0 

2B90 IFPRS=""THEN2 07 

2100 IFVAL|PRS)-0THEN1180 

2110 REM LPRINT LOOP. HM - NUMBER OF COPIES 

2120 F0HHM=1T0VAL(PRS) 

213 REM LPRINT FRONT 

214B LPRINTDLS;" CUT" 

2168 LPRINT" " 

2160 F0RNL=1T013 

217B IFLEE-TS(PLS(HL) ,l)-"e-THENGOSUB2 450:GOTO2190 

2180 GOSUB2510 

2190 NEXTNL 

2200 LPRINT" ■ 

2210 LPRINTDLS;' FOLD" 

2220 REM LPRINT TITLE 

2230 NL=18!lFLEFTS|PLS(NL) ,1) =" @"THENGOSUBZ450 :GDT0225e 

224B GOSUB2510:GOTO2250 

2250 IFTL=1THENLPRINT" ":GOTO2280 

2260 NL=19:IFLEFTS(PLS(NL1 ,1| =" e"THENGOSUB2450 :GOT0228t 

2270 GOSUB2510 

2280 LPRINTDLS;" FOLD" 

2290 REM LPRINT BACK 

2300 FOR NL-14T017 

23lfl IFLEFTS(PLS(NL) , 1) =" e"THENGOSUB245a :GOTO2330 

2320 GOSUB2510 

233B NEXTNL 

2340 LPRINT" ":LPRINT" * 

2350 LPRINTDLS:' CUT" 

^ ^ fi fl T PR I NT " " 

237B NEXTHM ' LPRINT ANOTHER COPY IF NEEDED 

2360 REM ADVANCE PAPER IF NO MORE LPRINTING 

2390 FORLF^lToe 

^400 LPRINT* ' 

2410 NEXTLF 

2420 REM ALL DONE. BACK TO MENU LOOP 

2430 GOTOil80 

2440 REM CENTER THE LINE 

2450 TLS=MIDS(PLS(NL) ,2,35) 

2460 LL'LEN(TLS) 

2470 TB=(43-LL)/2 

2480 LPRINTTAB(TB)LEFTS[TLS,35) 

249B RETURN 

2500 REM LPRINT ONE LINE 

251B LPRINT" 'LEFTS (PLS (NL) ,35) iRETURN 



Program Listing 2 
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HARDWARE 



Make your own MX-80 cable! 




James H. DeFrancis 
404 Garland Road 
Wilmington, DE 19803 



I recently ordered an Epson MX-80 printer 
and printer cable by mail. On delivery the 
printer cable tiad not been Included in the 
stiipment. The omission was easily cor- 
rected with a simple phone call, but I could 
not bear to wait another 7-10 days for it to 
arrive. Therefore, 1 decided to assemble my 
own cable. 

The assembly is simple. You need three 
components: approximately five feet of 
34-conductor ribbon cable; a 34'position 
card edge connector; and an Amphenol 



Radio Shack 




Epson 


Pin # 


to 


Pin # 
1 


1 


3 




2 


5 




3 


7 




4 


9 




5 


11 




e 


13 




7 


15 




8 


17 




9 


21 




11 


23 




12 


25 




13 


2 




19 


4 




20 


6 




21 


8 




22 


ID 




23 


12 




24 


14 




25 


IS 




26 


18 




27 


20 




28 


22 




29 


24 




30 


28 


Table 1 


32 



#57-30360 38-contact connector plug. 

If you do not have these in your spare 
parts box, you can purchase them from your 
local electronics retailer or computer store 
for approximately $5 each. 

The Model III printer card located in the 
right rear bottom of the unit is not labeled. 
You have to identify the contact points be- 
fore you can assemble the cable. 

If you look at the Model III from the rear, 
the printer card contacts read evenly from 
left to right, 2, 4, 6 and so on through 34. 
Directly behind these contacts on the op- 
posite side of the card the contacts read 
from left to right 1 , 3, 5 and so on through 33. 

Assemble the ribbon cable and edge card 
connector so the contact points match 
those of the printer card. The ribbon cable 
will extend out the rearof the Model III when 
it is in place. Match the contact points of 
the printer card connector to their appropri- 
ate contacts on the printer plug. Table 1 
lists the printer card contacts and appropri- 



ate printer plug contacts. Ijnilsted contacts 
are not used, so do not connect them. 

Before you connect the cable to your print- 
er check to make sure none of the contact 
pins on the connectors are touching more 
than one conductor lead on the ribbon cable. 

If you already own a Radio Shack printer 
cable, it will also work on the Epson, but it 
will not permit underlining, slashing zero, 
and so on. The Radio Shack cable's config- 
uration does not allow for separation of the 
carriage return and line-feed commands. 
The Epson cable does. You can modify your 
present Radio Shack cable to perform these 
extra functions by configuring it to the 
listing In Table 1. You will have to make 11 
disconnections. Table 2 shows the signal 
functions and their contact pin number tor 
the Model III and Epson contacts. ■ 

James DeFrancis is employed by E.I. Du- 
Pont and Co. His hobbies are woodworking 
and woodcarvmg. 



TRS-80 






Pin « 


Signal Function 


Epson Pin # 
1 


1 


STROBE— pulse to ciock data 


3 


DATA O—LSB of data byte 


2 


5 


DATA 1— bit 1 of data byte 


3 


7 


DATA 2— Oit 2 of data byte 


4 


9 


DATA3— bit Sol data byte 


5 


11 


DATA 4— bit 4 of data byte 


6 


13 


DATA 5— bit 5 ot data byte 


7 


15 


DATA 6— bit 6 ot data byte 


8 


17 


DATA 7— MSB of data byte 


9 


21 


BUSY— Printer cannot receive data 


11 


23 


PE — out ol paper 


12 


25 


SELECT—prinler is seiected 


13 


— 


ACKNOWLEDGE— byte tias been received 


23 


28 


ERROR 


32 


2,4.6,8,10,12 


GROUND 


19,20,21,22,23,24 


14,16,18,20,22,24 




25,26,27,28,29,30 


27,31,33,34 


Ail Others not used 

Jable 2 
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TUTORIAL 



Combine programs and conserve energy. 



Colo 




E. O. Gilliland, Jr. 
3470 Flintshire Drive 
Birmingham. AL 35226 



If you use a Color Computer 
the following discussion of 
memory allocation and pointer 
usage should provide two im- 
mediately useful capabilities: 
joining Basic programs, and 
maximizing available memory. 

You may have had a good rou- 
tine or subroutine in one pro- 
gram that you wanted to include 
In another. If you tried to load in 
the first program and then 
CLOAD the second without 
entering a New command you 
also found that CLOAD did a 
New command and prevented 
this method from working. This 



The Key Box 

Color Basic or 
Extended Color Basic 
Color Computer 
4K RAM or above 



Decimal Address 


Contents 


0-1023 


System use 


1024-1535 


Text screen memory 


1536-16383 


Program and variable storage 


40960-49151 


Color Basic 


49152-65279 


Cartridge memory 


65280-65535 


Input/Output 


Fig. 1. 16K RAM Color Basic Memory Map 



was not a limitation peculiar to 
the Color Computer. Manipulat- 
ing pointers in memory with 
PEEK and POKE commands can 
combine as many programs as 
you want. 

The "out of memory" mes- 
sage is particularly annoying if 
you already have the maximum 
amount of memory installed. If 
you are an Extended Basic user, 
you may be wasting up to 6K of 
valuable HAM. 

Memory Allocation 

The 6809 processor chip in the 
Color Computer can address 
64,000 memory locations. Each 
of these memory locations can 
store information in the form of 
an instruction to the processor, 
or data which the processor 
uses. To the processor and to Ba- 
sic, the Basic program is really 
data or information to operate on. 

Look at how Color Basic di- 
vides up memory. Refer to Fig. 1 . 
Basic programmers generally 
are concerned only with the 
memory area from address 1536 



to 16383 where the Basic pro- 
gram resides. The computer 
uses the rest of memory to read 
and process our instructions 
and output the results. Part of 
this memory is Read Only Mem- 
ory or ROM. The rest can either 
read or write data. The 16K of 
RAM in a 16K machine resides 
from address to address 
16383. The system uses part of 
this and it is unavailable to us. 

Two Important Basic Pointers 

Earlier, I referred to a range of 



addresses in memory from 1536 
to 16383 that could hold our 
Basic program. Since a Basic 
program probably will not fill all 
that space all of the time, a 
pointer tells Basic where a pro- 
gram ends. This pointer resides 
in memory locations 27 and 28 
and points two bytes to the right 
of our program's end. Since 
Basic programs can begin at 
various locations, a second 
pointer tells us where the cur- 
rent Basic program begins in 
memory. This pointer resides in 
memory locations 25 and 26. 

These pointers are change- 
able so we can load programs 
anywhere in the available mem- 
ory or combine programs as 
desired. 

Pointer Format 

Enter the command 



PRINT PEEK(25);PEEK(26); 
PEEK(27);PEEK(28) 



PRINT PEEK(25);PEEK(26);PEEK(27);PEEK(28) 


6 1 


6 3 


Pointer to beginning 


Pointer to end of 


of Basic program. 


Basic program. 


6 X 256 = 1536 


6 X 256 = 1536 


1x1 = 1 
1537 


3x1 = 3 
1539 


Address of beginning 


Address of end of 


of Basic program 


Basic program 


Fig. 2. Conversion of Pointer Addresses to Decimal Values 
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Four numbers should appear. 
The two numbers on the left con- 
stitute the pointer to the mem- 
ory address of the beginning of 
your Basic program. The two 
numbers on the right point to 
the ending address of your 
Basic program. 



Program A 

10 REM THIS IS PROGRAM A 
20 END 

Program B 

30 REM THIS IS PROGRAM B 
40 END 



Fig. 3. Programs which illus- 
trate appending two pro- 
grams in memory 



You must convert these num- 
bers to decimal addresses. Mul- 
tiply the left number of the pair 
by 256 and add the result to the 
right number of the pair. See Fig. 
2 for an example. To convert 
from a decimal address, divide 
by 256 and use that number as 
the left number; use the re- 



mainder as the right number. 

Mechanics: 
Combining Programs 

Enter and CSAVE the two pro- 
grams in Fig. 3. We will add 
program B to the end of program 
A. The programs are numbered 
to eliminate line number con- 
flicts. All of program A's iine 
numbers are less than all of pro- 
gram B's line numbers. This is a 
restriction for this method to 
work. The Renum command of 
Extended Basic should elimi- 
nate any problems. 

To combine the tv*/o pro- 
grams follow Fig. 4. CLOAD 
program A into memory. You 
may list it at this point or make 
any corrections. 

Now enter the command we 
used to look at the Basic 
pointers: 

PRINT PEEK(25);PEEK(26); 
PEEK(27); PEEK(28) 

Change the begin Basic pro- 
gram pointer to whatever the 
end Basic pointer is, less two 



bytes. Enter the POKE com- 
mand as shown in Fig. 4. The 
"less two bytes" is necessary 
because the end Basic program 
pointer is actually two bytes be- 
yond where we want to be. Be- 
cause this is a short program, 
we only had to POKE location 
26. In a longer program, we 
would have had to POKE loca- 
tion 25 also. 

At this point, if you enter a 
LIST command, your Basic pro- 
gram will disappear. The pro- 
gram is stiil there but Basic 
does not know it. 



After doing a CLOAD for pro- 
gram B, we can do a list and find 
that we have only program B. 
POKE locations 25 and 26 back 
to their original form. Now list 
the program. You now have both 
programs together. Now you 
can CSAVE or make changes. 

Reclaiming Wasted RAM 

This section is for Extended 
Basic users only, because Ex- 
tended Basic uses a slightly dif- 
ferent memory map. Figure 5 
shows eight pages of what is 
called graphics screen memory 



CLOAD"A" 

OK 

PRINT PEEK(25);PEEK(26);PEEK(27);PEEK{28) 

6 1 6 33 

P0KE26,31 

CL0AD"B" 

OK 

POKE26,1 

OK 



CLOAD program A 



Display the pointers 
Change Basic pointer 
CLOAD program B 

Reset Basic pointer 



Fig. 4. Procedure Appends Program B to Program A. PEEK 
gives different numbers if you use Extended Basic or if you 
i^ey in Program A with more or less spaces. Use those 
numbers rather than the numbers above. 



MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYSMISOSYS MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 2 



> 

(0 

o 

(0 

S 

CO 

> 
o 



>■ 

(0 

o 

CO 



|[j [jEfnpilar 

The "LC" Coi^iler provides a 
substantial subset of the C 
programming language with: 
Integer subset of C; has 

access to floating point 

ROM routines via functions 
All statements supported 

except: SWITCH-CASE, GOTO, 

TYPEDEF, STRUCT, UNION. 
Ail operators except "->", 

".". SIZEOF, {TYPENAME). 
Standard I/O redirection 

with device independence. 
Input using FGETS or GETS 

functions support JCL. 
Dynamic memory management. 
Sequential files open for: 

READ, WlJE, and APPEND. 
o LC Generates Z-80 EDAS-IV 

source code as output. 
o Z-80 "source" libraries in 

ISAM-accessed PDS files. 
Conpact, one-line conpiler 

invocation for easy use. 
Conpiled programs run on 

both Model I and Model III 
IN/LIB accesses graphics 

and LUOS entry points. 
LC/LIB includes: FPRINTF, 

PRINTF, ALLOC, FREE, SBRK, 

and String functions, 
LC: The Mod I/III version 

includes: LC/CKD, LC/LI8, 

FP/LIB, IH/LI8, EDAS-IV. 

XREF, and more than 200 

pages of documentation. 

Requires 2-drive 48K LDOS. 
Hod 143 for LOOS: J150+I4SS,H 




I 



MISOSYS MISOSYS MISOSYS MISOSYS MiSOSYS 



LDOS,Version5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5-1 is priced at $129,180 + $5,00 S&H per 
system. Deduct $35 if ordering both. 



^.DQS 



o 
< 

3 
CO 

o 

(0 

-< 
w 

SASOSIIAI SASOSII/U SASOSIIAI SASOSIIN SASOSIW 

Finally, user customized character sets for your 
MX-80 Graftrax and MX-100 printers. With GRAphic 
Support Package you create character sets usable 
from any and all applications. Create character 
sets of single-width, dojble-width, & I2-pitch, 
using the GRASP character editor, ALTCHAR. GRASP 
comes supplied with 7 character sets. Print Mod3 
special characters on your Epson! Set MX options 
from your keyboard. Invol<e underlining! Written 
by K.A.Hessinger & S.A.Loomer. GRASP: $50+$2S&H 



MISOSYS - Dept. M5 

P.O. Box 4848 

Alexandria, VA 22303-0848 

703-960-2998 

Dealer's Inquiry Invited 





cn 
O 
(/) 

-< 

EOAS, Version IV is the most C/> 

fantastic absolute address S 

assembler, bar none! It has: q) 

Assemble to disk or memory o 
from multiple source files W 
nestable to FIVE levels. ^ 

Assemble conditional code ^ 
with IF, IFLT, IFEq, IFGT, 5 
IFDEF, IFNDEF, IFREF to 16 ^ 
levels with IF-ELSE-ENDIF. ^ 

o Automatic search of SOURCE -< 
subroutine libraries saved ^ 
in ISAM-accessed structure 3 
to resolve references left (0 
undefined (requires PUS), O 

o One-level MACROS support 5< 
parameter substitution by (0 
position and by keyword, s 

o Local labels in both MACRO JJ 
expansions & PDS searches, q 

Supports +, -, *, /, .HOD. (0 
.AND., .OR., .NOT., .XOR. ^ 

Constants can be declared 
as base 2, 8, 10, & 16 or 1 
string, with more than one J^ 
value on a single line. 5 

15-char labels including -< 
special chars: &, ?, $, _ W 

Extensive cross-reference 3 
utility & EQU generation. 

Enter source in upper case 



(A 

O 



or lower case. Line editor *5 



has COPY, CHANGE, and MOVE 
Pseudo-OPs LORG, COM, PAGE 

TITLE, SUBTTL, SPACE. 
Model I/III for LDOS: UW 
Model I! for TRSDOS: $2Wi) 
Add $4 S&H + 4« VA tax. 



:SASOSIW SASOSin SASOSIW SASOSIIAI SASOSIN SASOSIIAI SASOSIIAI SASOSIH SASOSIW SASOSIW SASOSIW SASOSIIAI 



j^See List of Advertisers on Page 455 
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Creative Computer 



Department 80 

1236 E, Colonial Drive 

Oripindo Flnrifla 3?Rn3 USA 



Voice (305) 894-4744 

BBS 24 Hour (305) 277-0473 

Micronet 71555,520 



Milir"iiiiiiifii;ii %7'\]T 


w^^rr 


m» 


I^^^^^^^MM 


/. }-^0TER " 1 


E2 


1 CARTRIDGES 


,■ .,■ . ■/:■: 1 


lias's 'ifl^ 


Ma^Sm^ 


HB^HSMSjiilMB^^HH 


RADIO SHACK 
PRINTERS 






Daisy II Black 

Brown/Blue/Red 

LP 1-2-4 

LP 3 & S 

LP6&8 


10 For 24.95 
6 For 24.95 
4 For 18.95 
3 For 13.95 
3 For 13.95 


6 for 29.95 

N/A 


EPSON /IBM 




EPSON BRAND 


MX- 70/80/ 80 F/T 
MX-100 


3 For 16 95 
3 For 18.95 


18 95 
29.95 


OKIDATA 






80-82-83-84 




3 For 11.95 


CENTRONICS 






700/730/737/739/779 
ZIP PAK 


4 For 


18.95 





RADIO SHACK 
MODEL I & III' 



NEWDOS80 2.0 . . . .$139 

LOGS 5 1 105 

Maxi-Manager 84 

Maxi-CRAS 89 

Electric PenciHI 79 

Superscript 44 

Business Pac 100 94 

Library 100 39 

Money Manager 36 

GAMES 

Adventure International 
Big Five 1-5% Off 

Avalon Hill 2-10% Off 

Med System 3-15% Off 

Acorn 5-20% Off 

Epyx and Others 



RADIO SHACK 



Racet Fastback $ 69 

Business PaclOO 144 

CREATIVE COMPUTER 

Asset Depreciation ..$350/25 

Account Payatile 495/25 

Account Receivable . . 495/25 

General Ledger 495/25 

Inventory Control . . . 495/25 
Order Entry/Invoicing . 395/25 

Job Costing 495/25 

Yahtzee 24.95 

Buy 3 and get 20% off 

CALL TOLL FREE 



Over 100 Items 

We'll Beat Any Price 

On CP/M Items 



HARDWARE 



PRINTERS 

Epson MX 100 

Epson MX 80FT 

Epson MX 80 

OkidataBO 

Okidata82A 

Okidata83A 

Okidata84Par 

Okidata 84 Serial 

C. ltohF10-4aGPS . . . 
C. Itofi ProwriterPar . . 
C, Itoh Provi'riter Serial 
Smith Corona TP 1 . . . 



; 749 

579 

474 

349 

469 

.719 

1049 

1149 

1399 

495 

649 

649 



MODEMS 

Hayes Smart Modem . . . $245 

Hayes Clock-Cronograph 235 



Plastic File Box 50-5 v," $19.00 

Library Case 5%" 3.00 

LfbraryCaseS" 4.00 

Head Clean Kit 23.00 

Floppy Saver 11 95 

Floppy Saver Rings ... 6.95 

Green Screen I, II, III . . . 12.00 

Mailing Labels 5000 .' . $16.00 

-f Shipping 

—800-327-9294 



Write For Free Catalog 

Over 600 items in Diskettes, Paper. Lables. Ribbons, Checks. 
Storage Boxes. Furniture, Binders and Hardware. " -Mfg 
Trademark Florida plus 5% tax. 

FREE SHIPPING except tiardware. 

Most orders out in 24 hours with VISA, M/C, Money Order, 
Cashier Check, Bank Wire and C.O.D. Personal check over 
$150 allow/ 10-14 days. Mail order only. Prices subject to 
change 9-8 Monday-Friday. 9-6 Saturday. ,. i9 



from location 1536 to 13823. This 
Is used by Extended Basic to per- 
form high resolution graphics. If 
you are not using graphics in 
your program, you can use this 
space in your Basic program. The 
Extended B^ic manual covers 
this but leaves this one important 
point unclear. Unless you specify 
otfierwise, four pages of graph- 
ics screen memory are reserved 
for you. Unless your program is 
using graphics, this space is 
wasted. 

You can get back all but one 
page of this memory by enter- 



ing a PCLEAR 1. We can recoup 
that last page of screen mem- 
ory by POKEing locations 25 
and 26 to 1536: 

POKE25,6:POKE26,1 

Novi/ enter NEW. Displaying 
memory will show 14631, the 
same as on a 16K machine with- 
out Extended Basic. ■ 

Gill GiUiland is a systems 
analyst for South Central Bell 
Telephone Company. As ama- 
teur radio operator WD4BXA, he 
enjoys operating RTTY with his 
Color Computer. 



Decimal Address 




Contents 

Graphics Screen Memory 


1636-3071 




Page 1 


3072-4607 




Page 2 


4608-6143 




Pages 


6144-7679 




Page 4 


7680-9215 




Page 5 


9216-10751 




Page 6 


10752-12287 ■ ■. 




Page? 


12288-13823 




Pages 


13824-16383 




Program and variable storage 


Fig. 5. 


Graphics screen memory 



the HOW MMjimi & TELL, STEP by 
StEP boo ^M^P or TRS-80 and all 
' computers using Microsoft basic. 

' The breakthrough book for non-programmers... 
J businessmen and professionals who want to 
' solve in house problems by writing your own 
APppCC customized program... and the hobbyist with 
nOuL-OO the desire to get beyond the cassette and into 
O disk data storage and file manipulation. "DOS 
_ , Random Access A File Handling" is the plain ' 
D A C I P speaking, easy to read 150 page book for 
DMO I U learning HOW TO WRITE SPECIAL PROGRAMS 
for inventories, mailing lists, work schedules, 
record keeping and more. Your acquaintance 

I L/LI IN O instruction tutorial will assure quick progress. 



HANDLING' 



DSC Publishing 

2 Dogwood Drive 

PO Box 769 

Danbury, CT 06810 

Phone Order 
(203) 748-3231 




Please send me a copy ot "DOS Random Access 
& Basic File Handling" for 29.50*1 50 shipping. 
Model I & III □ Model ll/CPM n 
Also send the compatible 8" program disk for 
32.50 + 1.50 sliipping CPM a or Model II n 
or the 5V4" disk for Model I and III for 28.50 + 
1.50 shipping o 

Overseas add 8.00 per book and disk 
airmail. 

Name 

Address 

City 

State 



Zip 



Master Charge D 
Expiration Date . 
Card # 



VISA D 



Check D Money Order D 
cob (2.00 extra) n 

Signature 



Phone Orders (203) 748-3231 
CT. orders add 7.5% sales tax. 
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Introductory 
Price $1095. 

I'lub L1X diid shipping 



SEND FOR 

FREE 

BROCHURE 

Identify your model. 



A iulid stale 

disk emulator for your 

Apple*, TRS 80**, SlOO, 

or SS^O compuler 

Minicomputer speeds 
at Microcomputer Prices 

• A FAST mass storage device. Speeds up 
payrolls, receivables, word processing, or 

. any program requiring disk storagt.'. 

• No moving parts. Eliminates wailing on 
slow mechanical drives. 

• Standard 256K bytes of storage expandable 
to 1 megabyte. 

• Independent regulated power supply. 

• Autojnatic power failure detect and battery 
backup. 

• Hardwareerrordetection and write protect. 

• Drivers, diagnostics and utilities software 
provided. 



i* i%J!M/ INC. TeI.(617)648-17I7 

74 Appicton St., Arlington, MA 02 1 74 

■ Itade Mark Apple **Trade Mark Tandy Coip 



BIG DISCOUNTS ON TRS-SOtm COMPUTERS 




NO TAXES ON OUT I 
OF STATE SHIPMENTS I 



CALL FOR LOWEST PRICE QUOTES 
301-678-6000 

CONTROL DATA DISKETTES 



5/4" SS/DD 
8" SS/DD 



$2.95 EA 
$3.95 EA 



BUY 10 GET 2 FREE 

add S2.00 shipping charge per box of lO 

GOLF HANDICAPPING PROGRAMS FOR 
TRS-80 MODELS II & III 

HANCOCK TECHTRONICS 

33 W MAIN ST 

HANCOCK, MD21750 



REMIU 



COMPUTERGRADE 
100% ERROR-FREE .s^:;oi^^^ 
FULLY GUARANTEED" r:K 




***'; 



Generation 

h Frequency Response • Wide Dynamic Range > 

sed by Software Firms & Computer Hobbyists < 

Choice of Schooi Districts Nationwide • 



NGTH 12-PAK 24-P 

C-05 $ .69 $ .59 

C-10 $ .79 $ .69 

C-20 $ .99 $ .89 

C-30 $1.19 $1.09 

C-60 $1.49 $1.39 

C-90 $1.79 $1.69 

•CASES.... $ .21 $.20 

'Cases recommended to protect sensitive cassettes. 



— UPS bhlPPiNG- 

{No P.O. Boxes piease) 

$2.00 (12-pal^) $3,00 |24-pal<) 

—Canadian shipping multiply by 2— 

#1 COMPUTER TAPE 
IN THE USA! ■ 

, ^write for volume nrices — ■ 




/ *-< 



wHXS 
)0-528-6dStr 

ext. 3005 

In Arizona State 

1-800-352-0458 

ext. 3005 



i H 



.^ 



RO-80 TM INCI 



1 



E 2665 Busby Road 
lak Hartwr, WA 98277 
Distributors Wanted— 



■See List ol Adverfiserson Page 455 
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HOME/HOBBY 



Teach your children to add and subtract. 



Model II Math Skills 



Mike Kilroy 

6213 Concerto Court 

Dayton, OH 45449 



This article describes the 
math quiz program I wrote to 
help my lO-year-oid boys be- 
come more efficient with their 
simple math facts. The program 
picks random addition, subtrac- 
tion, multiplication, division, 
and combinations of aii these 
problems for the boys to prac- 
tice with. I did however have a 
slight problem with persuading 
them to practice the problems 
and not dissect my program. To 
solve this problem I disabled the 
Break and Hold keys with short 
machine-language routines. 

This program should also 
help you understand machine- 
language on your Model II a little 



better and at the same time 
hopefully help the kids become 
more efficient at their math. 

Using the Program 

To disable the Break and Hold 
keys the program jumps to the 
machine-language routines and 
then returns to Basic (see Fig. 
1), Next, the program asks you 
to select the subject you want to 
practice. Enter A for addition 
skills, S for subtraction skills, M 
for multiplication skills, D for 
division skills, or C for a com- 
bination of alt four skills. (Enter- 
ing X enables the Break key and 
ends the program.) Next, enter 
your skill level (1-10) and the 
number of problems you want to 
work (10-100). If you enter less 
than 10 for the problems, you 
will get 10, the minimum number 
allowed. Likewise, 100 is the 
maximum number of problems 
allowed. 

You are now ready to prac- 
tice. The various score keeping 
parameters appear across the 
top of the screen: the number of 
problems you have completed 
right and wrong, your present 
percent score, the number of 
problems left to go, and the 
time. The time is a running clock 



STARTER 

—00.15-43 PAGE1 



TYPE^F 



SunMay1019ei130 



BYTE1...5...10 ,15.-,20.,.25...30..,35..,40...45...50...55...60.„65 
...70...75.,.30...85...90...95..100 
R ^ 1 .1 CLS.LOAD SETBRK.LOAD HLDKEY.BASIC MATH -M:62000. 



LRL= 1 



Figure 1 



showing the time remaining to 
answer the present problem. It 
counts down from 50 to zero. (I 
also disabled the Hold key so 
that the boys would not hit the 
Hold key to stop the clock.) The 
purpose of the clock is to show, 
at the end of the practice ses- 
sion, how much time was spent 
on the problems. 

Problems are centered on the 
screen. A little saying appears 
at the bottom of the screen 
when you have typed in your 
answer. You may customize 
these sayings for your own 
children. There are two types of 
sayings; those given for correct 
answers and those given for in- 
correct answers. To answer a 
problem simply type in the 
answer and Enter, if you don't 
know the answer, the computer 
will help you. Type only an H and 
the answer will momentarily be 
displayed under the problem. 
Typing an H counts as one 
wrong, and you then have to 
type in the correct answer the 
computer showed you. 

Scoring 

After completing the prob- 
lems, the program tells you how 
many problems you did, how 
many wrong answers you en- 
tered, your final percentage 
score and your speed. It also 
asks for "dad's code." The 
speed figure is based on total 
time used in answering the prob- 
lems compared to the total 
amount of time available. If the 
speed is 60 percent it means 
that out of 50 possible time 
units available per problem. 



the boys used an average of 20 
time units on each (50x(1 - .6)). 
With Break disabled, the boys 
cannot clear the scores off the 
screen without my seeing them. 
When "dad's code" is entered it 
is not displayed on the screen. 
Also to prevent the boys from 
learning the code by looking on 
as I enter it, I've set this up to 
take 256 characters and search 
among all entered characters 
for the correct three-character 
long code! The code is defined 
in line 904. I use 435. 

Machine-Language Routines 

The two machine-language 
routines used in this program 
are called SETBRK and HLDKEY. 
They disable and enable the 
Break and Hold keys. The Model 
11 provides mini-subroutines in 
machine language called "su- 
pervisor calls" which do most of 
the work- (For background on su- 
pervisor calls refer to your Mod- 
el II Owners Manual, TRSDOS 
section, pages 4/9, 4/18 and 
4/20A.) 

The Hold key routine is short 
and easy to follow. Both this and 
the Break key routine are run right 
from the main Basic program. 

To disable the Hold key refer to 
Program Listing 1. Load register 
B with the number 1 (that line is 
stored at address F240 In the 
computer's memory), load reg- 
ister A with the number 13, '1 D' in 



The Key Box 

CBasIc 
Model il 
TRSDOS 



292 • 80 Micro, November1982 



hexadecimal (that line is stored 
at address F242), call the super- 
visor subroutine (this line is 
stored at address F244), then re- 
turn from this subroutine to Ba- 
sic (this line is stored at address 
F245). That's all there is to dis- 
abling the Hold key! The Model II 
does not make provisions for 
enabling the Hold key after you 
have disabled it. To re-enable it 
you must reset the computer. 

Break Key Processing 

The Break key processing is 
more complex. The manual ex- 
plains the enter and exit condi- 
tions after processing the Break 
key. The Break key's function is 
to send the computer off to a 
subroutine in its memory vi/hen- 
ever it is pressed. To do this, the 
computer must know where to 
jump to in memory as soon as it 
is pressed. Our subroutine dis- 
ables this jump when we do not 
want this key active and enables 
the jump again when we want it 
active. This supervisor call is de- 
signed exactly for this purpose, 
but we need separate routines 
to do each of these. The sub- 
routine shown in Program List- 
ing 2 starts at location F2B0. 
There are three parts to it; each 
is separately called from the 
main Basic program. 

The first part is at F2B0 to 
F2B4. This checks to see if the 
Break key is presently enabled 
or disabled. When you first run 
this program, address location 
P2BF will be zero. I use this ad- 
dress as a flag to tell me if the 
key is enabled or disabled; zero 
means the Break key is present- 
ly enabled; one means disabled. 
We load register A with the 
number at this location, transfer 
it to the memory location point- 
ed to by register HL, then return 
to the Basic program. The com- 
puter defines the address point- 
ed to by register HL as the loca- 
tion of our Basic program's X 
variable. (See page 3/144 of the 
Basic section in your manual.) 

Line 30 in our Basic program 
then checks if X is zero, or if the 
key is enabled. If it is, wejump to 
our subroutine starting at F2C0 
in memory to disable it. F2C0 
puts zero into register HL. In ad- 
dition we need to put the num- 
ber 3 into register A and call the 
supervisor routine with a CF 

^Sc'C List ol Adverlisers on Page 455 



F240: 06 01 LD B,01 


F242 


3E ID LD A,1D 


F244 


CF RST 08 


F245 


C9 RET 


Program Listing 1 



F2B0: 


3A BF F2 


LD 


A,(F2BF) 


F2B3: 


77 


LD 


(HL),A 


F2B4: 


C9 


HET 




F2B5: 


00 


NOP 




F2B6: 


00 


NOP 




F2B7: 


00 


NOP 




F2BB: 


00 


NOP 




F2B9: 


00 


NOP 




F2BA: 


00 


NOP 




F2BB: 


00 


NOP 




F2BC: 


00 


NOP 




F2BD: 


00 


NOP 




F2BE: 


00 


NOP 




F2BF: 


00 


NOP 




F2C0: 


21 00 00 


LD 


HL,000 


F2C3: 


3E03 


LD 


A,03 


F2C5: 


OF 


RST 


08 


F2C6: 


22 E7 F2 


LD 


(F2E7),HL 


F2C9: 


21 F2 F2 


LD 


HL.F2F2 


F2CC: 


3E03 


LD 


A.03 


F2Ce: 


CF 


RST 


08 


F2CF: 


3E01 


LD 


A,01 


F2D1: 


32 BF F2 


LD 


(F2BF),A 


F2D4: 


00 


NOP 




F2D5: 


C9 


RET 




F2D6: 


00 


NOP 




F2D7: 


00 


NOP 




F2D8: 


00 


NOP 




F2D9: 


00 


NOP 




F2DA: 


00 


NOP 




F2DB: 


00 


NOP 




F2DC: 


00 


NOP 




F2DD: 


00 


NOP 




F2DE; 


00 


NOP 




F2DF: 


00 


NOP 




F2E0: 


21 00 00 


LD 


HL,0000 


F2E3: 


3E03 


LD 


A,03 


F2E5 


CF 


RST 


08 


F2E6: 


21 02 60 


LD 


HL,6002 


F2E9: 


3E03 


LD 


A.03 


F2EB: 


OF 


RST 


08 


F2EC: 


3EO0 


LD 


A,00 


F2EE: 


32 BF F2 


LD 


(F2BF),A 


F2F1: 


00 


NOP 




F2F2: 


C9 


RET 




Program Listing 2 



command (line F2C5). As page 
4/18 explains, this wilt disable 
the key if and only if there pres- 
ently is no Break key program 
pointed to in memory. If there is 
a Break key already pointed to in 
memory, this command tells us 
where the present Break key 
subroutine Is located in mem- 
ory. This address will be located 
in the HL register. 

So far the program tells us 
where the old Break key program 
is located in memory. Save this 
old address in memory some- 
where so we can put it back to 
enable the key when we want it 
again. Address F2C6 saves that 
old address at memory location 
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Q REFWARE* Reference Software Division 

~ David C, Whitney Associates, Inc. 
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The highly-acclaimed word-finding program, now com- 
piled in machine language, lets you find in only a tew 
seconds synonyms for any of 24,800 nouns, adjectives, 
verbs, and adverbs. Substitutes synonyms in your own 
sentences. And helps you find the correct spelling of 
hard-to-spell words. 

Essential for anyone who uses a personal computer as 
a word processor to write letters, reports, articles, or 
books. rn 

Here is what reviewers say; _ 

"...impress people with your unlimited vocabulary ^ 

through the use of the Thesaurus programs. You'll sur- "n 

prise yourself with the amount of knowledge you will i- 

pick up as you go along." — Scftside, April 1982 • 

"...one of the pioneering reference tool programs." IJ 

—Interface Age, August 1982 z 

"...absolutely no programming knowledge whatsoever is ^ 
required..." — Computronics, April 1982 -p 

c 
"All this is done very fast; faster than a search "" 
through a conventional thesaurus..." — 

-80 Microcomputing, April 1982 ^ 
REFWARE THESAURUS 2.0 g 

24,800 adjectives, nouns, verbs, and adverbs assist you in -i 
choosing the most accurate words in your ads, letters, ^ 

reports, and speeches. — i 

• 

REFWARE THESAURUS Builder 1.0 ^J 

Series of eight Basic utility programs enables physicians, 2 

educators, lawyers, businessmen, or other professionals ^ 

to develop specialized computer thesaurus disk programs q 

of hard -to- rem ember technical words for personal use. > 

Functions independently of Thesaurus program. ^ 

REFWARE THESAURUS User's Manuals: Complete ^ 
descriptions of use of each of the above programs. In- 
cluded at no additional charge with each program listed 
above. 

MINIMUM System Required TRS 80" Mod I or Mod III 
48K with two disk drives. 

'A Trademark of Tandy Corporation 

Credit card orders phone (914) 238-8896 



Q Mailed First Class, but allow 3 to 4 weeks for delivery , no CO D. orders 
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F2E7 for later use. 

Now that we know the old ad- 
dress, we can disable the Break 
key in address F2C9 through 
F2CE, Remember, we want to 
disable Break and then enable it 
later. My approach is to point to 
my own Break key subroutine 
every time the key is pressed. I 
return from the subroutine each 
time the key is pressed. I put ad- 
dress F2F2, which is the ad- 
dress of a Return command, in- 
to register HL, then load register 
A with 3, then call the supervisor 



call. The number In register HL 

now becomes the new address 
of the Break key subroutine. In 
this case we have pointed to a 
Return command as the whole 
Break key program. 

Now, each time the key Is 
pressed the present program 
running in the computer will 
stop, and the computer will 
jump to this new Break key 
subroutine which tells it to 
return to what it was doing with- 
out any other action. The result 
is no more Break key! Address 



TRS-80 Model II DEBUG Program 

F240 06 01 3E ID CF C9 00 DO 00 00 00 00 00 00 00 00 ..>. 

Program Listing 3 



TRS«) Model II DEBUG Program 
F2B0 3A BF F2 77 08 00 00 00 
21 00 00 3E 03 CF 22 E7 
01 32 BF F2 00 09 00 00 
21 00 00 3E 03 CF 21 69 
F2 00 C9 00 00 00 00 00 



F2C0 
F2D0 
F2E0 
F2F0 



00000000000000 00 ;,.W 

F2 21 F2 F2 3E 03 CF 3E !..>.."..!..>..> 

00 00 00 OO 00 00 00 00 .2- 

00 00 00 00 00 00 00 00 !..>..!i'>..>.2 

00 00 00 00 00 00 00 00 



Program Listing 4 
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F2CF through F2D1 sets the flag 
to show that the key is presently 
disabled. Then we return to the 
main Basic math program with 
the Break key disabled. 

We enable the Break key again 
with the subroutine located at 
address F2E0 through F2F2. First 
we remove the present Break key 
processing program address by 
loading HL with zero, A with 3, 
and calling the supervisor call 
(RST 8). Next we load HL with the 
original saved address of the 
break processor. Notice we 
saved the original address at lo- 
cation F2E7. That put it right 
where we needed it for this en- 
abling routine! No need to get the 
address from elsewhere. We load 
HL with this address, load A with 
3, call RST 8 and we have re- 
stored the original function of the 
Break key. Again we set our flag 
to zero to Indicate the key is 
enabled. 

We need Basic's DEFUSR 
and USR() commands to make 
use of the machine-language 
subroutines from our Basic 
math program. The DEFUSR 
command defines the starting 
point of your machine-language 
subroutine (see page 3/32 of the 
owner's manual). You are al- 
lowed to define up to nine of 
these. I've defined four as line 
20 of the Basic program shows. 
The hexadecimal addresses and 
the starting point of each one of 
the machine-language subrou- 
tines we've just discussed match 
up. I use the USR command to 
return a one or zero from the 
subroutine located at F2B0 in 
memory as X. I use the remaining 
USR commands to force the 
computer to switch from Basic to 
my subroutines and then return 
to continue the Basic program 
where it left off. Returning to 
Basic from these subroutines is 
very simple: use a return {C9) in 
machine language. 

Debug 

Use TRSDOS Debug to enter 
the machine-language programs 
into the computer. First, type in 
Clear to clear all memory to pre- 
vent any confusion. To turn on 
Debug enter the command 
"DEBUG ON" in the TRSDOS 
ready mode. Enter ''DEBUG" to 
activate the Debug program (see 
page 2/25 in TRSDOS section). 



Now enter the machine-language 

programs I've listed in Listings 1 
and 2. I've relisted these two pro- 
grams in Listings 3 and 4 ]ust as 
they will appear after you type 
them in under the Debug pro- 
gram. The cursor will be blinking, 
waiting for a command in the De- 
bug program. Type H to list the 
legal commands available. Type 
M to enter the start address of 
our program. Then enter the ad- 
dress F240. Next press the F1 
key to move the cursor into the 
memory block. You are now 
ready to type in the machine-lan- 
guage program starting at ad- 
dress F240. Copy Listing 3 into 
the memory block and then press 
the F2 key to save this program In 
memory. Next, repeat this same 
procedure for the rest of the pro- 
gram beginning at address F2B0. 
After you have entered Listings 3 
and 4 type S to return to TRSDOS. 
To save on disk use the Dump 
command (see page 2/40A of the 
owner's manual). You need to 
give these programs names just 
like Basic programs. I've called 
them SETBRK and HLDKEY. 
The commands to save are: 

• DUMP SETBRK {START = 
F2B0, END-F2F2} 

• DUMP HLDKEY {START = 
F240, END = F245} 

Enter these commands to save 
what you just typed with the 
Debug program on your disk. 

Now you are ready to build a 
Do file to automatically start the 
math program. 

Do file 

The purpose of the Do file is 
to load these two machine-lan- 
guage programs into memory at 
start up, and then load Basic 
and your program. Fig. 1 shows 
the Do file ■'STARTER", which I 
built with the Build command. I 
reser^'ed all memory above 62000 
(F230 hexadecimal) for my ma- 
chine-language programs so 
they would not be interfered 
with by any Basic programs. 

You may then use the com- 
mand Auto Starter to automat- 
ically do the file Starter after you 
initialize the computer at turn on. 
That way all you need do is Enter 
the date and you will immediate- 
ly go to the math program with no 
steps in between. ■ 
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140 PRINT@430,A1;' 

150 PRINTe590,Al;' 

160 PRINT§750,A1;' 

170 PRINT§910,A1;' 



Program Listing 5 

18 'YOU MUST LOAD "setbck" AND "hldkey" FIRST . 

20 DEFUSR0=&HF240:DEFUSR1=SHF2C0:DEPUSr2=SHF2B0:DEFUSR3=6HF2E0 

30 X=USR0(X) :X=USR2(X) :IF X=0 THEN X=USR1(X) 

40 ONERRORGOTO930 

50 DEFSTR A,D,E;DEFINT P,T,X,Y, Z ,S:GOSUB450 

60 A1=CHRS(26) :A2=CHR5(25) !A3=CHRS(30) ;A4=CHRS(31) : AS^CHRS (150) :A6=CHRS{24) 

:A8 = " I HELPED 1 I " 

70 PRINTAljA4:CLS:PRINT@850,"MODEr. II MATH SKILLS" 

60 PRINT@1337, "Copyright Dec 15, 1980" 

90 PRINT@1581,"By Mike Kilroy" 

100 FOR T=0 TO 2000:PRINT@0,CHRS(02) :NEXT 

110 PRINTA3;A2:CLS:T1=0:T=0!T2=0:P4=0:P=0!P1=0:Q=0 

120 PRINTTAB{25)A1;" PICK ONE OF THE FOLLOWING ';A2 

130 PRINT@270,A1;"A";A2!"DDITIOK SKILLS " 

'S";A2;"UBTRACTI0N SKILLS " 

'M";A2;"ULTIPLICATI0N SKILLS " 

"D";A2;"IVISI0N SKILLS " 

''C'';A2"0MBINATI0N OP ABOVE" 
180 PRINT@1230,A1;" COMMAND " ;A2 ; CHR? ( 24) ;: INPUT A 
185 IFA="A"ORA="S"ORA="M"ORA="D"ORA="C"THENGOSUB350 
190 IFA="A"THEN260 
200 IPA="S"THEN1000 
210 IFA="M"THEN2000 
220 IFA="D'THEN3000 
230 IF A="X" THEN 920 
240 IFA="C"THEN5000ELSE GOSUB420 
250 GOTO180 
260 P=0:P1=0 

270 A7="+":Zl=X+y!G0S0B 700 

280 IFZ=ZlTHENP=P+l!GOSUB830 ELSEPl=Pl+l :GOTO320 
290 GOSUB430 
300 GOSUB400 

310 IFQ-P<0THEN860 ELSEIFP4=0THEN270 ELSE5000 
320 GOSUB840 
330 GOSUB430 
348 GOTO 27 

350 CLS:PRINT@900,A1;" ENTER SKILL LEVEL (1 TO 10) " ; A2;CHR5 ( 24) j 
360 INPUT S:IFS<1 OR S>10THEN GOSUB420ELSEGOTO360 
370 GOTO350 

380 PRINT@1220,A1; " HOW MANY PROBLEMS " ; A2;CHRS (24) ; : INPUTQ 
390 IF Q<10THENQ=10 ELSEIF Q>100THENQ=100 
395 T2=Q*50 

400 X=RND(S*10) :Y^RND(S*10) 
410 RETURN 

420 PRINT:PRINT:PRINT D(RND(10)) 
430 FORT=0 TO300:PRINT@0,CHRS(02) :NEXT 
440 RETURN 

450 D(0)="YOU DUMBY 1111 YOU CAN'T DO THAT" 

460 D(1)="WHEN YOUR BROTHER DIED THEY PROBABLY BURIED YOU 11!" 
470 D{2)="MY TOILET IS SMARTER THAN YOU" 
480 D(3)="yOU HAVE MARBLES FOR A BRAIN" 

490 D(4)="Y0U SMELL LIKE A SEWER, BUT THAT'S BESIDE THE POINTlllI!" 
500 D(5)="HHY IS IT THAT YOU DO SUCH IDIOTIC THINGS?" 

510 D{6)='You're as dumb as me unpluggedl 1 i 1 1 1 " 

520 D(7)="Hy you have pretty legs " 

530 D(8)="Why did you do that try again." 

540 D ( 9) ="You ' re mother wears army boots - but that ' s no excuse 1111" 

550 D(10)="Why not put at least a little effort into getting this right?" 

560 E(0)="Good job buddy" 

570 E [1) ="Gecraans are smart too" 

580 E(2)="Very good, chopsHlI" 

590 E(3)="You'Ee almost as smart as ME IIllI!" 

600 E(4)="What did you do plug your self into ray memorylll" 

610 E[5)="That away" 

620 E(6)="you look so ugly that nobody could tell your a math king" 

630 E(7)="when your brother died they probably buried himllll!" 

640 E(8)="Your a math king" 

650 E(9)="I'L bet your bad at spelling" 

660 E(10)="I wonder if you can spell as well as you are at math" 

670 RETURN 

6 80 PRINT@1056,A6jZ1;" ";A1;A8;A2 

690 T1=T1-50:Z=Z1:A8-" I HELPED 11 "jF=l!RETURN 

700 BS="':T=50;PRINTA4:PRINT@815, USING"#*#";X 

710 PRTKT@894,A7:PRINTe895, USING"#t#";Y 

720 PRINT@975,A5;A5jA5;A5;A5 

730 PRINT@1056,A6; :Y1=13:X1=16 

740 A0="" :A0=INKEY$!PRINT@(Y1,X1) ,A0; :GOSUB780:IF A0=""THEN740 

75 IFA0="H"THENGOSUB 6 80ELSEIFA0=CHR$ ( 08) THENX1=X1-1ELSEX1^X1+1 

760 IFA0=CHRS(13)OR A0="H"THEN Z=VAL (B$) :RETURN 

770 IFA0=CHRS(08)THENBS=LEFT5(B$,Xl-16) :GOTO7 40ELSEB$=BS+A0 !GOTO7 40 

780 T=T-1:PRINT@70,A1; "TIME";A2:PRINT@230,T;CHRS(02) ;IFT=0THENA8=" TIMES UP 

'':A0="H" 
790 P3-INT( ( (P-P1)/P)*10 0) :IFP3<0THENP3=0 

800 PRINTe0,Al; "RIGHT" ;A2; " " ;A1 ; "WRONG" ;A2 ; " ";A1; "PERCENT" ;A2; " ";A1;" 
TO G0";A2 

810 PRINT@161,P;" ".-PI;" ";P3;"%"!" " ; Q-P 
820 IFA0=CHR$(11)THEN110ELSE RETURN 

830 PRINT@1063,A1;" RIGHT " j A2 : PRINTei521 ,E (RND {10) ) 
835 Tl=Tl+T:RETURN 

840 IFF=0THENPRINT@1063,A1;" WRONG ";A2 
850 T1=T1-20:PRINT@1521,D(RND(10) ) :F=0:RETDRN 
860 CLS:P2=10-P1:IFT1<0THENT1=0 
870 PRINT@160,A1;" PROBLEMS ";A2;" ";A1;" PROBLEMS WRONG ";A2 

Listing conlinues 




TEACH YOUR 
CHILDREN 



ALPHA— Our best seller. Enhanced with larger letters 
and three excercises. Alphabet recognition for pre- 
schoolers 



ALPHA II — More alphabet excercises Find ihe dupli- 
cate letters; letters before and after, put in alpha- 
betical order 



SIGMA- Addition problems (or grades 1-3. 



SIGMA-EX— Addition problems for the younger or 
slower learner. 



SIGMA-82— Addition, subtraction, multiplication and 
division. Nine speed levels. Time left and total time 

constantly displayed. 

SPE-L— Spelling practice lor grades 2-4. 



Learning lo Count Money- A THREE PROGRAM 
SYSTEM THAT TEACHES THE IMPORTANT SKILL OF 
COUNTING MONEY SUPERIOR GRAPHICS (SOLD 
BY THE SET ONLY. 1 



Available on cassette only for TRS-80 Models I and Itl 
$5 95 each, iwo for $12.00, four for S21.00 Learning to 
Count Money — $19.95 



Add $1.00 to total order lor lirsi class shipment. 

MFrcFT Sytlcms 



VtSA 



87 SnootFi Itnt 
Hlcktvllle. NY I IBOI 



Coordinated 
Business Software 

D.B. Software Co. announces a new 
line of coordinated business software 
designed for the Mode! Ill TRS-80, 
The BASE system consists of a Gen- 
eral Ledger System with Accounts 
Receivable and Accounts Payable. 
Other modules can be purchased 
and added as needed. 

BASE System (GL-AR-AP) $200,00 

Coordinated ryiodutes: 

Payroll $ 75.00 

Order Entry SI 25.00 

Inventory $129,95 

Purchase Order Entry $1 25.00 
Inventory (special for 

Auto Parts Suppliers) $129.95 

Also available: 

Job Costing with GL and AP 

(Payroll optional) S500.00 

Mailing Lister $100.00 

Coming soon: 

Apartment Management System. 
Fixed Assets System, Manufacturing 
Inventory Management System 

Send S.A.S.E. for more information 
D.B. Software Co. 

1 1840 NE Brazee, Portland, OR 97220 

Phone (503) 255-7735 

DEALER INQUIRIES INVITED 

TRS-80 isatrademarkof Tandy Corp 



•See List ot Advertisers on Page 455 
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PROFESSIONAL 

FEDERAL INCOME TAX 

PROGRAMS 

FORTRS-80 MODEL 1,11 OR III 

Cuts manual production time by as 
much as 75%. 

Determines least tax quickly. 
Saves input information on disk-auto- 
matic transfer of essential information. 
Batch processing possible. 
Uses IRS prescribed computer generated 
print outs. 

Prohibits bypassing of mandatory entries. 
Accuracy assured by triple check logic, 
Enter only pertinent lines-faster than 
line by line. 

Single line correction with automatic 
update of succeeding totals. 
Professionally used-nationally advertised. 
Overlays available for 1040 & 1040A. 
Requires 2 disk drives & 48K. 

• BASIC PACKAGE $150.00 • 
INCLUDES1040,1040A,AND 

SCHEDULESASB 

EXTRASCHEDULES $35.00 

MANUAL AVAILABLE FOR $5.00 



'^■"1 MICRO-TAX 

PO Box 4262, Mountain View, CA 94040 

Call: (415) 964-2843 „33i 



Listing continued 

880 PRINTg326,Q, ,P1 : IFP3<0THENP3=0 

890 PRINTe960,Al;" YOUR SCORE IS: " ; A2;P3 ; "% " 

895 PRINT@1360,A1:" SPEED " ; A2; [T1/T2) *100 ; "%"■ 

900 BS="" :PRINT@1760,A1;" DAD'S CODE ";A2; 

902 D=INKEYS:IFD-""THEN902 ELSE B$=B$+D 

904 IF D=CHR$(13)THEK V^INSTR ( BS , "435" ) ELSE 902 

906 IF V=0THEN PRINT@1780 , "BAD CODE" :GOTO900 ELSE 110 

920 X=USR2(X):IF X=lTHEN X=USR3 (X) :CLS : PRINTCHR$ (30) ; "BYE 1 1 1 " 

925 STOP 

930 RESUME NEXT 

1000 P=0:P1=0 

1010 A7^"-":Zl=X-y:GOSUB700 

1020 IF Z=Z1THENP=P+1:GOSUB830 ELSEP1=P1+1 :GOTO1060 

1030 GOSUB430 

1040 GOSUB400 

1050 IPQ-P<0THEN860 ELSEIFP4=0THENl010 ELSE50Bfl 

1060 GOSUB840 

1070 GOSUB430 

1080 GOTO1010 

2000 P-0:P1=0 

2010 A7="X"!Z1=X*Y:GOSOB700 

2020 IF2=Z1THEKP=P+1:GOSUB830 ELSEP1=P1+1 :GOTO2060 

2030 GOSUB430 

2040 GO5UB400 

2050 IFQ-P<0THEN860 ELSEIFP4=0THEN2010 E.LSE5000 

2060 GOSUB840 

2070 GOSUB430 

2080 GOTO2010 

3000 P=0:Pl-^0 

3010 W=X/Y:W2=INT(W) :IFW2<>WTHEKGOSUB400 ELSE3015 

3011 GOTO301fl 

3015 Z1=W:GOSUB4000 

3018 Y1=13:X1=17 :GOSUB740 

3020 IFZ=Z1THENP=P+1:GOSUB830 ELSEP1=P1+1 :GOTO3060 

3030 GOSUB430 

3040 GOSUB400 

3050 IFQ-P<0THENB60 ELSEIFP4=0THEN3010 ELSESBBfl 

3060 GOSIIB840 

3070 GOSUB430 

3080 GOTO3010 

4000 B$="" :T=50:PRINTA4:PRINT@1215, USING" #t*" ;X 

4010 PRINT@1251, USING"##S";y; : PRINTCHRS( 169) : PRINT@1134 ,CHRS (152) ;CHRS(152 

) ;CHRS(152) ;CHR$(152) ;CHR${152) 

4020 RETURN 

5000 P4=1:P5=RND(4) :ONP5GOTO270 ,1010,2010,3010 



^.. !»/», v' -^iiA^^^aga^. 
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Extended BASIC 



iter 



T^flBW ""J 



Iw Wfflallljpicl 

For a Beet 




of Sof tv\^ar< 



Over 75 quality programs a 

for und^r /50 each! 

Ah. CHROMASETTE Magazine, the toast of the hoIid<^y 
season . . . and any season ! A subscript/on to CHROMASETTE 
Magazine consists of 6 to 8 premium programs ON CASSETTE, 
delivered by First Class Mail to you and your computer every month I 
Tutorials, utilities, games, and practical programs to usher in a great 
new computing ye^r! 

So, celebrate and get a subscription to CHROMASETTE 

Magazine! Or Just take a little sip and try a back issue. 



The Bottom Line: 

I year (12 issues] S45 00 

6 months (6 issues| S25.00 
Single Copies S 5 00 



Calif, residents add 6% to single copies 

rvJorth America — First Class postage included. 

Overseas — add SIO to subscriptions and SI to single copies 

Sent AO rate. 



MasterCard/ Visa 



The Fine Print: 

All issues from July 1981 available — ask for list. Programs are for the Extended BASIC model and occasionally for disks. 



"Ghltonwii^ett^ 



Magazine RO BoxIOS? Santa Barbara, CA 93102 (805)963-1066 



ims'&ii!iiii^Xf-i/M 
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^« TRS-80 
Model I 




Get 12 tapes OR disks a year containing over 75 quality programs — without knocking 
out your budget! 

We finally gave in . , . After over FOUR years of publishing some df the best (aren't 
we pompous), useful and fun programs on tape, we di'e now offering CLOAD 
Magazine on disk, tool 

A subscription to CLOAD Magazine (tape or disk) consists of 6 to 8 ready-to-load 

programs delivered by First Class Mail every month. What a winner! 

Fight high software prices — Get a subscription to CLOAD Magazine. Or just 
throw a single punch and try a back issue . . . 






■W lUHl ■*• «S 



The Bottom Line: 

1 year (12 issues) 
6 months (6 issues) 
Single Copies 
Back Issues 
Good Games # 1 
Adventures # 1 



Tape 

$50,00 
$30.00 

$ 6CX) 
$12.00 
$13.00 



Difk 

$95.00 

$55.00 

$1 I 00 
$23.00 
$24.00 




(805) 962-6271 

P.O. Box 1448 
Santa Barbara, CA 
93)02 



California residents add 6% to single copies. 

North America — First Class postage included 

Overseas — add $ 1 to subscriptions and $ I to single copies Sent AO rate 

The Ftne Print: 

All issues from Oct 78 available on tape Issues from Oct 82 available on disk, also Ask for list (24 Level I issues also available) 



MasterCard/Visa 



^See List of Advertisers on Page 455 
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Bigger volume and lower production costs now xpex]^ Lobo high 
performance disk systems and accessories even ts^s^ aflordabjLe. 



Whether your TRS-BO is a Model I, II, or ill, 
you'v6 probably wished for more disk capacity. 
Now Lobo gives you that— and much more— at 
low, manufacturer-direct prices, With uncom- 
promising quality, and the protection of Lobo's 
unique 1-year warranty. 





Special for Model I owners: 
the LX-80 Expansion Interface 

Radio ,Shack may have forgotten you, but 
Lobo hasn't! Our LX-80 expansion interface 
(plus LDOS operating system) gives your 
Model I more features and more expandability 
than a Model II or III. The sturdy steel enclosure 
fits under your monitor and adds: 

• 32k additional RAM 

• Interfaces for standard Radio Shack mini- 
floppy drives and Lobo tiigh-performance 
disk systems 

• Centronics-type printer port plus screen 
printer port 

■ Two RS-232C serial ports (optional) 

• Plus a real-time clock, sockets for custom 
ROM, and a heavy-duty power supply for your 
keyboard unit 

Discover the real power and potential of 
your Model I. with the bargain-priced Lobo 
LX-80' 
LX-80 with LDOS 

operating system (required) $510.00 
LX-80 without LDOS 

(for current LDOS users) S460.00 

Dual RS-232C serial port option $100.00 



LDOS: the ultimate TRSDOS- 
compatible operating system 

One of the few software products ever to 
receive a perfect box score from Infoworld 
magazine. The reviewer said: "LDOS 5.1 is 
awesome! ... It performs nearly perfectly , 
a straightforward and simple system to use 
, , , the best manual for software I 've ever 
seen or reviewed, bar none . . . This DOS takes 
the TRS-80 from the hobby category and 
endows it with features that many a so-called 
business system does not have, . . . LDOS 
offers unparalleled versatility and function,'" 

LDOS includes a powerful extended disk 
BASIC, smart terminal emulator, and many 
other useful utilities that make it worth far 
more than its low price. It runs on any Model 
I or Model (-1 w'!li af least one disk dhve. 

LDOS operating system 
(specify Model I or Model III) $129.00 



'© 1982 by Popular Compuling/ Inc. 
a subsidiary of CW Communications/Inc, 
Excerpted from INFOWORLD, 




Add-on 8" floppies for Model It 

Why pay Radio Shack prices to expand your 
Model ll's disk capacity? The Lobo 8202C2 
adds two 8" double-density floppy drives, for a 
total of 1.1 megabytes of additional storage. 
Installation and operation are identical, and 
you get the added benefit of Lobo's 1-year parts 
and labor warranty 8202C2 duahdrive 
8" floppy system for Mode! II $1269 00 



Add-on minifloppy drives for Model t 

Completely compatible with all Model I 
hardware and software, but with an extra 5 
tracks for data storage. Requires a Model I with 
either the Radio Shack expansion interface or 
the Lobo LX-80 (see left). 
4401C Add-on 5%" drive 
for Model I $305.00 

High-capacity minifloppy for LX-80 

An economical way to get a big storage 
boost for your LX-80-equipped Model I, The 
double-sided, 96 track/inch drive stores 720 
KB, and eliminates most tedious disk swapping. 
Model 4801C high-capacity S'A" drive 
for LX-80 $465.00 




Winchester disk systems for 
ModellandModeim 

The ultimate mass storage devices! Enor- 
mous capacity and impressive speed give your 
system a dramatic performance boost. Add the 
impressive file-handling capabilities of LDOS 
(included), and you can outperform systems 
costing far more. IMPORTANT: Many Winchester 
disks now being sold have no provision fertile 
backup. Lobo systems include a built-in high- 
density floppy dhve that can store the entire 
contents of the hard disk on just 6 or 7 floppies. 
This backup drive is also usable for additional 
on-line storage of programs and data. 



8 " floppy systems for Model I 
and Model III 

Tnese rugged dual-drive systems attach to 
ariy Model I with LX-80 expansion interface, or 
any Model III, and add the mass storage you 
need for the big jobs. Double density recording 
stores 535kB on one side of the disk. Using the 
LDOS operating system (required) you get full 
compatibility with standard TRSDOS plus 
greatly increased capabilities. 

8202C3 two single-sided drives 

(1.1 MB total) for Model III $1625.00 

8202CX same as above, for Model I 

with LX-80 (sold separately) $1249.00 

5202C3 two double-sided drives 
(2.2 MB total) for Model III $1925.00 

5202CX same as above, for Model I 
with LX-80 (sold separately) $1549.00 



SVa" Winchester System 

Compact and exceptionally reliable, with 
4.8 megabytes of high-speed Winchester stor- 
age plus a 720 kilobyte floppy drive. The value 
leader in mass storage. 
950T for Model HI or Model I 
with LX-80 (sold separately) $2675.00 

8 ' Winchester System 

Over 9 million bytes of storage accessible in 
milliseconds; 8.2 MB on an 8" Winchester drive 
and another 1.1 MB on the backup floppy drive. 
Unsurpassed for maintaining very large data 
bases. 

1850T for Model III or Model I 
with LX-80 (sold separately) $3459.00 



Ordering Information 

All prices include shipping and handling. 
California residents add 6% sales tax. Credit 
card orders shipped within 24 hours. Personal' 
checks require 2-3 weeks for clearance before 
shipment. Please allow up to 6 weeks for delivery. 



The Lobo Warranty 

All Lobo hardware products carry a lim- 
ited 1-year parts and labor warranty Call or 
write for complete warranty statement. 



TRS-80 and TRSDOS are trademarks of Tandy Cotporalion. 
© 1982 Lobo Drives Inlernatiorial 



TOLL-FREE ORDER NUMBERS: 
U.S. (except California) 

800-235-1245 

In California 800-322-61 03 or 

800-322-6104 Hou's 7AM~5PMPaciticTime 



1®B® 

drii/es 



w 



& 



INTERNATIONAL 

Prices subiecl to change wllhout nolice. 



itc for free catalog: 

Lobo Drives 

International 

Dept MC11 

358 S, FairviewAve. 

Goleta.CA 93117 
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LOBO'S NEW COMPUTER, THERE'S 



There's plenty to be excited about in Lobo's 
new MAX-80/" as you'll see in just a minute. 

But first we want to warn you: you can't 
get one right away. Already, orders are 
coming in faster tlnan we can build systems. 
However, if you can appreciate an incredi- 
ble price/performance bargain, you'll agree 
the MAX-80 is well worth waiting for. 
WHAT'S ALL THE EXCITEMENT 
ABOUT? 

We're glad you asked. And the answer 
is pretty simple. Just look at this list of 
standard features; 

• 5 MHz Z-80B processor. That's 2y2 times 
the speed of a TRS-80 Model 111 or Soft- 
Card/Appie! 

• 64k RAM. 128k is a low-cost option. 

• CP/M included. A few more dollars get you 
LDOS, an incredibly powerful operating 
system that lets you run standard Radio 
Shack software. 

■ Software-selectable 25 x 80, 16 x 64, and 
16 X 32 screen formats. For full compati- 
bility with CP/fvl and TRS-80 applications. 

• All disk interfaces built in. Plug in any 
combination of S'A" floppies, 8" floppies, 
and Winchester disk. 

• Two RS-232 serial ports. Ready to plug in 
modems, printers, or what-have-you. 

• Centronics-type parallel port. For any 
printer using this standard interface. 

*Plus: numeric keypad with 4 function keys, 
software definable text and graphics char- 
acters, built-in clock/calendar with battery 
backup, and buffered I/O expander port. 
Now for the best part: the factory-direct 

price for all ttiis power is just $820- 

including shipping and Lobo's standard 

1 -year hardware warranty! 

WHAT TO DO NOW. 

Call Lobo toll-free. Tell us what hardware 
and software configuration you're interested 
in (see below), and we'll give you an 
approximate shipping date A $100 deposit 
will hold your place on the waiting list. 

Then get a good book to help you pass 
the 






^ff^i 



i\i 









CPU and Accessories 



MAX-80 computer with 64k 
RAM and CP/M 


$ 


820.00 


64k expansion RAM 

(installed) 

1 2" (diag.) high-resolution 

anti-glare green phosphor 

monitor 


S 
$ 


95.00 
175.00 


LDOS operating system 
mstead of CP/M 


S 


39.00 


LDOS operating system in 
addition to CP/M 


S 


69.00 



Dual SVa" Floppy Disk Systems 

4402CM single-sided, 40 

track; 1 80 kB per diskette $ 690.00 

4802CM double-sided, 

80 track; 720 kB per diskette $1,175.00 

Dual 8" Floppy Disk Systems 

NOTE: Lobo CP/fyl permits reading and 

writing standard single-sided, single density 

CP/M disks with either of these systems. 

8202CM single-sided, double 

density; 577 kB per diskette $1 ,1 85.00 

5202CM double-sided, double 

density; 1 155 kB per diskette $1 ,485.00 

Winchester Disk Systems 

950M 5Va" system: 4.8 MB 

hard disk plus 720 kB floppy $2,405.00 



950MX same as 950M above 

but no floppy drive $2,1 00.00 

1850M 8" system: 8.0 MB hard 

disk plus 1155 kB floppy $3,085.00 



Ttie Lobo Warranty 

All Lobo hardware products carry a 
limited 1-year parts and labor warranty. 
Call or write for complete warranty 
statement. 



© 1982 Lobo Drives International, Goleta. CA 
CP/M trademafl^ ol Digital Research Corp. 
TRS-80 trademark of Tandy Corporation. 
SoftCard trademark of Microsoft Corporation. 
Apple trademark of Apple Computer. 
LDOS trademark of Logical Systems Incorporated. 

ALL PRICES INCLUDE SHIPPING WITHIN THE U.S.A. 
California residents add 6% sales tax, 

PayabiG by credit card check or money ordc 

TOLL-FREE ORDER NUMBERS: 

U.S. {except California): ^MgBk ■^■?ifi«*M^ 

800-235-1245 ^ -^ 

In California' 800-322-6103 or 

800-322-61 04 Hours. 7AM-5PM Pacific Time 



drii/es. 

INTERNATIONAL 

Rices subject In change witfiout notice. 



I 



Lobo Drives 
International 

Dept, MC11 

358 S, FairyiewAve. 

Golela.CA 93117 

^535 



^See List of Advertisers on Pagp. 455 
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GENERAL 



Modify Microchess for Model III play. 



Model III Microchess 



The Key Box 

Basic Level tl 
Model III 
16K RAM 



Mohan Embar 

1234 Folkstone Court 

Wheaton, IL 60187 



M 



icrochess 1.5, sold for the 
TRS-80 Level II computer, 



is a 4K chess-playing program. 
Included are three skill levels 
arid provisions to set up the 
board, castle king or queen side, 
capture en passant, change the 
skill level, play the next move. 







Program Listing 1. Assembiy Language 




00100 




* MICROCHESS FOR THE MODEL III * 




00110 


;BY 


MOHAN EMBAR 






00120 




1234 


FOLKSTONE 


CT 




00130 




WHEATON, IL 60187 1 




00140 












00150 


, * * * 


* * * 


***** 


***************** 




00160 


• * 




THIS 


PROGRAM WILL LOAD * 




00170 


. * 




MICROCHESS 


1.5 ON TO THE MODEL III * 




00180 


• -* 


IT 


REPLACES THE NORMAL MICROCHESS LOADER * 1 




00190 


. * 


TO USE, SET MEMORY SIZE TO 32670 AND ADVANCE * | 




00200 


. * 


MICROCHESS TAPE 


TO SECOND, LONG, MAIN PROGRAM * 




00210 


. * * -* 


* * -* 


***** 


***************** 




00220 












00230 




SET 


UP EQUATES 






00240 










01C9 


00250 


CLRSCR 


EQU 


1C5H 


fROM CLEAR SCREEN ROUTINE 


70C0 


00260 


HSTART 


EQU 


70C0H 




START ADDRESS FOR MICROCHESS 


7FA0 


00270 


MFINIS 


EQU 


7FA0H 




END ADDRESS OF MICROCHESS 


1997 


00280 


SNERR 


EQU 


1997H 




SYNTAX ERROR ROUTINE 


3C00 


00290 


SCREEN 


EQU 


3C00H 




START OF SCREEN MEMORY 


44EC 


00300 


RESIGN 


EQU 


44ECH 




INTERCEPT PROGRAM FLOW 


41FD 


00310 


START 


EQU 


41FDH 




ENTER MICROCHESS HERE 


40C0 


00320 


BEGIN 


EQU 


40C0H 




WHERE PROGRAM REALLY RESIDES 


4D88 


00330 


SPACE 


EQU 


4D88H 




CANCEL OLD SPACE CODE LOC. 


0EE0 


00340 


LENGTH 


EQU 


0EE0H 




LENGTH OF MICROCHESS 




00350 








1 




00360 




ROM 


CASSETTE I/O ROUTINES | 




00370 








1 


0293 


00380 


LFIND 


EQU 


293H 




FIND LEADER S SYNC BYTE 


0235 


00390 


INBYTE 


EQU 


235H 




INPUT A CASSETTE BYTE 


01F8 


00400 


HTROFF 


EQU 


1F8H 




TURN MOTOR OFF 




00410 


J 








■ 


00420 


' 


HAI^ 


PROGRAM 


Listing continues 



show the square numbers, ex- 
change sides and start a nev^r 
game. The graphics are nice too. 
Unfortunately, Microchess 
w/ill not run on the Model III. 
Eager for a challenge I under- 
took the task. 

My Investigation 

I disassembled the Model I 
Microchess loader to get some 
ideaof the tape format. A full de- 
scription is listed in Fig. 1, and a 
flov\/chart of the loader is pre- 
sented in Fig. 2. The conflict vi/as 
due to the new ROM in the 
Model ill. After disassembling 
the Model III cassette I/O rou- 
tines, I found these problems; 

• Microchess is loaded at 
starting address 40C0H (16576 
decimal), but 4210H (16912 deci- 
mal) is used for the cassette 
status byte. Thus one byte is 
overwritten and the system 
crashes, 

• The Resign command does 
not work. I think the Model III in- 
terrupts cause this. 

• The new special characters 
cause the spade character 
(ASCII code 192) to be printed in- 
stead of a space, which is the 
Model I counterpart to this code. 
I corrected most of this, but 
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not all. 

The Solution 

My solution to the first two 
problems is to load Microchess 
into high memory, turn off the 
tape recorder, disable the inter- 
rupts and block ioad the entire 
program back to 40C0H. This 
way 4210H wili be untouched. 
Since Microchess runs in 4K, ail 
addresses above 5000H (20480 
decimal) will be unused. 

After you resign, all memory 
addresses will be restored to the 



Leader 

255 zero bytes followed by an ASH syn- 
chronization byte. 

Main Program 

3808 bytes, to be loaded at addresses 
40COH-4FAOH 

Checksum Byte 
Oni3 byle sum ol dll 3808 bytes of main 
program, disregafding overflow 

Instructions 

1024 bytes of instructions to be loaded 
at video display addresses 3CO0H-3FFFH 

Fig. 1. Tape Formal of Microchess 1.5 



( START J 



INITIALIZE 

STACK. 

SP'SOOOH 



TURN MOTOR ON 



AMCASSl 
INPUT 4 SriE 
FROM CASSETTE 



( S TA R T ) 



INITIALIZE 

STACK 

SP'BOOOH 



TURN MOTOR ON 



AMCASS} 
INPUT BYTE 
FfiOV CASSETTE 



WD— A 

LOAo mo 





Fig. 2. Flowchart of Model I Microchess loader 




S'NTAX ERROR 




TURN MOTOR OFF 




1. 




1 




DISABLE 
-INTERRUPTS 




1 




BLOCK LOAD SBOB 
BYTES BY LDIR 
START = 70C0H 
OeST =40C0H 




1 




PATCH SESIQK 

COMMAND WITH 
FORCED ENTRY 




j 




CHANGE ASCII 
CODE FOR SPACE 




1 




JP 4IFDH 




1 





Fig. 3. Flowchart of Model II! adaptation of Ivllcrochess loader 

^See Lisl of Advertisers on Page 455 



TRS-80 " Model 1 & 3 

BASIC LANGUAGE SOFTWARE 

MAILING LIST 

Disk Version Only $69.95 

jMdintains mailing lists of up to 1326 
names, depending on capacity of your 
disk drives. Add, change, delete, find 
names. Sort by machine language on 
basis of any field. Up to 4 lines of 32 
characters allowed on label. Supports- 9- 
digit zip code. Labels printed in I, 2, J, 
or 4 columns with variable talis. 

HOME BUDGET 

Disk Version $49.95 

Cdssette Version $29.95 

Keeps irdi. k ol your family's in( ome and 
expenses. Prints mtjiithly and year-lo-date 

•-ummarios showini; tax deckirlions, 

SMALL BUSINESS ACCOUNTING 

D\sk Version $49.95 

Cassette Version. $29.95 

Based on Dome Bookkeeping Record 
#612, keeps track of intonie, expenses 
and payroll (disk version only) for a 
small business. 

Documentation to any program can bt- 
[Hirchased separately for $10.00. 
Specify TRS--80 Model 1 or 3. 
Sc-nd S.A.S.E. for FREE Catalogue. 
Add J i.OO for postage and handling. 

HOWE SOFTWARE 

14 Lexington Road, New Cilv NY 10956 

(914) 634-1821 ^''■> 

TflS-80 15 a registeied trademark of TanOy Corp 



Pep up your LIN€ INPUT 
routine ujith €-Z LING INPUT. 

The contents oFovoriable or© 
not destrovod iFLING INPUT is 
terminoted iinrnsdiotelg. Rll 
of the €DIT subcommands con 
bo used to edit them. LIN6 
INPUT con be terminated b^ 
the up orrouj, douin orroLU or 
enter kev ond the terminating 
ksi^ con be tested to olter 
program control. 

ONLV $^4.95. Supplied on 
cassette For the TR5-80 
Models I 5i II! Disk Basic 
systems. SpeciTy RAM. 
version luhen ordering. Send 
checH or money order to: 
HouuQrd Boiue 
16 Lombordi Place 
RmityviJIe, NV 11701 
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Listing continued 






00430 ; 










7FA1 




00440 


ORG 


7FA1H 


START OF LOADER 




7FA1 


310070 


00450 


LD 


SP,7000H 


INITIALIZE STACK 




7FA4 


11E00E 


00460 


LD 


DE, LENGTH 


LENGTH INTO DE 




7FA7 


CD9302 


00470 


CALL 


LFIND 


FIND LEADER 




7FAA 


21C070 


00480 


LD 


HL,MSTART 


START LOADING INTO HL 




7 FAD 


0E00 


00490 


LD 


C,0 


ZERO CHECKSUM COUNTER 




7FAF 


CD3502 


00500 INPUT 


CALL 


INBYTE 


READ A BYTE 




7FB2 


77 


00510 


LD 


<HL) ,A 


AND STORE 




7FB3 


81 


00520 


ADD 


A,C 


COMPUTE CHECKSUM 




7FB4 


4F 


00530 


LD 


C,A 


AND STORE IN C 




7FB5 


23 


00540 


INC 


HL 


INCREMENT POINTER 




7FB6 


IB 


00550 


DEC 


DE 


DECREMENT LENGTH 




7FB7 


7A 


00560 


LD 


A,D 


IS LENGTH EQUAL 




7FB8 


B3 


00570 


OR 


E 


TO ZERO ? 




7FB9 


20F4 


00580 


JR 


NZ, INPUT 


IF NOT, CONTINUE 




7FBB 


CD3502 


00590 


CALL 


INBYTE 


IS CHECKSUM 




7FBE 


B9 


00600 


CP 


C 


OKAY 7 




7FBF 


C29719 


00610 


JP 


N2 , SNERR 


IF NOT, GET LOST. 




7FC2 


21003C 


00620 


LD 


HL, SCREEN 


ELSE DISPLAY 




7FC5 


1640 


00630 


LD 


D,40H 


INSTRUCTIONS ON SCREEN 




7FC7 


CD3502 


00640 DISPLY 


CALL 


INBYTE 


, , . READ A BYTE 




7FCA 


77 


00650 


LD 


<HL) ,A 


DISPLAY IT 




7FCB 


23 


00660 


INC 


HL 


NEXT LOCATION 




7FCC 


7C 


00670 


LD 


A,H 


ALL DONE YET 7 




7FCD 


BA 


00680 


CP 


D 


TEST TO SEE. . . 




7FCE 


20F7 


00690 


JR 


NZ, DISPLY 


CONTINUE DISPLAYING 




7FD0 


CDF801 


00700 


CALL 


HTROFF 


TURN OF TAPE RECORDER 




7FD3 


F3 


00710 


DI 




DISABLE INTERRUPTS 




7FD4 


21C070 


007 20 REEKTB 


LD 


HLrHSTART 


TRANSFER MICROCHESS 




7FD7 


11C040 


00730 


LD 


DE, BEGIN 


TO WHERE IT 




7FDA 


01E00E 


00740 


LD 


BC , LENGTH 


REALLY GOES 




7FDD 


EDB0 


00750 


LDIR 




BY BLOCK LOAD 




7FDF 


21D47F 


00760 


LD 


HL,REENTR 


FIX RESIGN 




7FE2 


22EC44 


00770 


LD 


(RESIGN) ,HL 


COMMAND 




7FE5 


3E20 


00780 


LD 


A,20H 


■FIX BOARD DISPLAY 




7FE7 


32884D 


00790 


LD 


(SPACE) ,A 


•BY CHANGING A LOCATION 




7FEA 


C3FD41 


00800 


JP 


START 


■GO TO MICROCHESS 1.5 




7FA0 




00810 


END 


7FA0H 






00000 TOTAL 


ERRORS 
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OMNITEK COMPUTERS INTERNATIONAL, INC. 

I 300 MAIN STREET TEWKSBURY, MASS 

617-851-4580 



Smith-Corona Daisy Wheel Printet 589.00 

Verbatim 5.15" 0. L 15.00 

1 6K RAM KITS I 3 .00 

Okidata MlcroHne 80 31 9.00 

Okldat.* Mkrollne 82 A 434.00 

Okldata Mkrollne 83A 679.00 

VlC-20 Color Computer I 89.00 

Epson MX-80 FT 509.00 

B »dlo Shack Mill w/48K 879.00 

Radio Shack Mill W/48K and 2 40T rir 

1649.00 And RS232 1739.00 

40 track 5.25" Tendon TM I 00- 1 249.00 

80 track 5.25" Tandon Dual Head 439.00 

5.25" Power Supply and case 39.00 

8" Power Supply and case 99.00 

CENTRONICS 739 Printer 469.00 



A 
A 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



A Omnltek Computers International Inc. A 



•'' TRS-80 is a reg. trademark of Tandy Corp, 

A Pilces are for mall order only TERMS: Check, 

A money order, Mastercard and Visa accepted. 

A F.O.B. Tewksbury-frelght extra. Mass residents add 

Jft 5% sales tax. Write for FREE CATALOG. 



A 
A 
A 
A 

t^l95 A 



;fl.^^^.^,9.«t»«¥.4,4iAAAAAAAAAAA 



original contents for a new 
game. The last probiem is 
solved by a change which tells 
Microchess to use ASCII code 
20H instead of COH as the new 
space code. The flowchart for 
the new loader program is 
shown in Fig. 3. 

Included are a Basic program 
and an Assembly language list- 
ing. Here are instructions on 
how to use both; 

• Type the program and save 
it for future use. 

• With the Basic version, an- 
swer the memory size question 

with 32670. 

• Load the program using 

CLOAD for Basic or SYSTEM for 
the Assembly language version. 



• Execute the program by en- 
tering a slash {/) for the Assem- 
bly language version, or by typ- 
ing Run for Basic. Be sure the 
long main program is ready to 
load, not the first short one! 

• For the Basic version, hit 
enter in response to the Ready 
Tape? prompt. 

• The usual asterisks should 
flash in the upper-right corner as 
Microchess loads. 

• After the instructions are 
displayed, press the stop but- 
ton on the tape recorder and 
hit enter to play. 

Happy Checi<^mating!H 

Mohan Embar's hobbies in- 
clude chess, the piano, and his 
micro. 



5 POKE16402,201 

10 DATA4 9,0,.12e,17 ,160,127,205,147,2,33,192,112,14,0,205,53,2,11 

9,129,79,35,124,186,32,245,125,187,32,241,205,53,2,185,194,151,2 

5,33,0,60,22,64,205,53,2,119,35,124,186,32,247,205,246,1,243,33, 

192,112,17 

2 DATA192, 6 4, 1,225, 14, 237, 17 6, 3 3, 215, 127, 3 4,236,6 6,6 2,3 2, 50, 136 

,77,195,253,65 

30 DEFINTX,Y:FOR X = 32673 TO 32751iREAD YiPOKE X,Y:NEXT X-.INPUT 

"READY TAPE'jAS 

40 POKE 16526, 1S1:P0KE 16527,127 

50 X - USR{0] 



Program Listing 2. Basic Program 
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t n 



dlabel blank cassettes 



• PREMIUM 5 SCREW SHELL 



1 DOZEN C-10 LENGIH se 

2 DOZEN C-1D LENGTH SI5 



• DIG HAL DATA QUALIIY .LOW NUISE . MAUL IN USA 

* GUARANTEED 

. S2 OD shpq 1 VO?lN C 30 LENGTH S11 QO ■ i2 Ul) idpy 
. S3 50 slipQ 2 DOZEN C ,10 LENGTH %20 00 ■ S3 50 shpg 



Intlivirfusl siDfago boies isold only wilh casseilssi S2 40 pei flo^ei^ 

CASSETTE CADDY S5 19 . SI SO shpg,/2 tor SIO 00 + %? 50 sdpg , Vi 'jb wild cas^etle pur- 
chase (no shpg chg ofi caddyl 

Foreign orDa's rnclude shipping al 16 o; per oamn lapes.'O nz per caddy/IG ai per doz boies 
Shipments m U S are Dy UPS (no delrvery io PC boxesi Adil S1 SO per dD7 lapes lor Firsl Class Mad 



!!! NEW !!! CASSETTE CADDY !!! NEW !!! 

TIRED OF MISPLACED TAPES AND A CLUTTERED WORK AREA' TRY OUR HINGED lOP SMOKET 
PLASTIC CADDY THAT HOLDS \Z TAPES IN ONE HANDY LOCATION 




ViS3 and Maslsfcafd acceptad (include Mplration dalel Orders paid tiy cashier s check, money order 
Of banticafd are shipped wilhm aa hours Personal chock lakes l-? wks No COD Some loreiqn sales 
are rssltictsd Te«as residanls 3dd5%la» on blank cassetles and storage unils 

SEND ORDER TO: COLOR SOFTWARE SERVICES 

PO BOX 1723, DEPT. M 
GREENVILLE, TEXAS 75401 

• DEALER [NOUIRIES INVITED *DUANTITY DISCOUNTS AVAILABLE 



SENECA ELECTRONICS 

SUPER DISCOCJNTS TRS-80^^ AND OTHERS 



TRS-ao^ 

BF.LL & HOWEir (APPLE) 

ATARI" 

VIC COMMODORE- 

and OTHERS... 







rRb-80"" 16K MODEL III $810.00 '*' 

TKS-80 " 64K MODEL II $2995.00 
ATARP 800 W/16K $650.00 
VIC-20' HOME COMPUTER $245.00 
ALL MACHINES COME WITH FULL 
MANUFACTURES WARRANTY!' 

COMPUTER FURNITURE. PRINTERS. PERIPHERALS, YOU NAMF 
IT, WE GOT IT, AT THE PRICE YOU WANT TO PAY. WE ACCEPT 
CERTIFIED CHECKS, MONEY ORDERS. VISA & MASTERCARD 
SHIPPING CHARGES WILLBE ADDED TOCHARGECARDORDERS. 

SENECA ELECTRONICS 

RD *1. HARMONY, PA 16037 

(412) 452-5654 .-JM 





WILL CHANGE THE WAY 
YOU THINK ABOUT YOUR TRS-80! 



THE MOST POWERFUL WORD PROCESSOR AND ALL PUR- 
POSE COMPUTER PROGRAM AVAILABLE FOR THE TRS-80. 

LOOK AT ALL THESE FEATURES 



1. INSERT characters, worils, lines, paragraphs or other tiles. 

2. DELETE characters, words, lines, paragraphs. 

3. COLUMNS. CopyArt II can be Instructed to print your text Irom one to 
six columns. Super easy to use! No complicated commands. Great for 
doing newsletters, magazine layouts etc. NO MORE CUT AND PASTE! 

4. SORTING. Sort lines of text by any field. Sorts up to 650 Items In less 
then 7 seconds. Sort indices, table ot contents, names, words or whatever 
in descending or ascending order. Used with CopyArt's math function it is 
great for small Inventories, Receivables, Payables etc. 

5. Screen widths from 32-255 characters wide. Screen widths can be 
changed to allow formatting your text as you want. 

6. MATH. Built in MATH tunctlon for doing calculations on columns or 
rows. Used with the SORT command. CopyArt II can do a small inventorv 
ot 200-30C items, or keep track of small receivables or payables, general 
ledgers or home financial reports. Super Moating point precision up to 32 
digits! 

7. 'GRAPHICS. CopyArt has a built In graphics program that allows In- 
serting graphics within your text. Drawings, graphs, illustrations, car- 
toons etc. may be used within newsletters or company reports. Graphics 
commands include: Plot between points. Circles, Squares. Fill, Erase, 
Draw, Move, Pixel cursor controls and more. 

8. 'GRAPHIC CHARACTERS. CopyArt has a built in graphics character 
generator. Used for typesetting large letters from 3 to 25 times normal 
size! Yes, you can even prini characters down the page as well as across. 
Black on white or white on black. 

9. JUSTIFICATION is fully supported. 'Proportional spaced justify is sup- 
ported. 

10. 'SUPER or SUB-SCRIPT 
11. UNDERLINING. 
12.B0LDFACTING. 

13. 'CHANGE CHARACTER SIZE or PITCH within your document. Charac- 
ter size changes tor dot matrix printers with capability. Pitch change lor 
daisy wheel printers with capability. 

14. HELP. Help is available for all the commands at the touch ol a key 
while using the word processor. Super for training inexperienced sec- 
retaries. Great reminder tor experienced people as well. MENU DRIVEN 
Help for over 45 commands. 




ALL THIS... 
& MUCH, MUCH MORE! 




COD and Credit Cards 
CAU TOU FREE to order: 
1-800-528-1149 




'B3 



Computer Hroducts Inc. 




SIMUTEK COMPUTER PRODUCTS INC., 4897 E. SPEEDWAY BLVD., TUCSON, hi S5T12, (802) 323-9391 

DEALER. OISTRIBUTOR. & PRINTER/MANUFACTURER INOUIHIES INVITED 

TRS-8D and Scripsll arE TM olRadle Snack a TanCf cor . 

'Indicales ptinler musi have capability to do tunctian. 



I' See Us! of Advertisers on Page 455 
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UTILITY 



Optimize the Color Computer's display. 



Test Patterns 



Richard L Kilmon 

106 East Green Valley Circle 
Green Valley 
Newark, DE 19711 



Color displays are not only 
fun but serve a useful pur- 
pose as well. Some of the fun and 
effectiveness is reduced if your tv 



is not optimized for the com- 
puter. In the operator's manual 
Tandy suggests a few short pro- 
grams to adjust your tv. My 
program is a dot bar generator. 
With it you see how the image is 
centered, shaped, colored and 
aligned. 

The program, written in Ex- 
tended Basic, includes sound 
and has a menu and four sub- 
routines separated for clarity by 
REM statements. These can be 
removed. 



After making your selection 
from the menu you will hear a 
beep when you push the key. 
The pattern will come up quick- 
ly. Wrong pattern? Push enter 
and the menu returns. 

Menu Choices 

V is for video centering. The 
image is similar to a target 
display. Chances are the circles 
wili look like eggs. Puns aside, 
most tv yokes are not wound 
precisely enough to give a truly 



linear image. The designers 
compensate by providing height 
and linearity controls. The slight 
distortions go unnoticed for tv 
viewing, but the computer ac- 
cents them. 



The Key Box 

Extended Color Basic 
Color Computer 
16K RAM 



"TEST PATTERNS* 
"RICHARD KILHOK* 
'•JUNE 20, 1981* 



10 REM 

2d REM 

3B RE» 

40 REM 

50 HEM - LINES 70 TO 160 SET UP THE SCREEH MENU - 

60 RSH - *•*****************••*»'******•***•**• - 

70 SOUHD100,2 

80 CLSiPRIHTiPRINT 

90 PRINT"WHICH OF THE FOLLOWING TESTS DO YOU WISH TO EXECUTE 

100 PRINT 

110 PRINT" V=VIDEO CENTERING TEST" 

120 PRINT" C=COLOR BAR TEST" 

13fl PRINT" H=CROSSHATCH " 

140 PRINT" D=DOTS" 

150 PRINT!PRINT:PRINT 

160 PRINT"PUSH EtJTER TO REITIRN TO THE MENU" 

170 REM 

180 REH - LINES 210 TO 290 bKANCH TO THE APPROPRIATE 

190 REH -SUBROUTINES ONCE THE MENU ITEM HAS BEEN SELECTED - 

200 REH - *********************************************** - 

210 AS-INKEYS 

THEN 3 30 

THEN 470 

THEN 6B0 

thl:n (12 

THEN 7 

THEN 210 



220 IF AS="V" 

230 IF A5""C' 

240 IF AS="H" 

250 IF AS="D" 

260 IF AS=CHRS(i:i) 

270 IF AS="" 

280 SOUND10e,2 

290 GOTO210 

300 REM 

316 REH - LINES 330 TO 430 EXECUTE THE VIDEO CENTERING ROUTINE - 

320 REM - **************************************************** - 

330 SOUND100,2 

340 PK0DE4,1 

350 PCLS 

360 SCBEENl.l 

370 COLOR7,5 

380 LINE(0,0)-(255,1511 ,PKET 

390 LINE(255,0)-{e,191) ,PSET 

400 LINE(0,0)-[255,191),PSBT,B 

410 CIHCLE(128,961 ,20 

420 CIRCLE(128,g6) ,95 

430 GOTO 950 

440 REM 

450 REM - LINES 470 TO 640 EXECUTE THE COLOR BAR ROUTINE - 

460 REM - .'.******•**•*»••••**•*«****•••*•••*********** - 

470 SOUND100,2 



CLS 



4 90 
500 
510 
520 
53 
540 
550 
560 
570 
500 

390 

600 
610 
620 
630 
640 



670 
6B0 

6 90 
700 
710 
720 
730 
740 
750 
7&0 
770 

7 80 
790 
)i00 
810 
S20 
S3 
840 
850 
860 
S70 



910 
920 
930 

940 
950 
960 
970 



AS=STRINGS(4,143) 

B?--'STRINGS(4,159} 

CS-STRINGS(4,175) 

DS=STRINGS(4,191) 

ES=STRINGS[4,207) 

FS=STR1HGS(4,223) 

GS=STRINGS(4,2391 

HS-STRINGS(4,255) 

XS-AS+BS+CS+DE+EE-i-FS-l-GS+HS 

POR y=0 TO 14 

PRINT XSr 

NEXT Y 

IS=aTRINGSl3,255) 

PRINTe480,AS+BS+CS+DS+ES+FS+GS-ig; 

SET(62,30,e) ; SET (63, 30, 8) ; KET(6 2 , 31 , 8) : SET( 63 , 31 ,8) 

GOTO9 5 

REM 

REM - LINl'lS 680 TO 78n ['IXRCUTE Tlin CRO.S.SHATCH ROUTINE - 

REM - .*•*-'*••*...*>***•**■>*•*•*•••*•••*••••*••*•••••' - 

SOUND10 0,2 

PM0DE4,] 

PCLS 

SCREENl , 1 

FOR X=e TO 2=5 STEP 25 

LINE (X,0)-(X, 191) rPSET 

NliXT X 

FOR y=0 TO 191 STEP 25 

LINE{0,Y)-{255,y) ,PSET 

NEXT Y 

GOTO 950 

REM 

REM - LINES 820 TO 900 EXECUTE THE DOTS ROUTINE -' 
jiUM _ ***************************************** _ 

SOUNDl00,2 

PM0DE4,1 

PCLS 

SCREENl,! 

FOR X=20 TO 255 STEP 20 

?0R Y=20 TO 191 STEP 20 

PSET(X,Y,5) 

NEXT Y 

NEXT X 

REM 

REM - LINES 950 TO 970 RETAINS THE SCREEN UNTIL THE ENTER KEY 

REM - IE PUSHED, THEN THE PROGRAM RETURNS TO THE MENU ON LINE 70 

REH - ••*******••**••****<■•**••«••'•""""".***♦"**•**■"**••* 

AS=INKEYS 

IF ASOCHRSdS) GOTO 950 

GOTO 70 
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Adjust the height control until 
the black vertical interval lines are 
at the top and bottom. Increase 
the height until the lines disap- 
pear. If they do not disappear at 
the same time adjust the linearity 
control and try again. The circle 
on your display should start to 
look better. Next, fine tune the cir- 
cle. Here you will probably have to 
settle for improvement rather than 
perfection. 

Adjust your tv for squareness, 
using the horizontal hold. 

C is for color bars. The color 
bars should be (left to right) 
green, yellovi/, blue, red, buff, 
cyan, magenta and orange. Turn 
the tv color saturation control all 
the way down. Then bring it up 
until you have pastels. Continue 
to increase the control until the 
colors degrade. Adjust to just 
below this point, and then ad- 
just the hue control to the 
proper colors. 

You still may not get the col- 
ors right. The control may al- 
ready be down near the end or 
may not have much effect. Auto 
color circuits may mess you up. 



Defeat them if you can. If you 
are familiar with the tv, you may 
want to tweak your color phase 
circuit. 

Brightness and contrast are 
probably too high. Set your 
screen to your liking. Everything 
interacts slightly; you may have 
to readjust the color saturation. 

H is for Crosshatch. This dis- 
play looks like a fishnet. All 
boxes should be the same size. 
The lines should be one color. 
Three colored lines around the 
screen's edge may mean you 
have a serious dynamic linearity 
problem. This will take know- 
ledgeable tweaking. 

D stands for dots. Each center 
dot should be a single colored 
dot. Dots merging with each 
other indicate a static conver- 
gence problem. Use some more 
knowledgeable tweaking. ■ 



Richard Kilmon supervises 
the repair of analytical equip- 
ment for the Analytical Instru- 
ment division of DuPont Cor- 
poration. 




m^ 
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A Pot Of Gold 
For YOUR Color Computer 

I buy practically evoiy compulei magazine there is. but Ihe PAlNBOWis the 
only one I read cover-to-couer as soon as iicomes in !he mail.' -A subscriber 

Th* RAINBOW gets inai soil o1 'esponse (or moie reasons Ihan one but The primary one is simply ii 
IS the premier magezirie for TRS-80' Color Computer users And because it devotes every page ot each 
■norltily issue exclusively io the Color Computer it ts it^ single best source ol information for everything 
you want to kr»pw 

Tired of trying to convert other computer programs to your Color Corrwuter'' No worries Each program 
inih«RAINDOWiswrinenexclusi^/ely for your computer — and m^iy lake advantage ot all the SKcellerit 
graphics commands unavailable on other- machines' Tt% nation steading software authors have contribu- 
lions every mon.lh 

Itm RAMBOWi Hints. Tips and Pioeline feature give you the best up-to-the-mmuie information 
available on the Color Computer H you are looliing for ways to do screen prints, alphalwtize disli 
direcioriBS. save mactiine language programs or print Videote« input on your printer the RAINBOW has 
programs (or you' And it you want to know vKen spme promised software aiII really be available tor 
purchase, you II gel that answered, too 

Our tutorials have been praised tor the clear concise way t^iey ejiplam — in detail — varkius functions 
otthe Cokir Computer And ttw RAINBOW'S reviews are an excellent and honest buyer s gukle to software 
and other purchases 

Whether your Color Computer IS 4K 16Kor32K Wfwtheryou have Color BasicorEitended Whether 
you re into assembly language (or want to get into It) or not Pnnters Disks Rom packs The RAINBOW 
surveys the whole world o( the Cotor Computer each month and provides what one reader called. A 001 0' 
gold full of fabulous information 

Because it is journalisticaliy-onented Itw RAINBOW gives last turnaround to meet its rnonthly 
deadline So. you can expect Iresh news when ii is news and the latest mforrnation available 

If all IfMS sounds tike a kit for $16 per year. It may l>e Sut we II make one more promise If. after you see 
your first issue you don 1 agree ttiat ttie RAINBOW is the premier monthly magajine tor Coksr Computer 
i.^en we 11 happily cheerfully and immediately refund your money 




MORE REASONS YOU SHOULD CONSIDER 

P TO OUR COMPREHENSIVE PROGRAM... 



15 SUPER EASY TO LEARN editing features. Logical key choices. 

16. Hyphenation 

17. SPELLING checkers like the 74,000 word Scripsit Dtctionary work 
great with CopyArt II. 

18. CHAINING. Chain files together to make books or manuals hundreds 
ot pages long. 

19. CENTERING. 

20. HEADERS and FOOTERS. You can even put graphics within headers 
for super page layouts. 

21. PAGE NUMBERING. Page numbers can appear at the top or bottom 
of the page. 

22. DOS COIVIMANDSfrom within the editor. Kill files, check tree space 
or get directories easily. 

23. CUSTOMIZED PRINTER driver. Since your printer has features that 
other printers don't, CopyArt II will be supplied with Ihe printer driver of 
your choice below. Each printer driver is custom made to provide you 
with commands for each ot your printer's tine capabilities. If you have 
more than one printer, order other printer drivers for only $19.95 each. 
Printer drivers are available for: 



Smith Corona Daisy Wheel TP-1 

Brother Daisy Wheel 

C-itoh Starwriters and 

Prowritersall. 

PMCPinter 

Centronics 737. 739 

Diablo 620 



•RadioSha=kLPIV,V,Vl, 
VII. Vill and Daisy Wheel II 

• Epson MX-80, MX-80/FT, MX-100 
with orwithoutgraftrax. 

• Okidata Microline80, 82a. 
83a and 84 

• NEC 8023 

OTHERS COMING SOON. Call it you don't see your printer! 
24. Unprotected diskette. Unlimited backups can be made. 
25.MAILIST/MAILMERGE INCLUDED. CopyArt II comes with a mailist 
program that stores over 2,000 names on a MOO III diskette. These 
names can be sorted by any field and have a special field for your code. 
You can make PERSONALIZED FORM LETTERS that will take the follow- 
ing codes from the mailist and insert them in your text. FIELDS IN- 
CLUDE: Mr. or Ms.. Last name. First name. Business name, City, Slate, 
up to 9 digit ZIP code and your own special 2 character code. ANY OF 
THESE fields can be inserted within your form letter wherever you want. 
You can print form letters or mailing labels to all the people on your list 
or to specific codes only. CopyArt makes it easy. 



ALL THIS... 
& MUCH, MUCH MORE! 



163 



Computer Products inc. 




SIMUTEK COMPUTER PRODUCTS INC.. 4897 E. SPEEDWAT BLVD.. TUCSON. AZ B5T1Z. |B02| 323-9391 

DEALER. DISTRIBUTOR. & PRINTER/MAHUFACTUHER INQUIRIES INVITED 

THS-BG and Scrlpsil are TM of fladio Shack a Tandy carp. 

'Indicales prinler musi have capaQillly to DDlunctlon. 



v-See List of Advertisers on Page 455 
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TUTORIAL 



Strain out all the prime numbers. 



The Sieve 




athosthenes 




D. R. Cecil 

Texas A & I 
KIngsville, TX 78363 



Erathosthenes, one of the an- 
cient Greek mathemati- 
cians, is best known for his sieve 
to produce prime numbers. 

His sieve method consisted 
of writing down all positive in- 



The Key Box 

Modelt or IVIodel III 
2K RAfVI 
Cassette Basic 



tegers 1,2, 3... up to some 
desired integer N. Then you cast 
out all multiples of two, and pro- 
ceed through the list again cast- 
ing out multiples of three and so 
on. The remaining numbers are 
primes less than or equal to N. 
I presented this idea to a 
group of teachers during a prob- 
lem-solvlng computer work- 
shop. The program I showed 
them displayed only primes. The 
workshop participants thought 
a program which displayed ail 
the positive integers up to N and 
then visually blanked out the 
non-primes by twos, then 
threes, and so on would be a 
great teaching device. They 
were eager for me to write such 
a program. 



The resulting program, written 
for a TRS-80 Model I, is shown in 
the Listing, This program should 
run on other machines having the 
PRINT @ and PRINT USING 
commands. These commands 
ensure proper formatting of the 
numbers and determine the posi- 
tions to blank out. 



When "END" appears in the 
lower right corner of the screen, 
all computations are finished 
and the original input number is 
displayed. All other numbers 
shown are primes. Line 380 
stops the screen from scrolling 
up, so hit break to exit the pro- 
gram and get the ready prompt. 



>******■■****** ^Tjg SIEVE OP EFATOSTHEHES «*•**•*••••••* ■ 

1 inn*.. ...,.*. BY D.R.CECIL, JU[.y,1981 .**•••••.*••«. 

2 'THIS PROGRAM DISPLAYS ALL INTEGERS 1 TO AN INPUTED VALLTE N 

3 'AND LEAVES THE LAST 1515 OR SO (IF N IS >= 15a) ON THE SCREEN, 

4 'THEN THE NOH-PKIMES AEE BLANKED OUT, FIRST TilE MULTIPLES 

5 'OF 2, THEN THE MULTIPLES OP 3, EIC. WHEN THE WORD "END' 

6 'APPEARS AT THE BOTTCM RIGHT OF THE SCREEN THEN ALL NUMBERS 

7 'DISPLAYED ARE PRIME. 



10 CLSiINPUT'PRIHES LESS THAN WHAT DUMBER ";N 
15 0=0: IHPUT"# YOU WANT A FACTOR OF';M 
23 DIM A(H) ,B(N} :CLS 
30 ' 

48 It..** PRINT THE INTEGERS, TEN PER ROW ;ANU SET A{I)-I ' 

50 FOR 1=1 TO N 

60 PRINTUSING"#t«»";I;iA(I)=I 

70 IF 1NT(I/10]-I/10=0 THEN PRINT 

80 NEXT I 

SH ' 

100 ■•"•• DETERMINE WHICH PLACES TO BLANK OUT ** 

110 T'=10*INT( (N-i50)/lB) 

120 IF T<0 THEN T=0 

133 FOR I=T+1 TO N 

110 BID ^4'1 + 24'INTI (1-11/10) -6. 4*T 

150 NEXT I 

150 ' 

ng ...... START THE SIEVE , USING MULTIPLES OF 2 •••'• 

ise 1-2 

190 IF A[I)"0 THEN 230 

2B0 FOR J-1 TO N 

210 IP A(J)<>I AND INT(A(J)/Ij=A(J)/I THEN A|J)=0:IF J>T 

220 NEXT J 

230 I-I+lsIF I>SQR[K) THEN 370 

2iB ' . 

250 '***••■ HAS I NOT BEEN BLANKED OUT YET7 .•." 

26a IF A(I)<>0 THEN 2B0' ELSE 230 

27fl ■ 

280 ■■**** THIS BLANKS OUT THE INTEGER J ..... 

290 IF B(J)-4>^10!1 THEN B|J j -B( J) -la24 

30B PBINT^BIJI -J,"" J : PRINTUEING"* %*(" " i 

305 IF J-M THEN Q=Q-i-l:IF Q-1 THEN PRINTe941 ,M: " HAS FACTOR 

310 ' 

22B ■■*... THIS SHOWS WHAT DIVISOR IS CURRENTLY IN USE **•• 

330 PRINT@1010,B[J) t'I-";!; 

340 GOTO 220 

350 ' 



360 '•'•***«««i*«.«.. THE 
370 PRINT@iai0,"END ,N=";K: 
380 GOTO 380 



END 



Program Listing 
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Lines 50-80 display positive if the sieve is operating too 

integers 1,2,... up to N and fast and if N is tiot too large, you 

leave the last 150 on the might insert a timing loop to 

screen. If you plan to have four- slow down the blanking out. 

place primes appear (such as This can be done by changing 

r009}, put five tt symbols in the line 310 to: 
Print Using command of line 60 
and also change line 140 to read 



140 B(l)-5-| + U'lNT((l-l)'lO)-6 4*T 

Matrix A indicates the in- 
tegers, with A(J) =J. Line 210 
tests whether I divides A(J), and 
If so, sets A(J) to zero to indicate 
A(J) is not prime. The B matrix 
blanks out the integer J if J is 
some multiple of I. B(J)- 4 in- 
dicates the start of the four 
screen iocations to be changed 
to blanks by line 300. 

The divisors used for testing, 
and the testing for multiples, oc- 
cur in lines 180-230. You need 
not test any divisor larger than 
SQR(N), since if'N=x*y then 
either X or y must be less than or 
equal to SQR(N). Additionally, any 
factor of N has a prime subfactor, 
so only prime values of I need be 
used for divisors. Line 190 assures 
that only primes are used. 



3in FOR I ^ 1 TO 200 . NEXT I 

If you want a prime divisor of 
some number in the last 150 or 
so displayed, add the following 
two lines: 

15 Q = a ■ INPUT ■■# YOU WANT A FACTOR 
OF" ; M 

305 IFJ = MTHENQ = + 1:1F.0 = 1 
THEN PRINT @ 941, M; 

'■ HAS FACTOR";!; 

A good introductory essay on 
primes and on number theory 
can be found in Mathematics 
Today: Twelve Informal Essays 
edited by L.A. Sfeen and pub- 
lished by Springer-Verlag, New 
York. ■ 

David Cecil is employed by 
Texas A&l University in themafli 
department. He and tiis wife 
also own and operate a needle- 
craft store. 



ALL HARDWARE Modcl J^^ Lowcrcase 

DUALCASE • ELECTRONIC SHIFT-LOCK • DE-B-BODNCF 
BLOCK CURSOR • SWITCHABLE 

■THE PATCH" is compatible wiih any word processor, any DOS anii also iilher languages 
which use ROM subroutines Assembled and tested . . $127.00 



SCRIPLUS v?.0 (by ROSTEK) is the software -palch ■ Tot SCRIPSTT |cl Ihal lets you output 
control codes to CHANGE TYPE STYLES, UNDERLINE, etc from withm youriem files. Written 
especrally for the MX -80 but works fine with most any printer that accepts control codes. Makes your 
printer do all the tricks it was designed for -FDTR, KILL, MERGE, and MORE, WHILE IN 
SCRIPSITfcl. 
How many limes hav e you w ished? Here iiz ON DISK .'9.95 



Need a SUPERFINE lowercase CHARACTER GENERATOR for your MOD I' KSO 
Technology huilds "em. and we've got onejusi for yuU. Beautiful lowercase -FULL DECENDERS 
Allofthei;raphics.iifcourse. INCLUDES theSPEC1ALGRAPH[CSforCHR$(0)lhruCHRSI3 I) 
omitted in Ihe later Radio Shack lower case chips Ask for the CGA 2. You'll love it! Only 29.95 



Did you ever bomb a disk' SUPER UTILITY (by Kim Wall) WILL AUTOMAYtl^ALLY 
RECOVER BOOT SECTIONS. GAT TABLES, READ AND COPY PROTECTED MEDIA. 
TRANSFER FROM ONE DOS TO ANOTHER, SINGLE OR DOUBLE DENSITY, andon, and 
on, and on . . You just ivouldni believe . . Includes a hundred and some odd vital functions The 
BEST (nodoubtl) and very, very highly recommended for ANYONE that uses a TRS-SO MOD I or 
MOD i with any kind of DISK and any kind of DOS. You just got to use it to realize what you've got 
here' The name "SUPER UTILITY" is a gross understatement. One use can easily pay for the 
program. 4fiK required. Specify 35tk, 40tk or RO tk media for your Mod 1 or Mod }. Absolutely 
professional' You need this' Don't get caught without it. 74 95 _^__^ 



The only resource you can't replace is TIME. PLUG IN A SPRINTER (by Holmes 
Engineenngl and 

TRIPLE THE SPEED of your TRS-80 MODEL I OR MODEL 3. 

YES' A NEW Z-80B MICROPROCESSOR IS INCLUDED! 

YESI Special circuitry handles your slower memory chips. 

YES! Automatic switch down to "normal'* for disk I/O. 

YES' IT IS ABSOLUTELY FANTASTIC and only 99.50 COMPLETE!' 

Only the cream of the crop - - for you, from HACKS. 




WHEN ORDERING SPECIFY: 

"Mem Size" G -"Memory Si. 



Nalional Distributors 
for CECDAT, [nc 



To order send pay 
handling. Texas residents 

HACKS 



It plus !e2.00 shipping and 
idd 5% sales tai. 



P-O BOX 12963 

Hnuston. Tpx.is 77017 

713-45r)-3276 



t^ 244 




WILL CHANGE THE WAY 

YOU THINK ABOUT 

YOUR TRS-80! 



26. SIMPLE CURSOR commands Simply use the arrow keys to move 
your cursor around the teil. The screen will scroll both vertically and 
horizontally. Shift arrows take you to the beginning or end instantly. 

27. SCREEN DUMP. Prints whatever is on the screen to the printer. 

28. COMPLETE MARGINS CONTROL. You tell CopyArt II what margins 
you desire. You can even change margins within the same text. You may 
also have parts of your text with 2 columns, some with one etc. It's 
super easy to use. 

29. BASIC PROGRAMS can be edited easily. CopyArt is really useful for 
inserting graphics within guoted strings to give your programs super 
animation without the hastle ot calculating the CHR$otthe graphicsl 
3D.VISICALC files can be loaded into CopyArt II to be manipulated 
easily. Great when you want to accompany your Visicalc reports with 
written reports. GRAPHS and BOLDFACING etc. Visicalc reports up to 
255 wide can be loaded. 

31. SPECIAL SCRIPSIT FILE LOADER. Allows you to load your old Scrip- 
sit files without having to save them in ASCII. Copyarl will also load 
Pencil files and othernormal ASCII files. 

32. 'CUSTOM KEYS. Let's you make special keys for special characters. 
Allows for printing Spanish accents etc. 

33. CONTROL CODES. Lets you insert special printer control codes in 
your text. CODES between and 255. 

34. BLOCK MOVE. Simple and powerful block move. Lets you move 
paragraphs or lines ot text around easily. No complicated marker set- 
tings required. 

35. FIND/REPLACE/REPEAT, lets you find a siring of diaracters and 
replace them with any other string of characters up to 20,000 times! 
WILDCARD search also supported. 

36. Protesslonal Manual in easy to understand English. 

Copyart II requires a TRS-SO Model I or III, (or PMC-80 or LNW), 43k 
and 2 disk drives with Newdos-80, Ldos. Multidos, Dosplus or TRSDOS. 
Double density disk drives recommended for the Model I. 

yM^^^p-J-^TrHIS PROGRAM DOES IT ALL! 

PLEASE SPECIFY which COMPUTER and PRINTER 
you have when ordering. 

Copyart II with one printer driver 149.99 

Additional printer drivers 19.95 each 

Scripsit Dictionary 139.95 




COD and Credit Cards 
CALL TOU FREE to order: 
1-800-528-1149 

Or send cfieck or money 
order to: 




Computer Pr 



O'ut^-lC'IO 



SIMUTEK COMPUTER PROOUCTS INC.. 4897 E. SPEEDWilY BLVD., lUCSOM. hZ 85712. |GOZ) 3Z3.9391 

DEALER, DISTRIBUTOR, & PRINTER/MANUFACTURER INQUIHIES INVITED 

TftS-BD and Scrlpsil are TM al Radio Snack a Tandy corp 

'Indicales printer must have capability Id da tunction. 



^See List of Advertisers on Page 455 
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EDUCATION 



Playing music on the Color Computer. 



Music Marvel 



Steve Blyn 

227 Hampton Green 

Staten Island, NY 10312 



For the mentally retarded, 
each small accomplish- 
ment is major progress. As a 
teacher of retarded students, i 
have noticed how much they en- 
joy music. This enjoyment has 
always been limited to listening, 
singing simple songs, or playing 
■ with simple band instruments. 
My TRS-80 Color Computer has, 
to some degree, changed that. 

The Program 

Music Marvel helps the re- 
tarded person play music on the 



The Key Box 

Color Computer 
Color Basic and 
Extended Color Basic 
16K RAM 



Program Listing 1. Extended Color Basic 

10 'MUSIC MARVEL 

20 'COPYRIGHTED <C> 1981 BY S.BLYN STATEN ISLAND, N.Y. 

30 CLS3 

40 PRINTe256,"** 'MUSIC MARVEL' **" 

50 FOR T= 1 TO 600; NEXT T 

60 CLS{3) 

70 PRINT " directions for the instructor" 

80 PRINT"*******************************" 

90 PRINT" THIS PROGRAM CONTAINS 2 SONGS" 

100 PRINT" 1, three blind mice AND" 

110 PRINT 

120 PRINT " 2. row, row, row, your boat " 

130 PRINT 

140 PRINT" SONG 1 WILL PLAY NOTE NUHBERSAND THEN SHOW PICTURES 

■ 

150 PRINT" LEARNER MUST THEN PRESS ELASHEDNUMBER TO PLAY SONG'S 

NOTES . " 

160 PRINT" AFTER EACH SONG A CHOICE OF SONG #1 OR SONG #2 IS 

GIVEN. PRESS #9 TO END." 

170 FOR Q=0 TO 63: SET(Q, 2 , 8} : SOUND 150,1:NEXT Q: FOR W = 63 TO 

STEP -1: SET(W,31,8) :NEXT W 

180 FOR X=l TO 5000:NEXT X 

190 GOTO490 

200 REM"DRAWING NUMBERS AND HAVING STUDENT PLAY THE SONG 'THREE 

BLIND MICE' ■ 

210 DATA 3,125,2,108,1,89,3,125,2,108,1,89,5,147,4,133,4,133,3,1 

25,5,147,4,133,4,133,3,125,5,147,8,176,8,176,7,170,6,159,7,170,8 

,176,8,176,5,147,5,147,8,176,8,176,8,176,7,170,6,159,7,170,8,176 

,8,176,5,147,5,147,5,147,8,176,8,176,7,170,6,159,7,170 

220 DATA 8,176,8,176,8,176,5,147,4,133,3,125,2,108,1,89,-1 

230 READ A:IF A=-l THEN GOTO 270 ELSE ON A GOSUB 880,930,1000,10 

50,1130,1210,1280,1350 * -'' 

240 A$= INKEY$:IF A$="" THEN 240 

250 IF VAL(AS)<>A THENGOTO240 

26 READB: SOUNDS, 5 : GOTO 230 

270 PCLS:PH0DE4,l!SCREENl,l 

280 GOSUB640:CLS:SOUND125,10:SOUND108,10:SOUND89,15!SOUND125,10: 

SOUND10 8 ,10 : S0UND89 ,15 

290 SOUND147,10:SOUND133, 6 : SOUND133 ,6 : SOUND125 ,15 : SOUND147 , 10 : S 

OUND133, 6:SOUND133.6:SOUND125,15 

300 GOSUB 640 

310 SOUNDi47,6:SOUND17 6,8:SOUND176,6:SOUND170,6:SOUND15 9,6:SOUND 

170,6:SOUND176 ,6 : SOUND176 ,8:SOUND147 ,10 

320 GOSUB 640 

330 SOUND147 , 8 : SOUND176 , 6 ; SOUND176 ,6 : SOUND176 , 6 : SOUND170 , 6 : SOUND 

159,6:SOUNDl7 0,6:SOUND176,8iSOUND176,8!SOUND147,10 

340 SOUND147 , 6 : SOUND147 ,6 : SOUND176 , 8 : SOUND176 , 8 : SOUND17 , 8 : SOUND 

159,6 :SOUND170,6:SOUND176,6:SOUND176,6:SOUND176,6:SOUND147,10:S 

OUND133,8:SOUND125,10:SOUND108,10!SOUND89,12 

350 GOSUB6 40 

360 GOSUB 640:FOR X=l TO 400: NEXT X 



Listing I continues 
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Listing 1 continued 



370 CLS:GOSUB380:GOTO1430 
3 80 REM "HAPPY FACE" 

390 PCLS 4: PMODE 3 , 1 : SCREENl ,1 : COLOR 3 

400 CIRCLE(128,96) , 90 ,3:CIRCLE (128 ,96) , 92 : CIRCLE ( 128 , 96) ,94 

410 CIRCLE( 95,55) ,9 

420 CIRCLE(161,55) ,9 

430 CIRCLE{128,72) ,75 ,3 , . 5 , . 17 , . 35 

440 CIRCLE(128,106) ,35,3,1,0,.5 

450 F0RX-1T04: PAINT C , 0),X,3:PAINT ( 95 ,55) ,X , 3 : PAINT ( 161 ,55) , 

X,3:PAINT (128,120) ,X,3iNEXT X 

460 FORX=1TO1400:NEXTX 

47 RETURN 

480 REM" 3 BLIND MICE" 

490 FOR X= 1 TO 2 

500 GOSUB 1010:SOUND 125 ,7 : GOSUB930 : SOUND108 ,7 : GOSUB880 : SOUND89 , 

8: NEXT X 

510 FOR X-1TO2:GOSUB1140:SOUND147,8 

520 FORR-1TO2:GOSUB1060:SOUND I33,4:NEXT R: GOSUB 1010 : SOUND125 , 



530 

540 

550 

D 17 

UND 

560 

570 

580 

17 
1140 
590 
600 
D 17 

122 
610 
620 
25,8 
630 
640 
650 
660 
670 
6 80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 



NEXT X 

PCLS 

GOSUB1140:SOUND 147,4iGOSUB 1360:SOUND 176,6:GOSUB 1360:SOUN 

6,4:GOSUB 1290 : SOUND170 , 4 :GOSUB 1220 : SOUND159 , 4 ;GOSUB1290 : SO 

170,4:GOSUB 1360:SOUND 176 , 4 :GOSUBl360 : SOUND 176,6 

GOSUB1140: SOUND 147,8:GOSUB 1140:SOUND 147,4 

FOR X=l TO 3:G0SUB 1360:SOUND 176,4:NEXT X 

GOSUB1290:SOUND170 ,4:G0SUB 1220:SOUND 159,4; GOSUB1290 : SOUND 

,4: GOSUB 1360: SOUND 176,6: GOSUB 1360: SOUND 176,4: GOSUB 

: SOUND 147,6 

FOR Y=l TO 200:NEXT Y 

GOSUB1140:SOUND147,6:GOSUB 1140:SOUND 147,4:GOSUB 136 

6,6: GOSUB 1360: SOUND 176,4: GOSUB 1290: SOUND 170,6 

0: SOUND 159,4: GOSUB 1290: SOUND 170,4 

FOR X-1 TO 3:GOSUB1360:SOUND176,4:NEXT X 

GOSUB1140: SOUND 147 , 8: GOSUB1060 : SOUND 133 ,6 : GOSUB1010 

:GOSUB940:SOUND10 8,8:GOSUB890:SOUND39,10:GOSUB6 40:GOSUB6 40 

RESTORE:GOTO 210 

PMODE 4,1: PCLS 

REH"THREE MOVING MICE" 

SCREENl, 1 

,96)-(180,96) ,PSET:LINE(100,93)-(180,93) ,PSET 

80,96) ,20, 1,1, .60, .99 
,40,1,1, ,50, .99 
,15, 1,1,. 67,. 20: CIRCLE (180, 76) ,3 



SOUN 
GOSUB 



iSOUNDl 



LINE(1( 

CIRCLE I 

CIRCLE(140,96) 

CIRCLE(175,80 

DRAW"BM17 5,66;H6;D4" 

PAINT (140,58) ,7, 5:PAINT (181, 75), 5, 7 

FOR y- ITO 50:NEXT Y 

LINE(60,150)-(140,150) ,PSET: LINE (60 ,147 ) - (140 ,147) ,PSET 

CIRCLE (100, 150) ,40, 1,1,. 50,. 99 

CIRCLE (40,150) ,20, 1,1, ,60, .99 

CIRCLE (135, 134) , 15 ,1 , 1 , . 67 , , 20 : CIRCLE { 140 ,130 ) ,3 

DRAW''BH135,120;H6;D4" 

PAINT (100,115) ,7, 5: PAINT (141, 129) ,5,7 

FOR Y=1T0 50:NEXT Y 

LINE (139,42) -(221,42) ,PSET!LINE (139 ,39) -(221,39) ,PSET 

CIRCLE (180, 42) , 40 ,1 , 1 , , 50 , . 99 

CIRCLE (120, 42) ,20 ,1 ,1 , , 60 , . 99 

CIRCLE (215, 26) ,15 ,1 ,1 , , 67 , . 20 : CIRCLE ( 220 , 22) ,3 

DRAW"BH215,12;H 6 ;D4'' : PAINT ( 175 , 5) ,7 ,5 : PAINT ( 221 , 22) ,5 , 7 

F0RY=1T0 50:NEXT Y 

RETURN 

REM "DRAWING A # 1" 

PMODE 4,1: PCLS: SCREEN 1,1 

LINE (128,40) -(128,140) ,PSET 

FORJ=1TO20:NEXTJ 

RETURN 

REM "DRAWING A # 2" 

PM0DE4 , 1 : PCLS : SCREENl , 1 

LINE(100,140)-(163,140) ,PSET 

CIRCLE (128, 126) ,30,1,1, .45, .75 

CIRCLE (128,66) , 30 , 1 , 1 , . 60 , . 25 

FORJ=1TO20:NEXTJ 

RETURN 

REM"DRAWING A # 3" 

RHODE 4,l:PCLS:SCREENl,l 

CIRCLE (128, 126) ,3 ,1 , 1 , , 75 , , 35 : CIRCLE ( 128 ,66) ,30,1,1, .7, .25 

FORJ=1TO30:NEXT J 

RETURN 

REM"DRAWING A # 4" 

PMODE 4,1: SCREENl, 1 

PCLS 

LINE (15 8,40) -[15 8, 140) ,PSET 

LINE{80,40)-(80,100) ,PSET 

LINE (80, 100) -(180, 100) ,PSET 

FORJ=1TO20:NEXT J 

Listing 1 continues 



I 

NOW IN STOCK 

ADVENTURE INTERNATIONAL 

ACORN SOFTWARE 

APPARATINC. 

BIG FIVE 

COMPUTERWARE 

EPSON PRINTERS 

INSTANT SOFTWARE 

MARK DATA 

MED SYSTEMS 

FANTASTIC SOFTWARE 

SPECTRAL 

WORD PROCESSORS 

BOOKS 

DISK DRIVES 

DISKETTES 

LOWER CASE MOD — MOD I 
$29.95 + $2.00 S& H 

AND MORE 

MODI • MOD III • COLOR 

Visa & Mastercard 

Phone or Vy rite for Catalogue 
(403)423-3919 

CMD MICRO 

10546- 106 Street 

Edmonton, Alberta 

T5H 2X6 



PACKER: Machine language program that edits all or part 
of yout Basic program to run faster, save memory, or 
ease editing. The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines 
SHORT— deletes unnecessary words, spaces, and REM 
statements. PACK— packs lines mto maximum multiple 
statement lines, including all branches. MOVE— moves 
line or blocks of lines to any new location on program. On 
2 cassettes for 16K, 32K, & 48K 
For TRS-80 Mod I or III Level II or Disk Basic . . . $29.95 
SYSTEM TAPE DUPLICATOR: Copy your SYSTEM format 
tapes. Includes verify routines. The Model III version 
allows use of both 500 and 1500 baud cassettes speeds. 

For TflS-80 Model 1 or III Level II S15.95 

CASSETTE LABEL MAKER: A mini *ord processor to print 
cassette labels on a line printer. Includes 50 peel - and - 
stick labels on tractor feed paper. 

For TR-80 Model I of III Level II & Printer $17.95 

PRINT TO LPRINT TO PRINT: Edits your Basic program in 
seconds to change all Prints to LPrints (except Print© or 
Print#) or LPrints to Prints. Save edited version 

For TR-eO Model I or III Level II S12.95 

FAST SORT ROUTINES for use with Radio Shack's 
Accounts Receivable. Inventory Control I, and Disk 
Mailing List Systems for Model I Level N Sorts in 
SECONDSI You'll be amazed at the time they can save. 
Supplied on data diskette with complete instructions. 

FAST SORT for Accounts Receivable $19.95 

FAST SORT tor Inventory Control I S19.95 

FAST SORT lor Oisk Mailing List (specify data diskette of 

cassette for 1 drive system! 514.95 

ALL THREE ROUTINES S44.95 

Prices subject to change without notice Call or write for a 
complete catalog. Dealer inquiries invited. VISA and 
Mastercharge accepted. Foreign order in US currency 
only. Kansas residents add 3% sales lax. 
On-line catalog in Wichita FORUM-80: 316-682-2113 
Or call our 24 hour phone (316) 683-4811 or write- 
COTTAGE SOFTWARE ^-^7 
614 N. HARDING 
WICHITA. KANSAS 67?n6 
IHS-80^*'^ii a tiademark of Tandy Corporation 



^See Lis! of Advertisers on Page 455 
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Listing 1 continued 



,39 



1120 RETURN 

1130 REM "DRAWING A # 5" 

1140 PM0DE4,1 

1150 PCLS:SCREEN1,1 

1160 LINE(110, 82)-(110,40) ,PSET 

1170 LINE[110,40)-(170,40) ,PSET 

1180 CIRCLE(135,110) ,37,1,1,.65, 

1190 F0RJ=1T0 20:NEXT J 

120 RETURN 

1210 REM"DRAWING A # 6" 

1220 PH0DE4,1 

1230 PCLS:SCREEN1,1 

1240 CIRCLE (134, 90 ) , 56 , 1 , 1 , . 25 , . 85 

1250 CIRCLE(145,115) ,32 

1260 FORJ=lTO20:NEXT J 

127 RETURN 

1280 REM "DRAWING A # 7" 

1290 PH0DE4,1 

1300 PCLS:SCREEN1,1 

1310 LINE [158,40)-(128,140) ,PSET 

1320 LINE (158,40)-(99,40) ,PSET 

1330 FOR J=1TO20:NEXT J 

1340 RETURN 

1350 REM"DRAWING A # 8" 

1360 PH0DE4,1 

1370 PCLS:SCREEN1,1 

1380 CIRCLE(128, 120) ,30,1 

1390 CIRCLE(128,60) ,30,1 

1400 FOR J=1TO20:NEXT J 

1410 RETURN 

1420 REM"DRAWING CHOICE OF 1 OB 2" 

1430 PCLS:PM0DE4,l!SCREENl,l 

1440 LINE(32,23)-(32,123) ,PSET 

1450 CIRCLE (80, 83), 9 : LINE ( 98 , 91) - ( 98 , 77) ,PSET: CIRCLE (1 

,1,1,. 6,. 35: LINE (98, 84) -(107, 91) ,PSET 

14 6 LINE (150,120) -(210,120) ,PSET 

147 CIRCLE (17 8,10 8) ,30,1,1, .45, .75 

14 80 CIRCLE (17 8,4 8) ,30, 1,1, .60, .25 

1490 REM"CHOICE BETWEEN THE TWO SONGS" 

R$=INKEY$:IF R$="" THEN 1500 ELSE R=VAL(RS) 

RESTORE 
1520 READB:IFB<>-1THEN1520 
1530 IF R= 1 THEN 480 
1540 IF R=2 THEN 1570 
1550 IF R= 9 THEN 2310 
1560 GOTO1490 

1570 REM "ROW, ROW, ROW, YOUR BOAT" 
1580 FOR X-1T03: GOSUB890 : SOUND 89rl0:NEXT X 
1590 GOSUB940:SOUND108,6 
1600 GOSUB1010:£OUND125, 8 
1610 GOSUB1010:SOUND125,5 
1620 GOSUB940:SOUND108,5 
1630 GOSUB1010:SOUND125,5 
1640 GOSUB1060:SOUND133,5 
1650 GOSUB1140:SOUND147, 8 

1660 FORX=1TO3:GOSUB1360:SOUND176,4:NEXT X 
1670 FORX=1TO3:GOSUB1140:SOUND147,4:NEXT X 
1680 FOR X=1TO3:GOSUB1010:SOUND125,4:NEXT X 
1690 FOR X=iTO3:GOSUB890:SOUND 89,6:NEXT X 
1700 GOSUB1140:SOUND147,5 
1710 GOSUB1060:SOUND133,4 
1720 GOSUB1010:SOUND125,5 
1730 GOSUB940:SOUND108,4 
1740 GOSUB890:SOUND89, 8 
1750 GOSUB 1760:GOTO 2170 
1760 REH"MOVING THE BOAT" 
1770 PCLS 

PM0DE4,1:ECREEN1,1 

CIRCLE (28,28) ,10: PAINT (28,28) ,5,7 

CIRCLE (5,144) ,50, 1,1, .75, ,95 
1810 LINE (5 0,127) -(169,127) ,PSET: LINE ( 50 ,12 5) -(169,125) , 
1820 CIRCLE {17 0,96) ,30, 1,1, .01, .25 
1830 LINE(17,96)-(200,96) ,PSET 
1840 LINE(26,100)~{200,100) ,PSET 
1850 LINE(200,96)-{180,80) ,PSET 
1860 LINE(180,80)-(14,96) ,PSET 
1870 LINE(195,95)-(175,80) ,PSET 
1880 LINE(148,98)-(102,172) ,PSET 
1890 LINE(150,98)-(104,172) ,PSET 

1900 CIRCLE(40,172) , 40 ,1 , . 5 , . , . 49 :CIRCLE ( 40 , 152) ,4 
: CIRCLE (40, 13 2) , 40 , 1 , . 5 , . , . 49 

1910 DRAW"BM99,172;R10;D10;L10;U10;":PAINT(104,173 
1920 CIRCLE (120, 17 2) , 40 ,1 , , 5 , . , . 49 : CIRCLE ( 120 ,152) ,40,1 
49: CIRCLE (120, 13 2) ,40,1, .5, .0, .49 
193 CIRCLE (200, 172) , 40 ,1 , . 5 , . , . 49 : CIRCLE (200,152) ,4 



1, 79), 5 



15( 
1511 



1780 
1790 
1800 



PSET 



,1,.5,.0,.49 

,5,7 

,.5,.0,. 

1,.5,.0, 



Listing 1 continues 



TRS-80. It flashes large high-res- 
olution numbers on the screen 
while the song "Three Blind 
Mice" is played. The numbers 
correspond to the notes of the 
song. After the song, three mice 
appear on the screen. 

Next, it's the student's turn to 
play. A number is flashed on the 
screen without the accompany- 
ing sound. The student must 
press the corresponding num- 
ber on the keyboard. When the 
correct number is pressed the 
note will sound. Pressing the 
wrong number does nothing. 
There are no negatives in the 
program. Retarded people have 
enough negatives in their lives, 
without adding a computer to 
the list. 

After all the numbers have ap- 
peared on the screen, and all the 
correct responses have been 
made, the computer plays back 
the song, and then displays a 
happy face. 

Then the user is asked to 
press either one or two. Choos- 
ing one replays "Three Blind 
Mice,'' and number two repeats 
the original procedure with a sec- 
ond song, "Row, Row, Row Your 
Boat." The graphics for the sec- 
ond song are of a moving row- 
boat. The user can play these 
songs as many times as he 
tikes. Pressing ttie number nine 
ends the program. 

The retarded people who have 
used this program are delighted 
with it. It gives them a good 
sense of accomplishment and 
self-worth- They felt as if they 
had actually played music. 

There are two versions of the 
program presented here. Pro- 
gram Listing 1 is of the original 
16K Extended Color Basic ver- 
sion. Program Listing 2 is 16K 
Color Basic. 

Other Uses 

The program also works well 
with young children. There is no 
reading involved. Young users 
can also get that same feeling of 
accomplishment. ■ 



Steve Blyn was awarded an 
honorable mention in the Johns 
IHopklns First National Search 
for handicapped computer ap- 
plications for his entry, a pro- 
gram for retarded learners. 
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16K $82> 4814, I DRIVE $1499 RS 212 pMSTALLEI>| $92 
48K $849 48K, 2 DRIVE $1749 CASSETTE RECORDER 

• TANDY CORP. 






(90 DAY 



THESE ARE OUR CASH DISCOUNTED PRICEtL'.C.aD. AND CHARGE ORDf l*S Afie'a% MjQI^fl. ALL COMPU-. 
TERS ARE SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND' AVAILABlllTY ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL 

BUSINESS MACHINES, INC. ■ .^. - ■ , ■, :.,', ■ ■ ■;„" 






nmsii 



^Mi 



i 



I 18 SO. MILL ST 
PRYOR, OK 74J6I 
(«19| 825r4e44 "' 



— Proieasional — 

REAL ESTATE SOFTWA 

for APPLE, raS-SO a GPM SYSTEMS 
• PROPERTY MANAGEMENT SYSTEM: S4S0 



TenanI Hislory 
Lais Rent Report 
Vacancy Repait 
Incnma Report 
Aulo Lale Charge 
Returnad Checks 



OpBtating Stmt. 
Building Repoits 
Utihties Report 
Tax Expense Report 
Prints Checks 
Prints Receipts 



PROPERTY LISTINGS/COHPARABIES: $325 
— SCREEN HY—^ Max/ M In Price 
22 Itenis/Usllng Max Prlca/lncome 

1000 Listing/Disk Max Prlca/Sq Fool 

Ltsling Memo FMd Min Cashflow 

REAL ESTATE ANALYSIS MODULES: SSO/Modul 
Home Purchase Tax Defeired Exchange 

Income Prop Analysis APR Loan Analysis 
Property Sales Loan AmorUzation 

Construction Cost/Prdlt Depreciation/ ACRS Analysis 
Loan Sales/ Purchase Loan Wrap Analysis 

WORD PROCESSOR - WORD STAR: $295 



M Gompulu Storet Evtryoliira 

a Ordar COO Mnct 

Cil Rnldgnli add tv,% Sam T. 



Sulh E. 111B-81II SUM, Manhanin BiNh, CA WZ6e 




Absolutely The Best SciFi 

W^PERGiiTE rEf\)TUPiiOr\l 

Vdu are Ihf Gusrilian of thf Catewaj to otiisr galjiies 
in the most inno*atiif, tfie mosl sophisticated "real time" 
simiilation eifr oftered. A REAL BLOCKBUSTER 

H^PEPiSiaTE P^TRQL 

Natrgate the Hjpergales ol the Local Supercluster m 
search ol pirates, monstefs, and smugglers 

BOTH HAVE SUPER ACTION SOUNDS 8 GRAPHICS 

TRS-80' Modt;! I or III required 

specily: 16Ki.2 iJK disk sjslem 48Kdishsysteir 

BOTH GAMLS ON ONE CASSETTE S 39.95 Dpd 

Ser>d CHECK or MONEY ORDER ta: 

Synergistic Solar, Inc. 

PO Box 560595, Miami FL 33156 

Write tor our brochure of loo notch game programs 

DEALER INQUIRY INVITEO 

■ TRS-3D IRHDEUABK TANEV COUP. 



Data Acquisition 

and Control for the TRS-80* 

$230 ppd. 

The STAR8UCK-8883 ts a compieie eight channel 
data arquisioon and control system plug 
compatiDle with the Model i Level il TRS-80 il 
includes 8 pfoiecied analog inputs (0-5 Vdc with 
8+1 bit accuracyi. 8 crotecled digital inputs. 6 
optoisolated digtlai outputs and two joystick 
Dor:s inierfupl-flfiven software package allows 
stmultanBous data acquisition and storage while 
ii'iinq ihR TRS-80 lot any other purpose' 
Application manual covers home security energy 
monitoring, weather station use appliance 
control, graphics and games Price includes 
case power supply, extra expansion card edge, 
connector cable complete software package and 
detailed apphcaiions manual Manuals only are 
available lor $5 00 ppd fi/odel m version $250 
ppd To order wrile nr call 

STARBUCK DATA CO. 

PO Box 2A. Newton MAQ2l(i2 

617-237-7695 >-205 

Massachusetts residents add 5% sales tax 'TRS 80 
is a trademark of Tandy Corp. 



Listing 1 continues 

.49: CIRCLE (200, 132) ,40,1, .5, ,0, .49 

1940 PAINT(92, 90) , 5 ,7 : PAINT ( 75 ,122) , 5 ,7 : PAINT ( 150 ,122) ,5,7 

1950 FORG=i TO 50:NEXTG 

1960 PCLS sPMODE 4 ,1 : SCREENl , 1 

1970 CIRCLE (15, 14 4) ,50,1,1, ,75, ,95 

1980 CIRCLE (28,28) ,10:PAINT(28, 28) ,5,7 

1990 LINE (61,127) -(189,127) ,PSET: LINE (61 ,125) -(189 ,125) ,PSET 

2000 CIRCLE(190,96) , 30 , 1 ,1 , . 01 , . 25 

2010 LINE(37,96)-(220,96) ,PSET 

2020 LINE(40,100)-(222,100) ,PSET 

2030 LINE(220,96)-(200,80) ,PSET 

2040 LINE(200,80)-(34,96) ,PSET 

2050 LINE(215,95)-(195,80) ,PSET 

2060 LINE(168,96)-(217,172) ,PSET 

2070 LINE(170,96)-(219,172) ,PSET 

20 80 DRfiW"BM214,172;R10;D10;Ll0;U10;":PAINT (219,173) ,5,7 

2090 CIRCLE (60, 172) , 40 ,1 , . 5 , . , , 49: CIRCLE ( 60 , 152) ,40,1, . 5, .0,. 49 

: CIRCLE (60, 132) ,40,1, .5, .0, ,49 

2100 CIRCLE (140, 172) , 40 ,1 , . 5 , . , . 49 : CIRCLE (140 , 152) , 40 , 1 , . 5 , . , 

.49: CIRCLE (140, 132) ,40,1, .5, ,0,, 49 

2110 CIRCLE (220,172) , 40 ,1 , .5 , . , . 49 : CIRCLE ( 220 , 152) , 40 , 1 , , 5 , . , . 

49: CIRCLE (220, 132) ,40,1,.5,,0,.49 

2120 PAINT (180, 88) ,5,7 -.PAINT (80 ,105) ,5 ,7 : PAINT (190 ,105) ,5,7 

2130 FOR 2=1 TO 50: NEXT Z 

2140 RETURN 

2150 GGTO2150 

2160 GOSUB1770 

2170 DATA 1,89,1,89,1,89,2,108,3,125,3,125,2,108,3,125,4,133,5,1 

47,8,176,8,176,8,176,5,147,5,147,5,147,3,125,3,125,3,125,1,89,1, 

89,1,89,5,147,4,133,3,125,2,10 8,1,89,-1 

2180 READ C:IF C=-l THEN GOTO2220 ELSE ON C GOSUB 880, 930, 1000 

,1050, 1130, 1210, 1280. 1350 

2190 C$=INKEYS:IFCS = ''"THEN 2190 

2200 IF VAL(CS)<>C THEN GOTO 2190 

2210 READD:SOUNDD, 8 : GOTO 2180 

2220 REM"REPLAY OF SONG AND PICTURES" 

2230 GOSUB1770 

2240 SOUND89,10:SOUND 89 ,10 : SOUND89 , 10 

2250 SOUND108,6:SOUND125,10:SOUND125,6:SOUND108,6:SOUND125,6:SOU 

ND133 ,6:SOUND147,10 

2260 S0UND17 6,5: S0UND17 6,5: S0UND17 6 , 5 

2 270 SOUND147,5:SOUND147,5:SOUND147,5jSOUND125,5!SOUND125,5:SOUN 

D125,5:SOUHD89,5:SOaND89,5:SOUND89,5 

2280 SOUND14 7,6:SOUND133,5:SOUND125,6:SOUND10 8,5:SOUND8 9,10 

2290 GOSUB 1770 

2300 FOR X = 1 TO 1500: NEXT X : G0SUB3 80 : GOTO 1430 

2310 PCLS :FOR H=50 TO 200 STEP 5:S0UND H,1:NEXT H:FOR K-^1 TO 

200:NEXT K: FOR N = 200 TO 50 STEP -5: SOUND N,1:NEXT N 

2320 CLS(8) 

2330 END 



Program Listing 2. Color Basic 



REM "MUSIC" 

CLS3 

'COPYRIGHT BY S.BLYN-N. Y,-19 81 

PRINT" directions f ot the instructor" 

PRINT" *******************************" 

PRINT" THIS PROGRAM CONTAINS 2 SONGS" 
PRINT" 1. three blind raice AND" 

8 PRINT 

9 PRINT' 2. row, row, row, your boat " 

10 PRINT" SONG 1 WILL PLAY NOTE NUMBERSAND THEN SHOW PICTURES. 

11 PRINT" LEARNER MUST THEN PRESS FLASHEDNUMBER TO PLAY SONG'S N 
OTES . " 

12 PRINT" AFTER EACH SONG A CHOICE OP SONG #1 OR SONG #2 IS G 
IVEN. PRESS #9 TO END." 

13 FORQ=0TO63:FET(Q,2,8) : SOUND150,llNEXTQlFORW"63TO0STEP-l : SET(W 
,31,8) :NEXTW 

14 PRINT@448," music marvel "j(PRINT@ 480," 
PRESS <ENTER> TO BEGIN ";; INPUT ENS 

15 GOT043 

16 REH"DRAWING NUMBERS AND HAVING STUDENT PLAY THE SONG 'THREE B 
LIND MICE'" 

17 DATA 3,125,2,108,1,89,3,125,2,108,1,89,5,147,4,133,4,133,3,12 
5,5,147,4,133,4,133,3,125,5,147,8,176,8,176,7,170,6,159,7,170,8, 
176,8,176,5,147,5,147,8,176,8,176,8,176,7,170,6,159,7,170,8,176, 
8,176,5,147,5,147,5,147,8,176,8,176,7,170,6,159,7,170 

18 DATA 8,176,8,176,8,176,5,147,4,133,3,125,2,108,1,89,-1 

19 READA: IFA=~1THENGOT023ELSEONAGOSUB62 ,66 ,6 9 ,72 ,75 ,7 8 , 81 , 84 

Listing 2 Gonlinuos 
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-80 F/T 



-1 



WE STOCK A COMPLETE LINE 
OF EPSON ACCESSORIES 

CALL FOR PRICES!! 



S7>0 



^^MICROLINE 

HICS $99 

WE CARRY OKIDATA INTERFACES 
FOR MOST COMPUTERS 

CALL FOR PRICES! 



DMP-100 (26-12^7) Sfl9" 

50 CPS, UPPER & LOWERCASE, 10" CARRIAGE 



DMP-200 (26-1254) 



195 



120 CPS, BIDIRECTIONAL, ADJUSTABLE TRACTOR 
10"CARRIAGE 



DMP-400 (26-12!r1) 



$101$ 



00 



140 CPS, ADJUSTABLE, REMOVABLE TRACTOR 
FEED, 15 "CARRIAGE 

DMP-500 (26-1252) $i*2>***» 

220 CPS, HEAVY DUTY DESIGN, REMOVABLE 
ADJUSTABLE TRACTOR. 15" CARRIAGE 



DWP-41 



I'-im. 



OLIVETTI 

. ITOH« 

OWRITER 



8510PARALLEL-10" 
8510SERIAL-10" 
1550 PARALLEL-15" 
1550SERIAL-15" 



$4 

$6: 
$7 

$12. 



STARWRITER 

F-1040CPS, PARALLEL $14?- 

F-1040CPS, SERIAL $15' 

F-10 55CPS, PARALLEL $16 

F-1055CPS, SERIAL $18- 



OR 1987!! 



JSY WHEEL $1269 



PRINT "LETTER-PERFECT" ORIGINALS AT 
OVER 300 WORDS PER MINUTE. SWITCH 
SELECTABLE PRINT DENSITIES, 15" PLATEN. 



Bidirectional Tractor Feed 



$199.95 



TRACTOR FEED 
SHEET FEEDER 



EEL II (26 1158) $1649 



$275 ENVELOPE FEEDER 'S980 

$1450 ACCOUSTIC COVER $32f 



THE NEW OLIVETTI PRINTER CAN DOUBLE AS AN ORDINARY OFFICE TYPEWRITER OR YOUR COMPUTl 1 
PRINTER! A STANDARD PARALLEL INTERFACE ALLOWS EASY HOOK-UP TO ANY TRS-80 OR MOST AT 
COMPUTER. PRINTS APPROXIMATELY 10-15 CHARACTERS PER SECOND! 



f^ifiate'^ji.^'!!.' ,:ii" ( 



'■^4|Effl5 ARE Our CASH DISCOUNtED PRICES- C.O.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPU- 
:T6Rt, ARE SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO' 
GRANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF tNTERNATIONALl 
BUSINESS MACHINES. INC. 








' tt 



^O, NOW FDR 



FteiTUIF^M FROM l_ I STETD 



HAi-'^i.t.., i,.k.,i.,o. PUTS, SPREADS, IN 
AND OUT; COMMISSIONS, RISK, COST 
OF MONEY, DIVIDENDS. TABLES AND 
0RAPHS. PRINTS, STORES TO DISK. 
INDEXED MANUAL A COMPLETE GUIDE 
TO OPTION INVESTING. M/C & VISA. 
*125. SEND FOR FREE BROCHURE. 

OF^T X OM^ — ^O , BOX 471 
CONCORD, MASS 01742 

l*TIWKI«fl>; !■■'. --™EnSI!i: apple CQItPUTER. INC 



9 TRACK TAPE 

for TFJ^-aei^atl. 11/16 

ALDEVCO has available the AC- 
CESS II ANSI std, 9 track mag. 
tape (1600 bpi) system tailored 
to trie Radio Shack Model 11/16 
hardware and TRSDOS, provid- 
ing hard disk backup AND ac- 
cess to mainframe data bases. 
Other versions are available for 
the 8-100 bus and CPM. 

(oy ALDEVCO 

n 5725 Dragon Way 

^-~. / Cincinnati, Ohio 45227 

{oy (513)561-7671 



Listing 2 continued 

20 AS=IKKEY$:IFAS=""THEN20 

21 IFVAL(AS) <>ATHF,KGOTO20 

22 READB:SOUNDB,5:GOT019 

23 GOSUB58:SOUND125,10:SOL1ND108,10:SOUND89,15:SOUND125,13;SOUND1 
08,10:SOUND89,15 

24 SOUND147,10:SOUND133,6:SOUND133,6:SOUND125,15:SOUND147,10:SOU 
ND133,6:SOUND133,6:SOUND125,15 

25 G0SUB5e 

26 SOUND147,6:SOUND17 6,8:SOUND176,6:SOUND17 0,6:SOUND15 9,6:SOUND1 
7 0,6:SOUND17 6,6:SOUND17 6,8:SOUND147 ,10 

27 GOSUB58 

28 SOUNDI47,8:SOUND176 , 6 : SOUND176 , 6 : EOUND176 , 6 : SOUND170 , 6 : SOUNDl 
5 9,6:SOUND17 0,6:SOUND176,8:SOUND17 6,8:SOUND147,I0 

29 SOUND147,6:SOUNDl47,6:SOUNDl76,8:SOUND176,8:SOUNDl70r8:SOUNDl 
59,6:SOUND170 ,6:SOUNDl76 ,6 : SOUND176 , 6 : SOUND176 , 6 : SOUND147 ,10 : SOU 
ND133,8:SOUND125,10:SOUND108,10:SOUNDe9,12 

30 GOSUB5a:FORX=lTO40B:NEXTX 

31 CLS:GOSUB32:GOTC88 

32 REM "HAPPY FACE" 

33 CLS0:FORX=18TO45:SET(X,5,8) :SET(X,25,8) :NEXTX 

34 FORy-5T02 5:SET(18,y,8) :SET(19,Y,8) :SET{44,Y,8) :SET{45,Y,8) : NE 
XTY 

35 SET(25,10,7) :SET(38,10,7} 

36 SET{26,10,7) :SET(37,10,7) 

37 FORX=27TO36:SET(X,20,5) :NEXTX 

3 8 SET (26, 19, 5) : SET ( 37 ,19 ,5) : SET ( 25 ,1 8 , 5 ) : SET ( 38 ,18 ,5) 

39 FORT=1TO10:RESET(25,10) : RESET (3 8 ,10} jRESET ( 26 ,10) :KESETC37,10 
) :SOUND100,1:FORU=1TO30:NEXTU:SBT(25,10,7} :SETC38,10 ,7) :SET(26,1 
0,7) :SET(37,10.7) :NEXTT 

40 FORX=1TO1400:NEXTX 

41 RETURN 

42 REM" 3 BLIND MICE" 

43 FORX=1T02 

44 GOSUB7 0:SOUND125,7:GOSUB66 : SOUND108 ,7 : GOSUB62 : SOUND89 , 8 

45 GOSUB70:SOUND125,7:GOSUB66:SOUND10 8,7:GOSUB6 2:SO[)ND89,8 

46 FORR=1T02:GOSUB76:SOUND147,8 

47 GOSUB7 3:SOUND133,4:GOSUB73:SOUND133,4:GOSUB70:SOUNDX25,8: 

48 NEXTR 

49 GOSUB7 6:SO0ND147,4:GOSUB85:SOUNDl76,6:GOSUBa5:SOUND176,4:GOSU 
B82:SOUND170,4:GOSUB7 9:SOUND15 9,4:GOSUB82:SOUND17 0,4:GOSUB85:SOU 
NDI76,4:GGSUB85:SOUND176,6 

50 GOSUB76:SOUND147,8:GOSUB76:SOUND147,4 

51 GOSUB85 : SOUND176 , 4 : G0SUB85 : SOUND176 , 4 :GOSUB85 : S0UND176 ,4 

5 2 GOSUB82:SOUHD17 0,4:GOSUB7 9:SOUND15 9,4:GOSUB82:SOUND170,4:GOSU 
B85:SOUND176,6:GOSUB85:SOUND176,4:GOSUB76:SOUND147,6 

53 PORY-1TO200:NEXTY 

54 GOSUB76:SGUND147,6:GOSUB76:SOUND147,4:GOSUB85:SOUNDl76,6:GOSU 
B85:SOUND17 6,4;GOSUB82:SOUKD170,6:GOSUB7 9:SOUN0159,4:GOSUB82:SOU 
ND170,4 

5 5 PORE=1T03:GOSUB85:SOUND176,4:NEXTE 

56 GOSUB76:SOUND147,8:GOSUB7 3:SOUND13 3 ,6 : G0SUB7 :S0UNDl25 , 8:G0SU 
B67:SOUND108,8:GOSUB63:SOUND89,10:GOSUB58:GOSUB58 

57 RESTORE :G0T017 

58 ' MOVING MICE 

59 GOSUB155 

60 FORY-lTO50:NEXTy 

61 RETURN 

62 '111 

63 CLS0 

64 CLS0:FORX=1TO18:PRINT@5*X-1,1; : NEXTX 

6 5 RETURN 

66 '222 

67 CLS2:P0RX=1T018:PRINT@5*X-1,2; :NEXTX 

68 RETURN 

69 '333 

70 CLS3:F0RX=1T018:PRINT@5*X-1,3;!NEXTX 

71 RETURN 

72 '444 

73 CLS4:F0RX=1T018!PRINT@5*X-1,4;: NEXTX 

7 4 RETURN 

75 '555 

76 CLS5:F0RX=lT018:PRINT@5*X-l,5f iNEXTX 

77 RETURN 

78 '666 

79 CLS6:FQRX=1T018:PRINT@5*X-1,6;:NEXTX 

80 RETURN 

81 »777 

82 CLS7:FQRX=1T018:PRINT§5*X-1,7! iNEXTX 

83 RETURN 

84 '888 

85 CLS8:FORX=lT018:PRINT@5*X-l,8j iNEXTX 

86 RETURN 

87 REH"DRAWING CHOICE OF 1 OR 2" 

88 F0RX=1T08:CLS(X) : SOUND100 ,1 :NEXTX 

89 CLS0:PRINT@264,"1";:PRINT@271,"OR"mPRINT@279,"2"; 

90 REM''CHOICE BETWEEN THE TWO SONGS" 

Listing 2 continues 
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TEAC 



TAN DON 



BARE 



40 Track, Single 40-0050 $209 

40 Track, Double 40-0051 $289 

80 Track, Single 40-0052 $289 

80 Track, Double 40-0053 $349 



COMPUTE 

40 Track, Single 45-0050 $239 

40 Track, Double 45-0051 $340 

80 Track, Single 45-0052 $340 

80 Track, Double 45-0053 $399 



40 Track, Single 41-1001 S209 

40 Track, Double 41-1002 $269 

SOTfack, Single 41-1003 $269 

80Track, Double 41-1004 $349 



COMPLETE 

40Track, Single $249 

40 Track, Double $319 

80 Track, Single $319 



80 Track, Double 



$369 



We sell two brands of disk drives for the TRS-80: the TEAC and the Tandon. The TEAC disk drive has a 1 year warranty, the Tandon 

has a 90 day warranty. The TEAC uses a lead screw actuator, the Tandon uses a split band type actuator. The track to track access 
rate forthe Tandon is 5 milliseconds, as opposed lo 25 milliseconds for the TEAC, The TRS-80 Model III requires a faster drive speed 
than the Model I, therefore the Tandon works better with the Model III, With the slower drive speed requirements of the Model I, the 
TEAC Is a more reliable drive. We have both 40 track and 80 track drives with either single or dual head. All drives are capable of 
double density. These drives are available either bare or complete with power supply and cabinet, A cable is required to hook up the 
drives. We have both two-drive and four-drive cables. All drives come with complete instructions tor hooking up a system. TEACs 
and Tandons can be intermixed with other drives on the same system. 



DISK DRIVES MO 



DRIVE 



DRIVE 1 



Single Side, 40 Track- $595 Single Side, 40 Track $229 

Double Side, 40Track $729 Double Side, 80 Track $289 



SmgleSlde, 80 Track $729 



Double Side, SO Track $819 



Sfngle Side, 40 Track $289 



Double Side, 30 Track $339 



The disk drives we sell for the Mode) Ml are the Tandon drives. 
Drive includes the controller board, power supply, cables and all 
mounting hardware. Complete instructions are included for 
installation. It takes 30 minutes lo an hour to install disk drives in 
a Model III, No soldering is required. TRSDOS operating system 
Is not Included In this low price. 



IBM 



MPUTER 



40 TRACK 



BLE SIDE, 



ACK 



$209 



S299 



These drives are fully compatible with the IBM Personal Compu- 
ter. They can be used as the first or second drive and come with 
our exclusive 90 day warranty. DOS and Drive Adapters required. 
Our disk drives adhere to the high quality standards that IBM 
demands. 



i 



m 





16K LEVEL 1,1 



O-'D BASIC 



rti 



fA 



'*^< 



^ii'iftloUR CASriiDl'SC^UNTibPftiClS: C.6;d. AND CHARGE ORDERS ARE 3% HIGHER. ALL COM PI 
RS ARE SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT T 
...ANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATK^ 
BUSINESS MACHINES, INC. >& 










I verbatim® 
I Diskettes 



** 



^4-^ 




Top-quality Verbatim® Diskettes 
from Tech'Data, your complete 
word and data processing suppfy 
center. Dealer inquiries invited. 

^ Call Toll Free ^ 

1-800-237-8931. 

In Florida, call 

813-577-2794. 



Tech*Data Corporation 

325 i Tech Drive North 
St. Petersburg, FL 33702 




MORE AMAZING PRICES 

Epson MX-80 F/T $495.00 

NEC PC-8023A $479.00 

Okidata Microline 82A $449.00 

MX Series Zip Pack 

Ribbon Reloads $ 3.50 

MX-70, 80 & 80F/T 

Cartridge Ribbon S 6.50 

Microline 80, 82A, 83A Ribbon $ 1.85 
Holmes Model ill 

CPU Speed Up Mod $ 89.95 

Replacement Non-Glare 

OreenCRT $ 89.95 

Dos Plus 3.4 I/Ill $ 89.95 

NewDos/80 Version 2.0 $119.00 

Fhp-N-File (Holds 50 disks) $ 20.00 

East Coast Data provides hardware for your 

computer with prices for your budget' 

Call or write tor other fantastic values 

for you and your computer! 

EAST COAST DATA -^^^^ 

4325 Wyctiff Road •Portsmouth, VA 23703 
804/484-6636 (Voice) • 804/484-9636 (Data) 

Call lor shipping and ordering Intormatlon. 
Prices and spaclllcatlons subj^cl lo change. 



TRS-80 Model 16 & 68000 Systems 
Database & File Software 



relational database system 

easy to uae, powrerful, & efficient 

menus & English aubsel query language 
68000 code 

sequenllal. Indexed, & dlrpct Olea 
(Incl- features never aecn before 

random records, sequciillal update 
witlioul rewrite) 

mulllkey 

report generation 

data validation on entry 

repetitive batch updalc 

multi-extent files 

reentrant code for shared ti^agc 

multlple precision & floating point 

separnte file and sort [core/disk) 
packages available 



Data Management Systems 

211 N. El Camlno Real- lOlC 

Encinltas. CA 92024 

or phoni-: (714) 842-0744 



Listing 2 continued 

91 R$=INKEy$iIPR$="-THEN9lELSER=VAI,(RS) 

92 RESTORE 

93 READB:IFB<>-1THEN93 

94 IFR=1THEN42 

95 IFR=2THEN98 

96 IFR=9THEN136 

97 GOTO90 

98 REH"ROW, ROW, ROW, YOUR BOAT" 

99 FORV=1TO3:GOSUB63:SOUND89,10:NEXTV 

100 GOSUB67:SOUND108,6 

101 GOSUB70:SOUND125,8 

102 GOSUB70:SOUND125,5 

103 GOSUB67:SOUND108,5 

104 GOSUB70:SOUND125,5 

105 GOSUB73:EOUND133,5 

106 GOS[JB76:SOUND147,8 

107 FORM=1T03:GOSUB85:SOUND176,4:NEXTM 

108 F0RL=1T03 : GOSUB76 : SOUND147 , 4 : NEXTL 

109 FORK=1TO3:GOSUB70:SOUND125,4:KEXTK 

110 F0RW=1T03 : GOSUB6 3 : SOUND89 , 6 : NEXTW 

111 GOSUB76:SOUND147 ,5 

112 GOSUB73:SOUND133,4 

113 GOSUB70:SOUND125,5 

114 GOSUB67:SOUND108,4 

115 GOSUB63;SOUND89,8 

116 G0SUB117:G0T0122 

117 REH"M0VING THE BOAT" 

118 GOSUB139 

119 FORT=1TO500:NEXTT 

120 RETURN 

121 G0TQ121 

122 DATA 1,89,1,89,1,89,2,108,3,125,3,125,2,100,3,125,4,133,5,14 
7,8,176,8,176,8,176,5,147,5,147,5,147,3,125,3,125,3,125,1,89,1,8 
9,1,89,5,147,4,133,3,125,2,108,1,89,-1 

123 READC:IFC=-lTHENGOT0127ELSEONCGQSUB6 2,66,6 9,72,7 5,7 8,81,84 

124 C$=INKEYS:IFCS=""THEN124 

125 IFVAL(C$)<>CTHENG0T0124 

126 READD:SOUNDD,8:GOT0123 

127 REM"REPLAY OF SONG AND PICTURES" 

128 G0SUB117 

129 SOUND89,10:SOUND89,10:SOUND89,10 

13 SOUND108,6:SOUND125,10:SOUND125,6:SOUND108,6:SOUND125,6:SOUN 
D133,6:SOUND147,10 

131 SOUND17 6,5:SaUND176,5:SOUND176,5 

132 SOUND147,5:SOUND147,5;SOUND147,5:SOUND125,5:SOUND125,5:SOUND 
125,5: SOUND89 , 5 : SOUNDS 9 , 5 : SOUND89 , 5 

133 SOUND147,5:SOUND133,5:SOUND125,6:SOUND10 8,5:SOUND89,10 

134 G0SUB117 

135 FORX=lTO1500:NEXTX:GOSUB32:GOTO88 

136 PCLS:FORM=50TO2 00STEP5:SOUNDM,1:NEXTM:FORK=1TO200:NEXTK:FORN 
= 20 0TO50STEP-5 : SOUNDN , 1 : NEXTN 

137 CLS(8) 

13 8 END 

139 CLS0 

140 HH=0 

141 F0RYY=1T015 

14 2 PRINT @100-t-HH, CHR$ ( 135 ) +CHRS( 140 )-t-CHR$( 140 )+CHRS( 200 )-t-CHRS( 14 
0)-HCHRS(140)-l-CHR$(139) ; 

143 PRINTei32-(-MM,CHR5(141)-t-CHR$(131)-HCHR$(131)+CHR$(194)+CHR9(13 

1)+CHR$(131)+CHRS(142) ; 

14 4 PRINT@68-f-MM,CHR$(128)+CHR$(128)-(-CHR$[201) ; 

14 5 PRINT@164-l-MM,CHR$(128)-t-CHR$(128)-^CHRS(198) ; 

146 SOUND200,2:SOUND170,1 

147 PRINT@68-hMM,CHR$(128) ; 

148 PRINT@100-I-HM,CHRS(128) 

149 PRINTiai32-l-MM,CHR$(128) 

150 PRINT@164-t-HH,CHRS(128) 

151 MM=MM+1 

152 NEXTYY 

153 PRINT@115,CHR$[135) ; : PRINT@147 ,CHR5 ( 141 ) ; 

154 RETURN 

155 CLS0 

156 JJ=0 

157 F0RKL=1T045 

158 Y$=CHR$(247)-HCHR5(253)+CHRS(254)+CHR$(251) 

15 9 U$^CHR$(167)+CHRS(173)-^CHR$(17 4)-^CHR$(171) 

160 F$=CHR$(231)-fCHR$(237)-t-CHR?(23 8)-t-CHR$(235) 

161 PRINT@320-t-JJ,Y$; 

162 PRINT@319-fJJ,CHRS(128) ; 

163 PRINT@176-l-JJ,US; 

164 PRINT@175+JJ,CHR$(128) ! 

165 PRINT@454-i-JJ,F$; 

166 PRINT@453-!-JJ,CHRS(128) ; 

167 SOUND250,1 

168 JJ=JJ-H 

16 9 NEXTKL 
170 RETURN 
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E EXPANSION S1049" 

E EXPANSION $1549" 

XPANSiON 
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MEO SUBSYSTEMS 



iVE MOUNT ONE S4995— 

• Western Dynex D6222 Drive 
(5 mb FixedJS mb Removable) 
Controller, Adaptor and Cables 

1010 SUBSYSTEM $4995— 

• Data Peripheral Lynx Drive, 
(10 mb Removable WinctiesterJ 
Controller, Adaptor and Cables 

1040 SUBSYSTEM f ^995— 

• Data Peripheral Puma Drive 
(40 mb Fixed Winchester) 
Controller, Adaptorand Cables 

1020 SUBSYSTEM $7995— 

• 2 Data Periptieral Lynx Drives 
(20 mb Removable Winchester) 
Controller, Adaptor and Cables 

1050 SUBSYSTEM $8995— 

• Data Peripheral Lynx and Puma Drive 
(40 mb Fixed J 10 mb Removable) 
Controller, Adaptorand Cables 



—EXTRA DRIVES- 
WESTERN DYNEX D622 $4495 
1>ATA PERIPHERAL LYNX ^Jf 95 
DATA PERIPHERAL PUMA $4995 






YTE 
SYSTEM $ 



\ 



HARD DISK SYSTEM 



P jW fTjh*'-. 



..( £R ".■ S^ 



I/I 



SEC 



¥ Dl^iVE ,26-1130) $2595— 
AMY OillVE (26-1131) $1895— 



MULTIPLEXO!?S 

S^X200-2 PORT 

MULTIPLEXOR $49! 

(Cables and Adaptors Not Included) 

MX400-4 PORT 

MULTIPLEXOR $75i 

(Cables and Adaptors Included) 



THESE ARE OUR CASH DISCOUNTED PRICES. COD. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPU 
TERS ARE SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL 
BUSINESS MACHINES, INC. iS;3 
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118 SO. MILL ST 
PRYOR. OK 7" 

(918) 82>-484 



BtSINES 

OMPUTE 



GAME 
LOAD 80 



Generate mazes for games or graphics. 



Kwikmaze 



Dan Rollins 
370 N. Cerritos 
Apt. 15-A 
Azusa, CA 91702 



Maze generating programs 
operate very slowly. I have 
faced this fact ever since my 
first attempts at making mazes 
with a 4K Level 1. Some 
algorithms are faster than 
others, and there are specific 
tricks which speed up Basic pro- 
grams. There are even hardware 



modifications which make the 
computer run faster. But even 
with all these speed-ups, a maze 
like that shown in Fig. 1 will take 
as long as five minutes to com- 
plete! Basic is just too slow for 
generating mazes. 

Assembly-language coding 
is ideal for this application. The 
maze in Fig. 1 did not take 3-5 
minutes to generate; Kwikmaze 
drew it in less than four 
seconds. 

Face That Assembly Language 

Kwikmaze is my first full- 




figure 1 



Program Listing 1 



00100 r KWIKMAZE 

00200 jThis proyiaiii creates a maze of varying size on the 

06300 iscceon of your TRS-BB . It requires input of the 

00400 jheight and width of the desired maze. The height 

00500 ;mii3t te in the range 3 >- height =< 31. The width 

80600 ;inu8t be in the range 3 >= width =< 23. 

00800 ; 

00900 ;To access from BASIC, use : 

Listing 1 Continues 



length Assembiy-language pro- 
gram. Writing and debugging 
an Assembly-language program 
can be a painful and time con- 
suming task. If you plan to pro- 
gram in Assembly language get 
a feel for the opcodes; know the 
Z80 chip's limitations. The Z80 
Coo/tiboo/e (Sceibi Pubiishers) is 
a good place to start. Learn your 
editor/assembler and debug- 
ging programs and be comfort- 
able using them. Study other 
people's code and learn how the 
CPU flags operate. Then write 
short, simple programs which 
you fully understand. 

In my case, I felt I knew mazes 
in and out. So this was a logical 
choice for my machine 
language debut. The algorithm 
for maze generation is straight- 
forward: 

1) Determine height and 
width. 

2) Create a pair of pointers to 
keep track of the current ele- 
ment (or cell} being accessed. 

3) Initialize these pointers, 
randomly if desired. 

4) Check cells in four direc- 
tions and determine which have 
not been accessed. 

5) If there is no move avail- 
able, adjust the pointers until 
they are at a previously visited 
cell bordering an unvisited cell. 

6) Choose randomly among 
the bordering unvisited cells, 

7) Move the pointers to the 
new cell, creating an exit from 
the current cell and an entrance 
to the new one. 

8) Loop to step four until all 
cells have been visited. 

in Basic, the pointers usually 
access a two-dimensional array, 
and the array elements are given 



values indicating doors in vari- 
ous direction combinations. The 
array is then interpreted for the 
print routine. I wanted to see 
what was going on during pro- 
gram execution so I chose to 
use screen memory as my array 
workspace. I also kept the walls 
two pixels wide for symmetry, 
making the maximum maze 31 
cells wide by 23 cells high (713 
cells). You can create much 
larger mazes— up to about 
10,000 cells— for a really im- 
pressive printout to show your 
friends if you make some minor 
changes to the machine-lan- 
guage program and add a print 
routine. 

How It Works 

Kwikmaze follows closely the 
algorithm outlined above. First, I 
determine the height and width 
of the maze and pass these from 
Basic as the USR argument. Us- 
ing these values, the INIT por- 
tion of the program calculates 
the minimum and maximum val- 
ues for the X and Y (horizontal 
and vertical) pointers — the 
borders of the maze. To deter- 
mine the number of cells multi- 
ply height by width. 

This routine is complicated by 
the fact that I wanted the maze, 
whatever its size, to be posi- 
tioned directly In the center of 
the screen. I added and sub- 
tracted offsets from the position 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 



318 • 80 Micro, November 1982 





I I u Su. miLL ;;> I 
PRYOR, OK 74J61 

(918) 82^-4844 



SmaLI 
busjness 
COMPUTERS 



Al.l, LISTED PRICES REFLECT A J% CASH DISCOUNT C O D AM) CHAKCL ORDtKS ARL i% MORI- PLLASK CALL FOR CURRENI 
SHIPPING CHARGES. 



FOR THE 




BEEF PROJECTION $20.00 

BFFF RATION $15.00 

DAIKYCOW $15.00 
FEED LOT Models I and III $35.00 

Model II $100.00 

FARM RECORD $35.00 

GOVERNMENT PROGRAM $15.00 

GRAIN STORAGE $15.00 

LOAN ' $15.00 

MACHINE COST $20.00 

RECORDMANAGEMENT $15.00 

ESTATE TAX $25.00 

FEED FORMULATOR $35.00 

PASTURE PROJECTION $20.00 

'HARDWARE REOUIREMENT$ FOR THE ABOVE PROORAMS; (MlNIN^UM) TRS-SO Modfll L or 
.1' wlih '$K ■naortvOigk drive. For Mad«4 ti verjior^s ot trie ibove p^Dgramo, p1fl»s ada 16 00 per 
:i< i^rBrn (Feed Lol Pregrani Add Se& > Buy all the above proarerrA and save av«n more. Model 1 
.I'^i: hi Vertiontoniy $2S0 00 4Sev«(30kr Model 14 Verihona Only t3£[] {Sav«t&5.> 



A J 



2.0 



1 41 



iCE, ONLY 




DOS PLUS 3.4 and NEWDOS.80 2.0 are two o 
operating systems ever available for the TRS- 
thousands of dollars on your computer, why limit 
inferior operating system? Order Today I ! 



f the most 
80. After 

yourself by 



advanced 

spending 
using an 



MODEL I, III 

Cassette Scripsit 
Cassette Portfolio 
Stock Pack 
Disk Mailing List 
General Ledger I 
Inventory Control I 
Accts, Payable 
Accts. Receivable 
Disk Payroll 
Business Mailing List 
Profile 
Scripsit 
Visicalc-Mod I 
VisicalcMod III 
Project Manager 
Checkwriter 
Super Scripsit 



RADIO SHACK SOFTWARE 



26-1505 
26-1506 
26^507 
26-1551 
26-1552 
26-1553 
26-1554 
26-1555 
26-1556 
26-1558 
26-1562 
26-1563 
26-1566 
26-1569 
26-1580 
26-1584 
26-1590 



$34.95 Stnpsit Dictionary 

$24.95 Profile III Plus 

$44.95 Desktop Plan-80 

$34.95 Budget Mgmt. 

$87.95 Advanced Stat Analysis 

$87.95 
$138.00 

$138.00 MODEL II 

$175.00 Gen Ledger 1 Disk 

$87'.95 Inventory Mgmt, System 

$69.95 Mod II Visicalc 

$87.95 Profile II 

$87.95 Profile II Plus 

$175.00 Mod II Scripsit 2.0 

$87.95 Scripsit Dictionary 

$87.95 Inventory Mod II 

$175.00 Order Entry ICS 



26-1591 
26-1592 
26-1594 
26-1603 
26-1705 



26-4501 
26-4502 
26-4511 
26-4512 
26-4515 
26-4531 
26-4534 
26-4602 
26-4607 



$131.00 

$175.00 

$175.00 

$22.00 

$39.95 



$175.00 
$175.00 
$263.00 
$170.00 
$275.00 
$375.00 
$175.00 
$275.00 
$465.00 



1 CA! 



FOR THE COLOR COMPUTER 1 



* New Release ir 
OFFENDER 

We believe this is, without a doubt, the most ad- 
vanced game for the coior computer! In lhi5 
game, you must fly a rescue mission to save 
trapped hostages. Enemy ships tend to spirit 
away hostages while you are not looking. If you 
bias! the enemy and rescue the hostage, you are 
awarded bonus points. A very fast paced ma- 
chine code game which allows two-dimensional 
flying via the joysticks Requires 16K 
Cassette Version .$24.95 

Disk Versron $34.45 



Still A Big Favorite!! 
PACKET MAN 

The object of this machine code game is to con- 
sume mass quantities of dots before the little 
munchkins eat you ! Multitudes of these games 
were sold^at $24,95 BUT GUESS WHAT? The 
price has now dt-opped to only $21.95!!!!!!!!!!!!! 



Other Favorites 



Moon Lander 
Meteroids 
Space Invaders 



$14.95 
$21.95 
$21.95 



ITION SOF 



American Small Business Computers is one of the nation' s largest suppliers and distributors of TRS-80 related soft- 
ware. If you have a program which you would like to market, please contact Ms. Jeanie Phillips at American Small 
Business Computers, She will test and evaluate each program received, if the program meets our high standards, an 
offer of acceptance, along with our terms, will be returned with the software. All types of games, business and scien- 



tific proi 



lyalties are now 



of the center cell to define the 
borders of the maze. These 
borders are placed in a table and 
the lY index register keeps track 
of their values. 

All cells are initialized to an 
"unvisited" condition by paint- 
ing the screen white. The X,Y 
pointers are initialized arbitrari- 
ly at the very center of the maze. 

Steps 4-8 of the above algo- 
rithm are tied to the Set/Reset/ 
Point routine starting at line 
1360. This routine expects the 
DE register pair to contain an 
X,Y coordinate pair. Depending 
on the entry point, the routine 
either sets, resets or tests a pix- 
el. Entry at Point returns the 
CPU flag Z if the coordinate is 
unlit and NZ if it is lit. This is a 
self-modifying program and is 
therefore unsuitable for ROM 
programming. 

Note that only two changes 
are needed for the routine to do 
its work on non-video RAM (for 
the larger mazes mentioned 
above or the ability to move a 
completed maze directly to the 
screen). Line 1680 loads DE with 
the start of video memory which 
is added to HL and used as a 
pointer to the screen byte to test 
or change. Change that line to 
load DE with a different memory 
page and the action will take 
place v*/ithout changing the 
screen. Line 1530 loads DE with 
64, the length of a line of screen 
memory. If you are creating a 
maze wider than 31 cells, in- 
crease this value accordingly. 

FINDMV determines the pos- 
sible directions of motion by 
pointing DE to a neighboring 
cell and calling Point, tf, upon 
return, the Z flag is set, then the 
cell has been visited and that 
direction is invalid. If the flag is 
NZ then the cell has not been 
visited so the bit corresponding 
to the direction of the cell being 
tested is set in the C register. At 
DONCHK the C register is 
tested. If it is still zero, a scan 
routine is invoked until a valid di- 
rection is found. 

When at least one direction is 
available (C register does not 
equal zero) then the MAKEMV 
routine is called. This routine 
chooses one of the valid direc- 
tions randomly, using the Z80's 
refresh register as a random 
number. A single bit in the A 
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Listing 1 Conlinued 




01000 
01100 






VU = DSR 


1 width ' 256 + height) 








01200 


A 713 


cell ma^e is created in 


les3 than 5 seconds! 








01300 












7EH0 




01400 




ORG 


7E00il 






7E00 


CD7PeA 


01500 




CALL 


0A7FH 


jget height t width 




7E03 


CBC4 


01502 




SET 


0,H 






7E05 


CBC5 


01504 




SET 


0,L 


;iTHist be ODD 




7E97 


22A27E 


01600 
01602 




LD 


(HEIGBT) ,HL 


jstoce them 








01700 


Enter 


here to 


draw maximum si^e roaKe (31 x 23] 








017 2 












7E0A 


CD217E 


01705 HAXSIZ 


CALL 


IHIT 


;white-out screen and 








01710 








; intialize edges 




7E0D 


2AAfl7E 


01715 


IAIN 


LD 


HL, (COUNT) 






7t]10 


2B 


01720 




DEC 


HL 






7E11 


2 2A07E 


01725 




LD 


(COUNT) ,HL 






7E14 


7C 


01730 




LD 


A,H 


jcheck fO[ finished 




7E15 


B5 


01735 




OR 


L 






7E16 


Cfi7U7E 


01740 

01745 




JP 


Z ,DONE 


;<<< MAIN loop EXIT 




7E19 


CDFC7E 


01750 

01755 




CALL 


FINDHV 


jdetermine possible moves 




7E1C 


CD667F 


01760 




CALL 


MAKEMV 


; clear the cell i dooi: 




7E1F 


IBEC 


01765 
01770 
0177S 




JR 


MAIN 


(loop till done 




7E21 


21003C 


01800 


:niT 


LD 


HL,3C00E 






7E24 


36BF 


01909 




LD 


(HL) ,0BFB 






7E26 


11013C 


02000 




LD 


DE,3C01H 






7E29 


aiFF03 


02103 




LD 


BC,1023 






7E2C 


EDB0 


02200 




LDIR 




jwhite-out the screen 




7E2E 


112F00 


2300 




LD 


DE,47 






7E31 


3680 


02400 




LD 


6,128 






7E33 


CDA47E 


02500 


BLANK 


CALL 


RESET 






7E36 


14 


2600 




INC 


D 






7E37 


10FA 


2700 




DJN2 


BLANK 


;blank bottom line 




7E39 


FD219C7E 


02800 




LD 


lY , EDGTBL 


;point to edge table 




7E3D 


3AA37E 


02900 




LD 


A, (HIDTH) 






7E40 


3D 


03000 




DEC 


A 






7E41 


CB27 


03103 




SLA 


A 






7E43 


47 


03203 




LD 


B,A 






7E44 


3E3F 


93303 




LD 


A, 63 






7E46 


90 


03409 




SUB 


B 






7E47 


FD7700 


B3509 




LD 


(IY-l-0) ,A 


jcalculate WEST edge 




7K4A 


3E3F 


03609 




LD 


A, 63 






7E4C 


ae 


03709 




ADD 


A,B 






7E4D 


FD77ei 


03890 




LD 


tlY+1) ,A 


I EAST edge 




7E50 


3AA27E 


03909 




LD 


A, (HEIGHT) 






7E53 


3D 


0490a 




DEC 


A 






7E54 


47 


04109 




LD 


B,A 






7E55 


3E17 


04200 




LD 


A, 23 






7E57 


90 


04300 




SUB 


B 






7E5e 


FD7702 


04400 




LD 


(IY + 2) ,A 


;calciilate NORTH edge 




7E5B 


3E17 


04500 




LD 


A, 23 






7E5D 


80 


04600 




ADD 


A,B 






7i:5E 


FD77fl3 


04700 




LD 


(IY-^3) ,A 


SOUTH edge 




7E61 


2Afl27E 


04890 




LD 


HL, (HEIGBT) 


;H - width, L = height 




7E6 4 


45 


04900 




LD 


B,L 






7fc]65 


5C 


05000 




LD 


E,H 






7E66 


16fl0 


05100 




LD 


D,0 






7E68 


62 


05200 




LD 


H,D 






7E69 


6A 


05300 




LD 


L,D 






7E6A 


19 


05400 


LOOPl 


ADD 


HL,DE 


;COUNT = HEIGHT ' WIDTH 




7E6B 


10FD 


05500 




DJNZ 


LOOPl 






7E6D 


22A07E 


05600 




LD 


(COUNT) ,HL 


icalculate * o£ cells 




7E7 


163F 


05700 




LD 


D,63 






7E72 


1E17 


05800 




LD 


E,23 


jstart in center of screen 




7E7 4 


CDA47E 


05900 




CALL 


RESET 






7E77 


14 


06006 




INC 


D 






7E7 8 


CDA47E 


06100 




CALL 


RESET 






7E7B 


15 


06200 




DEC 


D 


icleac starting cell 




7E7C 


C9 


06300 
06400 
06410 


: 


RET 


;baok 


to MAIN loop 




7K7D 


leae 


eesae 


DONE 


LD 


D,a ;draw 


entrance and enit 




7E7F 


FD5E03 


06600 




LD 


E,(IY+3) 






7E82 


CDA47E 


06700 


DLOOPl 


CALL 


RESET 






7E85 


14 


06800 




INC 


D 






7E86 


7A 


06900 




LD 


A,D 






7Ea7 


FDBE0U 


07006 




CP 


(IY+0) 






7EiJA 


2aP6 


07100 
07200 




JR 


NZ, DLOOPl 






7EBC 


16 7F 


B7306 




LD 


D,127 






7E8E 


FD5E02 


07400 




LD 


E, (IY + 2) 






7E91 


CDA47E 


07see 


ni,ooP2 


CALL 


RESET 






7E94 


15 


07600 




DEC 


D 






7E95 


7A 


07700 




LD 


A,D 






7E96 


FDBEBl 


67800 




CP 


(IY+1) 






7E99 


2 0Ffi 


07909 




JR 


NE,DL00P2 






7E9B 


C9 


0830t. 
08305 
08400 


I 


RET 




!<<<<<<< pioglam EXIT 
ihack to BASIC 








06500 


;Fo3 lo 


jing add 


reesea ate used 


only by the program. 








eseee 


! 










7E9C 


B3 


08700 


SDGTBL 


DEFU 


3 


XMIN 






7E9D 


7B 


0880(9 




DEFB 


123 


XHAX 






7E9E 


01 


0890B 




DEPB 


1 


YMIH 






7E9F 


2D 


09000 




DEFB 


45 


YMAX 






7EA0 


CAB2 


09100 
09200 


COUNT 


DLFK 


714 










09300 


; These 


addresEos must be suppi 


led by the usee 








09400 


; via 


the USR(} argument unless entcy at KAXSIZ 








09500 












7EA2 


17 


09608 


iEIGHT 


DEFB 


23 rroaKimum height and width 




7EA3 


IF 


09700 
09600 


WIDTH 


DEFB 


31 










09900 


; SET/RESET/POI 


NT ROUTINE 










10000 




At entcy D = X, E = Y 










10100 


! if entry at 


POINT, 2 flag is 


SET i£ pixel NOT lit 




1 




10200 












7EA4 


3E8fi 


10300 


<ESET 


LD 


A,86H 






7EA6 


1806 


10400 




JR 


PLOT 






7EA8 


3EC6 


10500 


SET 


LD 


A,0C6H 






7EAfi 


1802 


10600 




JR 


PLOT 






7EAC 


3E46 


10700 


POINT 


LD 


A,46H 






7EAE 


32E47E 


10800 


PLOT 


LD 


(OPCODE) ,A 


Listing 


Cunliniie:; 



Listing I Continued 














7EB1 


C5 


10900 




PUSH 


BC 




7EB2 


E5 


11000 




PUSH 


HL 




7EB3 


D5 


11100 




PUSH 


DE 




7EB4 


0E01 


11200 




LD 


C,l 


;set up SIDE-OFFSET value 


7EB6 


CB3A 


11300 




SRL 


D 


;divide X by 2 


7EBe 


3801 


11400 




JR 


C,SKP5 


jreniainder? Pixel on EIGHT if so 


7EBA 


6D 


11500 




DEC 


C 


; else OFFSET - :pixel on LEFT 


7EBB 


6A 


11600 


5KP5 


LD 


L,D 




7EBC 


2600 


11700 
11800 




LD 


H,0 




7EBE 


7B 


11900 




LD 


A,E 


;qet Y ordinate 


7e;bf 


114000 


12000 




LD 


DE,64 




7EC2 


B7 


12100 




OR 


A 


;clear carry for SBC 


7EC3 


ED5Z 


12200 




SBC 


!1L,DB 




7ECS 


C603 


12300 




ADD 


A, 3 




7EC7 


D603 


12400 


JIV3 


SUB 


3 


jdivide Y value by 3 


7EC9 


19 


12500 




ADD 


HL,DE 


;adju3t screen ptr up 64 


7ECA 


FEB3 


12600 




CP 


3 


juntil it won't go again 


7ECC 


30F9 


12700 




JR 


NC,DIV3 




7ECE 


CB27 


12800 




SJ.A 


A 


jniult remainder by 2 : A = 0,2,4 


7i:De 


81 


12900 




ADD 


A,C 


ladd SIDE-OFFSET: A - 0,1,2,3,4,5 


7 EDI 


47 


13000 




LD 


B,A 




7ED2 


CB20 


13100 




SLA 


B 




7ED4 


CB20 


13200 




SLA 


B 




7ED6 


CB20 


13300 
13400 




SLA 


B 


;get value for opcode 


7EDB 


11003C 


13500 




LD 


DE,3C00H 




7BDB 


19 


13600 
13700 




ADD 


HL.DE 


;HL => BYTE to change 


7BDC 


3AE47E 


13B00 


3KP6 


LD 


A, (OPCODE) 


7EDF 


80 


13900 




ADD 


A,B 




7EE0 


32E47E 


14000 




LD 


(OPCODE) 


• A 


7EE3 


CBC6 


14100 




SET 


0, (HL) 


;thls is changed during 


7EE4 




14200 OPCODE 


EQU 


S-1 


,- execution. 


7EE5 


Dl 


14300 




POP 


DE 




7EE6 


El 


14400 




POP 


HL 




7EE7 


CI 


14500 




POP 


BC 




7EEe 


C9 


14600 
14700 




RET 










14800 


this [Outine 


expects C 


register to hold bits 






14900 


e=WEST 4==S0UTH 2=EAST 


1=N0RTH (and combinations) . 






15000 
15100 
15200 


RETURNS A 


= ranciom direction of entry possibilities 


7EE9 


ED5F 


INDKUM 


LD 


A,K 


;REFBEEH register is random 


7EEB 


E60F 


15300 




AND 


15 




7EED 


47 


1540B 




LD 


B,A 




7EEE 


3E02 


15500 




LD 


A, 2 




7EF0 


CB2F 


15600 


<SHIFT 


SRA 


A 




7Erz 


3002 


15700 




JR 


NCRSKP 




7EF4 


CBDF 


15 800 




SET 


3, A 




7EF6 


10F8 


15 900 


iSKP 


DJNZ 


RSHIFT 




7EFB 


fil 


16000 




AND 


C 


;is result a valid direction? 


7EF9 


28EE 


16100 




JR 


Z,RNDNUM 


;no, get another 


7EFB 


C9 


16200 
16300 
16400 




RET 




;yes, pass it to caller 














7 EEC 


62 


17100 


INDHV 


LD 


H,D 




7EFD 


6B 


17200 




LD 


L,E 


jCOPY X,Y INTO HL 


7EFE 


0E00 


17300 




LD 


c,e 




7F00 


7B 


17400 


HKNTH 


LD 


A,E 




7F01 


FDBE0 2 


17500 




CP 


(IY+2) 


;Y = MINIMUM ? 


7F04 


2e0A 


17600 




JR 


Z.CHKSTH 


;yes, try SOUTH 


7F06 


ID 


17700 




DEC 


E 




7F07 


ID 


17800 




DEC 


E 


jno, checl( cell above 


7F0e 


CDAC7E 


17900 




CALL 


POINT 


! is cell "open" 7 


7F0B 


5D 


18000 




LD 


E,L 





7F0C 2802 
7F0E CBCl 

7F10 7B 

7F11 FDBE03 

7F14 280A 

7F16 IC 

7F17 IC 

7F18 CDAC7E 

7F1B 5D 

7F1I:: 2802 

7F1E CBDl 

7F2a 7A 
7F21 FDBE00 
7F24 280B 
7F26 D604 
7F28 57 
7F29 CDAC7E 
7F2C 54 
7F2D 2802 
7F2F CBD9 

7F31 7A 
7F32 PDBE01 
7F35 280B 
7F37 C604 
7F3 9 57 
7F3A CDAC7E 
7F3D 54 
7F3E 2802 
7F4a CBC9 

7F4a 79 
7F43 B7 
7F44 C0 



7F45 7A 
7F46 C604 
7F48 57 
7F49 FD7E01 
7F4C BA 
7F4D 3010 
7F4F FD5600 
7F52 7B 
7F53 C602 
7P55 SF 



18100 
18200 
18300 ; 
1840B CHKSTH 
1850B 
1B600 
18700 
18800 
18900 
19000 
19100 
19200 
19300 ; 
19401 
19500 
19600 
19700 
19800 
19900 
20000 
20100 
20200 
20300 ; 
20400 CHKEST 
3500 



INC 
IMC 

CALL 
LD 
JR 
SET 



CHKHST LD 



JR 
SUB 



2t 

20600 

20700 

20800 

20900 

21000 

21100 

21200 

213 00 ; 

21400 DONCHK 

21500 

21600 

21605 

2170 ; 

21800 SCANl 

21900 

22000 

22100 

22200 

22300 

22400 

22500 

22600 

22700 



JH 
SET 



ADD 

LD 

CALL 



OR 
RET 



Z pCHKETH 
0,C 

A,E 

1IY+3J 

Z,CHKW£T 

E 

E 

POINT 

E,L 

Z,CHKWST 

2,C 

A,D 

(iy+0) 

2, CHKEST 

4 

D,A 

POINT 

D,H 

Z, CHKEST 

3,C 

A,D 

(IY+1) 

Z, DONCHK 

A, 4 

D,A 

POINT 

D,H 

Z, DONCHK 

1,C 

fl,C 



;no, try SOUTH 

;yes, set NORTH bit in C 



;Y = YMAX 7 



;3et SOUTH bit in C 
;X - XHIN ? 



I set WEST bit in C 
jX = XHAX 7 



fset EAST bit in C 
; if C = there was no move 



;at least 1 move possible 
I EO return to HAIN loop 



A,D 

A, 4 

D,A 

A,(IY-H) 

D 

NC,SCAN2 

D, {IY+0) 

A,E 

A, 2 

E,A 



;no move, scan screen for opening 
jadjuet X one cell WEST 



;if X > XHAX then 
,- X becomes XHIN 



radjust Y SOUTH 



tilling 1 Continues 



register, rotatecj a ran(Jom 
number of times, is maskeiJ by 
the C register. Wlien the random 
bit is also on in the C register, a 
valid move has been deter- 
mined. Otherwise the process 
repeats. The result is very ran- 
dom and mal<;es any maze 
created unique. 

When a valid direction is 
found, MAKEMV simply resets 
the pixels between the current 
and new ceils (makes a "door") 
and resets the two pixels which 
are the interior of the cell, 
leaving X,Y (the DE register 
pair) pointing to the nevi^ly 
created cell. 

After each cell is created, the 
variable Count is decremented. 
When this counter goes to zero, 
the maze is finished. Control 
passes to Done which resets 
lines leading into and away from 
the maze, creating the entrance 
and exit. These could be placed 
at any two parts of the maze as 
there is only one direct route 
between any two cells. I chose 
the bottom left and top right cor- 
ners so they will be physically as 
far apart as possible. The return 
instruction at line 1080 is the ex- 
it from the program. 

The Basic Program 

Program Listing 2 is one ex- 
ample of how to use Kwikmaze. 
The first part of the program 
(lines 80-150) reads the data 
lines and POKEs the machine 
code into place. The POKEs 
start at 32256 (7E00H) and go to 
32692 (7FB48) so be sure to set 
memory size below 32256. Note 
that the data is in hexadecimal 
format. It is read as strings and 
interpreted as numeric bytes for 
the POKEs, This method saves 
typing. Also, you may use the 
data lines as a hex dump of the . 
program for entry with Debug or 
other monitor. The drawback of 
the hex format is that the 
loading time is longer than for 
decimal data (30 seconds). A 
star flashes in the top left corner 
of your screen to show that all is 
well. 

Once the machine code is in 
place, you are prompted for the 
size of the maze. Width is the 
number of columns of cells 
across the screen, height is the 
number of rows from top to bot- 
tom. The Basic program traps 
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'■^_ 



Listing 1 Continued 










7F56 FD7B03 


22800 




LD 


A,(IY+3) 


7F59 BB. 


22900 




CP 


E 


7F5A 3003 


23000 




JR 


KC,SCAN2 fjf Y > YMAX then 


7F5C FD5E02 


23100 




LD 


E,(IY+2) f 1 becomea YHIK 


7F5F CDAC7E 


23200 


SCAN2 


CALL 


POINT' fif cell is 'doorlees" 


7F62 20E1 


23300 




JR 


NZ,SCAN1 I then try another 


7Fe4 1896 


23400 
23500 




JR 


FINDKv ;else check for moves 


7F66 CDE97E 


23600 


1AKEMV 


CALL 


RNDNUM ;retLirn one of N, S, E, W 


7F69 CB4F 


23700 




BIT 


1,A 


7F6B 2035 


23800 




JR 


. NZ,EAST 


7F6D CB57 


23900 




BIT 


2, A 


7F6F 2013 


24000 




JR 


NZ , SOUTH 


. 7F71 ,CB5F 


24100 




BIT 


3, A 


7F73 201E 


24200 
24380 


• 


JR 


NZ.WEST 




24305 


;each routine 


Cleats the "door" from the cuinent cell, 




24310 


;clears 


the new cell itself, and updates the X,Y pointer. | 




24315 


* 






7F75 ID 


24400 


H08TH 


DEC 


E 


7F76 CDA47E 


24500 




CALL 


RESET 


7F79 14 


24600 




INC 


D 


7F7A CDA47E 


24700 




CALL 


R£SET 


7F7D ID 


24800 




DEC 


E 


7F7E CDA47E 


24900 




CALL 


RESET 


7F81 15 


25000 




DEC 


b 


7F82 182D 


25100 
25200 




JR 


MHEXIT 


7Fe4 IC 


25300 


SOUTH 


INC 


E 


7FB5 CDA47E 


25400 




CALL 


RESET 


7FBe 14 


25500 




INC 


D 


7F89 CDA47E 


25600 




CALL 


RESET 


7FBC IC 


25700 




INC 


E 


7F8D CDA47E 


25600 




CALL 


RESET 


7F90 15 


25900 




DEC 


D 


7F91 181E 


26000 
26100 




JR 


MHEXIT 


7F93 15 


26200 


WEST 


DEC 


D 


7F94 CDA47E 


26300 




CALL 


RESET 


7F97 15 


26400 




DEC 


D 


7F98 CDA47E 


26500 




CALL 


RESET 


7F9B 15 


26600 




DEC- 


D 


7F9C CDA47E 


2E700 




CALL 


RESET - 


7P9F 15 


26 800 




DEC 


R 


7FA0 180F 


26 900 
27000 




JR 


MMEXIT 


7FA2 14 


27100 


EAST 


INC 


D 


7FA3 14 


27200 




INC 


D 


7FA4 CDA47E 


27300 




CALL 


RESET 


7FA7 14 


27400 




INC 


D 


7FA8 CDA47E 


27500 




CALL 


RESET 


7FAB 14 


27600 




INC 


D 


7FAC 14 


27700 




INC 


D 


7FAD CDA47E 


27 800 




CALL 


RESET 


7FB0 15 


27 900 




DEC 


D 


7FB1 CDA47E 


28000 


MHEXIT 


CALL 


RESET 


7FB4 C9 


28100 




RET 


;bacK to MAIM loop 


0000 


28200 




END 




00000 TOTAL 


ERRORS 









errors The first portion of the 
machine code also makes cer- 
tain that the dimensions are odd 
to keep the maze centered in the 
screen. 

The routine at lines 180-430 
allows you to run a dot through a 
ponstantly changing maze. 
Starting at the entrance, press 
the arrow keys to move the dot. 
A new maze is created at ran- 
dom Intervals, so sometimes 
you will need to judge whether 
to retain your current position 
hoping the new maze will give 
easy access to the exit, or try to 
improve your position. You are 
scored according to the length 
of time needed to traverse from 
entrance to exit. 

If you are not Interested in 
games, delete lines 180-440 and 
use: 



180 H = RND(20} + 3 :W = RND(28) + 3 

190UU = USR(H + W256) 

200 FOR DELAY = 1 TO1000:NEXT 

210 GOTO 180 

Kwikmaze is now a dazzling, 
hypnotic display. ■ 



Dan Rollins is a numerical 
control machinist and a com- 
puter science student at Citrus 
College. 



10 I *** KWIKMAZE *" 

20 ' ** by DAK ROLLINS •* 

30 ' •* 08/03/81 •• 

40 DEFINT A-Z 

50 CS=0 : ADDR= 32256 "* 7E00 HEX 

60 CLS iPRItrae 472, "KWIKMAZE" :PRIKT8 533,"BY DAM ROLLIKS' 

70 PRINTS 973, "LOADING MACHINE CODE, PLEASE STAMOBY"; 

75 ' 

* Routine converts hex Data to decimal ^ot POKEa 

* line 110 not needed when data is good 

* line 120 is optional 

80 READ AS :IF AS="BND" GOTO 150 

90 BS=LEFTS(AS,1) :CS=RIGHTS(A5,1) 

100 X=ASC(BS)-4e+(BS>"9")*7 :Y-ASC(CS)-48 + (CS>"9")*7 

110 CS=CS+x+Y '* calculate checksum 

120 . PRINTS 0,CHRS(32+(CS AND 1) 'IB) J '* blink star 

130 POKE ADDR,X*16+Y !ADDH=ADDB+1 

140 GOTO 80 

150 IF CSO 6330 CLS :PR1BT" ** BAD DATA •*" :END 

160 POKE 16526,0 :POKE 16527,126 

170 ' * disk users ecaae to here -> DEFUSRa=SH7E00 

180 CLS :INPUT"HEIGHT OF MAZE (3-23). "jH 

190 IF B<3 OR H>23 THEN 180 ELSE H-IflT(H/2) *2+l 

200 INPOT'WIDTH OF MAZE (3-31) "(W 

210 IP H<3 OR W>31 THEN 200 ELSE W=INT(W/2) *2-H • 

220 X=l :Y=22 + H !SC=0 !D=0 

230 UU=USR[W • 256 + H) ' * draw a maze 

240 FOR J-1 TO RND(H+Vi+25 

250 GOSUB 340 :IP D=l LET J=101 '* exit loop gracefully 

260 NEXT J . '* when dot at maze exit 

270 IP DOl THEN 230 

280 CLS JPRIKT ■ YOUR SCORE IS ==> "jSC 

290 PSINTg 960, "HIT <ENTER> TO PLAY AGAIN") 

300 K5=IBKEy5 : FOB DELAY=1 TO 50 sKEXT 

310 PRINTS 964," "; :FOR DELAY=1 TO 50 :NEXT 

320 IP KS=CHRS[13) THEN 180 ELSE 290 



330 



move the dot 



340 RESET(X,Y) !RESET(X+1,Y) 
350 SC=-SC+1 !AR=PEEK(14400) 
360 X1=0 !Yl=0 
370 IF AR AND 8 THEN Yl=-1 
380 IF AR AND 16 THEN Yl=l 
390 IF AR AND 32 -THEN Xl=-2 



iFOR DELAY=1 TO IS :NBXT 



400 IF AR AND 64 THKN Xl=2 

410 IF PdlNT(X+Xl,y+Yl) THEN SET{X,Y) :SET(X+1,Y) rRETURN 

420 X=X+X1 !Y=Y+Y1 :SET(X,Y) :SET(X+1,Y) 

430 IF X>123 THEN D=l 

4 40 RETURN 

999 ' 

" The program loads trora 7E0eH to 7FLi4H ** 

•* Entry at 7E00H from BASIC ! USR(W*256+H) ** 

** Entry at 7E03H expects L»helght, H=width •• 

*• Entry at 7E0A draws largest (31x23) maze ** 

* 7E00H ^ 

IHBB DATA CD,7P,04,CB,C4,CB,C5,a2,A2 ,7E,CD,21 ,7E,2A,A0,7E 

1010 DATA 2B,22,A0,7E,7C,B5,CA,7D,7E,CD,FC,7E,CD,66,7F,18 

1020 DATA L:C,21,00,3C,36,BF,ll,01,3C,01,f'F,e3,ED,B0,ll,2E 

1030 DATA 00,06,80,CD,A4,7E,14,10,FA,PD,21,9C,7E,3A,A3,7E 

1040 DATA 3D,CB,27,47,JE,3t',9e,FD,77,0a,31::,3Fri!0,FD,77,01 

1045 " 7E50H '■ 

1030 DATA 3a,a2,7E,3D,47,3B,17,90,FD,77,02,3E,17,80,FD,77 
1060 DATA e3,2A,A2,7E,45,5C,16,aa,62,6A,i9,10,FD,22,A0,7E 
1070 DATA 16,3F,1E,17,CD,A4,7E,14,CD,A4,7E,15,C9,16,00,FO 
1080 DATA 5E,03,CD,A4,7E,14,7A,FD,BE,00,20,F6,16,7F,FD,5E 
1090 DATA 02,CD,A4,7E,15,7A,FD,BE,01,2fl,F6,C9,03,7B,01,2D 
1095 '* 7EA0H 

1100 DATA CA,02,17,1P,3E,86,18,06,3E,C6,18,02,3E,46,32,E4 
1110 DATA 7E,C5,E5,D5,0E,01,CB,3A,38,01,0D,6A,26,e0,7B,ll 
1120 DATA 40,00,B7,ED,52,C6,03,D6,03,19,FE,03,30,F9,CB,27 
1130 DATA 81,47,CB,20,CB,20,CB,20,ll,0e,3C,19,3A,E4,7E,e0 
1140 DATA 32,S4,7E,CB,C6,D1,E1,C1,C9,ED,5F,E6,0F^47,3E,02 

1145 ■* 7EE0H 

1150 DATA CB,2F,30,e2,CB,DF,10,F8,Al,28,EE,€9,62,6B,0E,80 

1160 DATA 7B,fD,BE,02,28,0A,lD,lD,CD,AC,7E,5D,28,02,CB,Cl 

1170 DATA 7B,FD,BE,03,28,0A,1C,1C,CD,AC,7E,5D,28,B2,CB,D1 

llaa DATA 7A,FD,BE,00,28,0B,D6,04,57,CD,AC,7E,54,28,02,CB 

1190 DATA D9,7A,FD,BE,01,28,0B,C6,84,57,CD,AC,7E,54,2a,02 

1195 '* 7F40H 

1200 DATA CB,C9,79,B7,C0,7A,C6,04,57,FD,7E,01,BA,30,10,PD 

1210 DATA 56,00,7B,C6,02,5F,FD,7E,03,BB,3e,a3,FD,5E,02,CD 

1220 DATA AC,7E,20,B1,1B,96,CD,E9,7E,CB,4P,20,35,CB,57,20 

1230 DATA 13,CB,5Fr20,lE,lD,CD,A4,7B,14,CD,A4,7E,lD,CD,A4 

1240 DATA 7E,15,18,2D,1C,CD,A4,7E,14,CD,A4,7E,1C,CD,A4,7E 

1245 '* 7F90H 

1250 DATA 15,ie,lE,15,CD,A4,7E,15,CD,A4,7E,15,CD,A4,7E,lS 

1260 DATA ie,0F,14,14,CD,A4,7E,14,CD,A4,7B,14,14,CD,A4,7E 

1270 DATA 15,CD,A4,7E,C9 

1280 DATA END 



Program Listing 2 



322 • 80 Micro, November 1982 



SOFTWARE CATALOG NO. 10 



ABRIDGED EDltibll% 



C[ll?IPlJTHQnH 

*" NORTH PASCACK ROAD • SPRING VALLEY, NEW YORK 10977 
RDER LINE: (800) 431-2816 • OTHER INQUIRIES: (914) 42^-1535 



EVERYTHING F 

'TRS-80 IS a ttademark o1 the, 
*CP/M Is a Irademari 



TRS-80'" • ATARI'" • APPLE'" • PET" • CP/M'" • XEROX'" • IB|MgQSBORNE'" 

ii/isiCMi Of Tandy Corp - "ATARI is a lipdemdrk ol Alan Inc - -APPL^is B' Irademitk.at'AppleCori) 'P^^^Vademark ol Commodora 
jarch - •XEROX iS auademarK ol Xeroii Coip. - "IBM Is a irademarKo'+BM-Co'p:-,"03BdRlilE is a rfat^^Hlt Osbcrne Co'P- 



'o-fliaeft 







30 DAY MONEY BACK GUARANTEE ON MOSt 
• THE COMPLETE H & E COMPUTRONICS, INC., CATALOG COMES FREE WITH EVERY ORDER. 
(TO RECEIVE A CATALOG ALONE, SEND $2 WITH YOURWgQUEST) 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model I, II, III. or 16) • APPLF" • IBM'" • OSBORNF" • CP/NT" • XEROX™ » 







The VersaBusiness" Series 

Each VersaBusiness module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VERSaRECEIVABLES'" $99.95 

Versa Receivables'" is a complete menu-driven accounts receivable, invoicing, and 
monthly statement- gene rating system. It keeps track oi all information related to who 
owes you or your company money, and cari provide automatic billing for past due ac- 
counts. Versa Receivables" prints ail necessary statements, invoices, and summary 
reports and can be linked with VessaLedgER ii"" and VERSA INVENTORY™. 

VeBSaPAYABLES^' $99.95 

Versa Payables- is designed to keep track of current and aged payables, keeping you 
in (ouch with all information regarding how much money your company owes, and to 
whom. Versa Payables- maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With Versa Payables", you can even let your computer automatically select 
which vbuchers are to be pakl. 

VERSaPAYROLL" $99.95 

Versa Payroll'" is a powerful and sophisticated, but easy to use payroll system that 
keeps track of alt government required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations ate performed automatically, with 
totals displayed on screen for operator approval, A payroll can be run totally, automati- 
cally, or the operator can intervene to prevent a check from being printed, or lo alter 
information on it. If desired, totals may be posted to the VERSaLEIJGER IP system. 

VERSaINVENTORV" $99.95 

Versa Inventory- is a complete inventory control system that gives you instant access 
to data on any item, Vehsa INVENTORY- keeps track of all information related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and alfows you lo enter and print 
invoices directly or to link with the VersaReceivak.es- system. VERS A Inventory- prints 
all needed inventory listings, reports of items bebw reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc. 

■CQIHPUTRQI^ilCBi 

50 N. PASCACk ROAD, SPRING VALLEY, N.Y. 10977 -9 



VERSALEDGER IV $149.95 

VersaLedger U'" is a complete accounting system that grows as your business 
grows. VersaLedger If" can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger IT'" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor-feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VersaLedger IF" comes with a professionally-written 160 page manual de- 
signed for first-time users. The VersaLedger lI'" manual will help you become 
quickly familiar with VersaLedger W. using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Euery VERSA BU SIN ESS - module is tjuaianleed looutperform all iHher competitive svslems, 
and al a fiacrion oirheir cosl. If you are nol satisfied u/ith any VERSABUSINESS*" module, you 
may reluin it uJiihin 30 days (or a reiund. Manuals for any VERSABUSINESS'" module may be 
purchased lot $2S each, credited loward a later purchase ol thai module. 



To Order: 
Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



■ add SS io CANADA or MEXICO 
* add proper postage elsewhere 



add $3 for shipping in UPS areas 
add S4 lor C.O.D, or non-UPS areas 



DEALER INQUIRIES WELCOME 

Ail prices and specifications aubiecl lo change ■■ Delivery subject to availabilily 



TRS-80 B a trademark of the Radio ShacU Dhnsion of Tandy Corp. ■ -APPLE Is a trademarh of Apple Con., - 'IBM is a H-ademarU d IBM Corp. - 'OSBORNE is a Iradernark ol Osborne Corp. 

*CP/M is a trademark ol Digilal Research ■ 'XEROX Is a trademark of Xerox Corp. 




• THE ULTIMATE PERSONAL CHECK REGISTER 

• A PROFESSIONAL ACCOUNTING SYSTEM 

• A PERSONAL FINANCIAL MANAGER 

• A SMALL BUSINESS ACCOUNTING SY§tEM 

• A COMPLETE GENERAL LEDGER 

» mm OF • D j.i.* • mmip • mmF 

'TRS-80 is a trademark of Tandy Corp. - 'APPLE is a trademark ct Apple Corp. - 'I.B.M. is a trademark of I.B.M. Corp. - 'XEROX is a trademark of Xerox Coni. 

'ATARI is a trademark of Atari Inc. - 'OSBORNE is a trademark of Qsborne Corp. -'PET and CBM are trademarks of Commodore Corp. 

no>viT>vocr$ 

VERSALEDGER II is a complete accounting system that grows as you oryour business grows. To start, your VERS A- 
LEDGER II acts as a simple method of keeping track of your checkbook. Just enter your check number, date and 

whom. the check is made out to. As you oryour business grows, you may add more details to your transactions 

account number, detailed account explanations, etc 



• VERSALEDGER II is an expanded and enhanced version of oui original VERSALEDGER 

• VERSALEDGER II gives you an instant cash balance at anytime. (IF VOU WANT IT TO) 

• VERSALEDGER II can be used as a small personal checkbook 
register. (IF YOU WANT IT TO) 

• VERSALEDGER llcanrunyourrTnlliondoUarcOfporalion (IFYOU 
WANT IT TO) 

• VERSALEDGER II prints checks, (IF YOU WANT IT TO) 

• VERSALEDGER II Stores all check information forever (IF YOU 
WANT IT TO) 

• VERSALEDGER II can distribute one check to multiple expense 
accounts. (IF YOU WANT IT TO) 

• VERSALEDGER II can handle more than one checkbooi<. (IF YOU 
WANT IT TO) 

• VERSALEDGER II can be used 1o replace a general ledger, (IF 
YOU WANT IT TO) 

• VERSALEDGER i! prints balance sheets and mcomu statements. 
(IF YOU WANT IT TO) 

• VERSALEDGER II can interact with any of the other four modules 
of the VERSABUSINESS SYSTEM. 



VERSALEDGER II 




-' SPECIAL 
INTRODUCTORY 
PRICE 



($199.95 after Dec. 31, 1982) 



VERSALEDGER II comes with a protessio nal I y written manual (created for thefirst-ttme computer user), which includes sample report print- 
outs. 



VERSALEDGER M HAS AN ALMOST UNLIMITED CAPACITY , , , 

( 300 checks per month on single density S'A" disk drives sucii as the TRS--80 Model I) 

( 500 checks per month on the Apple II) 

(2400 checks per month on _the TRS-80 Model III) 

VERSALEDGER II OUTPERFORMS ALL OTHER COMPETITIVE SYSTEMS NOW AVAILABLETO MICROCOMPUTER USERS, AT A FRAC- 
TION OF THE COST (AND WE OFFER A 30-OAY MONEY BACK GUARANTEE TO BACK UP OUR CLAIM!) 



(6000 checks per month on the TRS-80 Model II) 
(3000 checks per month on single density 8" CP/M) 
(almost unlimited capacity on hard disk drive) 



CAN BE USED WITH 1 or MORE DISK DRIVES with 48K 



ALSO AVAILABLE: VERSARECEIVABLES, VERSAPAYABLES, VERSAPAYROLL, and VERSAINVENTORY 



iCQIYIPJTHQMlCS! 



so N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

* ADD S3.00 FOR SHIPPING IN UPS AREAS 

* ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD S5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S.. CANADA & MEXICO 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 




NE\N TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



T 



COLLECTO 




uiliii 






• THE ULTIMATE ACCOUNTS RECEIVABLE SYSTEM 

• HANDLES ALL ACCOUNTS RECEIVABLE FUNCTIONS 

• QUICK PERIODIC SUMMARIES AND REPORTS 

• PERFECT FOR PERSONAL OR BUSINESS USE 

^ EXPANDS TO HANDLE LARGE CORPORATE 
RECEIVABLES 

1* * wf^ramw* m. ft\^fflran© 




•TfiS-BO is a trademark of Tandy Corp. - "ftPPLE is a trademark ot Apple Corp. - 'I.B.M. is a trademark of I.B.M. Corp. - "XEROX is a trademark ot Xerox Corp. - "ATARI Is a trdemark of Atari I 

'OSBORNE is a trademark of Osboroe Corp. - 'PET aod CBM are trademarks ot Commodore Corp. 



I'efls 



4fte 



CEtVA 



now IT WCCI^S 

VERSARECEIVABLES is a complete menu driven accounts receivable system. It keeps track of all 
information related to who owes you or your company money. It prints all necessary statements, 
invoices and all summary reports to keep you in touch w/ith the flow of money owed to your com- 
pany. In short, VERSARECEIVABLES is a complete invoicing and monthly statement generating 
system which keeps track of current and past due receivables. 

• VERSARECEIVABLES invoices your customers (IF YOU WANT ITTO) 

• VERSARECEIVABLES prints customer mailing labels. {IF YOU WANT IT 
TO) 

• VERSARECEIVABLES generates monthly (or periodic) statements at 
any time. (IF YOU WANT IT TO) 

• VERSARECEIVABLES uses commonly available preprinted statements 
and invoices. (IF YOU WANT IT TO) 

• VERSARECEIVABLES allows partial payments on open invoices {IF 
YOU WANT IT TO) 

• VERSARECEIVABLES prints out ail commonly used ACCOUNTS 
RECEIVABLE reports to give you a total picture of money ov^ed to your 
company (IF YOU WANT IT TO) 

• VERSARECEIVABLES keeps a tiistory of eacti account, botti current and 
aged (IF YOU WANT IT TO) 

• VERSARECEIVABLES is idea! for doctors, lawyers, smalt and large 
businesses. 

• VERSARECEIVABLES HAS AN ALMOST UNLIMITED CAPACITY 

400 customers and transactions per montti on single density 5%" disk drives sucti as the TRS-SO Mode 

600 per month on ttie APPLE !l 
2400 per month on the TRS-80 MODEL III 
6000 per montti on the TRS-30 IVlODEL II 




etes 



INTRODUCTORY PRICE 
$99_95 



3000 per month on single density 8" CP/lvl 
Almost unlimited on hard disk drive systems 



Above capacities are estimates and depend on the customer-transaction mix and the amount of disk space available. 



VERSARECEIVABLES HAS BEEN CREATE 
WITH THE FIRST TIME COMPUTER USER 



'CQinPLJTRQMlCS! 



50 N, PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD S3. 00 FOR SHIPPING IN UPS AREAS 
ADO Sa.OO FOR CO □ OR NON-UPS AREAS 
ADD 15.00 TO CANADA AND MEXICO 
ADO PROPER POSTAGE OUTSIDE OF U.S . 
CANADA AND MEXICO 



NEW TOLL-FREE 
ORDER LINE 

lOUTSiDE OF N y STATE) 

(800) 431-2818 



VfSA 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 





€ you CWE? 



THE ULTIMATE ACCOUNTS PAYABLE SYSTEM 

• HANDLES ALL ACCOUNTS PAYABLE FUNCTIONS 

• QUICK PERIODIC SUMMARIES AND REPORTS 

• PERFECT FOR PERSONAL OR BUSINESS USE 

• EXPANDS TO HANDLE LARGE CORPORATE PAYABLES 

'TRS-BO is a trademark of Tandy Corp. - 'APPLE is a traiJemart of Apple Corp, ■ 1 .B ,H , is a ttademart of I.B.H. Corp, ■ "XEROX is a tradeniarli of Xeron Corp, - "ATAItl is a trademafk of Atari Inc. 
"DSBORHE i s a trademark of Osborne Corp. ■ 'PET and CBH are trademarks of Commodnre Corp. 



VERSAPAYABLES is a complete menu driven accounts payable system. It keeps track of all 
information related to how much money you (personally) or your company owes. It prints all 
necessary checks and statements on easily obtainable tractor feed forms (or on plain paper). 
Prints all summary reports to keep you in touch with the flow of money going out of your hands (or 
leaving your company). In short, VERSAPAYABLES is designed to keep track of current and aged 
payables. The system maintains a complete record of each vendor, helps determine which trans- 
actions to pay by due date within certain cash requirements and prints checks automatically with 
a detailed check register. 

• VERSAPAYABLES prints out your checks. (IF YOU WANT IT TO) 

• VERSAPAYABLES prints out a detailed check register. {IF YOU WANT IT 
TO) 

• VERSAPAYABLES allows for full or partial payments. (IF YOU WANT IT 
TO) 

• VERSAPAYABLES prints out vendor mailing labels. (IF YOU WANT IT 
TO) 

• VERSAPAYBLES prints out all commonly used ACCOUNTS PAYABLE 
reports to give you a total picture of money you or your company owes. 
(IF YOU WANT IT TO) 

• VERSAPAYABLES integrates with VERSALEDGER. (IF YOU WANT IT 
TO) 

• VERSAPAYBLES HAS AN ALMOST UNLIMITED CAPACITY .... ... 

400 vendors and transactions per month on sinlge density 5' i" disk drives such as 1 1*1 i 

the TRS-80 MODEL I 

600 per month on the APPLE II 
2400 per month on the TRS-80 MODEL IM 
6000 per month of the TRS-80 MODEL M 
3000 per month on single density 8" CP/M 
Almost unilmited capacity on hard disk drive systems 

Above capacities are estimates and depend on disk space available and your vendor-transaction mix 




UCTORY PRICE 
95 




so N. PASCACK ROAO 
SPRING VALLEY, NEW YORK 10977 

ADD 13,00 FOR SHIPPING IN UPS AREAS 
ADD M.OO FOR C.O.D. OH NON-UPS AREAS 
ADD 15.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S.. 
CANADA AND MEXICO 



ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 





• THE ULTIMATE PROFESSIONAL PAYROLL SYSTEM 

• HANDLES ALL PAYROLL FUNCTIONS AND REPORTS 

• QUICK QUARTERLY AND END OF YEAR SUMMARIES 

• PERFECT FOR A SMALL BUSINESS 

• EXPANDS TO HANDLE LARGE CORPORATE PAYROLLS 



p • m'i^mm^ • m mmmm'^ mm. 

■TRS-BO is a trademark of Tandy Corp. ■ 'ftPPLE is a trademark of Apple Corp. ■ 't.B.M. is a bademark of I.B.M. Corp. - 'XEROX is a trademark of XeroK Corp, ■ 'ATARI is a trademarli of Atari Inc. 

'OSBDRNE is a trademark of Osborne Corp. - 'PET and CBM are trademarks of Commodre Corp. 



HOW IT wocrs 

VERSAPAYROLL is a complete menu driven payroll system that grows as you or your business grows. YourVERSA- 
PAYROLL acts as a simple payroll system keeping track of all government required payroll information. Just enter the 
employees, VERSAPAYROLL will perform all the necessary payroll calculations automatically and display to totals 
on your screen. The user has complete control to accept the totals, to print or not print out a check and to post or not 
post the total to our VERSALEDGER system. 

• VERSAPAYROLL automatically pnnts out your PAYROLL checks. (tF YOU 
WANT IT TO) 

• VERSAPAYROLL allows you to override any payroll deduction. (IF YOU WANT 
IT TO) 

• VERSAPAYROLL automatically posts all checks written to our VERSALEDGER 
system (IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out PAYROLL checks one at a time. 
{IF YOU WANT IT TO) 

• VERSAPAYROLL allows the user to print out all your PAYROLL checks at the 
same time. (IF YOU WANT IT TO) 

• VERSAPAYROLL gives you a summary of any employee's year to date payroll 
totals or all employee totals at any time. (IF YOU WANT IT TO) 

• VERSAPAYROLL will allow you to correct any error made at any time and auto- 
matically refjgure all totals (IF YOU WANT IT TO) 

• VERSAPAYROLL works in every state. (IF YOU WANT IT TO) 

• VERSAPAYROLL automatically calculates all federal and states taxes, (IF YOU 
WANT IT TO) 

• VERSAPAYROLL allows for all of ttie standard deductions plus state, city and 
three miscellaneous deductions. (IF YOU WANT IT TO) 

• VERSAPAYROLL prints all government required reports (IF YOU WANT IT TO) 

• VERSAPAYROLL permanently stores all PAYROLL transactions. {IF YOU WANT 
IT TO) 

• VERSAPAYROLL HAS AN ALMOST UNLIMITED CAPACITY . , , . 

Can handle up to 300 employees on a TRS>80iv1ODEL 1, 600 employees on a TRS-80 MODEL 1 11, 1200 employees on a TRS-80 MODEL 
II, 500 employees on an APPLE II, 600 employees on any single density 8' CP/M computer and almost unlimited capacity on hard disk 
systems. 

CAN BE USED WITH 1 or MORE DISK DRIVES (AND 48K) 




INTRODUCTORY PRICE 

$OQ 95 




iCQinPLJTHQMlCSi 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD S3.00 FOR SHIPPING IN UPS AREAS 
ADD S4,00 FOR C.0.0. OR NON-UPS AREAS 
ADD S5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE ' 
DELIVEHV SUBJECT TO AVAILABILITY 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



'- .1 ' 




™ THE ULTIMATE INVENTORY SYSTtM 

^ HANDLES ALL INVENTORY FUNCTIONS 

A" QUICK PERIODIC SUMMARIES AND REPORTS 

^ PERFECT FOR PERSONAL OR BUSINESS USE 

-x EXPANDS TO HANDLE LARGE CORPORATE INVENTORIES 

P • [P^ir/®[Bi* • Ait KfllBDgSIPir [BffliOE (ifSiPliriSg 

7RS-80 is a tradeniafk of Tandy Cotp. - 'APPIE is a frademark of ftpple Corp. - 1.B.H Js a trademark of I.B.M. Con^^ 

'QSBORNE is a trademark of Osborne Corp. - 'PET and CMB are trademarks of Commodore Corp. 

new IT WCCKS " 

VERSAINVENTORY is a complete menu driven inventory control system. It keeps track of all 
information related to how many of a particular item you have. It prints all necessary inventory 
reports and gives you instant access to any inventory Item. VERSAINVENTORY allows the user 
to stay in touch with items that directly affect sales. Update INVENTORY through easy MENU 
driven processes. 



• VERSAINVENTORY allows the user to instantly add to or deduct from 
INVENTORY. (IF YOU WANT IT TO) 

• VERSAINVENTORY handles reorder point levels. {IF YOU WANT ITTO) 

• VERSAINVENTORY gives period-to-date and year-to-date sales reports. 
(IF YOU WANT ITTO) 

• VERSAINVENTORY can be linked to VERSARECEIVABLES and 
VERSALEDGER. (IF YOU WANT IT TO) 

• VERSAINVENTORY gives all standard INVENTORY REPORTS. (IF YOU 
WANT IT TO) 

• VERSAINVENTORY instantly values your INVENTORY. (IF YOU WANT 
ITTO) 

• VERSAINVENTORY HAS AN ALMOST UNLIMITED CAPACITY 



iNTf^ 



$ 



TOfiY 



99. 9s 



To figure out estimated VERSAINVENTORY limitations, just multiply 8 by the number of kilobytes of disk 
storage available. For example, the store capacity on aTRS-80 MODEL 11 disk drive isSOOK. That will allow 
the user to have about 4,000 inventory items on record. This total is an estimate and depends on how you 
set up your inventory system. 



VERSAINVENTORY HAS BEEN Gl 
1 I'HE ilRST TIME COMPUTER U 



■CQiriPlJTHQMlCSi 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ADD J3.00 FOR SHIPPING IN UPS AREAS 
ADD S'i.OO FOR C.O.D. OR NON-UPS AREAS 
ADD SS.DD TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



NEW TOLL-FREE 

ORDER LINE 

{OUTSIDE OF NY STATE) 

(800) 431-2818 



■ ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



--J 




EVERYTHING FOR YOUR TRS-80 " • ATARI" • APPLE'" • PET" • CP/M'" • XEROX^" • IBM™ • OSBORNE" • • 

' TRS-80 is a trademark of the Radio Shack Drviaon qf Tandy Corp. - " ATARI is a trademaik of Alari Inc. . 'APPLE is a trademark of Apple Corp. - ' FtT is a trademark of Commodore 
■ CP/M is a trademarit of Digital Research "XEROX is a trademark of Xeroji Corp. ■ IBM is a trademark of IBM Corp. ■ OSBORME is a trademark of Osborne Corp, 




M^ orders proce^;^^,^tee 
30-DaV '"O"''^ 



(ON CASSETTE OR DISKETTE) Includes 128 Page CIsers Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance Accounts Receivable Accounts Payable 




BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 (nferest Apportionment by Rute of Ihe 78's 

2 ATiMUl Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular dale iails on 

5 LFA.SEIMT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL StraighUine d^reciation 

e DEf'RSV Sum of Qie digits depreciation 

9 DFPRDB Eleclining balance depreciation 

10 DEPRDDR Etouble declining balance depreciation 

1 ] TAXDEP Cash flow vs. depreciation tables 

1 2 eHECK2 Prints NEBS checks along with daily register 

13 CHECKBKl Checkbook maintenance program 

14 MORTQAGE/A i^lortgage amortization table 

15 MULTMOM Comptites time needed for money to double, tnple, 

16 SALVAGE Detennines salvage value of an investment 

17 RRVARlh Rate of return on investment with variable inflows 

18 RRCOMST Rate of return on investment with constant infiows 

19 EFFECT Effective interest rate of a loan 

20 FYAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 
. 22 LOAMPAY Amount of payment on a loan 

23 REOWITlf Equal withdrawals from investrrient to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEV'AL Ejquivaient & nonequivalent dated values for oblig. 

26 ATiNUDEF Present value of deferred annuities 

27 H^RKOP * Markup analysis for items 

28 Sir^KFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAl-i Expected return on stock via discounts dividends 

33 WARVAL Value of a wan-anl 

34 LiO[MDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 Btl.AALPH Computes al[^a and beta variables for stock 

37 SHARPEl Portfolio selection model-i.e. what stocks to hold 

38 OPTWRFTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect infomiation 

43 VALADIMF Value of additional information 

44 UTILiTY Derives utility function 

45 SIMPLEUX Linear programming solution by simplex method 
4f) TRANS Transportation method for linear programming 
47 EOQ Economic order quantity inventoiy model 

46 QOEUEl Single servCT queueing (wailing line) model 

49 CVP Cost-volume-profit analysis 

50 COMDPROF Conditional profit tables 

51 OFTLOSS Opportunity tess tables 

52 FQtIOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages pemiitted 

54 FQEOQPB As above but with quantity price breaks 

55 CWtGECB Cost-benefit waiting line analysis 

56 "HCFANAL Met cash-flow analysis for simple investment 

57 PROFIMD Profitability index of a project 

58 CAPl Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating h>al required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a fiirn 

64 MPV Met present value of project ■ 

65 PRINDL'^S Laspeyres price index 

66 PRiriDPA Paasche price index 

67 SEASiriD Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUFHinF Future price estimation wilh inflation 

71 /AAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABELl Shippng label maker 

75 LABEI..2 Name label makw 

76 BfJSBGD DOME business bookkeeping Systran 

77 TIMECLCK Computes weeks total hours from Ijmeciock info. 

78 ACCTPAY in memory accounts payable system-storage pennittod 

79 INVOICE Generate invcwce on screen and print on printer 

80 INVESSTZ In m«nory inventoiy control system 

81 TELDIR Computerized telephor>e directory 

82 TIMGSAM Time use analysis 

83 ASSIGM Use of assignment algorithm for optimal |ob asstgn. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 
■ 86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 IMSFILE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCll Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCOMVBD Investor's rate of return on convettabie bond 
100 PORTVAL9 Stock market portfolio storag evaluation program 



n TRS-80 Cassette Version 

a TRS-80 {Mod-I or III), Pet, Apple 

or Atari Versions 
D TRS-80 Mod-ll, IBM, Osborne 

and CP/M Versions 

ADO S3 00 FOR SHIPPING IN UPS AREAS 

ADO SI 00 FOR C.O.D. OH NON-UPS AREAS 

ADD S5.00 TO CANADA AND MEXICO 

ADD PROPEfl POSTAGE OUTSIDE OF U.S., CANADA AND MEXICO 



NEW 



$99.95 OROFR I ,. 



ICQIYIPJTHQMICS 



^^ 




rvv^Ti-*jviA.- <_jx,, A/*^;_iCjvi't:rj'. 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



ASK FOR OUR 64-PAGE CATALOG 




HOUR 
^914) A25-1535 



DEALER JNQaiRIES INVITED 



ALL PRICES » SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



• • EVERYTHING FOR YOUR TRS-80 " • APPLE " • IBM " • ATARI " • PET " • • 

■ TRS-BO h d Iradcma.k ol the Rjdici Shj<k Divisbn of Tandy totp. - * AFPlf h a ludrmjrk .il AppU- Corp, - • IBM is a trademark oF IBM Corp. 
' ATARI is a trddeinar)> o( Atari inc. - • PET is a fiadcmark o( Commodore 




BlJ 



SlWESS 



BUSINESS AND PERSONAL FINANCE 

1. CHECKBOOK MAINTENANCE 

2. TIME FOR MONEY TO DOUBLE 

3. FEDERAL FiCA & WITHHOLDING TAX 

3. COMPUTATIONS ■ 

4. HOME BUDGET ANALYSIS 

5. ANNUITY COMPUTATION 

6. UNIT PRICING 

7. CHANGE FROM PURCHASE 

8. NEBS CHECK PRINTER 

9. DAYS BETWEEN DATES 

10. MORTGAGE AMORTIZATION TABLE 

11. INVENTORY CONTROL 

12. PORTFOLlO^ VALUE COMPUTATIONS 

13. VALUE OF A SHARE OF STOCK 

14. SALES RECORD KEEPING. SYSTEM 

15. FUTURE VALUE OF AN INVESTMENT 

16. EFFECTIVE INTEREST RATE (LOAN) 

17. PRESENT VALUE OF A FUTURE AMOUNT 

18. RATE OF RETURN-VARIABLE INFLOW 

19. RATE OF RETURNCONSTANT INFLOW 

20. REGULAR WITHDRAWAL FROM INVESTMENT 

21. STRAIGHT LINE DEPRECIATION 

22. SUM OF DIGITS DEPRECIATION 

23. DECLINING' BALANCE DEPRECIATION 

24. BREAK EVEN ANALYSIS 

25. SALVAGE VALUE OF INVESTMENT 

26. PAYMENT ON A LOAN 

27. FUTURE SALES PROJECTIONS 

28. CREDIT CARD FILE 

29. ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30. VALUE OF HOUSE CONTENTS 

31. TEXT EDITOR 

32. MONTHLY CALENDAR 

33. DAY OF WEEK 

34. CASH FLOW VS, DEPRECIATKJN 

35. COMPLETE MAIL SYSTEM , 

36. INTEREST RATE ON A LEASE 






STA 



tlSTlCS 



STATISTICS AND MATHEMATICS 

37. RANDOM SAMPLE SELECTION 

38. ANGLO-METIC CONVERSION 

39. MEAN, STANDARD DEVIATION, 
MAXIMUM AND MINIMUM 

40. SIMPLE LINEAR REGRESSION 

41. MULTIPLE REGRESSION ANALYSIS 

42. GEOMETRIC REGRESSION 

43. EXPONENTIAL REGRESSION 

44. SIMPLE MOVING AVERAGE 

45. SIMPLE T-TEST 

46. CHI-SQUARE TEST 

47. NORMAL PROBABILITILS 

48. BINOMIAL PROBABILITY 

49. POISSON PROBABILITY 

50. MATRIX ADDITION AND SUBTRACTION 

51. MATRIX TRANSPOSE 

52. MATRIX INVERSE 

53. MATRIX MULTIPLICATION 

54. SOLUTION OF SIMULTANEOUS EQUATIONS 

55. QUADRATIC FORMULA 

56. LINEAR EQUATION SOLUTIONS 

57. ROOT HALF INTERVAL SEARCH 

58. ROOTS OF POLYNOMIALS 

59. ROOTS-NEWTON'S METHODS 

60. PRIME FACTORS OF INTEGER 

61. LEAST COMMON DENOMINATOR 

62. RADIAN-DEGREE CONVERSION 

63. NUMERICAL INTEGRATION 

UTILITIES 

64. QUICK SORT ROUTINE 

65. PROGRAM STORAGE INDEX 

66. MULTIPLE CHOICE QUIZ BUILDER 

67. FORM LETTER WRITER ' 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 

70. CODES MESSAGES 

71. MERGE TWO FILES 

72. SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73. DRAWS BAR GRAPH 

74. DRAWS HISTOGRAM 

75. MOVING BANNER qiSPLAY 

GAMBLING AND GAMES 

76. RANDOM SPORTS QUIZ 

77. GOVERNMENT QUIZ 

78. HORSE RACE 

79. MAGIC SQUARE- 

80. ARITHMETIC TEACHER 

81. HIGH LOW GAMBLE 

82. UNSCRAMBLE LETTERS 

83. HANGMAN 
34. GAME OF NIM 

85. RUSSIAN ROULETTE 

86. ROULETTE GAME 

87. ONEARMED BANDIT 

88. HIT THE TARGET 

89. WALKING DRUNK 

90. STATE CAPITAL QUIZ 

91. TIC-TAC-TOE 

92. DICE GAME 

93. LUNAR LANDAR GAME 

94. BIORHYTHM i. 

95. HORSE SELECTOR (CLASS CALCULATOR) 

96. RANDOM DICE ROLL 

97. RANDOM ROULETTE ROLL 

98. RANDOM CARD DEALER 

99. GUESS THE NUMBER 
100. WHITE OUT SCREEN 



6M*BU***^ 



llO 



GUARANTEED SATISFACTION 

30-DAY MONEY BACK GUARANTEE 



ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE* 



'CQIYIPJTHQMICS 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 



n MASTER PAC 100 CASSETTE VERSION $99,95 

D MASTER PAC 100 DISKETTE VERSION $99.95 

D MASTER PAC 100 (MODEL II DISKETTE VERSION) , , $149.95 







HOUR 
24 ORDER 
LINE 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* All orders processed within 24-Hours 

* 30-Da\; mone\; back guarantee on all Software 




CREDIl" CARD NUMBER EXP. DATE. 



SIGNATURE. 



NAME 

ADDRESS CITY STATE ZIP 

*'* ADD $3 FOR POSTAGE & HANDLING ADD $4 FOR C.O.D. OR NON-UPS AREAS ADD $5 CANADA & MEXICO - EXACT POSTAGE ELSEWHERE 




from iHOif^ ^JRnMllH 

FOR THE TRS-80 MODEL I AND 



ysteiti Diagnostic 



For Cassette or Disk 



IS YOUR COMPUTER WORKING CORRECTLY? ARE YOU SURE? 

Tests every component of your TRS-80 Sor proper operation. 



DISK 



ROM: Checksum test 

RAM: Four separate tests including every address and data value 
Video Display: Character generator, video RAM, and video signal tests 
Keyboard: Every key contact tested 
Line Printer: Character test 
Cassette Recorder: Read/write/verify data 

RS-232-C Interface: Read sense switches (Model I), connector fault, data transmission, framing, data loop, baud rate 
generator 
Disk Drives: Disk controller, drive select and restore, track seek and verify read, read/wrile/verify all tracks and 
sectors, formatting, disk drive timer, disk head cleaner 
Model 1: single or double density, 35, 40 or 80 track drives 
'Model 3: single or double density, 35, 40 or 80 track drives 
single or double sided drives 

One program adapt'i to any system configuration and hardware. 

Individual tests tif each device with operator monitoring and intervention. 

Continuous system tests run continually for hours, with diagnostic reports optionally written on line printer. 

Complete instructions and documentation. 

SPECIFY TRS-80 " MODEL 1 OR MODEL III 




SMART TERMINAL 

fnabies your TRS-80 to be used as a data communications terminal 
to a lime-sharing system, computer bulletin board, or another computer, 
via the RS-232-C interface. 

• MEMORY BUFFER holds data for transmission or data rieceived from 
other computer. 

• CASSETTE or DISK may be used to load or save data from memory. 

• AUTOMATIC TRANSMISSION of data from memory. 

• AUTOMATIC STORAGE of incoming data at user's option. 

• TRANSMIT or RECEIVE WITH VERIFICATION options included for 
communication between two TRS-BOs using Smart Terminal. 

• Full CONTROE KEYS, including control key mapping into any ASCII 
character. True BREAK key. Eower case supported on Model 1, 

• Buffered EINE PRINTER ECHO for incoming data. 

• Disk and cassette files fully compatible with ELECTRIC PENCIL" and 
SCRIPSIT " programs. 

• BAUD RATE and RS-2i'2-C CHARACTERISTICS can be reset from 
vvitbin the program. , 

• SAVE PROGRAM option creates "personalized" back-up copy of 
program with all options set as specified by user. 

• ONE PROGRAM supports both cassette and disk systems. Hrogram is 
compatible with PMC-80 and other TRS-80 "work alike" computers. 
Model I or III Version supplied on cassette $69-75 

supplied on diskette S74- 95 
Model II CCP/MD Version S79-95 



MON-3 and MON-4 

The TRS-80 Monitor Programs «3 and 14 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCF1 through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors |MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (¥ov Cassette Systems} $39-95 
MON-4 (For Disk Systems] $49-95 



MAILING LIST 

Maintains mailing lists of up to Hid names (48K version). Add, change, 
delete, or find names. Machine language sort according to information in 
ANY field (first or last name, address, city, state, zip code]. Three or four 
Iinelabelsprintedin1,2, 3, or4columns, m masterlist, or on video display. 
TRS-80 Model 1/3 Disk Version $69-95 
IBM PC Disk Version $79-95 



HOME BUDGET 

Keeps track of your monthly and year-lo-date income and expenses. 
Income and expenses classified by code numbers for identification of 
categories. Data includes date, code number, amounts and check number 
(optional). Computes monthly and year-lo-date summaries showing 
income tax deductions. All output printed on video display or lint printer 
at user's option. Complete instructions for customizing to suit your own 
budget. 

TRS-SO Model X/3 Cassette Version $29-95 

TRS-80 Model 1/3 Disk Version $49-95 

1MB PC Disk Version $59-95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record »612, this program keeps track of 
income, expenditures, and payroll for a small business. Receipts and 
expenditures can be entered on a daily, weekly, or monthly basis. Program 
computes monthly, through last month, and year to elate summaries. 
Payroll section (included in disk version only) keeps record of employees 
and paychecks with up to six categories of payroll deductions. Computes 
employee payroll records and year-to-oate payroll totals. Complete 
instructions for customizing to suit your own business. 

TRS-80 Model 1/3 Cassette Version $19-95 

TRS-80 Model 1/3 Disk Version $49-95 

IBM PC Disk Version $59-95 



■CQIYIPJTHQMICS; hour 

24 ORDER 



ivWTV«*^/lA' < 



50 N. PASCACK ROAD 

SPRING VALLEY, NEW YORK 10977 






LINE 



VfS^ 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 




(914) 425-1535 



• Allof-ders processed within 24 Hours 

• 30-Day money back guarantee 
• Add S3 00 for shipping In UPS Areas 
• Add S4 OOforC O.D. or NON-UPS Areas 
• Add SS.OOto Canada or Mexico 
• Add exact postage to all other countries 



mmm EVERY l 

*TRS-80'"iE a trademark of Tandy Corp? 



For Yotir TRS-SO^ Model I or Model ill m m 



• All orders processed within 24 Hours 
" 30-Day money back guarantee 
• Add S3 00 tor shipping in UPS Areas 
• Add $4 00 for CO, D. or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to a'l other countries 



Te; 



LEARN TRS-80 " 
ASSEMBLY LANGUAGE 



REMASSEM-1 

Tired of buying book after book on assembly language prog ramming and 
still not knowing your POP from your PUSH? 

REMSOFT proudly announces a more efficient way, using your own 
TRS-80'"tolearn the fundameritals of assembly language prog rami ming 
at YOUR pace and at YOUR convenience. 

Our unique package. ■■INTRODUCTION TO TRS-BO'" ASSEMBLY 
PROGRAMMING", will providb' you with tne following: 

* Ten 45-minule lessons on audio cassettes. 

* A driver program to make your TRS-80'" video monitor serve as a 
blackboard forthe instructor. 

* A display program for each lesson to provide illustration and rein- 
forcement for what you are hearing. 

* Step-by-step dissection of complete and useful routines to tedt 
memory and to gain direct control over the keyboard, video moni- 
tor, and printer, 

* How to access and use powerful routines in your Level II ROM 
This course was developed and recorded by Joseph E, Willts and is based 
on the successful series of courses he has taught at Meta Technologies 
Corporation, Jhe Radio Shack Computer Center, and other locations in 
Northern Ohio The minimum system required is a Level 11. 16K RAM. 



REMDISK-1 

Your disk system and you can really step out with BEMsoFTs Educational 
Module, REMDISK-1. a "short course" revealing the details of DISK I 'O 

PROGRAMMING using assembly language. 



Using the same format as our extremely popularmt reduction to assem- 
bly language programming, this "ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING" course includes: 

* Two 45-minute lessons on audio cassette 

* A driver program to make yourTRS-80"" video monitor serve as a 
blackboard forthe instructor, 

•*- Adisplay program for each lesson to provide itiustration and rein- 
forcement for what you are hearing. 

* A booklet of comprehensive, fully-commented program listings 
Illustrating sequential file l./Q, random-access file I/O, and track 
and sector I/O 

* A diskette witfi machine-readable source codes for ^W programs 
discussed, in both Radio shack EDTASM and Macro formats. 

* Routines to convert from one assembler format to the other. 
This course was developed and recorded by Joseph E. Willis, for the 
student with experience in assembly language programming; it is an 
I ntermediate-toadvanced-levei course. Minimum hardware required is a 
Model ( Level 11, 16K RAM one disk drive system, ' 



•CQfnPLJTHQMlCS 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



PLEASE SEND ME: 

D REMASSEM-1 (TRS-80 MODEL I CASSETTE) , 
D REMASSEM-1 (TRS-80 MODEL I DISKETTE) . . 
D REMASSEM-1 (TRS-80 MODEL III CASSETTE) 
D REMASSEM-1 (TRS-80 MODEL HI DISKETTE) 
D REMDISK (TRS-80 MODEL I DISKETTE) 





HOUR 
OER 
LINE 




$74.95 
$79.95 
$74,95 
$79,95 
$29.95 



(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



CREDIT CARD NUMBER EXP, DATE 

SIGNATURE NAME 

ADDRESS 



CITY STATE., 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE '* 



ZIP. 



■ THS-80'" is a trademark of Tandy Corp. 

FROM 

t" RACET COMPUTES 



• All orders processed wilhin 24 Hours 
f 30-Day money back guarantee 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for C.O.D. or NON-UPS Areas 
" Add $5.00 to Canada or Mexico 
• Add exact postage to ail other countries 



*** ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER **' 



'acU Abml Raccl Cimpidu [Ui^ Vuq^uiWi 



ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THE SIMPLE BASIC COMMANDS PROVIDED 

EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

■ EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

■ EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN. TWENTY OR MORE TIMES FASTER THAN THE 
EQUIVALENT BASIC ROUTINE (FOR EXAMPLE, GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 
UNDER 9SECONDSII) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTSIOOO-eLeMENTARRAYS IN 9 SECONDS 

• SORTSUPT01&ARRAYSSiWULTANEOUSLY{M[XEDSTRING, FLOATING POINT AND 
INTEGER) 

• SORTS SINGLE OR MULTIPLE SUBSTRINGS AS ASCENDING OR DESCENDING SORT 
KEYS 

• READ ANDWRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVEARRAYiSIN MEMORY 

• DUPLICATE MEMORY 

• FASTHORIZONTALANDVERTICAL LINES 

• SCREENCONTROLSFORSCHOLLINGTHE SCREEN UP, DOWN, LEFT, RIGHT AND FOn 
GENERATING INVERSE GRAPHIC DISPLAYS 

• ADDS PEEKS AND POKES {MOD-ll VERSION ONLY] 



MODEL-I VERSION $25.00 

MODEL-tl VERSION ■ ■. $50.00 

MODEL-tll VERSION $30.00 



DSM (DISK SORT MERGE) 

• SORT AN 85K DISKETTE IN LESS THAN THREE MINUTES! 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 
i ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REQUIRED 

• SORTS RANDOM FILES CREATED BY BASIC, INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ONONE OR MORE FIELDS IN ASCENDING OR DESCENDING ORDER 

• FIELDS MAY BE STIRNGS, INTEGER. BINARY INTEGER OR FLOATING POINT 

• THESORTEDOUTPUTFILEMAYOPTIONALLYHAVEFIELDSDELETED.REARRANGED 

OR PADDED 

• SORTCOMMANDS CAN BESAVED FOR REUSE 

• SINGLE SORT. MERGE. OR MIXED SORT/MERGE OPERATIONS MAY BE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO AN hW FILE, OH REPLACE THE ORIGINAL IN- 
PUT FILE. 



MOU£iL-l VERSION S^^.OO 

MODEL-M VERSION $150.00 

MODEL-III VERSION $90.00 



KFS-80 (KEYED FILESYSTEM) 

• CREATE ISAM ULES (INDEX SEOUtNl lAL ACCESS METHOD) 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVE RECORDS FROM MAILING LISTS, INVENTORY, ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE flAPID ACCESS IS RE- 
QUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECORDS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTED OR RETRIEVED BY SUPPLYING THE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIALLY IN SORTEDORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

. MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS (FOR EXAMPLE. BY BOTH NAME AND ZIP- 
CODE) 

MODEL-I VERSION $10000 

MOOEL-II VERSION ■ ^^ ^S™ 

MODEL-ill VERSION $100.00 



MAILLIST (A MAILING LIST DATABASE SYSTEM) 

• IDEALLY aui I LD FOR ORGANIZATION MAILING LISTS, PERSONAL ADDRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
DUES PAYABLE 

. USED ISAM (INDEX SEQUENTIAL ACCESS METHOD) FOR RAPID ACCESS TIMES 
. YOUR MAILLISTCAN ALWAYS BE SORTEOAND MAINTAINED BYUPTOFOUR INDEX 
FILES (FOR EXAMPLE, NAME, ZIPCODE, DATE AND NUMBER) 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED (TO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OR MAILING 
LABELS 

• MAILLIST SUPPORTS BOTH 5 OR 9-DIGlT ZIPCODES 

• PRINTING MAY BE STARTED OR ENDED AT ANY POINT IN THE LIST,„THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

. CAPACITYlS600NAMESFORMODEL-l,3500NAMESFORMODELII,3e,00aNAMESFOR 

MODEL II WITH HARD DISK DRIVE, 1200 NAMES FOR MODEL III 

MODEL-1 VERSION ■ .$'5.00 

MODEL-II VERSION $150,00 

MODEL -111 VERSION $75,00 



HSDS HARD DISK DRIVE SOFTWARE 

■ MAKES TRSDOS COMPA I IB! h Wl-H WO'ST HARD DISK DRIVES 

• ADDS MANY EXTRA FEATURES TO TRSDOS $400 00 



COMPROC (COMMANP PROCESSOR) 



AUTO YOUR DISK rO PEHPOHM ANY SEQUENCE OF INSTRUCTIONS THAT YOU 
NORMALLY GIVE FROM THE KEYBOARD [FOR EXAMPLE, INSERT THE DISKETTE, 
PRESS THE RESET BUTTON, YOUR COMMAND FILE COULD AUTOMATICALLY SHOW 
YOU THE DIRECTORY, SHOW THE FREE SPACE ON THE DIKSETTE, LOAD A MA- 
CHINE LANGUAGE SUBROUTINE, LOAD BASIC, LOAD AND RUN A BASIC PROG RAM, 
AND SELECT A GIVEN ITEM ON YOUR MENU.. .ALL WITHOUT TOUCHING THE KEY- 
BOARD') 



MODEL-I VERSION 

MODEL III VERS ON 

NOT AVAILABLE FOR MODEL-II 



.$20.00 



DISCAT {DISKETTE CATALOG SYSTEM) 

• THIS COMPREHENSIVE DISKETTE CATALOGUING/INDEXING UTILITY ALLOWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY. „FILE INCLUDES PROGRAM NAMES AND EXTENSIONS, PROGRAM LENGTH, 
DISKETTE NUMBERS AND FREE SPACE ON EACH DISKETTE. .KEEP A COMPLETE 
CATALOG OF THE DIRECTORIES- ON ALL YOUR DISKETTES IN ALPHABETICAL 
ORDER (SORTED ON EACH DISKETTE OR COMPLETE ALPHABETICAL LIST OF 
PROGRAMS ON ALL YOUR DISKETTES) 

MODEL-I VERSION $50 00 

MODEL-III VERSION $50.00 

MODEL-II VERSfON (SEE MODEL-II UTILITY PACKAGE) 



BLINK (BASIC LINK FACILITY) 

• LINK FROM BASIC PROGRAM TO ANOTHER SAVING ALL VARIABLES 

• THE CHAINED PROGRAM MAY EITHER REPLACE THE ORIGINAL PROGRAM OR CAN 
BE MERGED BY STATEMENT NUMBER 

MODEL-'I VERSION $25,00 

MOD^L-III VERStON , $30.00 

MODEL-II VERSION (SEE MODEL-II UTILITY PACKAGE) $50 00 



INFINITE BASIC 



ADDS OVER 80 COMMANDS TO BASIC 

SORTING STRING CENTERING/ROTATION.'TRUNCATION ..JUSTIFICATION. .DATA 
COMPRESSION . STRING TRANSLATION/COPYING SCREEN DISPLAY SCROLL- 
ING .MATRIX OPERATIONS. SIMULTANEOUS EQUATIONS (THROUGH MATRIX 
INVERSION) DYNAMIC ARRAY RESHAPING 



MODEL-I VERSION 

MODEL III VLKS'ON 

HOT AVAILABLE ON MOCEL-II 



$50 00 



INFINITE BUSINESS 



ADD uN fACiAGE TJ INFINITE BASIC [REQUIRES INFINITE BASIC) 

ADDS PACKED DECIMAL ARITHMETIC WITH 127 DIGIT ACCURACY (t.O,"./) 

COMPLETE PRINTER PAGINATION CONTROLS. AUTO HEADERS. FOOTERS AND 

PAGE NUMBERS 

BINARY SEARCH OF SORTED AND UNSORTEO ARRAYS (INSTANT SEARCH OF AN 

ELEMENT WITHIN AN ARRAY) 

HASH CODES 



MODEL-I VERSION 

MODEL-III VERSION 

NOT AVAILABLE ON MODEL-II 



. $30 00 

. $30 00 



REMODEL-PROLOAD 



;ilb .JLIIMAIt rlt NUMBERING PROGRAM .RENUMBERS ALL OR PARI OF A i^HO- 
GRAM (ALLOWS PARTIAL RENUMBERING IN MIDDLE OF PROGRAMS) 
PARTIAL OR COMPLETE MERGE OF TWO CASSETTE PROGRAMS 



MODEL-I VERSION 

MODEL-III VERSION .. . . 
IJ T AVAILABLE ON MODEL-II 



. $35 00 
$35 00 



COPSYS 



COPY AND VERIFY ALL MACHINE LANGUAGE (SYSTEM) TAPES WRITTEN IN STAND- 
ARD FORMAT IF YOU BUY A MACHINE LANGUAGE PROGRAM, COPSYS ALLOWS 
YOU TO EASILY COPY THE PROGRAM ONTO ANOTHER CASSETTE AS A BACKUP 



MODEL-I VERSION 

MODEL-ill VERSION 

NOT AVAILABLE ON MODEL-II 



.$15 00 
. $20 00 



FOR DEALER 
INFORMATION CALL: 



RACET COMPUTES 



1330 N, GLASSEL, SUITE M, ORANGE CA 92667 
(714) 997-4950 



MODEL II SPEEDUP— FAST DISK I/O 

THIS IS AN ENHANCEMENT FOR TRSDOS 2.0 THAT WILL 
RADICALLY DECREASE DISK ACCESS TIME. 



DISKS BOOT FASTER TO DOS 
IMPROVE' DISK I/O UNDER BASIC 




MODEL II FASTBACK — FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY, ANQ ONE BACKUP IS WORTH A THOUSAND TEARS. 
• WORKS ON SYSTEMS WITH 2 OR MORE DRIVES 
■ CAN REPLACE YOUR EXISTING TRSDOS 1 2 Or 2.0 BACKUP UTILITY 

MODEL II ONLY $75.00 




MODEL-II UTILITY PACKAGE 



ESSENTIAL FOR EVERY MOD-II OWNER 

RECOVER AND REPAIR FILES AND DIRECTORIES (BY JUST ENTERING A SINGLE 
COMMAND) 

XCOPY .SIMILAR TO COPY BUT CAN COPY ANY NUMBER OF FILES AT ONE TIME 
FASTER AND MORE ACCURATE THAN COPY SINCE RECORDS ARE COPIED IN 
GROUPS RATHER THAN ONE RECORDS AT A TIME...USING XCOPY YOU CAN COPY 
FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 
SZAP PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 
DISKETTE 

XHIT CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

DCS.. DIRECTOR CATALOG SYSTEM Ij A UTILITY FOR THE MANAGEMENT OF USER 
DISKETTES SETS OF A MULTIPLE DISKETTE DIRECTORY FILE (WITH UP TO 1200 
INDIVIDUAL FILE NAMES). ..ALLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 
DIRECTORY FILES IN COMBINED SORTED ORDER [FOR EXAMPLE, LISTED ALPHA- 
BETICALLY BY DISKETTE OR A COMPOSITE ALPHABETICAL LIST OF ALL YOUR 
DISKETTES') 

DEBUG-IL. ADDS SEVERAL FEATURES TO THE PRESENT TRSDOS DEBUG UTILITY 
INCLUDING SINGLE INSTRUCTION CYCLE, AUTO (LOOP) BREAKPOINTS, SUB- 
ROUTINE CALLING. BREAK-KEY DETECTION AND MANY OTHERS 



MODEL-!i Only 



MODEL-II DEVELOPMENT SYSTEM 



■ROr. RAMMERS 

TH ENHANCEMENTS FOR 



■ ^i-\:; ^-'.!:<aCjE ,s a m,);","" ^ob .',s~)EMr>i v .^nv.iiaof 

• INCLUDES THE MICROSOFT EDITOR ASSEMBLER PI us 1 
THE MCDEL-II 

• A COMPLETE DISASSEMBLER 

• SUPERZAP FOR READING AND MODIFY ANY SELECTOR ON A DISKETTE 

MODFI-ll ONLY 



MOD-II BASIC CROSS REFERENCE UTILITY 

• LIST OR PRINT A SORTED CH0S3 nEFfRrKCt !0 ALL NUMBERS OR VARiABLtS 
WITHIN A PROGRAM 

• LIST OF PRINT ALL LINE NUMBERS CONTAINING A SPECIFIED STRING OF CHAR- 
ACTERS 



MODEL-II ONLY 



$50 00 



*" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 



END USERS 
CALL: 



iCQIYIPJTHQMICS 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



^ 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



DEALER INQUIRIES WELCOME 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 

ADD S3. 00 FOn SHIPPING IN UPS AREAS 
ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD S5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF US , 
CANADA AND MEXICO 



« ® EVEB^r rHINI^ FOR YOUR TRS-80^ MODEL I or MODEL III • • 



TRS-80 i! J ludemark o( the Rsdiri Shjtk Division of Tjndy Co. p. 




Apparat, Inc., announces the most powerful Disk Operating System for the 
TRS-80'". it has been designed for the sophisticated user and professionai 
programmer who demands the ultimate in disic operating systems. 



• DOUBLE DENSITY ON MODEL I 

Usfi of the LNW DOUBLE or ;nePERCOM DOUBLER will expand storage 80% under 
NEWDOS^'SO Version ? 0. mixing single ant; double density specHicalions without 
any patches 

• SINGLE DENSITY ON MODEL III 

Will allow :he MODEL I II to read disk from MODEL I and to write disks the MODEL I 
can lead making it easy to move programs between ttie two machines 

• EXPANDED DIRECTORIES 

Directories can be expanded three times the normal number of availalSTe entries, even 
on DOS disks This is extremely useful when using double density, 
■ DYNAMICALLY MERGE IN BASIC 
To allow sociions of BASIC programs to be deleted and replaced with lines from a 
disk file during program execution. Also allows merging of non-ASCII format files. 

• SELECTIVE VARIABLE CLEARING 

Allows the programmerto keep some variables and release the space used by the rest; 
also specific variables may be erased releasing the space they use. 

• PAGE SCROLLING IN BASIC 

Scrolling has been modified to allow the user to display programs page by page, in 
addition to the regular line scrolling, 

• REPEAT FUNCTIONS 

Keys in MODEL I repeat when held down. Entering "R" as a DOS command causes the 
previous DOS command to be repeated. 

• ROUTING FOR DEVICE HANDLING 

To send input and output from one device (display, printer, keyboard, etc) to others 
or to a routine in main memory, 

• DISASSEMBLER OUTPUT TO DISK 

The Disassembler will now write a source code file to disk, which the editorassembier 
can read and edit 

• CHAINING ENHANCEMENTS 

Features to allow chain files to be written from SCRIPSIT; also chaining may be 
switched on and oft without changing chain file positioning, and may be executed via 
CMD "xxx" and DOS-CALL, 

• SUPERZAP 

Has the ability to scan diskettes or disk files to find the occurences of specific values. 
Also will generate disk file passwords and hashcode. 

• FAST SORT ROUTINE 

Basic function CMD "O" provides direct or indirect in-memory sort of multiple arrays, 

• MERGING OF NON-ASCII BASIC PROGRAMS 

• BASIC SINGLE STEPPING 



New BASIC commands that supports files with variable repord lengths up to 4095 
Bytes long. 

Mix or match disk drives. Supports any track count from 13 to 80. Use 35, 40 or 77 
track 5" mini disks drives or 8" disk drives, or any combination. 
A security boot-up for BASIC or machine code application programs. User never sees 
"DOS READY" or" > READY" and is unable to "BREAK", clear screen, or issue any 
direct BASIC statement including "LIST," 

New editing commands that allow program lines to be deleted from one location and 
moved to another or to allow the duplication of a program line with the deletion of the 
original. 

Enhance and improved RENUMBER that allows relocation of subroutines. 
CDE function; simultaneous stril^ing of the C, D and E keys will allow the user to enter 
a mini-DOS to perform some DOS commands without disturbing the resident pro- 
gram. 

Upward compatible with NEV^DOS 2.1 and TRSDOS 2,3, 
Includes Superzap 3,0 and all Apparat 2,1 utilities. 



r'- 



ICQCIPJTRQf^lCS! 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY, STATE> 



HOUR 
24 ORDER 
LINE 




(800) 431-2818 (914) 425-1535 



NEW DOS/80 

(TRS-80 MODEL I or MODEL III) $149.00 



ADD $3.00 FOfl SHIPPING !N UPS AREAS 

ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 

ADD (5.00 TO CANADA AND MEXICO 

ADD PROPER POSTAGE OUTSIDE U.S., CANADA & MEXICO 



*" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE' 




From 

MICRO SYSTEMS 
SOFTWARE, INC. 



Replaces TRSDOS^" with the most powerful and sophisticated 

operating system you can get for your TRS-80''" Model I or III 
(New Model II version also*) 





r^ONTAINS ALL OF THE 



FOLLOWING F£ATUR£!» 



1) Radio Shack compatibility 

2) Error Iree variable length records 

3} Full lower case detection and support 

4) Repeating keyboard with NO keybounce EVER 

5) Shift (0] typewriter keyboard option 

6) Execute only protection feature for BASIC programs 

7) Automatic track support for 35 through 80 track drives (mixed) 

8) Device I/O handling with FORCE command 

9! Supports high speed clock modification (up to 4.0mhz) 
10) Supports mixed mode (single & double density) automaticalty 
11] Allows disable-enable to break key 

12) Allows user to define step rate per drive and re-configure system disk 

13) Allows for efficient use of double-headed drives 

14) Built in screen printer (shift [CLEAR) with [BREAK] key abort 

15) Multiple command chaining with "DO" 

16) Built in memory test with CLEAR command 

17) New printer driver which allows complete forms control and paging 

18) Automatic serial printer driver with optional auto linefeed 

19) Execute any DOS command from BASIC and return to BASIC 

20) Free space map of diskette with optional output to printer 

21) Copy with variable length files 

22) Complete RS232 control from keyboard with status check 

23) Create and pre-allocate files from DOS 

24) Display current date and time from DOS 

25) fvlore information Irom Directory wilh optional printer output 

2fi) Enter DEBUG with shift [BREAK] to allow use of [BREAK] from BASIC 

27) New DISKDUMP/CMD sector display/modify program (works with filespecs 

28) New DISKZAP/CMD single/double density disk editor 

29) New BACKUP (more reliable, no more pack ID check) 

30) New FORMAT (more reliable, no need to bulk erase disk first) 

31) New MAP utility (maps out disk, stiowing wtiere files are located) 



IS 



New DOSPL 

Extended Disk BASIC 

1) Faster loads and saves 

2) BASIC Roferonce utility (lines, variables, keywords, printer option) 

3) BASIC Renumber utility (renumber section of text, block text move) 

4) Shorthand features for almost ANY direct command [LOAD, SAVE, etc.) 

5) Shorthand features tor editing (listing and editing with single key) 

6) CMD"M" instantly displays currently set variables 

7) Global search and replace in BASIC text 
8} Line printer TAB to 255 

9} QPEN"E" to end of sequential file (for output) 

10) Dl (delete and insert text line) 

11) DU (duplicate text line) 

12) ",R" & ",V" options after LOAD and RUN (files open & save variable) 

13) OPEN'-D" allowed (Model II compatible) equal to OPEN'R" 

14) DOS commands from BASIC 

15) Automatic, error-free variable length records 

16) Single step execution with TRON'(fabulous for debugging) 

17) CRUNCH (BASIC program compressor) 

18) New TBASIC (tiny BASIC) offers full BASIC commands 

19} TBASIC and DOSPLUS togettier only use BK of RAM (40K left in 48K TRS-f 




* Announcing .... 

DOSPLUS II 

For The TRS-SO'" Model II 

Now Model II owners can get the power of DOSPLU::! 
DOSPLUS II replaces TRSDOS with an ullfa-sophisticated 
operating system that is 5 or more times faster, more reliable, and 
is totally compatible with all standard business-oriented software 
for the Model II. 



•kti 



7 MORE UTILITIES ** 



1) Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) 

4) Clearfile (destroys data by writing zeros to file) 

5) Transfer (moves all user files from one disk to another) 

6) Spooler (allows printing of text while freeing up the CPU) 

7) Crunch (Basic program compressor) 



DOSPI..US 3.4 ADDS THESE NEW 

■EATURES 



1. BASIC array sort - multi key, multi array 

2. Tape/Disk - Disk/Tape utility (with relocator) 

3. lnput(a) (controlled screen input) 

4. Random access and ASCII modification on 
Diskdump 

5. BASIC checks for active 'DO' 

6. Backup and Format from a 'DO' file 

7. Much improved Backup (More reliable) 

8. I/O package much faster (disk access time 
reduced) 

9. Repeat last DOS command with '/' ENTER 

10. Short directory (file name and extension) 
available 

11. Short directory of Model III TRSDOS disks 

12. Single file convert from Model III TRSDOS 

13. COMPLETE device routing supported 
{DOS and BASIC) 

14. Ability to save BASIC programs directly to 
another machines' memory (if equipped vi/ith 
Dosplus 3.4) 

• Plus many more improvements 

• Includes the new expanded easy to read 
200 - page users guide 

• Also includes the new DOSPLUS Z80 
disk basic VER T6 




■CDIYIPLJTRQMICS! 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 
ORDER LINE 

lOlJIiiUL Ol N Y iloIE I 

(800) 431-2818 



a& 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 



ALL PRICES S SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



r 



f49U€0UHCUt^ 



A NEW ENH/J^CED VERSION OF 
THE FINEST DATA BASE SYSTEM 
FOR YOUR TRS-80^" MODEL I or III 




JUST CHECK SOME OF THESE FEATURES 

• Supports six different relational search 
techniques. 

• Comes with programmer's interface. 

• Over 93 pages of documentation. 

• Supports up to 20 user defined fields of 40 
characters each. 

• Record length up to 800 characters. 

• Files can be up to four disks in length. 

• Compatable 35, 40, 77 & 80 track drives. 

• Has calculated equation fields. 

• Complete report generator. 

• Data can be merged into letters. 




^^Adventur6 



INTERNATIONAL 

A DIVISION OF SCOTT ADAMS, INC. 



MAXI MANAGER for TRS-80 Models 1 & 3 
Requires 48K of RAM and 1 Disk Drive Minimum. 



^^e«* *peatttne4' ^tuUucCe: 



• 30% INCREASE IN SORT SPEFO 

• RE-WRITTEN USER'S MANUAL 

• NOW COMPATIBLE WITH NEWSCRIPT'" WORD PROCESSING SYSTEM 

• MAXI UTILITY, WHICH ALLOWS YOU TO RESCUE FILES ON DISKETTES 
DAMAGED BY WEAR OR MISUSE AND LETS YOU ADD. DELETE OR EXPAND 
FIELDS IN AN EXISTING DATA BASE, 



95 



NOTE 1' File sue is dependant on memory size. ?3 ^% gm 

NOTE 2' Sequential files only. ™ ^^ W^ is 

NOTE 3: User must apply own driver routine, 

NOTE 4: Hnrd copy print out only 

NOTE 5: Four (unctions ( + - ' ' ) only 

NOTE 6: Some as note =5with a maximum of two calculated fields. 

NOTE 7 Avoilable as o seporote prpgram for $99.95. 

NOTE 8: 120 chacoctet maximum. 

NOTE 9' Dalo structures defined m manuol. 

NOTE 10: 132 characters moximum. 

NOTE 11: User option (files can be rpnd rrcm ascending or descending order). 

iCQIYIPJTHQMlCSc" 



F^H^A"-*PVVfl'' 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



I NEW TOLL-FREE 

I ORDER LINE 

I (OUTSIDE OF NY STATE} 

I (800) 431-2818 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 




DATA MANAGEMENT 
PROGRAM 
COMPARISON CHART 

FILE CAPACITY & FORMAT 




Kaxitnum fl of disks per file 


1 


1 


4 


31 


^ 


Maximum ^ of records per file 


2450 


Note 1 


32,167 


10.199 


65,Hi 


Maximum record length 


249 


254 


800 


255 


255 


Maximum S of characters per field 


249 


254 


40 


254 


255 


Maximum fl of fields 


24 


30 


20 


127 


153 


Maximum « of characters per field label 


IS 


10 


19 


12 


765 


Variable length records (pack sectors! 


No 


Note 2 


Yes 


No 


Nc 



wmm 



FlLLn TYPES 



Ai ph Jiiumer i c 


Yei 


Yts 


Yei 


Yes 


Yes 


Numeric 


Yes 


Yes 


Yes. 


Yes 


■ No 


Fixed decimal numeric 


Note 4 


Yes 


Yes 


No 


No 


Date (MM/DD/YY) 


Yes 


No 


Yes 


No 


No 


Extended date (MM/DD.YYYY) 


No 


No 


Yes 


No 


No 


Calculated equation 


Note 5 


Note 6 


Yes 


No 


No 


Permanent fields 


Yes 


No 


No 


No 


No 



SORTING 



Machine language assistt-d 


No 


Yes 


Yes 


Note 7 


Yes 


Sort by any field 


Yes 


Yes 


Yes 




Yes 


Number of Sort Key files 


1 


1 


5 




1 - 


Numeric son 


Yes 
Yes 


Yes 


Yes 




No 


Ascending son 


Yes~l 


Yes 




Ye', 


Descending sort 


Yes 


Yes 


Note 1 1 




Yes 


Sort within a selected range 


No 


No 


Yes 




Nc 


Sort r^pilfple fieirt': si'T^M'tr^ncovj''/ 


Yec 


Yes 


No 




No 



FILb MAINTFNANCL 



Fixed length input fields 


Yes 


Yes 


Yes 


Yes 


Yes 


Single key entry of common data 


No 


No 


Yes 


No 


No 


Single field EDIT selection 


Yes 


Yes 


Yes 


Yes 


Yes 


Skip record (next or previous) 


Yes 


Yes 


Yes 


No 


Yes 


Search & EDIT record 


No 


Yes 


Yes 


No 


Yes 


Search & DELETE record 


No 


Yes 


Yes 


No 


No 


Auto reiectiorr of alphanumeric data 
in numeric field 


Yes 


No 


Yr-^ 


No 


No 



^LCORD SELECTION TECHNIQUES 



Record numbe' 


Yes 


Yes 


Yes 


Yes 


No 


Binary search (high speed) 


No 


No 


Yes 


No 


Nc 


Maximum = of simultaneous keys 


1 


4 


10 


31 


1 



RELATIONAL COMPARISONS 



Equal 


No 
No 


Yes 
Yes 


Yes 
Yes 


Yes 


Yes 


Not equal 
Greater than 
Less than 
Instting 


No 


Yes 


No 
No 
Yes 
No 


Yes 
Yes 


Yes 
Yes 


Yes 


Yes 


Yes 


Yes 


No J 


'' Yes 


Yes 


No 


AND / OR 


No 


Yes 


Yes 


No 


Wild card masking 


No 


No 


Yes 


No 


No 



PRINTING 



User specified page title 


Note 8 


Yes 


Yes 


No 


Note 10 


User specified columri headings 
Automatic page numbering 


No 
Yes 


No 
Yes 


Yes 


No 


Yes 


Yes 


Yes 


Yes 


Right lustification 


No 
"Yes 
No 
No 
No 

No "1 
Yes 

Yes 

No 


Yes 
" No ' 

No 

" No 

No 

' No 

"Yes " 

Yes 


Yes 


No 


No 


User defined column widths 
User defined column separators 
Keyboard entered columnar values 


1 Yes 
Yes' 


Yes 


Yes 


No 


No 


Yes 


No 


No 


Merge data into form letters 


Yes 
Yes" 


No 


No 


Form fi llmg applications 
Columnar totals 


No 


No 


Yes 


No 


No 


Columnar subtotals generated upon 

change in a specihc tield 
Built in screen print 


Yes 


No 


No 


No 


Yes 


Nc 


No 



MISCFLlANLCUS 



Cost 


S7S.00 


S94.90 


$99.95 


$99.00 


S79.9S 


Punctuation allowed within data fields 


Yes 


J 


Yes 


Yes 


Yes 


Upper / Lower case 


Note 3 


Note 3 


Yes 


Note 3 


Note 3 


Built in R5-232-C driver 

Bu'ilt-in TRS-232 driver 
Piograinmer's interface 


Note 3 

Note 3 

Note 9 

No 

J 


Note 3 

Note 3 

"Note 9 

No 

J 


Yes 
Yes 


Note 3 


Note 3 


Note 3 


Note 3 


Yes 


No 


Note 9 


Sample DAI A disk 
[locumentation [i- of page"-' 


Yes 
93 


No 
~^'38' 


No 

/9 




©COPYRrOHT 1981 Adventure International 

* ADD S3,00 FOR SHIPPING IN UPS AREAS 

* ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD 55,00 TO CANADA AND MEXICO 

^ AOi.) PRripbH ror.lAur OUlSniF Gf U.S . CANADA ?. MEXICO 



'** ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 




" Owners: 



Power With 



IX^dventure 

\^^^^ INTERN AT lONAL 





MAX! CRAS Check Register Accounting System 

MAXl CKAS )i a "rRS-SO'" compLiterized check wriung and recordina sysLem ior personal or small bLisineiS use. Willi MAXl CKAS, you can print a 
month's worth of checks in minutes (singly or on continuous forms), or you can write checks by hand and enter them into the register at your convenience. 
MAXl CRAS also eases. the burden of reconciling your bank statement by providing the information you need to know quickly and efficiently. And MAXl 
CRAS never places a limit on your financial activity like some systems — write as many checks per month as you need! 

But MAXl CRAS does much more than balance a checking account; it's an indispensable tool for managing money most effectively. You create up to 223 
income and expense accounts in the system, and at any time, you can print a detailed statement that shows all activity in one or more of your accounts over a 
specified period of time. You always know exactly where your money is coming from and where it's going. 

There's more! You can print complete check registers, income and expense sub-totals, and an account distribution statement that tells how each trans- 
action was distributed over the individual accounts. 

If you're weary of the messy, inefficient ledger method of bookkeeping, if you've been disappointed with other financial managing systems that don't deliver 
what they promise, then you're ready for best. We mean it when we say — MAXl CRAS MEANS BUSINESS. 
ORDER NOW! 
TRS-SO'" 48K DISK Model 1 and III $99.95 



STAT Statistical Analysis Package 



MAXl STAT is a revoluhonary new program that was designed as a complete analysis package for the TRS-80'". If you're familiar with SPSS (Statistical 
Package for the Social Sciences) and what it does for statistical analysis on mainframe computers, then you have an idea of what MAXl STAT can do on your 
microcomputer. The following description of MAXl STAT is divided into the 3 main components of statistical analysis; 

(1) CODEBOOK 

The codebook describes the data file format and the labels to be used for all statistical printouts. The four programs have been designed for complete 
codebook creation and editing. They are menu-driven and have incorporated seweral automatic err or- checking routines. 

(2) DATA ENTRY 

MAXl STAT's data entry procedure is designed for speed and ease of entry. Entering and editing the raw information you wish to analyze is facilitated 
by the use of either fixed or tree format. The four Data Management programs are menu-driven and are designed with a special backup feature that will 
save the data on disk at user-specified intervals. 

(3) CONTROL FILES AND STATISTICAL ANALYSES 

With MAXl STAT, you create the task control life to describe the types of analyses you would like printed. Hundreds of tasks can be specified with only 
one control file and analysis may be done on ranges of variables. 
MAXl STAT is the most useful statistical analysis package on the market today. It was written and designed to allow maximum fie xibiliiy in designing your 
own analysis. 

If you're in need of a program that adapts to your specifications, you need MAXl STAT. 
ORDER NOW! 
TRS-SO" 48K DISK Model I and III $199.95 

MAXl MAIL Mailing List Management System 

1 he ultimate in low-cost mail hsi munagement is now here — MAXl MAIL, the latest entry in the highly acclaimedM AXl series. MAXl MAIL is a powerful 
mail list management system that's easy to use and has totally unlimited storage capacity. Completely menu-driven and loaded with error trapping routines 
and safeguards, each MAXl MAIL data disk will hold approximately 1000 names and addresses; you can add as mariy extra data disks as you like! MAXl MAIL 
prints address labels, too — up to four across and in any configuration you want. An aljgnment test ensures that everything is just right before your data printing 
begins. MAXl MAIL also merges data, supports three numeric codes (of up to four characters each), and offers all of the features necessary for professional 
mail list management. 

So, if you need a dependable, easy-to-use mail list management system at an affordable price, your search is at an end, MAXl MAIL means businessi 
ORDER NOW! 
TRS-SO'" -ISK DISK Model III Only (2 drives required) $99.95 
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If vou own a TRS-80, you Ve GOT to have this book! 




FROM AMERICA'S MOST IMITATED COMPUTER AUTHOR . . . 
THE ULTIMATE TRS-80™ BASIC BOOK! 

COMPLETE COVERAGE OF MODEL I, 11, III and 16 BASIC'S. 



ABOUT THE BOOK 



In 1977 David Lien wrote the Original Level I TRS-80 Learner's 

Manual furnished with a!i Modei 1 computers. This step-by-step. 
Illustrated, nonintimidating manual introduced thousands of 
beginners to the concepts and practices of BASIC programming. 
The manual was a huge success, and won universal acclaim as the 
best BASIC training manual ever written. Dr. Lien's teaching style 
created an immediate rapport with novice users, helping them to 
feel more comfortable with their computers, and more curious to 
about programming. Translated into numerous foreign languages, 
it soon became the world's best selling tutorial- style computer 
book. A revised version is still sold by Radio Shack. 

Level II BASIC was introduced in 1978 and Dr. Lien wrote LEARNING 
LEVEL II released by Compusoft Publishing. This book was bought 
by thousands of users at $16.95, and quickly became the standard 
training manual for Level II BASIC (although the book is NOT sold by 
Radio Shack). In addition to teaching users how to take advantage 
of the power of Level II BASIC, this book helped bridge the gap 
between Level I and Level II. 



"■ TRS-80 is a trademark of Radio Shack 

In his own unique style, Dr. Lien has used his great expertise to 
create the most comprehensive training manual ever written on 
BASIC programming for all TRS-80 computers. Completely re- 
organized and updated. LEARNING TRS-80 BASIC clearly instructs 
you in BASIC programming for TRS-80 Models I, II. ill and 16 in a 
smooth flowing, easy-to-understand tutorial style. In addition to 
complete descriptions of each BASIC command, one or more 
sample programs are included to illustrate each command's use. 
Even the "know-it-all" programmer who thinks he knows all there is 
to know about BASIC will find a wealth of information not available 
elsewhere on use of PEEKs and POKEs, sorting techniques, disk 
BASIC usage, error handling and more. Schools teaching BASIC 
programming will find this to be an ideal textbook, with question 
and answer approaches and exercises at the end of each section 
that help the student make sure he understands the most important 
concepts, and is ready to move on to the next section. 
Whether you're a beginner or an expert programmer, whether 
you're studying alone at home, or in a class with a teacher, IF YOU 
OWN A TRS-80, YOU NEED A COPY OF THIS BOOK. 

$19.95 
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DEC 




(430 pages - Soft Cover) 



»19. 



The BASIC Handbook has never been this complete. The Expanded 
Second EdJlion gives you over twice as much information as the First 
Edition, explaining nearly 500 BASIC words. The Handbook features 
special sections on Disk BASIC, TRS-80 Extended Color BASIC, Atari 
BASIC, Acorn Atom BASIC, Tektronix BASIC and "Converting Pro- 
grams From One Computer For Another." 

The computer industry has experienced tremendous change in the last 
three years. Hundreds of new computers have been introduced since 
The BASIC Handbook was released in 1978. The Second bdition meels 
the challenge head-on, documenting every significant BASIC word 
used by every BAS|C-speaking computer. 

This new Edition makes program conversion easy. Itswidels^acclaimed 
feature, "If Your Computer Doesn't Have It ' has been expanded. Each 
BASIC word is alphabetically listed, wtth Test Programs and Samplkj 
Runs, Variations in Usage combine with Alternate Spellings to totally 
cross-reference each BASIC word. 

Who needs the BASIC Handbook? 

Every user of the BASIC language needs the Handbook! Hobbvists 
converting between BASIC "dialects" need it. Students learning and 
using BASIC onany size computer need the Handbook as a supplement 
to their BASIC language text. Programmers at every level will use it con- 
stantly to find better ways to achieve the needed results. 



WT 



An Encyclopedia of the BASIC computer language, 
by Dr. David' A. Lien 

What versions o1 BASIC does it cover? 

There are nearly a hundred versions of BASIC in use today. No wonder 
we keep seeing strange new BASIC words. Dr. Lien has selected over 50 
of the most used dialects and explained every commonly used state- 
ment, function, operator and command. 

Interlocking subroutines: Every subroutine has been constructed so the 
numbers won't overlap with others in the book. Assemble any combina- 
tion of the subroutines needed to do the job — with no line conflicts! 

Alternate programming techniques: The popular "It Your Computer 
Doesn't Have It" feature has been expanded throughout the book. 

Complete Index: The increased complexity of the language mandated 
that an index be addod 

Converting Programs From One Computer For Another" This special 
section provides valuable tips on how to translate a program with a 
"foreign" BASIC to run on your machine. 

Foreign computers: Virtually every BASIC-speaking computer in the 
world IS covered. You need the new Handbook to translate BASIC 
words used by Britain's Sinclair, Sweden's ABC-80, Australia's System 
, Japan's NEC and many others. 

Plus these Special Sections 

* Disk BASIC: A helpful supplement to your Owners Manual and a 
qoor] mtroduction to the theory of Disk' BASIC, 

* TRS-80 Extended Color BASIC: A comprehensive explanation of 

Radio Shack's nowost BASIC. 

* Atari BASIC: You see programs written in this popular BASIC in 
nearly alt the magazines. A special section explains its unique 
words and features. 

Acorn Atom BASIC: The Atom is one of Europe's favorites, but 

Its [JASIC IS very different. It's fully documented in this Second 

Ecilion. 

Tektronix BASIC: A graphics-oriented BASIC. used extensively 

liy engineers and scientists. 

Covers These Computers: 

• TRS-80 (all models) " APPLE* IBM "Atari "Wang "Commodore PET 

• Sorcerer • Northstar • Acorn Atom • UNIVAC • System 80» Hewlett 
Packard • Heathkit • Ohio Scientific • Texas Instruments • Sinclair 

• DEC • Sharp • Vector • NEC • Plus hundreds more! 
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Now you can write the programs your business needs- 
even if you have no programming experience! 



Until now, you either had to 
hire an expensive programmer 
to custom tailor existing soft- 
ware to your business, or else 
try to adapt your business to 
someone else's software. The 
classic dilemma of the square 
peg in the round hole. 

But now there's 
Autogrammer. Software de- 
signed to let non-programmers 
generate their own programs. 
No need for programming 
knowledge. No need to ^ 

learn any programming 
language. All you have 
to know are the needs ^ 
of your own business. 

EASY! 

Autogrammer is as easy to 
use as a typewriter, ygt so pow- 
erful it puts all the muscle of 
your computer right at your 
fingertips. Many applications 
require only 10 or 15 minutes to 
complete. What you type on the 
screen, Autogrammer turns 
into a machine-language pro- 
gram that's ready to run. 

VERSATILE! 

Autogrammer has thousands 
of applications for both busi- 
ness and persona! needs. 
Inventory records, sales and 
earnings projections, tax calcu- 
lations, forecasts, employees 
files, stock market analyses. 
Using Autogrammer, you can 
create even complex programs 



DEALER INQUIRIES ONLY; 

ROKLAN SOFTWARE 
10600 W. HIGGINS RD. 
SUITE 200 

ROSEMONT, IL 60018 
(312) 297-5088 



such as tracking inventories, 

adding purchases, subtracting 
sales, crediting accounts, 
report and adjust for daily 
sales, add back to inventory, 
make adjustments for credits, 
defects, shipping charges, and 
much more. Having this kind of 
vital information available can 
simplify business decisions and 
save you money. 

FLEXIBLE! 

As your needs change, 
Autogrammer-generated appli- 
cations can easily be revised, 
updated, expanded, or com- 
bined. Autogrammer writes fin- 
ished, stand-alone programs 
which do not require Auto- 
grammer for running. They 
work first time, every time. 
Everybody in your organization 




can use Autogrammer to gen- 
erate custom programs. It's so 
simple, anyone can become an 
Autogrammer quickly and 
easily. 

Autogrammer allows you to ' 
L rint from screen with one sim- 
ple command or list the entire 
data base. The optional Report 
Generator allows you to organ- 
ize and then report from the 
data base in the format you 
choose. 

Autogrammer by Roklan 
costs S299. 95 and is 
available for Tandy 
TRS-80- model Hand 
soon for models I, III 
and CP/M versions, with other 
versions soon to come. 
Optional Report Generator, 
$199-00, for in-depth reporting 
from the data base. 

LET'S FACE IT. 

Nobody knows your busi- 
ness like you do. With 
Autogrammer, you can write 
your own programs and gain 
control of your own business 
by generating exactly the 
information you need. 

Autogrammer for TRS-80* 
model II isavailablefrom H&E 
Computronics Inc. and other 
majordistributorsand dealers 
nationally. 

The end of the square peg in 
the round hole. 

'Registered trademark of Tandy Corp. 
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TRS-80* • APPLE* • IBM* • HEATH* • ZENITH* • XEROX=* 




1^3 • • • • 

We're so convinced that THE BOX is 
exactly what you need that we'll let you 
try it for 10 days. If you're not satisfied 
with the incredible speed and capacity 
of this system — return it for a full refund. 



• Cost: $2995* per drive, complete 

• Plugs directly into the Model III 

• Model II systems require installation of Radio 
Shack's hard disk drive port modification 
(about $30) 

• Winchester Technology 

• Add up to 3 additional drives 

• Full one year warranty on all parts and 
workmanship provided by manufacturer 

• Boots up in seconds 

• Direct installations in minutes 

• Availability - NOW! 

Model III TRSDOS-Compatibie Operating System 

$149.00 
Model ill DOSPLUS-Compatible Operating System 

$250.00 
Model III LDOS-Compatible Operating System 

$250.00 
Model II TRSDOS-Compatible Operating System 

$400.00 
Model II CP/M-Compatible Operating System 

$250.00 
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TRS-SO'" DISK & OTHER MYSTERIES by H.C. Pennington 

7"flS-80D(s*<andO(ftef Mysfer^es is the definite tix-it book for disk users. More than 130 pagesof easy to read entertaining and immensely useful 
information. Fmd out how to recover disk files, the layout of information on disks, memory maps, problem solutions ... the list goes on! 

Many readers have saved days of work by recreating disk files that were unreadable. TRS-80 Disk and Other Mysteries Yyave received favorable 
reviews m several magazines $22.50 

MICROSOFT'" BASIC DECODED & OTHER MYSTERIES by James Farvour 

M;crasoffeas(c and OrherMysfeWes IS the definite guide to your Level II ROMS. With more than 7,000 lines of detailed comments and 6 addition- 
al chapters packed with information, it is easily the biggest and best book about the Level II ROMS available 

Exploit the power of Microsoft Basic with the aid of more than 300 pages of tested examples, explanations, and detailed comments. S29.95 

THE CUSTOM TRS-BO'" & OTHER MYSTERIES by Dennis Bathory Kitsz 

Ever wanted to do things to your TRS-SO^" that Radio Shack said couldn't be done? How about reverse video, high resolution graphics, and 
audible keystrokes'' 

Not enough? How about turning an 8-track into a mass storage device, makmg music, controlling a synthesiser, individual reverse characters, 
and a real-time clock just to name a few? 

The Custom TRS-80'- and Other Mysteries is packed with more than 290 pages of practical information $29.95 

BASIC FASTER AND BETTER & OTHER MYSTERIES by Lewis Rosenfelder 

BASIC is not nearly as slow as most programmers think e/lS/C Fasfer anc* Setter shovjs you -how to supercharge your BASIC, with 300 pages of 
fast, functions and subroutines. 

You won't find any trivial,' poorly designed check-book-balancing' programs in this book — it's packed with useful programs. 

Tutorial for the beginner, instructive for the advanced, and invaluable for the professional, this bookdoesn't just talk . . . it shows how! All routines 
are also available on disk, so that you can save hours of keyboarding and debugging. 

The #1 disk BFBDEM contains all the demonstration programs, and #2 BFBLIB has all the library functions $29.95 

BFBDEM (demonstration disk) $19.95 /BFBLIB (library disk) $19.95 

THE CUSTOM APPLE'" by W. Hofacker and E. Floegal 

This new book is a complete guide to customizing your Apple, both with software and hardware additions and modifications. Install extra 
memory, sound chips, analog-to-digital converters, and many other modifications with the instructions in this book. Turn your APPLE into a 
terminal or into a piano! $24.95 
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The New Enhanced Version 
World's Greatest Word Processor Is Here. 



The new ELECTRIC PENCIL 2.0 for TRS-80 Models I and III 
Available for Disk, Cassette and Stringy Roppy Systems 

The ELECTRIC PENCIL System is easy to learn and easy to use -- its simple command structure will make you a word processing 
expert in minutes. The ELECTRIC PENCIL Manual serves both as a quicl< reference guide and as a self-teaching manual, including 
pictures and examples. 
The ELECTRIC PENCIL 2.0 has more features than any other word processor for the TRS-80, including: 



n Easy to learn-easy to use-menu driven 

D AM settings are displayed in menus 

n Extensive 'HOW-TO' documentation witii examples 

n Disk version supports tape and Stringy Floppy 

n Compatible witti all ASCII tiles (including BASIC'S) 

D Configure program to your own format 

n All print format settings saved with file 

n Runs on tvlodel I and Model III 

D Runs under all versions of TRSDOS and NEWDOS 

□ Fast buffer shift and type-ahead in 'INSERT' rnode 
O Underlining 

D No keyboard modifications required 

D Compatible with all lower case modifications 

□ Ttiree print drivers, (parallel, serial and TRS232) 
n Recognizes high memory 

D Uses printer DOB - you can use any print driver 

D Commands to load and save special print-drivers 

D Special print drivers may be loaded at any time 

n Set RS232C and TRS232 options from SYSTEfvl menu 

D Supports serial baud rates from 110 to 9600 baud 

n Supports 1500 and 500 baud tape operations 

D Cursor speed command 

□ Incomplete/'bad' loads saved for your inspection 
D 'Printer hangs' eliminated 

D All file commands use standard TRS-80 mnemonics 

D ALL versions runs with 16K, 32K or 48K 

D Automatic print formatting 

n Automatic repeating keyboard 

D Automatic 'whole word' wrap-around 



D Cursor control - up - down - nghl - left 

D Cursor to end of file 

D Cursor to begmning of tile 

D Tabbing 

□ Scrolling - 5 speeds forward and reverse 
n Freeze and continue scrollmg 

D Cursor to top of screen 

□ Cursor to beginning of line 
D Delete and insert characters 
n Delete and msert lines 

D Erase line from cursor position to end 
n Insert and delete blocks of text 
n Backspace and erase characters 

□ Search from 1 to 38 characters at one time 
D Replace from 1 to 38 characters at one time 
O Search without replace 

□ 'Conditional' search and replace 

n Cursor positions over search' character 

D Selective (wild card) searcin and replace 

n Selective (wild card) search without replace 

D Search and replace carriage return and form teed 

D Repeat command 

□ Hard Space character 

□ Concatenation of long lines 

O Upper and lower case shift key lock 

□ Exit any command with a single keystroke 
n Automatically displays free memory 

n Automatically displays words in file 
a Selection of cursor speeds 



D Selective clearing of memory 

D Set your own power-up configuration 

a Warm start command 

D Optional automatic titling 

D Optional automatic page numbering 

n Right justification 

n Left margin may be set from to 255 spaces 

□ Line length may be set from 1 to 255 characters 
D Line spacing may be set from 1 to 255 lines 

D Page length may be set from 1 to 255 lines 

n Page spacing may be set from to 255 lines 

D Starting page number may be from 1 to 65535 

O Optional print length may Be set to print partial files 

a Multiple printing of text files 

D Single page printing 

n Printer configuration control: 

carriage return on/off 

line feed on/off 
D All options may be changed at any time 
D Loads any ASCII file 

n Compatible with all files created by previous releases 
D Easy backup - no fancy protection features 
D Cassette control for dictation - DICTAMATIC 

□ Loads multiple files 

n Fast disk I/O - loads 36K in under 8 seconds 

D 36K text butter (48K disk system) 

D All machine language program 

O tvlanual available separately 

G Source code available - 'THE ELECTRIC PENCIL HANDBOOK' 



The ELECTRIC PENCIL 2.0 for TRS-80 Models I and III 
(disk) $89.95 (cassette) $79.95 




Editing Utilities for the ELECTRIC PENCIL 2.0! 



BLUE PENCIL - A lexl ptooling addition to THE ELECTRIC PENCIL. 
BLUE PENCIL reads the text file and notes any spelling errors on the video or 
printer, ft recognizes prefixes, suffixes, hyphenation and comments. The word 
dictionaiy is infinitely expandable - by you! You can add or delete your own 
vocabulafy of words to BLUE PENCIL'S dictionary. 

BLUE PENQL comes w.'ith a 50,000 word dictionaiy (equivalent to a 
Webster's Pocket Dictionary.) Twical proofing time for a 60,000 word ie-ja file 
is under two minutes. Requires 32K minimum, 1 disk drive. 989,95 

RED PENCIL - A text correction addition to THE ELECTRIC PENCIL. 
RED PENCIL automatically CORRECTS errors detected by BLCE PENCIL. 
RED PENCIL displays each misspelling and typo separately and offers you a 
choice of options which include: retyping the misspelled word, leaving it as is, 
adding it to the dictionary or displaying the word in context. If you choose to 
display the word in context, then you ate again offered the first three choices. 
The text is instantly corrected and you may then proceed with your word pro- 
cessing chores. Typical correcting time for a 6000 word file is under two 
minutes. (Note: time may vary depending on the number of spelling errors.) 
Requires 32K Minimum. 1 disk drive and 'BLUE PENCIL, $89.95 



Also Available: 

The ELECTRIC PENCIL II for the TRS-80 Model II 
TRSDOS or CP/M Version $300.00 
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A COMPUTER PROGRAMMING COURSE 
FOR BEGINNERS 

STEP BY STEP Ages Junior High to Adult 

32 Programs and a 64-page workbook teach programming in BASIC 
for the beginner. Introduces all important BASIC commands and 
programming logic, including simple string logic and one-dimensional 
arrays. Lessons are interactive, presented in a question-and-answer 
format on the computer screen. The workbook adds extra informa- 
tion. Through instruction, structured practice, and frequent skilis 
testing the user learns how to write BASIC programs, 3 tapes, work- 
book, vinyl binder. 



TRS-80, PET $49-95 APPLE (Disk) $79,95 



PET (Disk) $59.95 



EDUCATIONAL GAMES 

MEMORY BUILDER: CONCtN I KATiON Ages 6 Up 
A series of educational games to improve memory, attention span and con- 
centration. Letter and 3-ietter words are used. Player has thr.ee options: play 
against the computer, play against him or herself, play against another player. 
Especially good for parent and child to play together. 

$16.95 

STORY BUILDER WORD MASTER Ages 9 Up . 
Series of partially cumpieitid verses that the child completes. Teaches gram- 
mar skills in an enjoyable way. Word Master is a logic game where the child 
tries to guess a 3-ietter word generated by the computer. Teaches reasoning 
and vocabulary. 

$16.95 

GRAPH BUILDER Ages 10 Up 

1 1 teaching programs and games teach students to read graphs. Covers x and 

y coordinates, and representation of numerical data on graphs. Starts with 

simplest concepts and works up to complicated grid game. 

TRS-80 $16.95 

CODE BREAKER Ages JO to adult 

3 scrambled message games of increasing difficulty that build basic word 
handling skills needed for good writing. First game scrambles letters within 
the words in the message: next 2 games scramble letters and also word order. 
The last game gives the hardest messages. Messages are made up by the 
compuif>r from an extensive word list. 

AITLE, ATARI, PET $16.95 

MINICROSSWORD All Ages 

4 programs that consist of 2 minicross words and 2 codeword games. Cross- 
word programs invent their own crossword puzzles - hundreds of completely, 
different puzzles are possible- and score how well you do each puzzle. When 
used in conjunction with the codeword programs, which are word-guessing 
games, the course provides a vocabulary and spelling development system. 
TRS-80, APPLE, ATARI $16.95 
ASTRO WORD SEARCH: GEOGRAPHY Junior high to adult 
Search for hidden geographical place names in a pattern of letters generated 
by the computer. Words can be hidden across, down or diagonally as in the 
popular word-search puzzles. Hundreds of different puzzles can be formed by 
the puzzle in 3 programs. Computer scores you on how well you do. 
TRS-80, APPLE, AT ARi $16.95 

ASTRO WORD SEARCH: SPANISH High school to adult 
As in Asiro Word Search. Geography, the computer generates hundreds of 
different puzzles, but thistime the hidden words are common Spanish words. 
Helps improve Spanish vocabulary, Computer scores you. 3 programs. 
TRS 80, APPLE, ATARI $16 95 

ASTRO WORD SEARCH: FKHNCH High School to Adult 

Like Astro Search; Spanish, except this rime, it's French vocabulary woi d=. 

TRS-80, APPLE, ATARI $16.95 

ASTRO QUOTES: High School to Adult 

Fascinating game in which you guess vocabulary words from clues and the 

computer takes each letter from the words and puts it where it belongs in a 

famous quotation. As soon as you can, you guess the quotation. If it takes you 

too many tries to guess the 'uote, you lose the game. 3 versions: easy, 

medium hard. 

APPLE, ATARI $16.95 
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STUDY SKILLS 

[Q BUILDER Junior H^fjh Up 

A group of 4 courses that prepare a high school student for the College 

Boards or adult for aptitude tests. 

VOCABULARY BUILDER 1; BEGINNING 11 programs include a set of 
graded^ocabulary questions on synonyms and antonyms (the most common 
typi' of vocabulary quesuon on an !Q test). The last lesson is a test on vocab- 
ulary. Total of 400 questions, 2000 words in course. 

$16.95 

VOCABULARY BUILDER 2: ADVANCED 11 programs like those in 
Vocabulary 1. but using a more advanced word list. 

$16.95 

NUMBER SERIES Contains 8 programs that provide practice in a common 
math problem type. The first lesson teaches how to approach number series 
and how to analyze their patterns. Later lessons provide practice with in- 
creasingly difficult problems, giving clues if you have difficulty with the 
problem. Final lesson is a test of abilities. 

$16.95 

ANALOGIES Contains 6 programs that teach what an analogy is and what 
the common types are, provide a method for analyzing analogies and provide 
practice in handling all types of analogies. Final lesson is an analogies test. 

LANGUAGE ARTS 

READING COMPREHENSION: WHA IS DIFFl KENT? Ages 8 Up 
5 reading comprehension programs which present logical problems where the 
student picks the one word in four which doesn't belong with the rest. Builds 
analvlicalskills essential for understanding what you read. 

S16.95 

PRESCHOOL IQ BUILDER Ages 3 6 

Teaches vital cognitive skills thai children must learn in order to do well in 
school. In Part 1, Same and Different, the child discriminates between two 
forms. In Part 2, Letter Builder, the child matches a letter on the TV monitor to 
one on the keyboard. Accompanying Parent's Guide gives instruction. 

$16.95 

SPELLING BUILDER Junior High Up 

8 programs plus an audio cassette teach important spelling rules and skills. 
Helps students and adults overcome spelling difficulties. Not just spelling drill, 
this course teaches a method for approaching difficult words, ideal for the 
student or adult who has mastered basic spelling but has trouble deciding if 
it's "supersede" or "supercede", ■'combustable" or "combustible". Final test 
of 25, len'Word lists 
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USING CP/M® 

Judi N. Fernandez & Ruth Ashley, 

Co-Presidents, DuoTech 
The first complete, detailed, self-paced introduction to CP/M— Control 
Program/Microcomputers, the most widely used microcomputer 
operating system. Packed with examples and exercises, and assuming 
only rudimentary programming experience, this daily working tool lets 
you use CP/M to perform routine work functions and sophisticated 
tasks with maximum capabitity and efficiency— with a wide variety of 
hardware, for any application. 

"A marvelous addition to the CP/M literature... I only wish that i had 
had the book when I was starting out!"— Alan R. Miller, New Mexico 
Tech and Software Editor, Interface Age 

S 12.95 

TRS-SO'" BASIC 

Bob Albrecht, Don Inman & Ramon Zamora, 

all of Dymax Corporation 

Packed with games, graphics, and practical applications, this exciting 
new book helps you get maximum enjoyment and use from your TRS-80 

"OUTSTANDING. ..the best thing to happen to Level II owners."— 
Computronics Monthly News 

"If you're a rank beginner. ..your novice status won't last long. TRS- 
80 BASIC leads you by the hand through the maze of programming the 
computer to perform both entertaining and useful tasks."— Interface 
Age $10,95 

MORE TRS-80 " BASIC 

By Don Inman, Ramon Zamora, and Bob Albrecht 

Here is an exciting new interactive programming guide to advancod 
functions. A sequel to the author's highly popular book, TRS-80 BASIC, 
MORE TRS-80 BASIC helps you build on your fundamental knowledge 
of Level II Basic with scores of practical applications that are both 
recreational and educational, Jt explains all TRS-80 Level II BASIC 
statements, commands, and features not covered in their previous best 
seller. 

Along with an exploration of the PEEK and POKE functions, you'll 
get a clear demonstration of several different methods to display 
graphics, including little known "supergraphics" techniques. Graphics 
become ooth fascinating and fun when you learn how to use TRS-80 
string operations and functions like SET, POKE, and CHR$ to animate 
characters, games, and drawings. 

You'll explore vital concepts in information processing and master 
file handling techniques that apply to both cassette and disk files. You'll 
also discover many "universal" applications easily adaptable to specific 
problems. 

MORE TRS-80 BASIC is oneoftheWileySelf-Teaching Guides. It's 
been carefully written so that we're sure you can broaden your under- 
standing of Level II BASIC and expand your programming ability in 
order to make full use of your computing equipment. And it's self- 
instructional— so you work at your own place. Only a beginning back- 
ground in Level II BASIC is needed. $9.95 




John Wiley & Sons 

DATA FILE PROGRAMMING IN BASIC 

LeRoy Finkel, San Carlos High School & Jerald R. Brown, 

Educational Consultant 

Data files are the key to the successlul use of microcomputers for 
virtuaily all business, educational, professional, and sophisticated 
home applications. This easy-to-follow guide serves the rapidly grow- 
ing army of microcomputer users by explaining in comprehensive 
detail how to program and mainlain data files on microcomputers. It 
uses the most popular variants of BASIC, TRS-80 BASIC and Microsoft 
BASIC-80, with an extensive append IX that covers BASIC tor the North- 
star computer. $12.95 
APPLE - BASIC Version $12,95 
Opiicmdl APPI I '" Ptogram Disk $19.95 

FORTRAN IV, 2nd Ed. 

Jehosua Friedmann, Ph.D., 

Jerusalem College of Technology, Jerusalem, 
Philip Greenberg, Ph.D., Kingsborough Community 
College, & Alan M. Hoffberg, CPA, MBA, President, 
Information Resource Management 

A revolutionary new edition of the standard FORTRAN guide— now 
heavily oriented to personal computers. Users of mainframe computers 
will also find the book totally applicable. You'll start writing basic 
FORTRAN immediately, then progress smoothly to standard exten- 
sions and advanced options. Whether you use FORTRAN 77 or FOR- 
TRAN IV, the authors point out all the differences— with comparative 
tables— so you can follow whichever version is right for your machine. 

$12.95 






THE TRS-80" MEANS BUSINESS 
Ted G. Lewis 

Wfjiien specifically lor business computer users, this hands-on manual is the first guide to 
the best -selling Radio Shack Model II Computer. You'll discover a wide variety of applica- 
tions that will turn your system into a powerful "filing cabinet"^ while making your 
business a lot more manageable. Many ready-to-rur programs are included and the most 
dilficult aspects of file structure programminq are simplified. $12.95 

Optional Model [I Program Disk $19.95 

FAST BASIC 

Beyond TRS-80™ BASIC 

George Gratzcr, Ph.D. assisted by Thomas G. Gratzer 

(.'■-ria fewer than 20 assembly language instructions, and the namesof 60 memory func- 
tKiiiE, FA3T BASIC demonstrates how programmers can write faster, more efficient 
programs. In fact, it actually shows them how to improve their programming speed up to 
100 times! $14.95 

Optional Model I or III Profiram Ca'ssette $19.95 

Opiiona! Model 1 Program Disk $19.95 

Opiionai Model III Program Disk $19.95 

TRS-80'" COLOR BASIC 

Bob Albrecht 

TRS-80 COLOR BASIC shows users how to appreciate the unique color, sound, and 
graphic capabilities of the TRS 80 Color Computer. With games, experiments, program- 
ming problems and solutions - geared to educational, recreational and home applications 

ii Icids r'oviccb sii'p I)', 5iu|> III!) tjood prograniriirq |'',iukl'^ S9.95 

PROBLEM-SOLVING ON THE TRS-80'" 
POCKET COMPUTER 

Don Inman & Jim Conlan 

The first guide to the new TRS-80 Pocket Computer, this step-by-step guide covers a 
range of educational and practical applications- from data storage, sorting, and searching 

to complpx rhni-i prog'.imrr.irq $8.95 
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Level III BASICs Add new dimensions TO your Level I 
Feature include. ••" 

1. Advanced graphics! New commands to do plolling 
elc! 

2. Renumber a basic program! 

3. Single stroke instructions. Type 1 key to get full 
command print ouls like PRINT, EDIT ETC.1 

4. New save and load commands. Replaces level II 
CSAVE and CLOAD' Improves loading reliability! 

5. INPUTttLEN and L1NEINPUT#LEN. Allows you to 
write programs that set a time limit o„n INPUTS! 

6. Keyboard Debounce. Prevents Levelll key bounce 
problems. ■ ■> 

7. Speljed out error messages. 

8. 10 user defined routines. 

9. LINEPUT command. 

10. Flexible MID routines. 

11. INSTR function. ' 

12. User defined functions, 

13 Hf;« ;ind Octal Conversions! 

TRS-80 (MODEL I) (tape) $29.95 

TRS-30 (MODEL 1) (disk) $49.95 




Typing Tutor 



* FOR THE PROGRAMMER: Learn how to type your 
programs m faster with less mistakes! 

* FOR THE STUDENT: There is no easier or faster 
way to learn typing! 

•■ FOR THE YOUNGSTER: Learning to type at an 
early Age can lead to belter language skills! 

* FOR THE "SOMETIMES" TYPIST: Clean up BAD 

HABITS! ■ ■ '. 

TRS-eO MOD I S MOD lit 519-95 {(ape only) 

APPLE', . , , S24'95 (disk) 





MICROSOFT BASIC COMPILER 



$195.00 




With TRS-BO'" BASIC Compiler, your Level II programs will run 
at record speeds! Compiled-^Srograms execute an average of 3-10 
times f-aster than prograrrftVun under Level II. Make extensive use 
of integer operations, and get speeds 20-30 times faster than the 
Interpreter, 

Best 'Of all, BASIC Compiler dOes it with BASIC, the language 
you already know. By compiling the same source code that your 
current BASIC interprets, BASJC Compiler adds- speed with a 
thinimum of effoft. '«-""' ' ■ ' 

And you get more BASIC features to program with, since 
features of Microsoft's Version 5.0 BASIC interpreter are included 
in the package. Featdres like the WHILE. .WEND statement; long 
varia|>le names, variable length recprds, and the CAllL statement 
make programming easier. An excltisive BASIC' CSinpiier features lets yoii call FOR- 
TRAN and machine language subroutines- much more easily than in Level M. 

Simply type in and debug your program as usual, usiftg the BASIC interpreter. Then 
enter a corrmiand line telling tjie computd^f what to compile and what options touse. 

Voila! Highly optimized.-,Z-80 mSchihe code that your computer executed in a flash! 
Run it now or save It lor later. Your compiled progV«m can be saved on disk for-direct 
execution every time. - • ■ ■» 

Want to market' your programs? Compiled versions are ideal for distribution. You 
distribute only the object code, not the source, so your genius stays fully protected. 

BASIC Compiler-runs on your TRS-80""Model I with 46K and disk drive. The package 
includes BASIC Compiler, linking loader & BASIC library with complete documentation. 




Adventure 



The original adventure for your TRS-80 and APPLE' Don't 

take substitutes! Requires 32K 1 Disk 

MODEL i /APPLE $29.95 



Editor Assembler Plus: 

Inc-udua. MACHO idcililics, assemble directly into mem- 
ory, expression, evaluator, auto ORG, quash command, 
m'Ove and copy, edit, substitute, extend, ZBUG, Supej' D- 
Ruqqer 80 page reference maneial and handy reference 
o.^'ii 16K L&vel II PMC/TRS-80, 

TRS-80 MOD I (tape) $29.95 

TRS-80 MOD I (disk) $49,95 



Microsoft's muMATH and 
Extended mulMATH 

Now all you mathematicians outthere can use your compu- 
ter to answer complicatedmath equaiions with extended 
*Mgebraic equations tor answers and much much more. The 
finest Math System pieviously available only on large com- 
puter systems is now available tor the TBS or PlvlC-80. 

muMATH - 32K $74.95 

EXTENDED muMATH - 32K .. $250.00 




Olympic Decathlon 

The most tieautiful graphic display of the human body in 
action. All the Decattllon events are depicted m excellent 
graphics with you at the' keyboard control. Shot put. Long 
jump. High jump. Hurdles. PDIe vault! Fun for the whole 
family. ■ " 

TRS-80 (MODEL I ONLY) $29.95 (tape) 

TRS-80 (MODEL I ONLY) $29.95 (disk) 

APPLE $29.95 (disk) 




Microsoft's FORTRAN 

Now you loocanpiuyraiii in FORTRAN. This package was 
previously priced at $350.00! New low price! 

TRS-80 {MODEL I ONLY) $100.00 

Assembly Language Development 
System 

The best assembler-editor around! Original price was 
S350.00! NEW PRICE!, $100.00 



Now The Softcard Can Take 
You Beyond The BASICS. Apple Softcard 

$395.00 

The following Software requires the 
"Softcard" from Microsoft 

FORTRAN, Disk 195.00 

ASSEMBLY LANG. DEV, SYSTEM 125,00 

BASIC, Compiler Disk 395,00 

COBOL, Disk : ■ 750,00 

muMATH Extended, Disk .■ 250.00 

RAMCARD 16K 195,00 

APPLESOFT COMPiLER-TASO 175,00 
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Experience Shows - S.B.S.G. has over 11, 



COMMaiMICATIONS SYSTEMS ^ 

Small Business Systems Group marketsa complete line of software which inter- 
faces the TRS-80'" with ANY computer that communicates in ASCII. This family 
of prodiica^ offers both terminal and host capabilities to users with even the 
rpost minigial hardware configurations. There has been wide interest in these 
Droducts from' "comm buffs," Ihe eduaitional comrTiunily, jrid businesses 
ai^^ Individuais who need to communicate on a regular basis. Our 
s^'stems dfe among the most yers.itile and comprehensive on the market today 
for TR&80'" microcomputers. 



STSO-Iir" - The Ultimate Communications System 

The "state of the art" in communications processors, .designed for complex 
commercial applications. Included in this package is a set of programs that 
allow your TR&80'" to talk to a timesharing computer, transfer files to and from 
your central business computer, and customize your ST80-lli to your specific 
application. ,,, 

Features include: Selectable RS232 Setting • Help Display •"Echo Feedback 
• Job Log (LDOS Mod 1, Mod III) • 2-User Translahon Tables • Auto Logon • 
10 Function Keys (Definable) • RtJBOCJT Key (Definable) • Warm Restart • 
Automatic I.D. • Tme Break • Direct Cursor Addressing • DOS Command 
Support • Transmit Line Feed • Printer Support • Wdeo Display Modes: 
SCROLL, FORMAT, PAGE, REVERSE VIDEO (Mod 11), CCRSOR OM/OFF* 
Auto-answer • Autodial (certain modems) • Append to memoiy buffer* Big 
buffer for printer • Off hook / on hook« 1 predefined ASQ! strings in transla- 
tion tables. • Registered users jnclude NASA, (JSM, UPS, Westinghouse, and 
many colleges, universities and major banks. ,, 

Minimum Requirements: One disk drive, RS232-C. 32K Model I or HI, (ylK 
Model II. 

Model I or m S150.00 

Model II S250.00 

I- 

FORGM-BO'" -- Communications [Network 

With Bill Abney's hot new Lorr.municatioiife product, you and your TRS-80^" 

can become part of one of the fastest growing communications networks in itie 

country; your computer becomes an on-line bulletin board system: users cjn 

leave messages, get messages, swap infonnation; exchange VisiCalc'" reports, 

charts, graphs or other correspondence with other computers. 

Features Include: Security System • Constantly displayed time-in-use figure* 

User Friendly • User Configurable or can be modified for custom application • 

Future updates and upgrades available to register owners • Multiple command 

strings • Non-technical user and operator manuals. 

ninimum Requirements: TRS-SO". (3-drive Mod 1, 2-drive Mod 111), 48K, 

RS232-C, Auto-answer modem. 

Model I or III $350.00 



DELUXE PERSONAL HNANCE For TRS-80 " Model II 

T\\[b IS d sophisticated dnd unique iiniincia] diidysis pci(.kd,ge which cun be 
readily customized to suit your personal financial situation. It will: 

• Accept and apply transactions to user-formatted budget categories. 

• Separate cash and check disbursements. 

• Allows up to ten category disbursements per check. 

• Credit income/ deposits according to source. 

• Search, correct or void checks. 




tailed Systemsi 



SMALL BUSINESS 
SYSTEMS GROUP 



ST-80-PBB " ■- Personal BulleUn Board 

A small yet powerful bulletin board for the individual to gather apd leave electro- 
nic mail. Messtiges reside in data base in memory, eliminating the problem of 
scanning magnetic media. 

Features Include: Password Security SysteFd • Four levels of Access-Guest, 
Member. Owner, Operator • User Log, • Four message types • Smart reverse 
scan to view messages from most recent to oldest. 

Minimum Requirements: f RS-80'" (Mod I or Hi), !6K, Level II, Autoanswer 
modem. ST80XI0 flost Program (S5O), RS232-C. 

Model I or III $50.00 



ST-SO-CC" -- Communications Center 

More than a personal bulletin board, this is a ciiHiplete communications system 
for low to (T.odpiaie tiaffic. Lil^e SISO-PBB"" it supports four levels of users and 
four levels of messages with text editing and reverse scan of messages. 
Additional Features Include: Transmit same me.ssage to many individuals 
• Auto logon and multiple command scanning • Print messages on line printer, 
save message.^ in memory buffer, maintain database without user intervention. 
Minimum Requirements: TRS-80'" (Mod i or 111), Level 11, 48K, one disk. Auto- 
answer modem, SI60XIO Host Program fS50), RS232-C 

Model 1 or 111 $100.00 



MouseNet '" - Advanced Bulletin Board System 

Designed to accommodate high volume traffic, tg operate Simply enough for 
novice users, yei is fast and powerful enough for experienced callers. 
Features Include: .Messages stored on disk in keyed file •.Uses machine 
language subroutines tor speed • Supports text editing commands • Help 
commands guide user* System bulletins display each time a user logs on • All 
messages are dated. 

Minimum Requirements: I RS-80" {Mod lor lll),4aK, RS232-C, 3 Disks, Auto- 
answer modem, text editor (such as Scripsil). 

Model I or III $295.00 



• Maintain an acfuiate rheckirig account balance. 

• Cancel returned cheeks. 

• Provide monthly summaries of income vs. ex|>enses.' 

• Calculate profit/loss. 

• Summarize data by categories. 

• Provides up to ten sa\^ngs account summaries. 

Model 11 $75.00 

Model 1 Version S35.00 



ACCESSIBILITY 

We are riere to serve your after- purchase needs. You can read our Monthly 
Newsletter containing current information about SBSG's products. Our INews- 
letter is free to our customers and is available at a minimal cost to anyone 
interested in Microcomputers or call SBSQ directly for Programming and 



Accounting Support. We have 8 incoming lines or call our COMM: Micronet 
Bulletin Board: ID " 70319236; FOR(JM-80'": (617) 692-3973; MouseNet'": 

(617) 692-8121. Tile Source. "irC4l3. 



H & E COMPaTRONICS Gives A 30-Day Money Back Guarantee On All SBSG Products 



DEALER INQUIRIES ONLY: 



6 CARLISLE ROAD 

WESTFORD, MASS, 01886-5762 

(617) 692-3800 
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Software 

From 

SPECTRAL 
ASSOCIATES 



SPECTRAL ASSOCIATES, the LEADER in TRS-80 Color Computer software, presents the best in 
16K machine language, fast action, high resolution arcade games. Extended Basic not required. 






COSMIC INVADERS 

The best invaders type game avail- 
able. Complete with 16 skill levels, 
dynamite sound and 4 color hires 
qtaphjcs. Can you dodge the 
bombs lonq enough to blast the 
alien ship and invaders? S2I.95 



GHOST GOBBLER 

An excitjnq version o: liii' i^upular 
PAC-MAM game with power dots. 
8 bonus shapes super sound and 
16 skill levels Hours and hours ot 
r-hallenginq tun. Joysticks S21 95 



ROBOT BATTLE 

Can you dodge the never ending 
horde of robots while avoiding the 
fatal touch of the Android^ Realistic 
voices and I 6 skill levels provide a 
tremendous arcade type challenge 






Maneuver your spaceship 
through the defenses of the 
Death Star for the killing shot 
while avoiding space mines, 
enemy ships and the gravity pull 
of the BLACK HOLE, Two color 
hi-res graphics ■ S2 1 .95 Joysticks 



COLOk JLi\f 

Super new space game! You must 
dodge the incoming photon 
torpedos before they can penetrate 
the defenses of your ship. Once you 
think you've got tfie upper hand, 
defensive fighters may appear and 
attack. S9.95 



GrtL-Aj-k 



iAX 



NEW 16K MACHINE LAMGOAGE GAMES 

• KEYS OF THE WIZARD ^ i 9.9i 

Best new adventure game available over 200 rooms filled witli creatures, tricks, treasures, magic 
spells. Cassette save feature built m 

• COLOR OUT ^9.95 

Like Breakout, you musi knockout 511 layers of blocks using your paddle to prevetit missiles from 
escaping. Joysticks optional. 

SUPERCHARGER 

If you have a 32K E series printed circuit board, the SUPERCHARGER 
will let you switch your computer to full 64K RAM mode. It just plugs mio 
the ROM PAK port and you can use BASIC or not as you wish. NO 
MODIFICATION is needed and it will not void your warranty. It allows you 
to still, plug ROM pack and/or the disk controller board into the 
computer, ONLY S39.95 

THE FACTS 

AL .jii. d ko.!i,ili;ie description ol 
the guts" of the Color Computer 
Specs on all the ICs complete 
schemalKS theory of operation 
and proqramminq examples 



If you like Space invaders, you' II love 
Galax Attax! Alien fighters leave 
formation to attack your ground 
base and you must fight them off! 
Exciting, fast-action machine 
language game with super sound 
and high resolution graphics. 15K 
and joysticks required. S2I 95 

FLEXPLGS DOS 

FLEXPUJS 15 a pov/erful. easytouse disk operating system Spectral Associates has adapted 
TSC's FLEX to the best [X>S completely compatible with Radio Shacti software lor use on (he 
Color Computer Eliminate the need for Radio Shark's TRS DOS use FLEXPLtIS with 
Editor'Assembler and have the options of a full range Of utilities FLEXPLUS works on the 32K 
Radio Sfiack disk system with 64K memory chips with a High Resolution multi-screen format Ihat 
supports a 24 line by 5] character display' Also Included are special enhancements Ic Rartio 



Shack's Disk system when you a 
density. 3!i. 40 and'BO track drv 



unning FLEX with single ( 



ubie sided, single oi double 
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Advantages of FLEXW,aS are: 

Best price anywhere 

Easy start-up — just type "RUM FLEX-i-" 

.Allows you to save RS compatible disk files from FLEXPLUS 

All FLEX compatible software will mn including INTERRUPT 

DRIVEN SOFTWARE 

MO HARDWARE MODIRCATIOMS NEEDED 

Wairanty will not be voided — no need to open computer 

Wide range of available software 

Requires Supercharger tward 

S149.95 for FLEXPLUS. Editor/Assembler and Supercharger 



ADO 13.00 FOR SHIPPING IN UPS AREAS 
ADO i4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD S5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 



HOUR ..- _^^ '\ 
24 0RDER„^^ 
LINE V^^^ 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N y STATE) 

(800) 431-2818 



UTILITIES 

HDITOR/ASSEMBLER . S34 95 

SUPER MOMITOR . 19 95 

F_PROM PROGRAMMER . . 89.95 

iPronram vour nwn ROMe tor the ROM PAC r""'!) 

MAGIC BOX 24.95 

i oaa «\OD I'lll Ba5ir Tapes into loloi compiirp. 



ALL PRICES AND SPECIPICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



)re Color Computer Software in our compiete catalog, which comes free with every order {or send S2) 



A 



The best fast-action 
arcade games for the 
TRS-80'" come from 



#F STELLAR ESCORT© 



BIG 




Federation totces in Aries Quadrant 3 have made Iheir first major advancement since the beginning of Ifie vnar against 
tfie ^lOStile Crelonian Empire. Untortunatel/. the Cretonians attacked the entire Federation by surprise, depleting their 
supplies to near nothingness. Ttfe Federation's gallant efforts now depend on you, the Escort fighter pilot. 

the supply cruisers from the Federation are not equipped for heavy battle-assaults which will be encountered on the front t^"^^ 
from the hostile Cretonians, Iheietore your mission is to intercept the supply cruisers, place them in your fighter's tractor ^™^- -; ., 
beam and escort them through the Cretonian battle front while warding off all assaults. ' "~^ 

Collisions between your supply cruiser and any other craft will resuit in an immediate feedbacli of power along your 
tractor beam leading to total destruction. You must (ire accurately because enhausling your fuel supply will leave you 
unprepared tor the Battle with the most devastating alien yet encountered in this quadrant! the Cretonian Cruncheri 

THS-BO MOO I & III (leK-Tape) $15.95 / (32K-Di»k) $19.95 




The newest & finest game is now available! "Robot Attack" begins by 
displaying an urgent message frorn SpaceCentral on your electronic news 
viewer. It seems that robots from the Planet "Jidya" have captured one of 
Earth's valuable space stations. Alarms all over the space station are 
screaming out "flobol Attack! Robot AtlackT" Boldly, you make tlie deci- 
sion to transport yourself to this space station and destroy every last robot! 
As you finally reafh your destination, you find yourself in a dark corridor 
that appears very quiet and deserted. Almost from nowhere, robots materi- 
alize in almost every corner of the compartment that you're in. Quickly & 
skillfully you fire your Jaser pistol to destroy Ihem. In a blinding flash, their 
bodies explode and disintegrate. After every last one is gone you carefully 
enterthenextcomparlment. Once again your battle is successful. II seems 
that you are fust too quick for tlie slow computer minds and the archaic 
photon lasers that lliese robots possess. Somewhere you here a lowfium- 
ming sound that is steadily getting louder. "I've heard that sound before", 
you say to yourself. Finally you remember that it is the sound of the new 
long range matter transporter that the Jidyans have recently developed. 
Could they be transporting the — , no, Ihey wouldn't send one of those 
just to destroy a human. Oh no! They did! It's the evil Flagship' trs- 



'TACK© 




I MO[> I & If] (l&K-Tape) S15 95 
(32K-Disk) S19.95 




DEFENSE 
COMMAND® 



The Galaxy Invoijeis nave returned in this exciting 
new twist on tlie ever-popular invasion theme. You are in 
command. You must protect the vitally important nuclear 
fuel cannisters from fleets of attacking aliens. Plays on 
Mod I & Mod Ml, with or without Joystick With Sound! 
TRS-80 MOD I & III (16K-Tape) S15.95 

(32K-Disk) $19.95 




© 



I , ■.■!: ..iiL y.,ji i RS-3D have longed lot a fasl-paceiJ arcade-type game that is 
tiuly a challenge, then SUPER NOVA is what you've beer waiting for. In this 
two player machine-language game, large astetoiiJs float ominously around the 
screen. Suddenly youf ship appears and you must destroy the astetoids betnte 
Ihey destroy yoj' (But watch out because big asteroids break apart inio little 
ones I The controls that your ship wili respond lo are thrust, rotate, hyperspace, 
and fire. All nghti You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quickl You must destroy him fast because that 
guy's accuratei trs-bo mod i & in nsK-Tape) sis.es (32K-Disk) si9.9£ 



^■^ -'W: ' 






•.'.•*i '-* 




© 



The sound of the klaxon is calling you! Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders Quickly and skillfully 
you shift right and left as you carefully fire your lasers at them. But watch out! A 
few arebreakingout of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing all too well 
that this shot must conned — or your mission will be permanently over! With 

sound etlectsl TRS-SO mod I S hi IIOK-Tapel S15.95 / (32K.Disk) S19.95 




ATTACK 



© 



Your TRS-80 screen has been transformed into a maze-like playfield for this 
game As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire missiles tc destroy Ihem. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazefield: the menacing "Flagship" 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! iRS-eo mod i & in {leKiape) S15.95 

(32K-Disk) t19 95 



bU i^l 



I© 




With thousands of stars whizzing by you, your ^. .,.,,. ^. ... ..„ 

comes out of hyperspace directly under a convoy ot aliens. Almost effortlessly, 
you skillfully destroy every last one. But before you car congratulate yourself, 
another set appears These seem to be slightly more mlelligenl than the first set. 
Quickly you eliininate all of Ihem, too But your fuel supply ic rapidly diminishing. 
You must still destroy two more sets before you can dock with your space station. 
All fight' The space station is now on yout scanners! Oh noi Intruders have 
overtaken the station! You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines lun out of fuel and explode! With 

■^^Unril TRS-80 MOD 1 S III |16K-Tapel S15.95 .■ [32K-Disk) S19.95 







© 



As you look down on your space viewer you can see the stranded astronauts 
that are crying out for you to rescue them. But first you must maneuver your 
shuttle down through the asteroids & meteors before you can reach them. Great! 
You've got one! But now can you get back to the space station to save your fellow 
shipmate or will you crash and kill both of you? You can fire your lasers to destroy 
the asteroids, but watch out, because there could be an alien FLAGSHIP lurking 
behind! Includes sound effects' trs-so mod i a in |16K-Tapei S15.95 

^^_ {32K-Disk| S19.S5 




The famous ATARI'" joystick has been adapted to the TRS-80'" 
Models I and III! TRISSTICK'" is compatible with all BIG FIVE 
games and comes with instructions for use with your own pro- 
grams, Sperify Model I or III $39.95 



;CQinpLjrBQMics! 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



* ADO S3. 00 FOR SHfPPING IN UPS AfiEAS 

* ADD S4.00 FOR COD. OR NON-OPS AREAS WITHIN THE U.S.A. 

* ADD S5.00 TO CANADA S. t/EXICO 

* ADD PROPER POSTAGE OUTSIDE OF U.S , CANADA & MEXICO 
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(OUTSIDE OF NY. STATE) 

(800) 431-2818 



"* ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
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(914) 425-1535 
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THE NEWSLETTER FOR OWNERS OF TRS-80^" 
MODEL II and MODEL 16 MICROCOMPUTERS. 

The IVIOD/16 NEWSLETTER is a special publication that keeps 
MOD II and 16 owners aware of the latest news, helpful hints and 
other information related to the most powerful TRS-80's'". 
In its pages you will find: 

• News and reviews of the latest software releases 

• Information on hardware upgrades and modifications 

• A forum for readers to express their opinions and exchanges tips on running the 
and 16 

• Descriptions of books for Model II and 16 owners 

• The latest announcements and updates 



lodel 



THE MOD 11/16 NEWSLETTER IS THE ONE PUBLICATION THAT EVERY MOD 11/16 OWNER NEEDS 






LINE 
(914) 425-1535 




(FOR 12 ISSUES) 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N y STATE) 

(800) 431-2818 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

MOD 11/16 NEWSLETTER SUBSCRIPTION RATE S18. 
n CHECK HERE FOR RENEWAL 

CREDIT CARD NUMBER EXP DATE, 



SIGNATURE 



NAME 

ADDRESS STATE ZIP 

ADD S6'YEAR (CANADA & MEXICO) - ADD S12/YEAR AIRMAIL OUTSIDE U.S.A., CANADA & MEXICO 



■ ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE "■ 
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VISIC' ALC" - HOME & OFFICE COMPANION 

If you're an expt* rient ed VISICALC " user, or if you just bought VISICALC ", this 
book will give you more power for your money in jusl one afternoon. 



Fifty ready-to-use models for VISICALC" 
applications, along with sample printouts, 
descriptive narratives, and coordinate list- 
ings, are presented, and users may simply 
enter their own data in place of the sample 
data or substitute a label or list of entries 
to tailor the models to their specific needs. 
Algorithms and modeling techniques 
provide the experienced VISICALC™ user 
with the opportunity to custom-design new 
models. The models provided cover seven 
areas of application: Loans and Invest- 
ments, General Business, Inventory Con- 



trol, Advertising and Sales, Personnel and 
Departments, Personal Finance, and 
Household Aids. All models are designed to 
support most computers and versions of 
VISICALC", and the models can also be 
used with SUPERCALC". This book is 
aimed at the business user who doesn't have 
time to reinvent commonly used financial 
and management techniques, and the home 
user is looking for new applications for this 
versatile program. 

$15^99 

(VISICALC- IS J tMdemafk of VISICORP ) 



mS'i 
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* A// orders processed within 24-Hours 
* 30'Da\^ money bach guarantee on all TRSDOS Software 
•Add S3.00ftir shipping in UPS Areas 
*^ Add $4.00 for C.O.n. or NO!\l-UPS Areas 
*Add $5.00 outside U.S.A.. Canada & Mexico 
* We will match antj bonafide advertised price 
in onv of the Major Computer Magazines 
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(1) eLECTHIC PENCILIMichael Snrayer Software) , 
Complete word processor with extensive editing and 
printer formatting features ', $300 

(2) GENERAL LEDGER, ACCOUNTS RECEIVABLE 
ACCOUNTS PAVABLE, INVENTOHY CONTROL 
INVOICING AND PAYROLL (Sma:l Bj3inessSys;(ims 
Group)...an extensive business system for the serious 
user.. .can be used one module at a time or as a co- 
ordinated system. ..$295.. .per module. .$1299 for the 
complete system 

(3) FASTaACK(H3cetComputes)...A full disk backup 
in 55 seconds on systems witfi 2 or more disk drives - 
i-^luding verification. Can replace your existing TRS- 
0O3 1.2 or 2.0 Backup Utility $75.00 

(4) MOD-II UTILITY PACKAGE (Bacet Computes] 
adds important utilities to TRSDOS copy fites 
selectively. „ faster and more accurate file copying... 
repair bad directories ..displays sorted directory of 
all files on 1 to 4 disk drives .SUPERZAP... change 
disk ID and more jiso 

(5) ADVENTURE #1-#12 (Scolt Adams - Adventure 
lnternatiDnal)...a series of games . formally only 
available on the large corrputers...your goal is lo work 
your way through a maze of obstacles in order la 
recover a secret treasure or complete a mission. ..(he 
package includes aii 12 Adventures written by Scoll 
Adams $129.95 

(6) GSF IBacet Computers). ..General[?ed Subroutine 
Facility., a series of super fast machine language 
utilities that can be called from a BASIC program (no 
machine language knowledge required)... sorts 1000 
Items in under 5 seconds ..allows PEEK and POKE 
statements move data blocks, .compress and un- 
compress data works under TRSDOS $50 

(7) DSM (Racel Computes). ..Disk Son Merge., sorts 
and merges large multiple diskettes files on a 1 to 4 

drive system. ..NOT AN IN MEMORY SORT can 
actually alphabetize {or any other type of sort) 4 disk 
drives worth of data. ..sorts one complete disk of 
information in 10 minutes .information is provided to 
use DSM with the RS mailing PROGRAM ..works 
under TRSDOS $150 

(8) R5M (Small Systems Software) ...a machine 
language monitor and disassembler., .can be used lo 
see and modify memory of disk sectors, ..contains all 
Ihe commands found on the Model-I version pius 
some additional commands for the MOD-il.. works 
under JRSDOS $39.95 

(a) BLINK BASIC LINK FACILITY (Racel Computesl. 
Link from one BASIC program to another saving all 
variables .chain program without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY (Racet 
Computes) ..lists all variables and strings used in a 
program (with the line numbers in which they appear) 
...lists all GOTO's (with the line num- 
bers in which they appear). ..searches lor any specific 
variables or strings (with the iine number in which 
they appear) $50 

(11) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP {to see, print or change any byte on a 
diskette), ..Disassembler and MOD-II interface lo the 
MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk I/O assemble 
directly into memory,,. save all or portions of source 
to disk. ..dynamic debug facility (ZBUG)... emended 
editor commands $125 



(12) HARD/SOFTDISK SYSTEM (Racel Computes]... 
The software essential to interface any ot the popular 
large hard disk drives... completely compatible with 
your existing software and files. ..allows up to 20 
megabytes of storage (and larger). ..directory expand- 
able to handle thousands of tiles $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER... 

CALL FOH PRICE 

[14] HARD DISK DRIVES . . . CALl rOH PRICE 

(151 M S E COMPUTRONiCS, INC, SHARE-A-PRO- 
GRAM DISKETTE fil 'Aorks under TRSDOS .i 
collection of programs written by MOD-II owners 
programs include data base management a word 
processor... mail system.. .mortgage... calculations 
checkbook register., and many others. ..$12. FREE if 
you send us a diskette containing a program that can 
be added to the SHARE-A-PROGRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES .... $39 95 

(per box of 10] 

(17) VERBATIM CERTIFIED DISKETTES . . $49.95 

(per box ot 10) 

(18) FLIP SORT DISKETTE STORAGE TRAY Stores 
50 diskettes. ..comes complete with index-dividers, till 
plates and adjustable spacing $34.50 

(19) MASTER PAC 100 , . , , 100 essential programs 
BUSiNESS.,.PERSONAL FINANCE ..STATISTICS 
MATH. .GAMBLING. ..GAMES includes 125 page 
manual and 2 diskettes 1149 95 

(20) BUSINESS PAC 100 ... 100 essential business 

programs, ..INVENTORY.. CONTROL. ..PAYROLL 
BOOKKEEPING SYSTEM.. STOCK CALCULA- 
TIONS .. CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 

includes 125 page manual and two diskettes 1149 95 

(J1) EDITOR ASSEMBLER (Galactic Software Ltd.).. 
The first user onenled Editor Assembler for the 
MODEL ii and was designed to utilize all (he features 
of the MODEL II it includes innovative features (or 
ease of coding and debugging and complete docu- 
mentation (over 120 pages). ..works under TRSDOS 
: $179 

(22) BASIC COMPILER (Microsoft) .changes your 

source program into machine language increases 
program execution by 3-10 times $395 

(23) MAIL/FILE SYSTEM from Galactic Software Ltd 
Stores 2.500 names per disk No sorting lime is 
required since the (ile is aulomalicaiiy sorted by first 
and last name plusZip Code on input Retrieve by any 
combination of 19 user codes. Supports an 11 digit 
alphanumerica Zip. Supports a message line. Comes 
complete with user-oriented documentation 1100- 
page manual). Allows lor company name and individ- 
ual of a company and complete phone number (and 
e«tension)... works under TRSDOS S199 00 

(24) COMPUTER GAMES (SBSG].. Mean Checker 
Machine, Star-Trek III. Concentration, Treasure Hunt 
Banco, Dog Star Adventure S74.95 

(25) INTERACTIVE FICTION.. .is a slory-teiier using a 
computer, so that you, Ihe reader, can actuaiiy take 
part in the story instead of merely reading . , S49 95 

(26) SPEEDUP (Racel Computes) .Gives you a 
minimum 30% overall decrease in disk inpct/output 
"•^s 199 95 
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(1) CP/M (Lifeboat Associates]....an alternative 
operating system tor the MOD-II that aliows MOD-II 
owners lo use any of (he hundreds of programs 
availabie under CP/M $190 00 

(2) CP/M HANDBOOK... (Sybex) a step-by-step 

:juide to CP/M. ..takes the reader through each of the 
CP/M commands. ..numberous sample programs 
r>'3ctical hints... reference tables 114.95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE 
ACCOUNTS PAYABLE, INVENTORY CONTROL 

ANDPAVROLLiPoachtif-f iioflwdn^i iHiznnc^CP M 
and MlGFIOSOl^i BASiC prolessionai business 
systems turn key operation. ..can be used as singie 
modules or as a coordinated system,,. $500 per 
module , , $2500 for Ihe complete system 

(4) WORD-STAR, The ultimate word processor...a 
menu driven word processing system that can be used 
with any printer. All standard word processing 
commands are included, .plus many unique com- 
mands only found on WORD STAR. ..requires CP/M 
$495.00 

(5) MAIL LIST MERGE. ..An add on package that 
aiiows the user to send form letters (created on 
V^'ORD-STAR] lo any compiled mailing list (using any 
CP/M based MAIL program such as the PEACHTREE 
MAIL PROG RAM)... requires CP/M, WORD STAR and 
CP/M based mail program $150 

(6) CBASIC-2...a non-interactive BASIC used (or 
many programs that run under CP/M. allows user to 
make more efficient use ot disk files. ..eliminates the 
use of most line number references., require on such 
programs as the SELECTOR $130 

(7) MICROSOFT BASIC. ..an enhanced version of Ihe 
MICROSOFT BASIC found on TRSDOS. ...adds 
commands such as chaining (aliows the user to LOAD 
and .RUN a new program without losing Ihe vanables 
currently in memory]. ..long variable length file 
records, WHILE/WEND and others can be used with 
the BASIC COMPILER lo speed up programs (3-10 
times faster execution) $335 

(B) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $300 

(9) BASIC COMPILER (Microsoft) changes your 
source programs into machine ianguage ..increases 
program execution by 3-10 times $395 

(10) SELECTOR V |Micro-Ap). The ultimate data 
management system... user defined fields and codes . 
manages any list defined by the user. ..includes addi- 
tional modules for simplified inventory control, 
accounts receivable and payabie data file format 
conversions. ..full page report formatter. ..computa- 
tions global search and replace data/leKt merging, 
hard disk compatible, requires CBA3IC-2 $495 

(11) T/MAKER II (Lifeboat Associates) The most ad- 
vanced utility for the analysis and presentation of 
numerical data and text material. „jusl set up your 
data incolumnsand rows, and T/Maker II does the rest 
...change any number in the model and all the others 
are adjusted and recalculated. ..3(X>-chatacter wide 
screen editor' justify lines. ..tormatlables. move 
blocks of copy. ..global editing $275 

(12) SMART TERMINAL Enables your TRS-80 to be 
used a remote terminal to a time sharing computer 
system. Supports upper/lower case and lull range of 
control keys, including control key mapping into any 
ASCII character. Automatic transmission of tiles 
between TRS-eO and host computer. Flies can be read 
from orwrillen to cassette tape or disk Incoming data 
can be printed on line printer or stored in memory tor 
subsequent save to cassette or disk Disk and tape 
files arefully compatible with the ELECTRIC PENCIL 
program. Baud rate and RS-232C sense switches can 
be reset without opening Expansion Interface Re- 
quires RS-232C interface and modem . , S79 95 

* (CP/M IS A REGISTERED TRADEMARK OF 

DIGITAL RESEARCH) 

CP/M software may not be returned alter diskette 
nackacje has been opened 
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ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 



(914) 425-1535 



NEW!!! 

MOD-ll/16 NEWSLETTER 
$18/year (or 12 issues) 




Written For TRS— 80 and All Computers Using MICROSOFT basic 

riNAH -Y IT i§JjE£E^ AtlastscmecneMTcteabcckcndBskrandcm 
access and lAe handling. A Ucck written fcr the non-prcfirammer. 
H'ritten for tlie businesman and prcfessicnal who need to solve and 
write special nrofirams for in house business problems- 
written tor the hobbyist who wants to go beyond the cassette recorder and into disk storage and file 
manipulation. 

This book handles a subject of reasonable complexity, so simple and down to earth, that anyone 
with some Level II experience can cope with the material. 

This book is written using a simple program as a starting point. The programs grow in ability and 
complexity as the book progresses into the various aspects of file handling and record manipula- 
tion. Extensive effort has been made to keep the material coherent and every programi line is 
explained in detail 

The programming material presented in this 150 page self- instruction tutorial will provide any non- 
programmer with the ability to write special programs for inventories, mailing list, work scheduling, 
record keeping, research project data manipulation, etc The sub]ects covered in this edition are as 
follows . . 

(A) The writing of a Menu to summarize program functions 

(B) The writing of a screen format to accept record data 
{C} The creation of the basic record. 

(D) The Fielding and LSET routines for buffer preparation. 

(E) The writing of the record to disk in a Random .Access mode. 

(F) The retrieval of a record from disk in a Random Access mode. 

(G) The ability to change or edit a record, 
(H) The LPRINT capability from disk using three different formats 

(I) Deleting a record from a Random file. 
(J) Sorting the Random file, 

(K) Searching the Random file by name or other keyfield. 
(L) The ability to search in a "NEXT or PRIOR" fashion, 
{M) The ability to purge a disk file from deleted records. 
(N) The ability to calculate with data from a disk file. 
(O) The provision for future expansion of the data fields. 
(P) The use of flags to prevent program crashes. 
(Q) Date selting, printer on-line, and many other routines that 
make a program run like a commercial written program. 

D.S.C.. Publishing. Div. of, 
D.S.C, INCORPORATED. 
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DOS RANDOM ACCESS 

& BASIC FILE HANDLING S29.95 

Optional Program Disk MOD I or III Add $28.50 

Optional Program Disk MOD II Add $32,50 
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ORDER 
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\24 

(914) 425-1535 




NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 



1040A 



Depaftment of the Treasury — Internal Revenue Servicp 

U.S. Individual Income Tax Return 



OMB No 1545-0085 



Use 
IRS 

label. 
Other- 
wise, 
please 
print 
or type. 



Your firsl name and iniiial {if loint return, also give spouse's name md initial) 



Your social security number 



Present home iddress (Number and street. Including •p*rt(nent number, or rural Jt'jte) 



Spouse's social security no. 



City, town or post office, Stil« and ZIP code 



IItKAttl1HIi:A«^-.'H^.3^nV^tftfHU»»>Di^ldlto<ri4Ln4&>J«da 



Presidential 

Election Campaign r if joint return, does your spouse want $1 to go to this fund? 



^ Do you want $1 to go to this fund? 



Your occupation 



Spouse's occupation ► 



Yes 



Yes 



No 



No 



Note: ChecfiinR "yes" will 
not increase your tax or re- 
duce your refund. 
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f €12 MODEL l« II** or MCDEL ill 

TAX/SAVER IF' — The tax help program for the layman, the professional accountant or tax preparer. 

New and expanded, TAX/SAVERn'"offer5adifferent approach to preparing a tax return. Like the original, 1 he new version has 
the lax regulations programmed in so it is more Ihan just a calculator. Designed for non-accountants, TAX/SAVER 11'" asks you 
que St ions, just as an accountant does. Based on your answers, it leads you through the tax maze to your lowest legal tax. Then it 
tells you how to fill in your return, line by line, or if will output to a printer. 

TAX/SAVER 11'" also has speed features lor those doing rnore than one return. Optional program instruction and tax text make 
TAX/SAVER U'" the practical system for professional preparers as well. TAX/SAVER 11™ has full disk storage of data files (with 
optional password protection). 

The manual includes information on special lax areas, lists of possible deductions and a tax glossary. 

TAX/SAVER 11" compares itemized deductions to national averages; automatically computes certain limitations - lor example, on 
medical deductions and contributions; checks for excess PICA; heips determine dependents- Yet, TAX/SAVER IF" offers the 
privacy and convenience of home use. 

The user- oriented design with special screen formatting makes data entry, verification and correction easy. Yet you are always in 
control. You can skip any help features or parts of the program that you don't need- 

TAX/SAVER [!'" 

• Completes long and short forms (1040 & 1040A) 

• Itemized Deductions ■ Schedule A 

• Interest & Dividends - Schedule B 

• Tax Calculation ■ Tables, Rates 

• Tax Savings Methods ■ Income Averaging, Maximum Tax, Alternative Tax 

• Business Income - Schedules C & SE 

• Capital Gains - Schedule D 

• Allows you the privacy of your own home 

• Lets you help friends and relatives with their taxes 

• Has built-in aids. Answers specific questions like "Is my father my dependent?" and "Are my deductions reasonable?" 

• Manual includes 1982 tax forms, information on special tax areas, lists of possible deductions, and glossary of tax terms 

• Completes long and short forms including itemized deductions, excess PICA, earned income credit, community property, 
tax calculation (comparing all possible filing statuses in one run) 

• Tax regulations are programmed in by our team of accountants. Just type in your figures & youVe done your own tax return 

• Helps you find the lowest tax 

• Discounts on yearly updates ' 

• Prints out on standard IRS forms overlays or plain tractor feed paper 

• Accepts totals from all other tax iorms not listed here 

PROFESSIONAL TAX/FORECASTERS" 

TAX/FORECASTERS", the quick tax estimator (with printout) lor both 1982 and 1983 lets you revise its estimate by merely changingone or more lines. Use it as a tax planner either 
together with TAX/SAVER]]'" or by itself- TAX/FORECASTERS" lets you quicklyaskallof your WHATlF?Questionsandinstanlly recalculates your taxes. A great tax preparation 
aid for both the layman and professional- Includes Income Averaging and disk storage of Client files. 

• Both TAX/SAVER il'" and TAX/FORECASTER'" are tax- deductible •Discounts are given on yearly updates • Free tax newsletter is issued annually. 
With the combined package TAX/SAVER 11" and TAX/FORECASTER'", you can now have, at an affordable price, the power to predict, control and reduce your tax liability 




REVIEWS: 

" well designed and pasy to use'' - D Liitwr. Crcaiive Compulmg 1 81 
■■ TAX SAVER'- may vfiy wfll \:w up nj ii^ name'' 

M Tanncnbaiim. CPA. 80 Micrix-ompuiing 2 81 

CUSTOMERS: 

"For (he prke i( cdn'l h^ bea( I dm looking (uTWdrd lo ntxl ijt'Ji" With Ihis- 
program I finish my filing rn 2 hours. Thank you." 

"Excelknl presenlalion. Tulorial slyk' is one ol lis mosl iitlracnvc ^irrn- 
bules. .Finally, a program ! can rt^dlly use'" 

PROFESSIONALS: 

"This is The perfeci program tor Those doniyia>4es lorofhtr^ lijrrt'a sons hie 
t(?PS II ^as obviously wiillen by (oiks Ihal l<no^,vbolh proyrdniniiii'jandr,i>. 
law ■■ "TAX SAVER'" is siiptrinr." 



a TAX/SAVER 11'" (MOD I & III) $139.95 - Manual Included 

D PROFESSIONAL TAX/FORECASTER'" [MOD I & 111) $99,95 ($79,95 if purchased with TAX/SAVER If") 

n UPDATE for Registered TAX/SAVER ir" Owners $83.95 

D TAX FORM OVERLAYS $19.95 

D TAX/SAVER H'" - Model 11" Version $199.95 

D PROFESSIONAL TAX/ FORECASTER'" - Model 11** Version $139 95 



SYSTEM REQUIREMENTS 

D TRS-80 Model I with 32K and 2 disk drives 
□ TRS-80 Model 111 with 32K and 2 disk drives 
D TRS-80 Model ir* with 64K and 1 disk drive 
*' Availability of Model 11 programs uncertain at press lime. 
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50 N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



- ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
- DELIVERY SUBJECT TO AVAILABILITY - 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 




24 ORDER ^^ 
LINE 



S& (914) 425-1535 



•kZO-Day money back guarantee 

* ADD S3. 00 FOR SHIPPING IN UPS AREAS 

* ADD S4.00 FOR C.O.D. OR NON-UPS AREAS 

* ADD S5.00 TO CANADA AND MEXICO 

* ADD PROPER POSTAGE OUTSIDE U.S., CANADA & MEXICO 




Information Processing Problems? 
Scotch® Products Could Solve Them! 




® 



VELOSTAT static control floor mats from 3M eliminate static 
electricity which can effect the reliability of your electronic 
equipment, VELOSTAT mals are made of a tough, durable 
high impact conductive material for sit-down applications. 
Castered chairs easily roll over the mat. They're available in 
earthtone brown or black, and come with their own ground 
cords. 



3' by 4' mat $ 98.00 
4' by 5' mat with beveled tip $200.00 



ricity 
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Now, Guaranteed! Error-Free Perforinance with Scotch® Diskettes 




CQIVIPJTHQMICS 



3M 



50 N. PASCACK nOAD • 5PRING VALLEY, NEW VORK 10977 (91 4)' 425-1 535 

Authorized Distributor 
Information Processing Products 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.V. STATE) 

(800) 431-2818 

ADD S3 DO ron SHIPPING IN UPS AREAS 
ADD MM FOR C.O.D. OH NON-UPS AREAS 
ADD IS.OO TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S.. 
CANADA AND MEXICO 



■ ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE — 
DELIVERY SUBJECT TO AVAILABILITY 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 




For durability, reliability, error-free performance demand Scotch 
diskettes. They're tested and guaranteed error-free. And the low 
abrasivity saves your read/write heads. Available for most mini- 
computer and word processing systems (Single sided/double 
density only). 

(box of 10 5V4 inch disks) $29.95 
(box of 10 8 inch disks) $39.95 



Head Cleaning Diskettes 

Keep your diskette drive heads "Computer Room Clean" with 
Scotch Head Cleaning Diskettes. You can clean the heads 

yourself in just 30 seconds and /—— — ^ 

save on service calls, data 
drop-outs, costly down time. 
Available in 8-inch and SVa- 
inch sizes. 



8-Inch 

or 
5V4-lnch 

Head 

Cleaning 

Kit 



7400 

head cleaning 

disJ'ettes 



$29.95 




The Original Magazine for Owners of the TRS-80™ Microcomputer 

MODEL I • MODEL II • MODEL III • POCKET COMPUTER • COLOR COMPUTER 



Software 

forTRS-80 

Owners 



CQIYIPUTHQMICS 

MONTHLY NEWS MAGAZINE 



Monthly 

Newsmagazine 

forTRS-80 

Owners 




• PRACTICAL APPLICATIONS 

• NEW EXPANDED BUSINESS 
SECTIONS 

• GAMBLING 

• GAMES 

• EDUCATION 

• PERSONAL FINANCE 



BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS & ANSWERS 
PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE k. 



FREE 



with your Subscription or Renewal 



A. 



NANOS SVSTEME CORP 

TRS-80 AtYour 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

Assembly Language Seclion N'A lor Color CompLiter 



B. 



OR 



A Word Processor, 
Data Management 
System and Cleanup 

(A maze game) All on cassette- 
(Add S3 for diskette, add $5 for 
modified MOD-II diskette version 
— N/A on color computer or 
pocket computer) 



v^READER SERVICE FOR H & E COMPUTRONICS ^9 



'CQiriPUTHQI^^lCSs 



CALL TOLL FREE 

800-431-2818 



50 North Pascack Road 
Spring Valley, New York 10977 

(Outside of New York State) 

n One Year Magazine Subscription $24 D New D Renewal 

D Two Year Magazine Subscription $48.00 D New D Renewal 

D Sample Issue $4. D Mod II Newsletter Subscription $18 

Your Choice: TRS-BO " at Your Fingertips I " or Word Processor/ Data Management H 

Model in Model tl ~ Model III G Color Computer I" Pocket Computer G 



24 HOUR ORDER LINE 

914-425-1535 



NEW! 



NEW! 



MOD-II 

NEWSLETTER 

"$18/year(or 12 issues)" 



Name 



Address 



Cily 



Stale 



Zip 



Signature 



Credit Card Number 



Expiration Date 



Add S12/ Year (Canada, Mexicol — AOd $24/ Year Arr Mail outside of U S A , Canada and Mexico 
All Prices and Specilications Subjecl lo Change 

' TRS-80 is a trademark of the Radio Shack Division ot Tandy Corp 



BUSINESS 



THE NEW PUBIiICATION 

FOR SERIOUS SMilLIi BUSINESS 

COMPUTER USERS 



LEARN HOW TO REALLY USE YOUR COMPUTER 



THE TRUTH ABOUT SOFTWARE 
a NEW COMPUTERS b RELATED PRODUCTS 



PUBLISHED BY iCQfnPLnROr^^lCS; 
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TIRED OF GAMES?. ..Don'tunderstandyourcomputer?. 
Can't understand the difference between RAM and ROM?. 
Are Computer Magazines and Manuals over your head? 



SUBSCRIBE TO 



BUSINESS 
COMPUTING' 



Make your computer work (or you in your business.. .Choose 
the right computer.. .Learn the limits ol your computer.. .The 
truth about Business Software. 



•CQinPUTRQf^JCS- 



so N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



— ADD$12/YEAR ■'* 

(Canada S Mexico) 

•■■ ADD S24/YEAR ■" 
(To All Other Countries) 



SUBSCRIBE TO 



BUSINESS 
COMPUTING 



NOW! 



And receive the next 12 Issues at less than half our regu- 
lar subscription price. 

1 YEAR {12 Issues) $AB.°'* ($120 - Regular Price) 

2 YEARS {24 Issues) $72.°'' ($240 - Regular Price) 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 



fl©\ 24 



HOUR 



[•i:i»j^:i 



LINE 



•" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE'" 



GENERAL 



How we talk to the computer. 



rr^' 1 




uage 



Ken Waltjen 
2311 Lincoln Blvd. 
Tracy, CA 95376 



Most TRS-80 owners first program in 
Basic. Because of this, ti^ey have little 
idea of how languages evolved. A language 
like Basic constitutes a pseudo-machine 
that is easier to deal with than the actual 
hardware. 

The logical evolution of languages sug- 
gests where the language you use (or the 
language you want to team) fits, and il- 
luminates some of the mystery surrounding 
your machine. 

The Magic of Hardware and Binary 

The first step in understanding your 
machine and how a programming language 
works is to understand the magic of binary 
and hardware. This is not a thorough dis- 
cussion of hardware or central processing 
unit (CPU) functions. It should make the 
function of hardware believable and clarify 
the relationship between binary and elec- 
trical hardware. 



The Key Box 

Basic Level II 
Model I 
16K RAM 



Fig. 1 Is a block diagram of a simple CPU. 
Here is a description of the functional parts: 

• Clock— Master system timing device. 
It runs at a constant speed. 

• Timing and Control Generator— It div- 
ides the clock into a sequence of order- 
ly pulses by enabling one box at a time. 

• Instruction Register — This is where we 
deposit our binary instruction for 
processing. 

• Adder — The arithmetic unit of our sam- 
ple processor. On command, it will add 
the data loaded into its input ports. 

• Input and Output Holding Registers 
—These provide temporary operand 
storage for operation of the processor. 

Defining Instructions 

After defining some instructions we can 



combine the hardware and the binary. All 
these numbers will be in binary notation. 

1000 = Load the 'A' operand 

0100 = Load the 'B' operand 

0010 = Add -A' 10 'S' 

0001 = Write sum to output register > 

Assume that we have loaded 1000 into 

the instruction register. As our 1 bit cir- 
culates in the timing generator, it arrives at 
the square adjacent to the MSD of the 
instruction register (where we now also 
have a 1). Gate A will be enabled and 
operand A will be loaded. As the timing bit 
continues to circulate, it is paired with 
zeros in the other instruction register loca- 
tions so nothing else happens during this 
Instruction cycle. 

Loading 0100 into the instruction register 
on the next cycle will enable gate B and the 
B operand will be loaded. By performing a 
logically listed set of instructions we can 



1 VIDEO EQU 3C00H :E0U is an 

assemtiler directive. No code is produced. Tfie symbol VIDEO is interchangeable with 

the value 3C00H. The H lollowing 3000 invokes a radix conversion in the assembler. 



COUNT: 



EQU 



1023 



:COUNT = 1023 



3 DATA: DEFB 'A' ;Detine a storage 
location named DATA, and store the binary equivalent of 'A' there. The assembler will 

convert "A' to its ASCII value. 

4 BEGIN: LD HL.VIDEO ;The HL register 

pair now contains 0011 1100 0000 0000 in binary. The label BEGIN: associates that 
symbol with the program location defined by the current line, 

5 LD DE,VIDEO + 1 ;Arithmetlc 

operations may be used to modify constants for assemtily 

Example 1 
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"The first step away from binary 

is also the first step away from the machine. 



4 
2 

11111111 

3^ 

64 
128 
256 

Table 1. Condensed Notation 



add two operands together and output the 
result. 

If we coded 1100 that would be a load A, 
load B instruction. We could code a 1111. 
That would carry out the entire operation in 
one instruction cycle rather than four. 

The way that the binary code controls the 
interna! data and control paths of the CPU 
is called microcoding. Some CPUs are 
microprogrammable. 

Stepping Away 

The first step away from binary is also the 
first step away from the machine. Binary 
notation makes it too hard to recall many 



complex instructions. Instructions are just 
binary patterns. To help the programmer, 
some form of condensed notation had to be 
found. 

In Table 1 the eight binary bits are divided 
into all possible combinations. One binary 
number eight bits long {byte) can be divided 
into several digits with varying radix. Each 
digit in any radix needs a separate symbol. 
Since most people (even programmers!) 
would have difficulty remembering a se- 
quence of symbols 32 characters long, any 
form of condensation of the binary number 
should use four binary positions or less. Us- 
ing two binary digits provides less compres- 
sion of the binary information than neces- 
sary. Three or four binary digits provide suf- 
ficient compression. These radix (hex or 
base 16, and octal or base 8) are the most 
common for binary compression. 

The CPU still needs binary numbers to do 
its processing. If numbers are entered in 
another radix, then they must be converted 
by a program to binary. The first step up in 
languages allows the programmer to com- 
municate in a different radix than binary. 
Source code must be entered, then 
modified by a program, and then stored as 
the object code to be executed by the 
machine. T-Bug is an example of this level 
of programming language. Much math and 
other tasks are left to the programmer at 
this level. 



The Z-80 uses octal fields to break up the 
instruction word. When Ziiog's instructions 
are broken into these fields, they remain rea- 
sonably intelligible. Programmers started 
using hex notation for more compression 
and introduced the first level of mystery into 
programming. For example, register-to- 
register loads (LD r,r') in octal are Irr', where 
r= a number from 1-7 to select a desired 
register. All register-to-register loads have 
the same opcode of 1XX. In hex, the opcode 
changes, based on the register selected, so a 
load instruction cannot be recognized as 
easily. LD, A,C in octal is 171. LD D,E in octal 
is 123. The operation code (1XX) is the same 
in both instructions. These two instructions 
in hex are 79 and 53. In hex they appear to 
have nothing in common. 

Upward to Assembly Language 

Given this powerful new tool (radix con- 
version program), you can write a program 
that converts all alphanumeric characters 
to binary codes. A short, cryptic name could 
represent an operation. That and the ability 
to equate constants and program locations 
with symbols are the bases of assembly 
language processors. 

The programmer no longer deals with the 
hardware functions directly. To program ef- 
fectively in assembly language, the pro- 
grammer must know the architecture of the 
CPU. The architecture is a symbolic model 



TIMING AND CONTROL GENERATOR 



CLOCK 



INSTRUCTION 

REC5ISTER 

I I 



LSD 



MSD 




TIMING GENERATOR 



INSTRUCTION DECODER 

Figure 1 
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OUT REGISTER 



ADDER 



OPERAND '8' 



OPERAND A 



ARITHMETIC UNIT 




FANTASTIC PRICES! 

«* OUR FAST SERVICE, PRODUCT 

SELECTION AND OUR CUSTOMERS' 
SATISFACTION MAKE US #1. 



Microsoft Z-80 Softcard 
Microsoft RAMCARD 
Z-90-64K DO 
Z-19 Terminal 

Z-121 Monitor12' 



$214 

$129 

$2588 

$777 

$149 



ATARI COMPUTERS 

! 




1 Atari 800 16K 


$649 


Atari 400 


$318 


Atari Interface Module 


$174 


Atari 810 Single Disk 


$444 


Atari 830 Modem 


SI 66 


Programmer 


$59 


Entertainer 


$84 


Star Raiders 


$34 


16K Mem. Exp. for Atari 


$74 


32K Mem. Exp. for Atari 

1. 


$114 



NEC PRINTERS 



7710/30 SpinwriterR/0 
7720SpinwriterKSR 
! 3510/30 SpinwriterR/0 



CALL 
CALL 
CALL 



NEC DOT MATRIX 



PC-8023 $474 

Call for prices on ribbons, etc. 



MORE PRINTERS 

Anadex 9500/9501 $1295 

Anadex DP-9000 $1049 

Okidata Microline82A CALL 

Okidata Microline 83A CALL 

Okidata Microline 84 CALL 

Tractor{OKI80 + 82 only) $60 

Diablo 630 $2044 



MONITORS 

Sanyo 12 " GRN Phosphor $266 

Sanyo 12' Black + White S239 

Amdek 1 2 " 300 G RN Phosphor $1 49 

Amdek12"Colorl $319 

Amdek Color II $779 

NEC 12" GRN Phosphor $149 

NEC 12" Color $344 



EPSON PRINTERS 

MX-80w/Graphics CALL 

MX-80 FT (Friction + Tractor) CALL 

MX-100 (15' Carriage) CALL 

Call for prices on 
Ribbons, Cables and Interfaces 



NEC-PC 8000 
Series Microcomputer 

PC-8001 A Computer w/32K 
PC-8012AW/32K + Exp. Slots 
PC-8031ADual Mini Disk 
PC-8032A Add-on Mini Disk 

Call for Software Prices 



$888 
$588 
S888 
$777 



ORDERING INFORMATION 

Our order lines are open 9AM to 6PM 
EST Monday thru Friday. Phone 
orders are welcome; same day ship- 
ment on orders placed before 10AM. 
Free use of Mastercard and VISA. Per- 
sonal checks require 2 weeks 
clearance. Manufacturer's warranty 
included on all equipment. Prices sub- 
ject to revision. C.O.D.'s accepted. 



For service, quality and delivery call: 

PERIPHERALS UNLIMITED 
(617)655-7400 

62 N. Main St.« Natick, MA 01760 ^212 



t^See List of Advertisers on Page 465 
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''Macro assemblers allow the programmer 
to define a series of operations 
and to associate them with a label.'' 



of the CPU hardware optimized for easy un- 
derstanding. The programmer must know 
the instruction set for his machine and the 
mnemonics that represent each instruc- 
tion. The mnemonic representation of an 
instruction is for the convenience of the 
programmer. For example, the ioad instruc- 
tion LD A.C is easier to recognize than 01 
111 001 (binary). Remember that the 
programmer's source code wiil be read by 
another program (the assembler), and it 
must be formatted to meet the reading 
program's requirements. The final added 
complexity of assembly language is the ad- 
dition of instructions thai do not produce 
executable machine code. This class of in- 
structions, called assembler directives, 
controls the assembler program while it 
assembles the source code. 

The following example will clarify the 
new terms listed above: 

1. VIDEO: EQU 3C00H ;EQU is an assembler directive. No 
code is produced. The symbol video is interchangeable 
with the value 3C0OH The H following 3C00 invokes a radix 
conversion in liie assembler, 

2. COUNT: EQU 1023 ;C0UNT = 1023. 

3. DATA: DEFB 'A' ;clef ine a storage location named DATA, 



and store Ihe Binary equivalent of 'A there The assem- 
bler will convert 'A' lo Us ASCII value. 

4. BEGIN: LD HL.VIDEO The HL register pair now contains 
0011 1 100 0000 0000 in Binary. The label BEGIN: associates 
that symbol with the program location delined by Ihe cur- 
rent line. 

5. LD DE. VIDEO + 1 jArithmetic operations may be used to 
modify constants tor assembly 

These lines of code illustrate many features 
of assembly language programming. The 
task of the programmer is made consider- 
ably easier by these tools. 

Macro assemblers allow the programmer 
to define a series of operations and to asso- 
ciate them with a label. When this label ap- 
pears in the source code it is replaced by 
the previously defined set of instructions. 
This is the first level of programming where 
one line of source code produces more than 
one line of machine code. 

Compilers 

Assemblers are powerful programming 
tools, but they have a major disadvantage. 
Only the target machine can use assembly 
language code. If the code machine were in- 
dependent the programmer would no longer 



have to know the architecture of the ma- 
chine he was programming. 

Compilers achieve machine indepen- 
dence by substituting a pseudo-machine 
with its architecture defined by the lan- 
guage specification. For example, you ac- 
cess the output device by print statements 
in Basic. On the TRS-SO a print statement 
writes information into the video memory. 
On another machine it may write informa- 
tion into a teletype. The command Print 
specifies output to the console device re- 
gardless of what hardware configuration 
exists. 

The compiler converts a uniform, stan- 
dardized source code into object code for 
the specific machine. That means that 
every family of machine requires its own 
compiler. Programs are transferable from 
one family of machine to another family 
only after being re-compiled for the target 
environment. Because each machine re- 
quires its own compiler, small differences 
in the language specifications have crept 
in, requiringchanges to the source codes to 
make them truly interchangeable. This al- 
most total divorce from the architecture 



SOFTWARE 



., nRTiFR HHlCtS 






,w.00 

BUbli-^coo - '•^'^'^cf 

.^aBiG6SonwA'^EA5%0^^ 

,,OSTCOLONVS25.50CO.« 

DOS PLU. . ^ -..^ - . DEATH PLANE S^ / 

OEOGRAPHV EXPlORe-^ USA SA52b ^ ^^^^^ 3,4 



,,^.OHT£.P>^OTS^3,90aAr.) 
, DOS PLUS SI 30.00 (D'S^ 




n VISA 

D MASTERCARD 

D CHECK/MONEY ORDER 

CARD* 

EXP. DATE 

ALL ORDERS SHIPPED 



SOFTWARE ETCETERA 
19973 Ventura Blvd. 
Woodland Hills, GA 91364 
(213) 702-8061 



lEDIATELY 





mmmmms 
CaiVi gft the answers you need? two/sixteen 
is more than a magazine. As a subscriber, you 
may call us any time (days, nights, weekends) 
u> discuss any 11/16 related problem. We'll 
help you or try to find^jmetnic who can. 
And you'll also find the aiticles in our bi- 
monthly niaga/ine infonTiaiixe and helpful. 
\X'c discuss all asjiccrs of [1 16 operation,- 
including .software running under alter- 
nate operating systems (e.g., CP/M) as 
well as TRSDOS. Rates in the ILS. are 
$30/yr, Foreign (in U.S. funds): 
:^ Canada $36; Other: surface $47, 

^ air $67. Check, VISA, or 

MasterCard accepted. 
two/sixteen magazine, 



P. O. Box 1216, Lan- 
caster, PA 17603. 
Credit card or- 
ders: (717) 
397-3364. 
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The number of passes that the compiler 

makes over the source code depends 

on the individual compiler/' 



and hardware of your machine makes the 
transition from knowing your pseudo- 
machine to knowing your real machine a 
difficult step. 

With machine independence, the high 
level language was a reality. All high level 
languages are implemented with one of the 
foilowing compilers. (Yes, Basic is a 
compiler!!) 

The first two types of compilers have one 
thing in common. They both convert the en- 
tire source file to object code simultaneous- 
ly. The fiumber of passes that the compiler 
makes over the source code depends on the 
individual compiler. Once this compilation 
is complete the source file becomes unnec- 
essary. The object file (/cmd file on TRS-80) 
is a complete stand-alone program. It can- 
not be modified by altering the source with- 
out recompilation! These compilers cannot 
be used in the immediate mode. Program 
debugging requires modification to the 
source code and recompilation. 

Four Compilations 

• Inline. One-time, multi-pass translation 
from source code to object code. The 



program logic (algorithm) and flow re- 
main the same in the object code as in 
the source code. All required routines 
must reside (including I/O) in the body of 
the resulting program. 

• Threaded. The source code is reduced to 
a series of calls and arguments. The calls 
are made to a series of routines (some- 
times called the operating time system, 
or run time system) that exist as object 
codes within the compiler. These rou- 
tines and the call list with arguments are 
the final compiled program. The remain- 
ing compilers allow source input to be 
compiled and executed immediately. 
Program development is less painful, but 
the execution speed may be greatly 
reduced. 

• Incremental. Most often called an in- 
terpreter, the TRS-80 uses this form of 
compilation for Basic. The source file is 
read one line at a time. The object code Is 
produced (usually threaded) and ex- 
ecuted before ttie next source line is 
compiled. The compiled object program 
is not saved as a stand-alone program. 



Every time the program is executed the 
source must be compiled and executed. 
The compiler is a required resident part 
of every program. (Might as well put it in 
ROM, right?) 

• Combined Incremental and Threaded. 
Some languages (notably FORTH) use 
their threaded compilation capability in 
the incremental mode. This is the best of 
both worlds. Immediate mode is available 
for debugging and stand-alone object 
code can be produced for the final 
program. 

To learn Basic you studied a pseudo- 
machine. To learn about your TRS-80 and 
computers in general, assembly language 
is the next step back towards the machine. 
You have to learn the architectural model as 
well as the instruction set and the layout of 
the hardware. Though not an easy step 
Basic gives you some portals to the real ma- 
chine. Instructions like PEEK, POKE and 
VARPTR provide some insight. Also, the 
most difficult part of programming, the al- 
gorithmic process, is already an old 
friend. ■ 



You've invested a lot of time and money into your computer . . . 

It's time that investment paid off! 




THE COLOR ACCOUNTANT 




The Programmer's institute introduces THE COLOR ACCOL'NTAINT, the only complete personal financial package 
specifically designed for the TRS-80 COLOR computer. This unique package includes: 

1. Complete Checkbook Mainlenance 5. Payments/Appointments Calendar 8. Home Budget Analysis 

2. Chart of Accounts Maintenance 6. Color Graph Design Package 9. Decision Maker 

3. Income /Expense Accounts (graphs any files) 10. Mailing List 

4. Net Worth Statement 7. Stock Market Analysis 

After the initial setup, THE COLOR ACCOUNTANT requires less than an hour of data input each month. 

The checkbook maintenance program is the key to the entire package. Once your checkbook is balanced, the checkbook nummary file will 
automatically update the home budget analysis, net worth, and income/expense statements. You can then graph any file, record bills and 
appointments, make decisions, print a mailing list, analyze various accounts or stocks, and even calculate taxes. 

Ail programs are menu-driven and allow add/change/deiete. Each file and statement can be listed to screen or printer, and saved to ca.s>eiie 
or diskette. THE COLOR ACCOUNTANT also comes with 40 pages of documentation ihat leads you srep-l-^y-step through the entire package. 
The TRS-80 COLOR Ext. Basic requires 16K for this package. ($74.95 cassette, $79.95 disket(e). 

See your local dealer or order direct: 
THE PROGRAMMER'S INSTITUTE 

(/ division of FUTUREHOLSF. 
P.O. BOX 319!, DHl'T, l-B 
CHAPEL HIL L. NC 27514 



The ):)eila;l suppicinciu lo I HK COLOR At.'COlJNLAN L. The Tax Handler includes: 
L t <impk'tf Form 1040 

2. Sehcdiilc A (Ilemi/ed Deductions) 

3. Schedule d (Income Averaniiig) 

Thi' year lei I he I (ix Handler prepare irxjMaxcs ($24.45 cusselle. $29.95 diskette). 






1-919-489-2198 

!0 AM - 9 PM, Mon - Sal 



y See List of Advertisers on Page 455 
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GRAPHICS 



LOAD 80 



Send your screen graphics to your printer. 



Pixel Printer 



Charles E. Gillen 
1458 Greenmont Court 
Reston, VA 22090 



When beautiful listings and fancy 
word-slinging begin to bore, what 
more? Graphics in the standard TRS-80 for- 
mat. This program LPRINTs any pure 
graphic design you can sketch on a video 
worksheet. More than that — once you make 
atrial print, you can call for the same design 
in a new size, at a different position on the 



The Key Box 

Basic Level II 

Model I 

16KRAM 

Line printer required 



paper, or in a lighter or darker tone. You can 
even alter part of your design and print 
again. You can reverse the image to print a 
i^^egative rather than positive. 

Limitations 

Though your design reproduces in blocks 
which exactly conform to the TRS-80 for- 
mat, they will be composed of the standard 
alphanumeric characters available on your 
keyboard and printer. You can achieve a 
solid tone with a printer set to 132 columns 
per line, with 8 lines per inch spacing. Less 
satisfactory is a printer that has only 80 col- 
umns; setting it to 6 lines per inch still con- 
forms to the TRS-80 pixel proportions, but 
the overall tone will be less dense and even. 

Getting your own design into the pro- 
gram and then onto paper is faster (and 
easier) than redrawing a rough sketch on a 
fresh video worksheet. Aside from the 
fascination of seeing yourdesign turned in- 
to a printout, ease of input is this program's 
best feature— only one keystroke per pixel. 

Type the program in Listing 1 into your 
TRS-80, turn on the printer, and take a prac- 
tice run. Run. Hit any key to pass the title, 
answer how many columns, then observe 
the demonstration. Hit the Y key, and after 
the program prints the aeroplane, it shows 
the design data and print parameters, and 
then displays a menu. Before you pull the 
printout from your machine, press the @ 
key several times and the paper will meet 
you half-way. 

The R (Restart) key clears the decks and 
runs again. You can use this key later when 
you finish one original design and want to 
do another. You change your design one 
lineat a time with the L option. The P option 
heading the menu produces anottier aero- 



plane with the current LPRINT values. 

Flexibility 

Select the M option for the change mode. 
Using the aeroplane, practice changing the 
LPRINT TAB setting, and the overall picture 
size (the program rejects efforts to run off 
the paper), and practice varying the overall 
tone by picking a different character. A 
chart of all the alphanumeric CHR$ codes is 
built-in to refresh your memory. 

You can reverse the picture with a single 
keystroke. You can decline to change any 
option: Enter to retain the value used during 
the previous print cycle. When you have 
printed enough aeroplanes, press R for 
Restart. 

Going Solo 

Take a small design drawn on a video 
worksheet and count the maximum height 
in pixels (not in character lines, but the 
familiar X,Y size), then the maximum width 
in pixels. This information defines the size 
of an imaginary frame holding the design, 
and also dimensions the number of strings 
to be input. Then answer questions about 
tab, size and print characters. 

Look at the top line of pixels in your 
design. As you scan from left to right hit a 
zero to mark every dark pixel and either a 
period or space to leave a blank. Anything 
but the zero prints a blank pixel. Enter after 
the last zero in the line, and input the re- 
maining lines using the same technique. 
The design data for the aeroplane dem- 
onstration shows several shortcuts to 
speed up and simplify the input process. 
Do not input a design string with a leading 
space; use the period to help count spaces 
accurately. 
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"This program LPRINTS any pure graphic design 
you can sl<etch on a video wori<sheet." 



Destsn Ditai 



U 
12 

n 

15 
16 
17 
13 
13 
28 
21 
22 
23 
24 
25 

9 

28 
23 
30 
31 
32 
33 
34 



m w. 



.....m iKn.fl.Hffi.......0iMflffi...{» 

....ee. e. Bne.eiffl 

...0e(B.,,rofleB.0w eenne 

...MH)em.e.ffi meme 

..WeWIHKBMe HMWHI 

..wtEmiD flOHnm 

. .806013 vKsam 



..eME»...ffi8wmeefN mssiisfmi...diiiBi 

...0M ....0....8..... Wi 

.9m9...miimami.. 2mssfmK...9iifiw 

yuMmi 0.ewQ.8 wwee.ee 

8.8.8808 BB..ra 8We.B.8 

8.. 88. 8 8»» 9....IA 80M 8. 88. .8 

.8..B..i m,..M 8..B..8 

..8.»...e 808.. ..800 8... 0.8 

. . . 8. 8. . . 8888080^8. . 8. . , . 8. . 8008000008. . . 8. 8 
...0..0 ...08.... 88 8.. a 

.... 80. e a, 8 B, 00 

8. 0088., ..8000. .0 

m 80 



a.. .8.. 0.,.0e 

. . . . 8. 0e0000fl00eei»00O. 0. . . . 8 
,...a...000 0egB0gg e0...B....i 

D 08woflWi • 8 

.8 8 

..8. .8 B..B 

...0000.... 8000 



mas 48 

Hi9h 34 



Tib 

Chr* 



17 

2 
56 



+Po5itive 



Figure 1 



If you have a numeric keypad, your fingers 
will soon learn thie rhiythtm and easily drum 
tfie zero, period and enter keys to type in the 
pixels. After you have entered the final string, 
you can print or if you made a major mistake 
select to input your design all over again. 
After making your first print, check the op- 
tional design data beiow the picture. You can 
use it to correct an error or add a refinement. 
The data makes a handy reference you can 
file away. To change more than one line, 
select the L option from the menu as often as 
needed. If you want no design data to intrude 
on your masterpiece, decline the option and 
continue to the menu. 

The reversed image option yields nicer 
resuits if you plan a blank pixel frame 
around your design. In reverse, this prints 
dark and prevents the white design from 
running into the paper. 

The printer width in columns limits input 
designs to iess than 131 or 79 pixels (the 
same as 65 or 39 characters). However the 
height of the design— the iength down the 
page— is unlimited. You can print a long 
design or message using an oversized 
aiphabet of your own creation, though if 
you get too ambitious you might need more 
than the 2000 bytes cleared by line 170. In- 
putting custom lettering in a vertical format 
is easy as you handle only one letter at a 
time. Experiment with small designs first; 
the program can enlarge them later. 
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Program Listing 1 



***** PIXEL PRINTER GRAPHIC UTILITY ***** 

* FOR ft 132-COL, 8-LPI PRINTER * 

* OR AN 80-CPL, 6-LPI PRINTER * 

* DESIGNED BY CHARLES E. GILLEN * 

* U.S. EMBASSY APO S.F. 96301 * 
***** VERSION 8 ***** 25 MARCH 1981 ***** 



'TYPE 



:WD 



100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 CLS:CLEAR2000:DEFINTA-Z:PRINTCHR$(23) :PRINT@452,"P I X E L 

P R I N T E R" :GOSUB560 :PRINTia214,''TURN ON YOUR PRINTER" : PRIN 
T:PRINTTAB(17) "TYPE 1 IF IT HAS 80 COLUMNS" : PRINTTAB ( 17 ; 

2 IF IT HAS 132 COLUMNS 
180 IN$=INKEY$: IFINS="1"THEN1 90ELSEIFINS=" 2"THEN200ELSE1 80 
190 CW=80:MX=2:TB=0:GOTO210 
280 CW=132:MX=3 :TB=10 
210 CLS:PRINT@474,"WANT A DEMO? 

220 IN$=INKEY$: IFIN$="Y"THEN23 0ELSE1F1NS="N"THEN240ELSE220 
230 D=l:VD$="+Positive" :BK$^STRING$(MX,56) : WT$=STRINGS (MX , 32) 
=39:HI=16:DIHA$(HI) : NR=56 : GOSUB5 80 : GOTO4 40 

240 CLS:PRINT"** DESIGN PHASE **": PRINT: INPUT"WIDTH IN PIXELS"; 
WD: IFWD=0ORWD>(CW-1) THEN2 40 

250 PRINT: INPUT"HEIGHT IN PIXELS "; HI : IFHI=0THEN250ELSEDIMA$ (HI) : 
GOTO 2 7 0' 

260 CLS:PRINT"SIZE OR TAB TOO BIG.... TRY AGAIN 

270 PRINT: INPUT"LPRINT AT TAB " ; TB: IFTB>6 3THENPRINT: PRINT"TAB 
CAN'T BE OVER G3":GOTO270 

280 PRINT:INPUT"SIZE FACTOR " ; MX! IF (CW~ ( TB+1 ) ) < (WD*MX) THEN26 


290 PRINT:PRINT"WANT TO SEE CHR5 CHART? 

300 INS=INKEY$: IFIN$=" Y"THEN310ELSEIFIN$-"N"THEN330ELSE300 
310 PRINT:PRINr"SELECT 1 ASCII CODE FROM THIS CHART: 
32 IFINKEYS = "''THEN320ELSEGOSUB5 50 

330 PRINT:INPUT"SELECT WHAT CHR$ CODE" ; NR : IFNR<330RNR>95THENCLS : 
GOTO2 90 

340 PRINT:PRINT"POSITIVE OR NEGATIVE PRINT? ": BK $=STRING$ (MX , NR) : 
WT$=STRING${MXr32) : VD$="+Positive" 

35 IN$=INKEY$rIFIN$-"P"THENCLS:VD=0:GOTO370ELSEIFIN$="N"THEN360 
ELSE350 

Listing continues 














iSjp^jSfrilaaii 



% '• 



»#^ *i 







''^Jxir'p^ ■ 



'.J- 



'1 



realism of "out-the-window" flight can be yours 
challenging simulation that will excite beginners 
test experienced pilots. On cassette, $25.00. 
On enhanced disk (increased world projection r~'~ 
10-frame-per-second approach mode, infinite I 
crash detection, and more), $33.50. For M( 
pSi^e specify since the media are dlfferei^>^i 










'^^challenging and realistic. Forest Fire Dispatch 
res the ease of operation that lets you concentn 
energy and imagination on the job at hand: savi 
ts as efficiently as possible. A naturally deep 
strategy game for years of pleasurable interaction. On 
cassette, $24.95 (16K required). On disk, $29.95 
(32K required). Specify Model I (Level 2 BASIC) or 
Model III. 
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For direct order, include S1.50 and indicate UPS or first ctass i 
residents add 5% sales tax. Visa and MasterCard accepted. 
If you don't yet own a disl<, don't fret. You can upgrade anytime. 
Cassette users may send back their cassette (but not ttie manu) 
with $10 {first class shipping included) and receive the disic ver&. 
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"Your fingers will soon learn the rhythm and 
easily drum the zero, period and enter keys . . ." 



Listing conlirtued 

360 VD=1:BKS=STRING$(HX,32) :WTS=STRING$ (MX ,NR) : VDS="-Negative" 

370 CLS: 1FCTHENPRINT@460,"NOW PRINTING CHANGES" :GOTO440ELSEPRINT 

"WIDTH IN PIXELS " ;WD : PRINT"HEIGHT IN PIXELS " ; HI : PRINT"LPR 

INT TAB ";TB:PRINT"SIZE FACTOR " ;MX : PRINT"LPRINT 

USING CHR?("NR") " : PRINTTAB ( 14) VD$ 

380 PRINT:PRINT"PREPARE TO INPUT "HI" LINES OF "WD" PIXELS FOR Y 

OUR DESIGN 

390 PRINTrPRINT'jJNPUT BLACK PIXELS AS AND WHITE PIXELS AS . 

400 IFINKEY$=""THEN400 

410 PRINT" "STRING$(WD,61) : F0RPH=1T0HI tPRINTUSING" ## " ; PH; : P 

RINT" "; :INPUTA$[PH) iNEXT 

420 PRINTTAB(40) "P = PRINT R ^ REDRAW 

430 INS=INKEYS:IFIN$="P"THEN44 0ELSEIFIN$="R"THEN370ELSE43 

4 40 P0RHH=1T0HI:F0RHM=1T0HX:LPRINTTAB(TB) ; : F0RWW=1T0HD : WW$=HID$ ( 

AS(HH) ,WW,1) :IFWW$<>"0''THENLPRINTWTS; !GOTO460 ' PRINT WHITE 

450 LPRINTBK$,- ' PRINT BLACK 

460 NEXTWW:LPRINTCHRS[32) : NEXTMM,HH : IFDTHEN490 

470 PRINT:PRINTTAB(40) "SEE DESIGN DATA? 

480 IN$=INKEYS!lFIN$="Y"THEN490ELSEIFIN$^"N"THEN510ELSE480 

490 F0RLF=1T04:LPRINTCHRS(32) :NEXT:LPRINT'' Design Data:":LPRI 

NTCHR$(32) :F0RPD=1T0HI:LPRINTUSING"##"?PD;!LPRINT'' ";AS(PD) iNEX 

TPD:LPRINTCHRS(32) 

50 LPRINT" Wide ";WD;LPRINT" High "jHIjLPRINT" Tab 

";TB:LPRINT" Size "jMXiLPRINT" ChrS ";NR:LPRINT" "VD 
$:FORLF=1T08:LPRINTCHR$(32) :NEXT:D=0 

510 CLS:PRINT"P = PRINT AGAIN" : PRINT"M = CHANGE HODE" 1 PRINT"L = 
CHANGE LINE"iPRINT"R = RESTART" : PRINT" @ = LINEFEED" :C=0 

Listing continues 



Modifying the Program 

You can add a routine to CSAVE and 
CLOAD the design strings to create a library 
of your favorite graphics. If you can control 
your printer with software commands, con- 
sider incorporating your codes for line spac- 
ing and column width. You can place the 
code for the 80 column configuration before 
the GOTO in Line 190 or you can place the 
code for 132 column operation at the end of 
Line 200. 

I down-converted this any-printer version 
from one developed for the Microline-80, 
which would be a great bargain even without 
its excellent TRS-80 graphics. To restore this 
program to a Microline configuration, 
change the value of NR in Line 230 to 191, to 
print the demo using CHR$(191). You can ex- 
pand the CHR$(HELP!) routine at Line 550 to 
display the graphic codes as well. Add the 
command code to set the Microline-80 in the 
132/8 print mode. This program cheerfully 
gives a reverse-video LPRINT as well, so your 
design can exactly duplicate the CRT. 

With the Microline-80, avoid printing 



TURN YOUR COMPUTER INTO 
A GRAPHICS MACHINE 



WITH THE MIKEEGRAPHIC 
GRAPHIC SYSTEMH 

MIKECQRAPHIC is a hardware/soltware 
system designefl lor the THS-80 model I & 
III computers. When Installed, your 30 nrill 
come alive wllh graphic ability!! 

M you've been waiting for a graphic 
system with the best dotsJdollars ratio, 
take a look at our ti^iKEEGftAPHIC" 

HASDWASE 

■ roiALSCBEENIHy£HSt VJUttI 

• TWO MODES Of D6t<SrtY: 

384 K 1U in 191 X 1S2 far Model I 
512 K 192 m 258 X 19? lor Modal III 

■ EVERY DOT C*N BE SET, BESET or TESTED 

• 12288 BYTES OF FAST XO nt MEMQPV 

. FUhJCTIONS SELECTED BV OUTPUT PORT tHI 

• MEUOHY MAPPED FOR SPEED 

• OCCUPIES LAST 1SK BLOCK OF MEMORY 

• CAN BE USED AS NORMAL MEMORV 

Ifl you ria*e 32K di more of oiBirtOfV) 

■ COLOR COORDINATED ENCLOSURE 

• DOES NOT CONPUCT WITH DISK OB CASSEHE 110 

• SELF SWITCHINQ POWER SUPPLY 

(Pomera up wrlth Compulei) 

■ COMES WITH ITS OWN WALL TRANSPORMEB 

• NOT A CHARACTER GENERATOR!! 

■ EASY INSTALUTION 

{Requires orily 16 solOef coonectiona and 
one Iraco/pin cut) 



FQimenr nair^sa UIKEtANGELO 




SOFTWZUtE 



■ COMES WITH SAMPLE ANQ DRIVER SOFTWARE 

• USABLE THROUGH BASIC OH MACHINE LANGUAGE 

■ EXCELLENT INSTALLATION/ 
OPEFlATION MANUAL 

TOOL KITS AVAILABLE FOR JUST $15.00 
MANUAL AVAILABLE SEPARATELY FOR SISIXI 
Full pric« ol manual will be aofluclod Irom [he 
Purchase Price 0( MIKEEGRAPHIC' " when orosrs: 
PREPAID, COD, HASTERCHARGE, VISA, or MASTER 
CARD ORDERS ACCEPTED. FOB^ Bellanw. Wa 



Cj 



, OfiL 



1 V) ( 



DEALERS INQUIRIES INVITED. 

ORDER NOW FOR ONLY$340. 



MIKEE ELECTRONICS CORPORATION 



P.O. Boi3SI3. ^Belloue, .Washinglon 98(*» 
Tflephoiie !06/45lfli74 




PRACTICAL PERIPHERALS 

BUFFERED PARALLEL INTERFACE 
FOR EPSON PRINTERS 



Plus Shipping 
And Applicable Tax 




Master Charge & VISA 



The MBP-16K is an intelligenl Cenlronics-compaDble parallel inlerface for 
the Epson MX-80. MX 80 F/T, and MX-100 printers, with 16,384 bytes of on-board 

RAM tor data butferirig. 

The buttering capability ot the MBP-16K increases your dala processing 
efficiency by eliminating the wail normally experlencea while printing. An 
Epson printer prints at 80 characters per second, at Ihis speed it takes about 
five rninutes to print a 16,000 character document. During moat of this time the 
computer is waiting for the Epson to finish one line so it can send the next. The 
computer can'i do anything else during this period because it's tied to the 
printer By using the MBP-16K it takes the computer only four seconds to send 
a 16,000 character document The Practical Peripherals MBP-16K interface 
typically accepts dala as fast as the computer can send it, until full, returning 
use ot the computer to you while it handles the printing. You can continue with 
other processing while simultaneously printing data from a previous [Ob, 
gaining all the time you normally would have spent waiting for the printer to 
finish The net result is to eliminate the compuler-waiting-for-prmter/printer- 
waitmg-for-computer bottleneck, and keep both working. Any program that 
involves printed output will be speeded up by using the fi1BP-16K 

The MBP-16K supports all standard Epson Commands, is compatible with 
GRAFTRAX-80, and is plug compatible with the standard Epson cable. The 
MPB-16K does not require any user software for control 

The MBP-16K is easy to install — it simply plugs into the existing auxiliary 
interface connector inside the Epson without modification of the printer. 

Micro Solutions, Inc. 

THE SOFTWARE STORE 



9949E. Harwin 



Houston, TX 77036 



{713)789-5443 
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QUALITY SOFTWARE FOR TRS-80 COLOR AND OSI 

ADVENTURES AND QUEST ALSO FOR SINCLAIR AND VIC-20 




liUL^lULUli; 



^^. 



ADVENTURES!!! 
For TRS^O COLOR and OSI. These Ad 

ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adv/entures 
are inter-active fantasies, It's like reading 
a book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch."} 

Adventures require 16k on TBSSO, TRSSO 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSL $14.95 each, 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with "possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough I 

TREK ADVENTURE (by Bob Retelle) 
This one takes place aboard a familiar star- 
ship. The crew has left for good reasons — 
but they forgot to take, you, and now you 
are in deep trouble. 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure — with ghosts and ghouls 
and goblins and treasures and problems - 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 
(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 




VENTURERI-A fast action all machine code 
Arcade game that feels like an adventure. Go 
berserk as you sneak past the DREADED HALL 
MONSTERS to gather treasure in room after 
room, killing the NASTIES as you go. Great 
color, high res graphics, sound and Joystick game 
for the TRS-80 Color or OSI machines, (black 
and white and silent on OSI.) Tape only. $19.95. 

BASIC THAT ZOOOMMS!! 

AT LAST AN AFFORDABLE COMPILER FOR 

OSI AND TRS-80 COLOR MACHINES!!! The 

compiler allows you to write your programs in 
easy BASIC and then automatically generates a 
machine code equivalent that runs 50 to 150 
times faster. 

It does have some limitations. It takes at least 
8K of RAM to run the compiler and it does only 
support a subset of BASIC about 20 commands 
including FOR, NEXT, END, GOSUB, GOTO, 
IF, THEN, RETURN, END, PRINT, STOP, USR 
(X), PEEK, POKE, '■, /.+.-.>.<.. ^, VARI- 
ABLE NAMES A-Z, SUBSCRIPTED VARI- 
ABLES, and INTEGER NUMBERS FORM 0-64 K, 

TINY COMPILER is written in BASIC. It gener- 
ates native, relocatable 6502 or 6809 code. It 
comes with a 20 page manual and can be modi- 
fied or augmented by the user. $24.95 on tape 
or disk for OSI or TRS-80 Color, 

LABYRINTH - 16K EXTENDED COLOR 
BASIC - With amazing 3D graphics, you fight 
your way through a maze facing real time mon- 
sters, The graphics are real enough to cause claus- 
trophobia. The most realistic game that I have 
ever seen on either system. $14,95. (8K on OSI) 





OUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 







NEW!! 

BREAKAWAY - ALL MACHINE CODE - 
Every computer has some form of BREAK- 
AWAY available. Ours is fast, smooth, has 
15 levels of difficulty ■ and is a bargain!! 
16k TRS-8C Color only $9.95, 

PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. If your program is good and you 
want it presented by the best, send it to 
Aardvark. 



Please specify system on all orders 
ALSO FROM AARDVARK — This is only a partial list of what we carry. We have a lot of other games (particularly for the 
TRS-80 Color and OSI ), business programs, blank tapes and disks and hardware. Send $1 .00 for our complete catalog. 



^ 



AARDVARK -80 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 

Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. ^ 107 



^ 



TRS-80 COLOR 



SINCLAIR 



OSI 



VIC-20 



i^See List of Advertisers on Page 455 
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''Back in the Dark Ages of computer graphics 
the asterisk was the character 
most used for primitive pictures." 



Listing continued 

520 INS-INKEYS: IPIN$=" @"THENLPRINTCHRS ( 32) : GOTO5 2 0ELSE1PINS="P"T 

HEN440ELSEIFINS="M"THENCLS:C-1:GOTO27 0ELSEIFIN$-"L"THEN53 0ELSEIF 

INS="R"THENRUNELSE52 

530 PRINT: INPUT"CHANGE LINE # " f CL: IFCL>HITHEN5i0ELSEPRINTUSING"# 

#";CL; : PRINT" "A$1CL) : PRTNTUSING" # # " ;CL; : PRINT" "; : INPUTfi$(Cl.) 

:GOTO510 

540 END ' *** BELOW IS CHR$(HELPI) SUBROUTINE *** 

Y=0 :CLS :FORX=33T095 :PRINTXCHR$ (X] " " ; : Y^Y+l : IFY>7THENPRINT 

:NEXTELSENEXT 

IFINKEY$-""THEN56 0ELSECLS: RETURN 

REM SAMPLE PICTURE BELOW 

1)=" 00.0" 

21= "0 0000000000 60.00" 



550 

:y- 

560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 



Afi 

AS(2)="[ 
AS(3)=". 
AS(4)="( 
AS(5)=". 
A$(6)="( 
AS(7)=" 
A$(8)-"! 
AS(9)=" 
670 AS{10)=" 
680 AS(11)=" 
690 AS(12)-"I 
700 AS(13) =" 
710 AS(14) -" 
720 A$(15}=" 
730 A$(16) ="l 
7 40 RETURN ' 



NOTE METHOD FOR BLANK LINE IN A$(ll) ABOVE 



large masses of solid black (CHR$191} in a 
large design. If the print head pauses before 
printing a new line it is overheated and quit- 
ting for a while to cool down. Small designs 
or those having equal amounts of light and 
dark pixels cause no problem when you use 
CHR$(191). 

This program provides an opportunity for 
non-graphic printer ovi/ners to LPRINT pixel 
shapes using the alphabet and other keys. 
This is not "poor man's graphics" because 
the option of picking any keyboard 
character permits some interesting ex- 
periments. Back in the Dark Ages of com- 
puter graphics the asterisk was the char- 
acter most used for primitive pictures, but 
you will find many others that are often 
more appropriate for a particular design. 
The 8 (eight) produces a nice effect, and the 
# sign gives a fairly solid mass. 

If you want more than one character in a 
design, modify the program to provide a 
medium pixel, in addition to the dark ones 
and the blanks. ■ 

Charles Gillen majored in graphic design. 
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^TRa^i)®. 



TOOLS FOR "^Ciiai 
Ul AND MODEL UI 



INSTANT ASSEMJ 

The INSTANT ASSEMBLER is a powerful disk ot tape-based assembler and debugger tor 
the TRS-80. Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning tool for assembly language programming. 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers in that it 
produces relocatable code modules that can be linked with the separate LINKING LOADER, 
which is supplied In two versions for loading programs into either high or low RAM This lets 
you build long programs with small modules, INSTANT ASSEMBLER also features im- 
mediate detection of errors as the source code is entered, a compactly coded source format 
that uses 1/3 as much memory as standard source, and many operational features including 
single stroke entry ot DEFB and DEPA', pinpoint control of listings, alphabetic ^sting of 
symbol table, separate commands for listing error lines or the symbol table, block move 
function, and verification of source tapes. 

INSTANT assembler's debugger provides single stepping with full regster displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly of 
object code in memory, memory display in ASCII format, and hex-to-decimal or decimal- 
to-hex conversion. The single -stepper will step one instruction at a time or at a fast rate to any 
defined address, 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory. In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 bytes. 
This and Its module-linking feature make INSTANT- ASSEMBLER ideal for users with only 
16K machines. The instruction manual may be purchased separately for $3, which will apply 
towards the purchase of the INSTANT ASSEMBLER. In addition to disk I/O, the disk version 
includes a stand-alone version of the debugger. 

Specify Model I or Model III. TAPH INTASM $29.95 on tape 

Specifii Model 1 ot Modtl 111. DISK INTASM $35-95 on disk 

RESTORE DAMAGED TAPES WITH RESQ2 

Cassette recordings are subject to several types of damage Thin spots in the oxide, dirt, 
voltage fluctuations while recording, or stray magnetic fields can all contribute to lost or 
added bits. RESQ2 was written to provide a method of restoring tapes that can no longer be 
loaded for these reasons. It can restore BASIC, SYSTEM, ASSEMBLER, and DATA tapes. 
RESQ2 compares two copies of the damaged tape to attempt a restoration, though restora- 
tion can often be accomplished with only one copy After the damaged data is corrected in 
memory, a new tape may be recorded and verified which does not contain the errors. The 
successratcof RESQ2 willdepend on the severity and quantity of errors. RESQ2 comes v/ith 
a comprehensive user manual and examples of two types of 'crashed' programs to practice 
on. 
Specify Model [ or Model III. RESQ2 $19.95 on tap^ 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature pnni (oi mottiicj pailidyc fedluruicj user defineable line and page 
length (with line feeds inserted between words or after punctuation), screen dump, printer 
pause control, and baud rate selection. In addition, printing is done from a 4K expandable 
buffer area so that the LPRINT or LLIST command returns control to the user while printing is 
being done. Works with cassette or disk systems. Ideal for Selectric or other slow printers. 
Allows printing and processing to run concurrently. Output may be directed to either the 
parallel port, serial port, or the video screen. 80 Microcomputing said "I can only give my 
highest recommendation of Spooler and Mumford Mcro Systems." 
Specific Model I or Mode! HI. SPOOLER $16.95 on tape. $21.95 on disk 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies ot almost any laps iiiUuding Basic, SYSTEM, data lists, assembler 
source, or "custom loaders". The file name, load address, entry point, and every byte (in 
ASCII format) are displayed on the video screen. Model III version allows changing tape 
speed so you can load in a tape at 500 baud and write it out at 1500. 
Specify Mod^l I or Model IIL CLONE $16.95 on tape. $21.95 on disk 

MACHINE CODE FAST FOURIER TRANSFORM 

WiLtlfQ by Dr All Cray, Jr., co-aullior (with ID. Mackdl nf tht; rl.issir tuyt 'i.int'fli- 
Prediction of Speech", this complete package includes 3 versions of the machine language 
FFTASM routine assembled for 16, 32, and 48K machines, a short sample Basic program to 
access them, a lOK Basic program which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples. The machine language sub- 
rouHnes use variables defined by a supporting Basic program to make data entry and retrieval 
automatic, without PEEKs and POKEs. They perform 20 to 40 times taster than their Basic 
equivalent (256 points in 12.5 seconds), and handle up to a 1024 point complex FFT The 
FFT is useful in analyzing stock market and comodity trends as well as for signal analysis. 

Specify Model I or Model III FFTASM $49.95 on tape 

FFTASM on disk with snurcp c-.idt $69.95 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Model i and Model III ROMs 
which allows the machine language or Basic programmer to easily utilize the sophisticated 
routines they contain. Concisely explains set-ups, calling sequences, and variable passage 
for number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and machine 
code with the speed and efficiency of a compiler, in addition, the 18 chapters include a large 
body ot other information useful to the programmer including tape formats, RAM useage, 
relocation ot Basic programs, USR call expansion, creating SYSTEM tapes of your own 
programs, interfacing of Basic variables directly with machine code, and special precautions 
for disk systems. INSIDE LEVEL II was reviewed in the April 1982 issue of 80 Microcomput- 
ing which said "The book has no flaws; it is a perfect gem." Byte Magazine said "1 recommend 
this book to serious machine language programmers," 
Includes updates for Model HI, INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step iliruugh any Baiic o( machine language prngram one insttuclion 
at a time, and see the address, hexadecimal value, aiog mnemonic, register contents, and 
step count for each instruction. The top 14 lines ot the video screen are left unaltered so that 
the "target program" may perform its display functions unobshructed. STEP80 will follow 
program flow light into the ROMs, and is an invaluable aid in learning how the ROM routines 
function. Commands include step (trace), disassemble, run in step mode at variable step rate, 
display or alter memory or CPU registers, jump to memory location, execute a CALL, set 
breakpoints in RAM or ROM, write SYSTEM tapes, and relocate to any page in RAM. The 
display may also be routed to your line printer through the device control block so custom 
print drivers are automatically supported. 
Specily Model I or Model IIL STEP80 $16.95 on tape. $21.95 on disk 

SMART TERMINAL PROGRAM 

This machine lanyudfje pmgir^m niriy bt^ u?ed ab a ^mart Icriiiinal wilh ume share Systems or 
for high speed file transfers betiA^een Paio disk-based micros over modems or direct wire. It is 
menu driven and extremely simple to use. Functions include teal-time terminal mode, save 
RAM bufl^er on disk, transmit disk file, receive binary flies, examine and modify UART 
parameters, program 8 custom log-on messages, automatic 16-bit checksum verification of 
accurate transmission and reception, and many more user conuenierices. Supports line 
printers and lowercase characters. With this program you will no longer need to convert 
machine language programs to ASCII for transmission, and you will know Immediately if the 
transmission was accurate. 
Specify Model I or Model III. TULCOM $39.95 on disk 

DISK INDEX VERSION 3.0 

Our excellent disk indexing program has now been entirely reujrittcn in machine language. It 
will run on either a Model I or Model III and catalog disks tor either machine regardless of 
which one is running it, (Model I owners must have double density to catalog Model II! cUsks. | 
DISK INDEX will assemble an index ot your entire program library by automatically reading 
program names and free space from each disk directory. The index may then be alphabetized 
or searched for any disk, program, or extension. Disks or programs may be added or deleted, 
and the whole index or any part may be sent to the printer. The index iteelf may also be stored 
on disk lor future access and update. A 48K machine will hold over 2500 programs in each 
index, and you may build as many indexes as you need. Vfersion 3.0 runs substantially faster 
than our previous ver^on and works with any operating system written for the Model I or . 
Model III except CP/M. 
Specify Model 1 or Model III. INDEX 3.0 $29.95 on disk 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2'clock modificdtitm allows CPU spt;t:ds to ba switched btlwiicn normal, an mctease 
of 50%. or a 50% reduction; selectable at any time without interrupting execution or crashing 
tlie program. Insfructions are also given for a 100% increase to 3.54 MHe, The SK-2 may be 
ronfigured by the user to change speed with a toggle switch or on sofhvare command. It will 
automatically return to normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate when the computer is not 
at normal speed. It mounts inside the keyboard unit with only 4 necessary connections for the 
switch option (switch not included), and is eaaly removed if the computer ever needs service. 
The SK-2 comes fully assembled with socketed IC's and illustrated insti-uction^ 
Model I only. SK-2 $24.95 

RAMTEST 

This machine language program is a very thorough test for several types of RAM en-ors and 
wjll Indicate which chip, if any, is iaultv. It also includes a separate test for power iinpglitrhes. 
Specify Model I or Model III. RAMTEST $12.95 on tape, $17.95 on disk 



MUMFORD 

MICRO 

SYSTEMS 



, 'OKDERING: Complete satisfaction is guaranteed or a full refund will b^ made. Include $2,00 
for postage and handling. California residents add 6% sales tax. Visa. Mastercharge and COD 
,. ^ orders accepted. SPECIFY MODEL I OR MODEL lU. Dealer inquiries invited. 

•'• ■ ' . ' ■ ■ 

f>^P^400-E Summeriand, Calffornia 93067 (805) 969-4557 

/>'67v , Quality software §ince 1978 



■ See List of Advertisers on Page 455 
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GENERAL 



You could design a better computer! 



Computer Assisted 
Electronics Design 



John Harper 
RU1 Box 252 
Lawrenceburg, IN 47025 



Designing electronic circuits 
involves time consuming, 
tedious calculations. Even after 
you make these calculations, a 
certain amount of trial and error 
is often necessary. The five pro- 
grams solve some circuit design 
problems and make parts of the 
design process less difficult. 



Before you can design an elec- 
tronic circuit, you must organize 
your data to conform with your 
circuit design equations. To use 
a capacitor that is valued in pico- 
farads in an electronic formula 
that evaluates capacitance in 
farads, you must convert pico 
farads into farads. The convert 
program (see Program Listing 1) 
does this. You enter the value in 
the form you have, and the 
equivalent value is returned. A 
more detailed description of this 
program and the other four ap- 
pear in the individual program 
descriptions below. 

Once the formula tells you the 
value of the electronic compo- 
nent you must find this compo- 
nent value in a store. Whi ie it nor- 
mally is unnecessary to use the 







Program Listing 1 




la 


CLS 








20 


PRINT 


CONVERSION PROGRAM- 




30 


PRINT 


PRINT'DO YOU 


WISH TO CONVERT MEASURES 


OF:" 


40 


PRINT 


TAB (201 ; "(11 


CAPACITANCE" 




50 


PRINT 


TAB(20) :"(21 


INDUCTANCE" 




68 


PRINT 


TfiB(201 ; "(3) 


FREQUENCY" 




70 


PRINT 


INPUT" ENTER 


CHOICE (1,2, OR 3) ";C 




ee 


ON C GOTO 90,600,960 




90 


REM * 


CAPACITANCE 


■ 




lei 


cts 








111 


PRIN' 


"CONVERSION 


OPTIONS" 




12( 


prin: 


: PRINT 






13( 


REM 








141 


PRIW 


TAB (5) ; "FROM"; TAB (23) ; "INTO" 




150 


PRIN' 


"{1} FARADS" 


TfiB(201 ; "MICROFARADS" 




16S 


PRIN' 


■{2) FARADS" 


TAB(20] i-PICAFARADS" 




170 


PRINT 


'(3) MICROFARADS", -TAB (201 "PICAFARADS" 










Listing 1 Continues 



exact value calculated, you 
v*/ould like the actual component 
value as close as possible to the 
calculated value. Finding a par- 
ticular value is not always easy. It 
is sometimes convenient to com- 
bine two components in such a 
way that the combined value 
equals your desired value. The 
formula program (see Program 
Listing 2) does this. You enter the 
number of components you will 
combine and the individual value 
of each and the computer cal- 
culates the combined value. 

One practical reason for cal- 
culating precise component val- 
ues is in the construction of reso- 
nant circuits. A resonant circuit 
is designed to operate at a spe- 
cific frequency. To construct 



tarads 


Into 


microfarads 


farads 


into 


picofarads 


microfarads 


into 


picofarads 


microfarads 


into 


farads 


picofarads 


into 


farads 


picofarads 


into 


microfarads 


henries 


into 


microhenries 


henries 


into 


miilihenries 


microhenries 


into 


henries 


mililhenries 


into 


henries 


hertz 


into 


kiioherlz 


hertz 


into 


megahertz 


kiloherlz 


into 


hertz 


megahertz 


into 


hertz 


Table 1 



such a circuit, you must combine 
a specific value of capacitance 
and inductance vi/hich will res- 
onate at your desired frequency. 
Program Listing 3(CIRCUIT/RES) 
will calculate these component 
values. Enter the resonant fre- 
quency you want and either ca- 
pacitance or inductance. When 
you have entered these two val- 
ues, the computer calculates the 
third (unknown) value which will 
yield circuit resonance at your 
desired frequency. 

The last two programs (Pro- 
gram Listings 4 and 5), are ex- 
amples of specific filter circuits. 
Program Listing 4 (BAND/REJ), 
is a passive band reject filter. 
This circuit is composed of In- 
ductors and capacitors com- 
bined to block a specific range 
(band) of frequencies without in- 
terfering with frequencies above 
or below this band. Enter the 
high and low frequency range in 
which you wish the signal 
blocked. The computer cal- 



The Key Box 


Model 1 or III 


16K RAM 


Cassette or Disk Basic 


Printer 
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Listing 1 Continues 

180 PBINT'(4) MICROFfiRADS";TABf 20) -FARADS- 

190 PRINT" (5) PICAFARADS";TAB120) "FARADS- 

200 PRINT" (6) PICAFARADE";TAB120) "MICROFARADS" 

210 PRINT" (7) RETURN TO MAIN MENU" 

220 PRINT:INPUT"ENTER CHOICE (1-7)";C 

230 ON C GOTO 240,3 00,360,420,480,540,10 

240 CLS:PRINT"CONVERT FARADS INTO MICROFARADS" 

250 INPUT"EKTER VALUE (IN FARAOS) TO BE CONVERTED"iF 

260 M=F*(10I6) 

270 PRINT:PRINT F; " FABADS ^*;Hj" MICROFARADS" 

280 PRINT:PRINT:INPUT"PRESE ENTER TO CONTINUE-;AS 

290 GOTO 100 

300 CLS:PHINT"CONVERT FARADS INTO PICAFARADS" 

310 INPUT"ENTER VALUE (IN gARADS) TO BE CONVERTED";F 

320 P=F'(10[12) 

330 PRINT:PRINT F;"FAHADS = ";?;" PICAFAHADS" 

340 PRIHT:PR1NT!INPUT"PRESS ENTER TO C0HTINUE";AS 

3 50 GOTO 100 

360 CLSlPRINT-CONVERT MICROFARADS INTO PICAFARADS" 

370 INPuT"ENTER VALUE (IN MICROFARADS) TO BE CONVERTED" ;M 

360 P=M*(10[6) 

390 PRINT:PRINT H; "MICROFARADS - ";P;" PICAFARADS" 

400 PRINT:PRINT:INPUT'PfiESS ENTER TO CONTINUE";AS 

410 GOTO 100 

420 CLS!PRINT"CONVERT MICROFARADS INTO FARADS" 

430 INPUT-ENTER VALUE (IN MICROFARADS) TO BE CONVERTED" ,-M 

440 F=M*(10|-6) 

450 PRINTiPHINT M; "MICROFARADS = ";F;" FARADS" 

460 PfiINT:PHINT!lNPUT"PRESS ENTES TO CONTINUE" ! AS 

47 GOTO 100 

480 CLS: PRINT-CONVERT PICAFARADS INTO FARADS" 

490 INPUT-ENTER VALUE (IN PICAFARADS) TO BE CONVERTED'jP 

500 F=P*(i0[-12) 

510 PRINTiPRINT P; -PICAFARADS = -;F;- FARADS- 

520 PRINT:PRINT!lNPUT-PRESS ENTER TO COSTINUE-jAS 

530 GOTO 100 

540 CLSiPRINT-CONVERT PICAFARADS ISTO MICROFARADS - 

550 INPUT-ENTER VALUE (IK PICAPABADE) TO BE CONVERTED";? 

560 M=P'(10[-6) 

570 PHINT:PRINT P; -FARADS =. ■;H)" MICROFARADS" 

580 PRIKT:PRINT:IHPUT"PRESS ENTER TO COKTINUE";AS 

590 GOTO 100 

600 REM * INDUCTANCE * 

610 CLS 

620 PRINT "CONVERSION OPTIONS" 

630 PRINTjPRINT 

640 PRINT TAB(5) ;"FROM";TAB{23) ;-INTO' 

650 PRINT-(l) HENRIES";TAB[20] ; -MICROHENRIES" 

660 PRINT-(2) HENRIES";TAB(20) "MILLIHENRIES" 

670 PRINT"{3) MICROHENRIES-;TAB(20) "HENRIES* 

680 PRINT"(4) MILLIHENRIES-fTAB(20) "HENRIES" 

690 PRINT"(5) RETURN TO MAIN MENU' 

700 PRINT:PRINT:INPUT-ENTER CHOICE {1-5)";C 

710 ON C GOTO 720,780,840,900,10 

720 CLS;PHINT"CONVERT HENRIES INTO MICROHENRIES" 

730 INPUT-ENTER VALUE [IN HENRIES) TO BE CONVERTED'jH 

740 M=H*{10[6) 

750 PRINTiPRINT U) "HENRIES = "jH;" HICROHENRIES" 

750 PRINTjPRlSTtlNPUT'PRBSSBHTBR TC CONTINUE";AS 

770 GOTO 610 

780 CLS:PRINT"CONVERT HENRIES INTO MILLIHENRIES" 

790 INPUT"ENTER VALUE (IN HENRIES) TO BE CONVERTED";H 

800 M=H'(10[3) 

810 PRINT:PRINT H;"HENRIES = "iM;" MILLIHENRIES" 

820 PRINT:PRINT:INPUT"PRESS ENTER TO CONTINUE"jAS 

830 GOTO 610 

840 CLSiPRINT-CONVERT MICROHENRIES INTO HENRIES" 

850 INPUT-ENTER VALUE{IN MICROHENRIES) TO BE CONVERTED";H 

860 H=H*(10[-6) 

870 PRIKTiPRINT M; "MICROHENRIES - ")i!f" HENRIES" 

880 PRINT:PRINT:INPUT"PfiES£ ENTER TO COKTINUE" ; AS 

890 GOTO 610 

900 CLS:PRINT"CONVEBT MILLIHENRIES INTO HENRIES" 

910 INPUT"ENTER VALUE (IN MILLIHENRIES) TO BE CONVERTED-;M 

920 H=H*(10I-3) 

930 PRINT:PRINT M; "MILLIHENRIES = 'jH,-' HEHBIBS" 

940 PRINT:PRINT:INPOT"PRESS ENTER TO CO»TIN0E"(AS 

950 GOTO 610 

960 REM • FREQUENCY * 

970 CLE 

980 PHI NT "CONVERSION OPTIONS" 

990 PRINT: PRINT 

1000 PRINT TAB(5) ;'FROH-;TAB(23) ;"1NT0" 

1010 PRINT'dJ HERTZ";TAB(20) ;"KILOHERTZ" 

1020 PRINT"(2) HERTZ";TAB(20) ;"MEGAHERTZ" 

1030 PRINT"(3j KILOHERTZ";TAB(20) ! "HERTZ" 

1040 PRINT'(4) MEAGHERTZ';TAB(20) ; "HERTZ" 

1050 PRINT-(5) RETURN TO MAIN MENU" 

1060 PRINT: INPUT'ENTER CHOICE (1-5)";C 

1070 ON C GOTO 1080,1140,1200,1260,10 

1080 CLS:PRINT"CONVERT HERTZ TO KILOHEHTZ" 

1090 INPuT"ENTER VALUE (IN HERTZ) TO BE CONVERTED" ;H 

1100 K=H''(10[-3) 

1110 PRINTjPRINT H;"HERTZ = ";Kj" KILOHERTZ" 

1120 PRINT:PRINT:INPUT"PRESS ENTER TO C0NTINUE"jA5 

1130 GOTO 970 

1140 CLS:PRINT'CONVERT HERTZ INTO MEGAHERTZ" 

1150 INPUT'ENTER VALUE (IN HERTZ) TO BE CONVERTED";H 

1160 M=H*(10|-6) 

1170 PRINT:PRINT H!"HERTZ = ";H;" MEGAHERTZ" 

1180 PRINT!PRINT:INPUT"PBESS ENTER TO CONTINUE";AS 

1190 GOTO 970 

1200 CLS:PRINT"CONVERT KILOHERTZ INTO HERTZ" 

1210 INPUT'ENTER VALUE (IN KILOHERTZ) TO BE CONVERTED";K 

1220 H^K*[10|3) 

1230 PRINT: PRINT K; "KILOHERTZ = ";Hj" HERTZ" 

1240 PRINTiPRINT: INPUT"PRESS ENTER TO CONTINUE"jAS 

1250 GOTO 970 

1260 CLStPRINT-CONVERT megahertz TO HERTZ- 

1270 INPuT-ENTEH VALUE (IN MEGAHERTZ) TO BE CONVERTED"|M 

1280 H=M*(10[6) 

1290 PRINT:PRINT H;-MEGAHERTZ - ";H;"HERTZ" 

1300 PRINT:PRINTiINPUT"PRESS ENTER TO CONTINUE"!AS 

1310 GOTO 970 




Send today for our NEW full-color 
56-page catalog with continuous 
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culates the necessary compo- 
nent values and draws the 

resulting circuit on the line 
printer indicating all compo- 
nents and values. 

Program Listing 5 (Lowpass), 
is another example of a filter cir- 
cuit. This time you are designing 
an active filter using resistors, 
capacitors, and an integrated 
circuit. This filter blocks signals 
above a specific frequency. 
Enter the desired cutoff fre- 
quency and the computer cal- 
culates the necessary compo- 
nent values and draws the 
circuit on the line printer. 

These five programs aid in 
the coristruction of circuits de- 
signed to operate at a specific 
frequency. You can use the pro- 
grams separately or combined. 
One supplies information used 
by another. Thus they serve for a 
vi/ide range of applications. 
Warning: these programs do not 



determine the suitability of any 
circuit for your iritended use. 

Once you enter the required in- 
put, the computer will return a 
circuit or a component value, no 
matter how absurd or ineffective 
it may be for your use. 

Convert 

The programs require you to 
enter data via the keyboard in a 
specific form. One program may 
require you to enter a frequency 
in hertz while another program 
may require you to enter the 
frequency in megahertz. Con- 
vert eliminates the need of 
manually converting data from 
your form to the form the com- 
puter requires. 

The program displays a table 



of conversions that it can per- 
form. Select your conversion by 
entering the number that ap- 
pears beside it. Once you have 
made this selection, the corti- 
puter instructs you to enter the 
value you wish to convert. If, for 
example, you wish to convert 
picofarads to farads, enter the 
value in picofarads and the com- 
puter will return the equivalent 
value in farads. 

Table 1 lists the conversions 
the program can make. 

Formula 

Finding electronic compo- 
nents (resistors, capacitors, in- 
ductors, and coils) with the ex- 
act (or even approximate) value 
you need can be difficult. This 
program bypasses this circuit 



design obstacle by calculating 
the performance of multiple 
electronic components when 
these components are com- 
bined in series or parallel. In this 
way, you can combine two or 
more standard components 
(those stocked by most elec- 
tronic stores), to arrive at the 
value you need. 

The program uses standard 
electronic formulas for calculat- 
ing the combined values. Table 
2 shows a complete list of these 
formulas. As listed, the program 
will calculate the results of con- 
necting from 2-10 components. 
If you wish to calculate the re- 
sults of connecting more than 
10 items, add the appropriate 
dimension statements to the be- 
ginning of the program. If you 



(I) Ohms Law tor Direct Current 

(a) Current = Voltage -^ Resisiance 

(b) Voltage = Current -Resisiance 

(c) Resistance = Voltage + Current 

(d) Power = Voltage * Current 

{II) Resistors In Parallel 
■ (a) Two Resistors 

Totaj Resistance = (Ri • R2) - {Ri -t R2) 
(b) More than Two Resistors 



ffi + R5 + FTi 



Total Resistance - 1 - ,|^ , f, 
Where Ri. R2, R3, .. ., RN are 
The Individual Resistors 

(III) Resistors In Series 

Total Resistance = Ri -i- R2 -i- R3 -f . . . -^ Rn 

(IV} Capacitors In Parallel 

Total Capacitance ^ Ci + C2 ^- C3 -I- , , . -f Cn 

(V) Capacitors In Series 

(a) Two Capacitors 

Total Capacitance = (Ci ■ C2) -. (Ci + C2) 

(b) tulore Ttiari Two Capacitors 

Total Capacitance = i-(^ + ^ + ^+ .+ 
Where: Ci, C2, C3, . . ., Cm are 
The Individual Capacitors 

(Vl) Inductors In Series — No Mutual Inductance 
Total Inductance = Li -1- L2 -(- L3 + . . . -f Ln 



+ R^ii 



J_ 

Cn' 



.X ± ± 
'Li + L2 ■*■ L5 



Ln' 



(VII) Inductors In Parallel— No Mutual Inductance 

(a) More Than Two Inductors 

Total Inductance = 1 

(b) Two Inductors 
Total Inductance = (Li • I-2) ^ (Li -h L2) 

Where: \-t,Lz, L3, , . ., Lr^ Are 
The Individual Inductors 



(VIM) Coll Winding Formulas— Single Layer Coil 

(a) Inductance = {N-R)2 ^ [(g.R, + (-,o*L)] 

(b) Number of Turns ^ VT"- [(S-Rr-t- (10* L)] -^ R 

Where: 

I = Inductance 



L = 
R = 
N = 



Lenglt) of Coil 
Radius 

Number of Turns 

Table 2 



Program Listing 2 



20 INPuT'DO YOD WISH OUTPUT TO LIHE PRINTER (Y/N) 
3H CLS:PRINT"P ROGRAM HEKU" 



';PS 



40 PRINT TAB[20) 
50 PRINT TAB(20j 
60 PRINT TAB(20) 
70 PRINT TAB(20) 
80 PRINT TAB(20j 



'(1) OHHS' LAW FOR DIRECT CURREKT' 
'(2) RESISTANCE FORMULAS" 
'(3) CAPACITANCE FORMULAE" 
'(4) IhfDOCTANCE F0W1ULAS" 

COIL WINDING FORMULAS' 



90 PfilNTiINPOT'ENTER CHOICE";V 

100 ON V GOTO 110 ,470 ,620 ,1170 ,1520 

110 CLSiPRINT'OHM'S LAW FOR DIRECT CURRENT' 



; "DO YOU WISH TO CALCULATE:' 

CURRENT" 

VOLTAGE ■ 

RESISTANCE" 
;"(41 RETURN TO MAIN MENU" 



120 PRINT:PRINT TAB(20 

130 PRINT TAB(30)j"(l) 

140 PRINT TAB(30] ;" [2) 

150 PRINT TAB(30)j'(3) 

160 PRINTtPRINT TAB(30 

170 PRINT:PRINT!lNPUT"ENTER CHOICE";C 

180 ON C GOTO 200 ,280 ,350 ,30 

190 GOTO 110 

200 CLSiPRINT'CALCULATE CURRENT:" 

210 INPuT'ENTER VOLTAGE IN VOLTS'jE 

220 INPUT-ENTER RESISTANCE IN OHMS";R 

230 I=E/RiPRINT TAB(10] , "CURRENT IN AMPERE = " ; I 

240 IF PS="N" GOTO 260 

250 LPRI NT "VOLTAGE IN VOLTS = " jEjLPRINT'EESISTANCE IN OHHS = 

T"CURRENT IN AHPERS - ";I 

260 A5=INKEYS:IF AS="' GOTO 260 

27 GOTO 4 20 

280 CLS:PRINT"CALCULATE VOLTAGE;" 

290 INPUT"ENTER CURRENT IN AMPERS",-I 

300 INPUT"ENTER RESISTANCE IN OHMS';R 

310 E=I*R:PRINT TAB(10) ."VOLTAGE IN VOLTS = ";E 

320 IF PS="N" GOTO 340 

330 LPRINT" CURRENT IN AHPERS - " ; I :LPRINT"RESISTANCE IN OHMS 

NT"VOLTAGE IN VOLTS = "jE 

340 flS=INKEY5!lF AS="" GOTO 260 ELSE 420 

350 CLSiPRINT'CALCULATE RESISTANCE IN OHMS! " 

360 INPut'ENTER current in AHPERS";! 

370 INPUT"EKTER VOLTAGE IN VOLTS'jE 

380 R=E/l!PRINT TAB(10) J 'RESISTANCE IN OHHS - ";R 

390 IF PS='N" GOTO 410 

400 LPRINT"CURRENT IN AMPERS = " ; I ; LPRINT'VOLTAGE IN VOLTS = 

"RESISTANCE IN OHMS - "jR 

410 AS-INKEYS:IF AS-"" GOTO 410 ELSE 420 

420 CLS;PRINT"POWER EXPENDED IH LOAD RESISTANCE' 

430 P=E*I 

440 PRINT TAB(10} "POWER EXPENDED = ';P 

450 IF Pg-"Y-:LPRINT"POWER EXPENDED = ';P 

460 AS=INKEYS:IF AS=" GOTO 460 ELSE 110 

470 CLS:PRINT"RESISTANCE FORMULAS" 

480 PRINT;PRINT TAB(20);"DO YOU WISH TO CALCULATE : " 

490 PRINT TAB(30];"(11 RESISTORS IN SERIES' 

500 PRINT TAB(301;"(2) RESISTORS IN PARALLEL" 

510 PRINT:PRINT TAB(30);"(3) RETURN TO MAIN MENU" 

520 PRINT: INPUT" ENTER CHOICE";C 

530 ON C GOTO 540 ,680 ,30 

540 CLS:PRINT"RESISTANCE IN SERIES" 

550 INPUT"ENTER NUMBER OF RESISTORS IN SERIES'fN 

560 R-0 

570 FOR A-1 TO N 

580 PRINT 'ENTER RESISTANCE (IN OHMS] OF RESISTOR t ')A 

590 INPUT R(fi) :NEXT 

600 FOR A-1 TO N:R=R(A)+R:NEXT 

610 CLSiFOR A=l TO N: PRINT'RESISTOR # ';A;' =';R|A):NEXT 

620 PRINT § 400, 'TOTAL CIRCUIT RESISTANCE = 'jR 

630 IF PS="N- GOTO 670 

640 FOR A=l TO N:LPRINT "RESISTOR * "lA;" =";R(A1:NEXT 

650 LPRINT TAB(20) j'TOTAL CIRCUIT RESISTANCE - ';R 

660 FOR X=l TO 5:LPRINT CHRS{13);" " : NEXT 

670 A?=INKEYS:IF AS="' GOTO 670 ELSE 470 



= "jRiLPRI 



Listing 2 Continues 



374 • 80 Micro, November 1982 



Listing 2 Continued 



660 CI.StPRINT"RESISTANCE IN PARALLEL" 

690 INPUT'ENTER NUMBER OF RESISTORS IN PARALLEL CIRCUIT";N 

700 FOR A-1 TO N 

710 PRINT -ENTER RESISTANCE (IN OHMS) OF RESISTOR * ';A 

720 INPUT R(A) iNEXT 

730 IF N>2 GOTO 760 

740 R-(R(1)*R(2))/(RC1)+R(2)) 

750 GOTO 610 

760 R=0 

770 FOR A=l TO N 

780 R=1/H(A)+R 

790 NEXT 

B00 R=l/R 

810 GOTO 610 

820 CLS:PRINT-CAPACITAHCE FORMULAS" 

830 PRINTiPRINT TAB(20);"DO YOU WISH TO CALCULATE;" 

840 PRINT TAB(30);"(1) CAPACITORS IK PARALLEL* 

850 PRINT TAB(3air'|2) CAPACITORS IN SERIES" 

860 PRINT:PRINT TAB{30);'(3) RETURN TO MAIN 'MEND" 

870 INPUT"ENTER CHOICE",-C 

880 ON C GOTO 890 ,1030 ,30 

890 CLS:PRINT"CAPACITANCE IN PARALLEL" 

900 INPUT'ENTER NUMBER OF CAPACITORS IN CIRCUIT";N 

910 H-0 

920 FOR A=l TO N 

930 PRINT'ENTER CAP«;iTANCE (IN PICAFARADS) OF CAPACITOR 8 ";A 

940 INPUT R(A) :NEXT 

950 FOR A=l TO N:R=R(A)+R:NEXT 

960 CI.S:FOR A=l TO N: PRINT"CAPACITOR 1 ";A;" =";R(A):NEXT 

970 PRINT @ 400, "TOTAL CIRCUIT CAPACITANCE =' ' ;R 

980 IF PS="N" GOTO 1020 

990 FOR A=l TO NiLPRINT "CAPACITOR # ' ; h; ' =';R(A):NEXT v 

1000 LPRINT TAB( 20) ; "TOTAL CIRCUIT CAPACITANCE = "fR 

1010 FOR X=l TO s'lLPRINT CHRS(13);" " : NEXT ' . 

1020 AS=INKEYS:IF AS="" GOTO 1020 ELSE 320 

1030 CLS:PRINT"CAPACITANCi; IN SERIES:" 

1040 INPUT "ENTER NUMBER-OF CAPACITORS IN SERIES CIRCUIT";N 

1050 FOR A=l to' N '■■ • ■ 

1060 PRINT"ENTER CAPAClTAMCE (IS PICAFARADS) OF CAPACITOR # ";A 

1070 INPUT R(A)':NEXT 

1080 IF N>2 GOTO 1110 

1090 R=[R(1) •R(2) )/(R(l)+R(2) ) 

1100 GOTO 960 ■ ' 

1110 R=0 

1120 FOR A=l TO N 

1130 R=l/R[fl)+R 

1140 NEXT 

1150 R-l/R 

1160 GOTO 960 

1170 CLS:PRI1JT"INDUCTANCE FORMULAS (KITH NO MUTUAL INDUCTANCE]" 

1186 PRINTiPRINT TABI20);"DO YOU WISH TO CALCULATE:' 

1190 PRINT TAB(30);"(1) INDUCTORS IN SERIES" 

1200 PRito TAB(30);"(2) INDUCTORS IN PARALLEL" 

1210 printiprint tab(30) ;"(3') return to main menu* 
122^ 1:nput"enter choice";C "''■■■ 

1230 OlJ C GOTO 1240 ,1380 ,39 ' 

124t) CLSiPRINT'INDUCTANCE IN SERIES" 

1250 INPUT'ENTER NUMBER OF INDUCTORS IN CIRCUIT" ;N 

1260 R=0 

1270 FOR A=l TO N 

1280 PRINT-ENTER INDUCTANCE (IN MICROHENRIES) FOR INDUCTOR t ";A 

1290 INPUT R(A) iNEXT 

1300 FOR A=l TO N:R=R(A)+R:NEXT 

1310 CLSiFOR A=l TO N: PRINT" INDUCTOR » ",-A;' =";R[A1:NEXT 

1320 pkiNi' g 400, "TOTAL CIRCUIT INDUCTANCE = ";R 

1330 IF P5="N" GOTO 1370 

1340 FOR A=l TO NiLPRINT "INDUCTOR I ";A;" =■* ; R(A) iNEXT 

1350 LPRINT TAB(20) ; "TOTAL CIRCUIT INDUCTANCE = "jR 

1360 FOR :^-l TO 5:LPRINT CHRS{13);" " : NEXT 

1370 AS=INKEYS:IF AS="" GOTO 1370 ELSE 1170 

1380 CLS: PRINT" INDUCTANCE IN PARALLEL — NO MUTUAL INDUCTANCE" 

1390 INPUT"ENTER NUMBER OF INDUCTORS IN CIRCUIT",-N 

1400 FOR A=l TO N 

1410 PRINT'ENTER INDUCTANCE (IN MICROHENRIES) OF INDUCTOR i";A 

1420 INPUT R(A) :NEXT 

1430 IF N>2 GOTO 1460 

1440 R=|R(1)*R(2))/(R(1)+R(2)) 

1450 GOTO 1310 

1460 R=0 

1470 FOR A=l TO N 

1480 R=1/R(A)+R 

14 90 NEXT 

1590 R=l/R 

1510 GOTO 1310 

1520 CLSiPRINT'COIL WINDING FORMULAS;" 

1530 PRINT TAB(1);"D0 YOU WISH TO CALCULATE:" 

1540 PRINT TAB[3),-"(1) INDUCTANCE — GIVEN — I OF TURNS, LENGTH, AND RADIUS" 

1550 PRINT TAB(3);"{2) NUMBER OF TURNS GIVEN - LENGTH f RADIOS, AND IHDUC 

TANCE" 

1560 PRINT TAB(3);'[3) RETURN TO MAIN MENU" 

1570 INPUT"ENTER CHOICE",-C , "" 

1580 ON C GOTO 1590 ,1720 ,30 

1590 CLS:PRINT'CALCULATE INDUCTANCE:" 

1600 INPUT"ENTER NUMBER OF TURNS";N 

1610 INPUT'ENTER MEAN RADIUS IN INCHES" ;A 

1620 INPUT'ENTER LENGTH OF COIL IN INCHES" fB 

1630 L=((N*A) [2)/((9'A)+(10*B)) 

1640 PRINTiPRINT "GIVEN THE ABOVE DATA, THE INDUCTANCE = ";L 

1650 IF PS-"N" GOTO 1710 

1660 LPRINT"NUMBER OF TURNS = ";N 

1670 LPRINT'MEAN RADIUS IN INCHES - ",-A 

1680 LPRIHT'LENGTH OF COIL IN INCHES = ";B 

1690 LPRINT" INDUCTANCE IN MICROHENRYS = ";L 

1700 FOR X=l TO 5:LPRINT CHRS(13>;" " : NEXT 

1710 AS=INKEYS:IF A5 = "" GOTO 1710 ELSF. 1520 

1720 CLS:PRINT"CALCULATE NUMBER OF TURNS" 

1730 INPUT "ENTER LENGTH OF COIL IN INCHES";B 

1740 INPUT'ENTER INDUCTANCE DESIRED";L 

1750 INPUT'ENTER MEAN RADIUS IN INCHES";A 

1750 N=(SQR(L*((9*A)+(10*B))))/A 

1770 PRINT;PRINT"GIVEN THE ABOVE DATA, THE NUMBER OF TURNS REEDED FOR DESI 

RED INDUCTANCE = " ; N 

1780 GOTO 1650 

1790 END 



C/BS SAVES YOU TWICE 

•Only $39°" each! 
•You can recouer ihe cost the first weekl 
*** **•*•**#****♦****** 

Introducing 'MNVOICEM" - Models I Sill 

• Print invoices from Radio Shach inventory Controt 

I package (#26-1553) 

• Produce plain-paper invoices by entering Stock 
No. and quantity. Description and price retrieved 
from Inventory file. 

• Prices extended and totaled. 



• Manual entries allowed. 
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********************** 

/nfroducing.- "SERIES-PRINT" -Model II 

• If you use VISICALC for more than Ivjo tiles 
"SERIES-PRINT" will gieatly benefit you, 

• Print up to 100 VISICALC DIF (iles without 
□ peratot intervention 

• No longer necessary lo load a file, print, load 
another, print, etc., etc... 

•Tell '-SERIES-PRINT" a range of file names and 
relax while your computer does your printing. 

• Requires 64K Model II witti 132-character printer 
(and, of course, VISICALC) 
********************** 

COMPUTER ( BUSINESS SERVICES 

28333 SuPurban Drive, Warren, Ml 48093 
V/s(Ca/c & DIF are trademarks ot VIsiCorp. 



POCK ET COM P UTER USERS 

Here is what you hove been looking for lo 
protect and transport your complete TRS-80, 
PC-1. PC-2 or Sharp PC 1211, PC-1 500 Pocket 
Computer Systern. 

1 HH PC SYSTEM ATIACHH C ASE 

A durable, handsomely molded black cose 
with two drawbofi keylocks. The interior 
hqs a soft foam lining which is cut lo safely 
hold all this. 

•Pocket Computer 
•Printer Interioce 
•Power Supply'Charger 
• Small Tope Recorder* 
•Two Rolls of Printer Paper 
Plus Room For Manuals Etc. 

PI.1;ASE SPECIFY: 

pC-1, PC-121 1 SYSTEM CASE- 54.50 

PC;2, PC-i500 SYSTEM CASE - 59-50 

"Instructions Included On How To Make Cut 
Out For Your Own Smoll Tape Recorder 

SHAl.H Dl\ EHSIFIED EN IKRPRISHS 

108 Ferris Ave., Chardon, Ohio '1402'J 
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Maxell Floppy Disks 

The Mini-Disks 
with maximum quality. 





Dealer inquiries 
invited C.O.D's 
accepted. Call 
FREE (800) 235-4137. 



PACinC EXCHANGES 

100 Foothill Blvd. San Luis 
San Luis Obispo. CA 93401 
In Cal. call (800) 592-5935 or 
(805)543-1037. 
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COMPUTERS ARE FAST . . . PRINTERS ARE SLOW. That's a 
problem more people are realJzingevery day as they wait for 
the slow printer to finish before they can use the fast 
computer again. Technology has come to the rescue by 
designing an electronic device that takes the output of the 
fast computer fast and feeds it to the slow printer slowly, as 
the printer needs it. It's called a printer buffer, 

SLAVE DRIVER-'* is an inexpensive, universal printer buffer. 
It can be used with all popular micro-computers that have a 
Centronics parallel port to the printer. SLAVE DRIVER© 
Q receives information from the computer at up to 4000 
characters per second and holds it until your printer can 
handle it. Your SLAVE DRIVER© is controlled by a custom LSI 
and uses standard Centronics signals. 

60 SECOND INSTALLATION 

SLAVE DRIVER© is designed to be plugged directly into the 

input port of the Epson and other similar printers. It is 
powered by the printer or an AC adapter. Other Centronics 
compatible printers can be attached using the adapter cable. 
Installation can be completed in less than 60 seconds. lust 
plug it in. SLAVE DRIVER© takes up little space; about the 
size of a paper back book. Such a little fellow for such a big 
job! 

EASY USE AND FLEXIBILITY 

SLAVE DRIVER© is completely transparent to the user, no 
machine language programming to learn, no control codes 
to send, no programs to change. The buffer-full light and the 
reset switch give full flexibility of operation. List your 
program to SLAVE DRIVER©, return to programming while 
the listing prints. Dump a lineof data to SLAVE DRIVER© and 
compute the next record while the data prints. Send 
complete reports to SLAVE DRIVER®, make disc back-ups, 
even turn off the computer and go home. SLAVE DRIVER© 
oversees the printer until all the work is done. 

JUDGE FOR YOURSELF 

Each SLAVE DRIVER© comes complete with interface cable, 
power supply, instruction manual, 30-day money-back 
guarantee and limited one year warranty. To order send 
your check or money order to the address below: $189.95 for 
the expandable 8K model (holds approximately a 4-page 
letter); $289.95 for the 64K model (holds a 32-page double- 
spaced report). Please include $3.50 for shipping. Visa and 
MasterCard users may phone 703/228-5800 to hasten your 
order. (VA residents please add 4% sales tax) 

IN STOCK AND AVAILABLE NOW 
FREEE>OM MICRO-SYSTEMS 

Star Route 1 • Wytheville, VA 24382 
703/228-5800 



are to use over ten components 

for a desired operating point you 
may be doing something wrong. 
When program execution be- 
gins, the following main menu is 
displayed and you select the 
topic of your choice. 



Main Menu: 

(1) Ohm's Law for Direct Current 

(2) Resistance Formulas 

(3) Capacitance Formulas 

(4) Inductance Formuias 

(5) Coii Winding Formulas 

Once you have selected from 
the main menu, a second menu 
is displayed. It you selected re- 
sistance formuias by entering 
number two from the main 
menu, the following category 
menu would be displayed. 



Resistance Formuias: 
Do you wisli to caiculate: 

(1) Resistors in Series 

(2) Resistors in Parallel 

(3) Return to Main Menu 

Enter Choice? 



At this point, you enter the 
number (1, 2, or 3), which repre- 



sents the circuit configuration 
you are working with. For ex- 
ample, enter 2 if you intend to 
combine the resistors in paralfel. 

Once you have made this 
choice, the program proceeds 
as follows asl<]ng you to enter 
the number of resistors in pa- 
rallel in the circuit. 

Enter the number of resistors 
you intend to combine. For ex- 
ample, use 2. The program next 
asks you to enter the resistance 
(in ohms) of resistor number 
one (I shall use 75 ohms as my 
example), and to enter the resis- 
tance (in ohms) of resistor num- 
ber two (100 ohms is my second 
choice). The program will then 
display the total circuit resisr 
tance which in this example is 
42.8571. 

This is the resistance obtained 
when you combine 75 and 100 
ohm resistors in parallel. The pro- 
gram will stop at this point until 
you press a key (any key con- 
tinues program execution). When 
a key is pressed, the program will 
return to the resistance formulas 



FREQUENCY 
INDUCTANCE 


775 MEGAHERTZ 
8.4345 MICROHENRIES 


INDUCTIVE REACTANCE ***•**»****•** 
INDUCTANCE = 8.434 5E-06 HENRIES 
FREQUENCY = 7.75E+08 HERTZ 
INDUCTIVE REACTANCE = 41050.7 OHMS 


CIRCUIT RESONANCE *********************** 
FREQUENCY = 77 5 MEGAHERTZ 
INDUCTANCE = 8.43 4 51 MICROHERTZ 
CAPACITANCE = 5.00002E-03 PICAFARADS 
RESONANT FREQUENCY = 775.398 MEGAHERTZ 


CAPACITIVE REACTANCE ******************** 
FREQUENCY = 7 .75001E-1-08 HERTZ 
CAPACITANCE = 5.0 0001E-15 FARADS 
CAPACITIVE REACTANCE= 41093 OHMS 


IMPEDANCE — CAPACITANCE AND INDUCTANCE IN PARALLEL 

INDUCTIVE REACTANCE = 41050.7 OHMS 
CAPACITAVE REACTANCE = 41093 OHMS 
TOTAL IMPEDANCE = 3.99561E+07 


FILTER DESIGN 
************* 




8.43451 u 
* * ** 

11 11 


H 


11 11 
— { )" 

5.00002E-03 Pfd 




Figure 1 
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FRICTION FEED FOR YOUR EPSON 

MX-70-MX-80 



■ MX-70 and MX-80 a<e Traflen 



-..f CfSON In: 



Converts your printer for friction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

SIMPLE Installation (all you need 
is a screwdriver, no soldering). 

Tractor feed remains 
undisturbed. 

Only 539^ = 

(add SI .50 tor postage) 
SATISFACTION GUARANTEED OR VOUR MONEY BACK 




^161 MICRO-GRIP, Ltd. 
p. O. Box 4278 

VISA L f;;f'^^ Card Accepted ^^^^^ ^^g ^A 92409 

714) 864-6643 
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RS-80 




FORTH FOR THE TRS-80 COLOR 
COMPUTER DISK SYSTEM 

Trying to get control of your Color Computer?? Tired of 
translating HEX to decimal?? Tiretd of remembering where the 
VDG and SAM are and how to program them?? Want to write 
machine language code with assembly language mnemonics in- 
stead of POKES?? 

Want to write programs in half the time?? Want to write lots of 
small pieces of code that you can put together in seconds to do 
BIG JOBS??? Want a language that is at least 5 to 10 times faster 
than BASIC??? Want to learn everything there is to know about 
FORTH, with the best manual on the market, including lots of ex- 
amples of FORTH applications, and detailed explanations of how 
everything works?? 




PORT! 

Includes Edilor, 6809 Assembler, String Funclions, 
[")i5li Data File Ooerations and Munh Much Morei 



NOW ONLY 




130 MIDTOWN PLAZA. SYRACUSE, NY 132T0 (315) 474-7856 



se £as*/ 



To Handle 
LISTS i£^ I^IAILIIMGS 

EXPENSE LEDGER — Files entries and generates 
reports on business or personal expenses. Sorts by date, 
finds and displays on-screen or prints out all expenses, 
month summary, or selection by payee, purpose or 
category. 15 categories assigned by user, displayed on 
screen when entering, editing or deleting. 48K version 
holds 470 entries, 32K holds 200 - use for year, 
quarter or month. S35, 

MAIL LIST MANAGER — Holds 1,000 names and 
addresses in 4BK two-disk version or 400 in one-disk 
32K version. Sorts by zip code or name [lightning fast in 
machine code], prints labels one-up or two-up, selectable 
by any combination of user-entered Print Key or 
geographic area. Prints full list in notebook format. Two- 
disk version $50, one-disk $45. 

DISK LISTMAKER — User-friendly simple database, 
holds 1 ,000 names or items plus 5-digit codes in 48K, 
500 in 32K. Displays on-screen and prints out lists and 
sub-lists. Full editing, sorts by name. Disk version of 
original cassette program in use by schools, real estate 
firms, many Individuals. S20. 

For Models I or III [with DOS conversion] 

Write for full catalog of disk &, cassette programs 

California residents add 6% tax 

MANHATTAN SOFTWARE 

Box 1 D63, Woodland Hills. CA 91 365 ^ ^59 
24-hour Visa/MC Order Line [213] 704-8495 



h' See List of Advertisers on Page 455 
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category menu. 

From this point, you can ex- 
amine the results of connecting 
different resistors or return to 
the main menu. Breal< stops pro- 
gram execution. 
Resonant Frequency 

Determining component val- 
ues of resonant circuits for 
filters or amplifiers involves 
time-consuming calculations. 
Since thie resonant frequency 
determines ttie frequency at 
which the circuit will operate, 
make these calculations accur- 
ately. This program takes the 
time and effort out of this pro- 
cess and reduces human error 
in making the calculations. 

Enter the component values 
as instructed during program 
execution. The computer calcu- 
lates: inductive reactance, capa- 
citive reactance, circuit imped- 
ance, and draws the parallel 
filter circuit with component val- 
ues needed to achieve the de- 
sired resonant frequency. This 
sample execution describes this 
process more fully. 

First, enter the resonant fre- 
quency you wish to obtain. I will 
use 775. Then enter the capaci- 
tance in picofarads. In working 
with these circuits, I found I 
sometimes know the capaci- 
tance I intend to use and at 
other times I know the induc- 
tance. For this reason this 
program calculates either 
capacitance or inductance. You 
must enter resonant frequency 
and either capacitance or induc- 
tance, If you know the capaci- 
tance you would like the circuit 
designed around, enter that ca- 
pacitance. If not, enter any trial 
value. The program will ask you 
to enter inductance. In this sam- 
ple run, I shall assume ignor- 
.ance of the capacitance, and 
enter five here and let the pro- 
gram continue. 

Next enter inductance in 
microhenries. I shall use 8.4345 
microhenries in this example. 
The program now has all the in- 
put necessary and vi/ill make the 
calculations, print these values, 
draw the filter circuit and list its 
component values (see Fig. 1). 

Table 3 shows the formulas 
this program uses. 

BAND/REJ 

When working with a radio 
378 • 80 Micro, November 1982 



frequency circuit or even when 
receiving a weak radio frequen- 
cy (rf) signal in the presence of a 
strong one, you often need to 
block an interfering signal or 
band of signals. A band reject 
filter constructed with capaci- 
tors and inductors prevents un- 
wanted rf energy from entering a 
circuit. When using this filter, 
you select a range (band) of fre- 
quencies you wish to block. 
Once you have selected this re- 
ject range, calculate the neces- 
sary values of capacitors and in- 
ductors which, when combined 
correctly, will block this un- 
wanted band of frequencies. 
Frequencies above and below 
the limits you set for the filter 
pass without interference. 

The BAND/REJ program elim- 
inates the tedious calculations 
in finding the correct values 
of the electronic components 
needed to reject your specific 
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Resonant Frequency = 1 - 

Where: 

L = Inductance 
F = Frequency 
C = Capacitance 
n = 3.1d 
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Line Load 

Table 4 
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4.77 MICROHENRYS 
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Figure 2 
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Some manufacturers charge ya>u an arm and 4 lB|^|tt|l 

their Model-III# disk controller and^if» H 99|^^iipi!^ 

ivith 5" floppy drives. f <^^ ^ , 

, Some manufacturers sell controllers with cheaply 

''^WM4mB^ boards. These boards have poorly plated holes 

ltiil|ll^!!!^ltt sometimes become intermittent. None are UL, 

approved. Check our features and compare. 

Almost none of the competitive boards faip«^||i^<^; 
jplated card edge connectors for reliability^ 
;■ Some manufacturers sell controllers with piiu^ of the 
,ipower supply included on the PC board to generate ex- 
cessive heat to keep your disk controller warm on cold 
(and hot) days. 

:t-:- Some manufacturers get creative with their data 
•eparator circuitry to save money. These data separators . 
generally work only with single sided disk drives. 

Some manufacturers put only one connectcnr on their 
PC b<»ard and give you a non-detachable umbilical cord 
hanging out the bottom to constantly getJ^^^piNNV imj^ 




a Gold Plated Card Edge Connectors for Reliability D PiM^|MM##igital Phase Locked 
^oop for NO MAINTENANCE operation with P0|jpi£ SH^lD l>m^S D FuUy compatible with 
the Nodel-lII# computer system D Temp!n(^|it)#« Compensated Data Separator Circuitry 
G Aerospace grade PC board material D PC board material is UL Approved (R2 194V-0) D Con- 
trols 5V*" Single and Double Density Drives D Controls 8" Single and Double* * Density Drives 
□ Controls Double Sided Drives D 180 Day Warranty D Switching Power Supply & Installation 
';Kit available at extra co«t.'-. , ;^:{-. 



*B.T. Enterprises (NY) 
Compuldt (Houston) 

*Data.Mail (LA) 

' freedom Technolosy (Rft) ' 
Kif Computers (N.CA) 

*Level IV Products (Mich) 
Micro Data Supplies (Oh|ij)> 
|l|Gi;QFjBct^ (Floiri4a) 



(516) 981-8568 
(713) 474-7342 
(213)993-4804 
(215)569-2381 
(707) 425-3472 
'1313)525-6200 
j^61) 951-6502 
:^ia) 876-4287 

?ief . ii. .'-4 i --M 



NlloSystems (Mich) ~ 

Micro Systems Software OFtO^iM^ 

Pioneer Elec:tronics (Oregon) . 

Racet Computes (LA) 

Stevens Radio Shack (PA) >; 

Texas Computer Syst. (Dal|»^>'; . 

Traxx Computwr (Glda^o!^ 



(517)487-4500 
(800) 327.8724 
(503) 668-8666 
(714) 997-4950 
(800) 345-6279 
(800) 433-518^ 



- pealer Inquiries Appfeciaied ; 1 

Micro Mainframe can supply your component parts at attractive prices. We also have a 9e0$^ii§[ 
^witching power supplies availal^ l4iiv|Mi^ £^qi|l^^«^ disk subsystems. Ple^|p^|nip:i>V 

^«rite with your requirements. , /,■'■ v V.'''^^^^;^/- ''''':■■■'''..' ^b- 



'|t3^^nris<l . ^ _ _ 



■"./f' ■"■■:-'';- 



*U^ff,^amm,^mf^itHm^9^]^'f'^>^^ ■■ ■''^i^ilMw'flw^tftl!-!!";*!!^^!^ 




A powerful 
base manager. 

Data-Writer con be used 

with your word processor or by 

itself OS a complete stand-alone 

system for managing textual and 

numeric data. 

y 

J' Use for order tracking, client billing, 
expense recordkeeping, operational 
reporting witti totals and subtotals, form 
letter production to a large list or a subset, 
mailing list maintenance and ottier business 
and personal applications. Data-Writer's ease 
of use appeals to secretaries. 

• Data Entry program to create your data base or add 
records to an existing data base It t^os error ctiecking fea- 
tures and supports both fixed and variable iengtti fields. 

• Mactiine-longuoge File Editor lets you edit your data 
base without on independent word processor Or, if 
you prefer, use your own word processor (Electric Pencil, 
Lazy Writer, Newscript or Scnpsit) to create and edit 
your data base 

• Field Manager that lets you add, delete, re-order or ap- 
pend fields and merge or split data bases. 

• Interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters 
using numbers you enter and your data base field labels. 
It includes an in-memory scratch pod to store temporary 
values. 

• Two-level Sort that enables you to sort on any field, with- 
out having previously designated it as a key. 

• Mailing Label program ttiat allows you to print multiple 
labels from one to four across and to insert a fixed mes- 
sage on every label. 

• Machine-language Form Letter processor that allows 
you to insert doto from your data base into o form letter 
or contract, store the text for use later 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtofols, and 
sophisticated formatting control. 

• Powerful Select-tf command that lets you define a subset 
of your data base With Select-lf and Sort, you can create 
dozens of new data bases for specific purposes 

• Statistical check on your data base to locate data 
entry errors. Stats olso reports maximum entered data 
length for each defined field, a tremendous old when 
designing o report. 

• Data-Writer Is both powerful and easy to use. "Why 
hasn't someone done this before'" 

For the TRS-80 Model I/Ill (48K, 2 disk drives, lower case re- 
quired). Available from Software Options, 19 Rector Street, 
New York, N.Y. 10006 212-785-8285. Toll-free order line: 
800-221-1624. Price: S125. (plus S3 per order shipping and 
handling) New York State residents odd sales fax. Visa/ 
Mastercard accepted. .i^ammm^ 

SOFTWARE 
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S ''ange of frequencies. Enter the 
! -.-w and high frequency where 
the signal will be blocked. The 
only other input is input line 
load. Once you have entered 
these three values, the program 
calculates all component values 
and draws the filter circuit on 
the line printer. A sample execu- 
tion follows, and a list of for- 
mulas appears in Table 4. 

First, enter upper frequency 
in megahertz, then enter lower 
frequency in megahertz, and 
then enter line load In ohms. 

In my example I shall use 775 
megahertz (MHz) for the upper 
frequency, 770 for the lower fre- 
quency and 75 ohms for the line 
load. These values are all you 
need supply. The program cal- 
culates the component values 
needed to block this range of 
frequencies, then lists these 
values on the line printer and 
draws the filter circuit with all 
component values listed on the 
circuit (see Fig. 2). 

Lowpass 

You can often design an ac- 
tive filter by using a standard cir- 
cuit normalized to a base fre- 
quency. To use this process in 
designing your filter circuit, be- 
gin your analysis with the nor- 
malized circuit. There is a wide 



variety of these circuits, each 
with its own advantages and 
disadvantages. This program 
uses the equal-component-val- 
ue, Salen-Key, second-order low 
pass filter circuit. 

To look at this base frequency 
circuit, load and run the Low- 
pass program. When program 
execution begins, this circuit 
(normalized to 10k and IKHz 
cutoff frequency) is drawn on 
the line printer (see Fig. 3). This 
shows you what the circuit 
looks like and the component 
values needed to establish the 
normalized frequency. 

To modify this circuit to work 
at your particular cutoff fre- 
quency, enter your cutoff fre- 
quency and which component 
you wish to vary (resistors or ca- 
pacitors) when instructed to do 
so by the computer. In my exam- 
ple I use a cutoff frequency of 
2KHz and vary the capacitors. 
The computer redraws the filter 
circuit with the new component 
values to obtain your operation 
frequency (see Fig. 4). 

Be sure your cutoff frequency 
is within the operating limits of 
the integrated circuit being 
used. The program does not de- 
termine the suitability of this cir- 
cuit for your use, nor does it de- 
termine if the frequency you 



EOUAL-COKPONENT-VALUE , SALLEN-KCl' SECOND-ORDER LOW-PASS FILTER 
NORMALISED TO IflK AND IKHZ CUTOFF FREQUENCY 



39eElf 



[ i, 



. . QUT 



10000 . li 



SYMBOL TA6LE 

[ [ [ [ I RESISTOR (IN OHMSI 



CAPACITOR (IN HICAFARADS) 



Figure 3 
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Give Your TRS-80' a Tremendous Boost 
with RACET COMPUTES Software 

RACET COMPUTES Utility Software makes the TRS taster, more eificient, 
and easier to use. Our programming aids improve your productivity. 
Our reputation is for products ttiat are professional in design and worl< 
as advertised!!! 

* NEW SUPERZAP For Radio Shack HARD DISK DRIVE • S100 
Recover Blown Files!! Now you can directly access, modify, copy, zero, 
or print any sector on your Radio Shack Hard Disk Drive - under either 
Version 4.0 or 2.0(a) Also mciuded in this package is a HFiNO utility to 
facilitate a disk search for a specified string. Documentation includes a 
description of the Version 4.0 directory structure. 

• • Modem Fast Backup Utility •• $75 
5 TO 10 times faster backups!!! Full disk backup (including verify) in 
55 seconds!!! on two drive system — 2.15 on single drive system. In 
business, time is money, and one BACKUP is worth 1000 tears!! 

RACET COMPUTES Utilities & Programmer Aids 

Generalized Subroutine Facilities (GSF) Mod I $25, Mod III S30, 

Mod II $50 The STANDARD against whicti all other sorts are compared! 
And ffien compare price!! fvlultj-key multi-vanabie ^nn multi-key 
ctiaracter string softs. Includes zero ano inove sriays c.''"i sample 
programs 

DISCAT Diskette Cataloging Sysiem (viod i and Moc) 11! S5ii 1^,-, 
compretiensive Diskette GatalQgumg.'indexing utility .isHows theubei lO 
keep track of thousands of programs '-n a ■-,il.;gori7pri library Machine 
language program works wjttl TRSDOS and NE'vVDOS vfirsfOiis (please 
specify).'Fi!es include program namtis and evtenr.ion?;, program fength, 
diskette num&ers. 

Infinite BASIC Modi S50, Mod iff StiO Exicfid.s Level r BASIC with 
complete Mairix^ Functions and 50 n:o-e sti:rig umctiiMv; Includes 
RACET fn-memory sorts!' Select only lliose i'lf.ctlons you want to 
optimize memory. 

Infinite BUStNESS {Requires fflfinite BASIC) Mod I and iii $30 Complete 
printer pagination controis, hash codes, binary array search, and 
packed, decimal arithmeticflJT-digit accuracy). 
COMPROC Command Processor fV!od i and Mod 111 $30 Auto your disk 
to perform any^equence ol inst-y.'i ^du can give from the 

keyboard!! Ideal for setting up.dedicated applications. 
Disk Sort/Merge (DSM) Mod! $75, Mndftt $90 Mod li $150 All 
machine language stand-alone R.iii!!o: t t ' ickage. Establish sort 
specification in simple BASIC comiidiiu I jorts multiple-diskette 
files. Only operator action is to switch diskettes wtien instructed. Super 
last sort times - improved disk I/O makes this the fastest Disk Sort/ 
Merge available. 

KFS-80 Keyed File System Mod I and III $100, Mod II $175 Machine 
language BASIC ISAM utility provides keyed and sequential access to 
multiple files. Simple interface to BASIC Binary tree index system 
provides rapid access to records. 

Utility Package Mod II $150 Recover blown diskettes. Includes 
Superzap, bulk copies, and other utilities for repair of blown diskettes. 
Complete documentation on diskette structure and guidance for repair. 
Other utilities include Dynamic DEBUG (with single-step, trace, sub- 
routine calling, program looping and more), XCR, DISKID, Directory 
Catalog System. XPURGE. 

Development Package Mod II $125 Includes RACET Superzap, 
Apparal Disassembler and Model II interface to Microsoft 'Editor 
Assembler + and documentation for Mod I and uploading service. 
Assemble directly into memory. ivlACRO facility, save all or portions of 
source to disk, extended editor commands. 

Basic Cross Reference Utility Modi! $50 SEEK and FIND functions for 
variable, line numbers, strings, keywords. 'AIT options available for 
line number and variables. Load from BASIC - call with control 'R' 
Output to screen or printer. p_ _q 

p- RACET COMPUTES i-To—n 

L*_ Injegrity iri Soltwarfl ^J 

ia.inw niasseN.SulteM,0>aii9e.CASSee7|?14)9fl7-«9M 

CHECK, VISA, M/C, COD, PURCHASE ORDER 
TELEPHONE ORDERS ftCCEPTED (714)997-1950 ^41 

■TRS-80 IS A HtGiSTEPFR TRADLMARK OF TAKD^ COflPORATION 
CIRCLE READER RESPONSt FOR FRfct CATftlOli 



FIELD PROVEN 

5 to 140 MEGABYTES On Line for the TRS-80* Model II 

Winchester and Cartridge Disk Drives available for immediate delivery!! 

5 MEGABYTE Winchester Disk Drive — CALL for PRICING 
LOWEST PRICES AVAILABLE ANYWHERE!! 




14+ Megabyte (formelted) ARM Winchester Disk Drive $3895 

Includes ECC error detection and correction, FAST. Service Contract 
Available ($30/month/drive)- 

20 Megabyte CIt Honeywell Bull Cartridge Drive $7995 

10 Megabytes fixed, 10 removable for the professional installation 
reguiring Removable Media BACKUP 60 and 1?0 Megabyte add-on 
Winchester drives available. 

10 Megabyte Cameo - Western Dynex Cartridge Drive $5995 

5 Megabytes fixed, 5 removable for the smaller professional installation. 
Removable Ivledia BACKUP. Multiplexer available tor up to four users!! 

HARD / SOFT DISK SYSTEM (HSDS) SOFTWARE 

HSD3 is available for the Radio Shack {2.0{A; compatible}, Cameo. 
Cynthia Bull, ARM, Corvus, QCS, Data Penptierais, and Santa Clara 
Systems hard disk systems and others!!! 

Compatible with your Version 2.0(a) TRSDOS files. Compatible with 
your existing BASIC programs and files. Compatible with most machine 
language programs that use the standard calling sepuence. You can 
access both your floppy disk drives and HSDS fifes interchangeably!! 
Complete utilities include HZAP (Hard Disk SUPERZAP), Directory 
Catalog System, Parameterized FORMAT, HPURGE (Bulk Copy/Purge 
Utility) and others. 

The Hard/Soft Disk System (HSDS) Software has more than One Year's 
FIELD Experience, The latest HSDS version adds several enhancements 
including maintenance of system fiies on the hard drive, files as large 
as the disk, the ability to segment the disk as logical drives, and defin- 
able directory size. Uses 3,2K memory. Mixed floppy and hard drive 
operation is supported. 
HSDS for Radio Shack $500 
HSDS for Other Drives $400 



ACET COMPUTES LTo-^ 

Integrity in Software mmmi 
1330 N. tilassell, Suite M, Orange, CA 92667 (714) 997-4950 



i CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS — 
BUY WHERE YOU CAN GET SOFTWARE SUPPORT!! 

CHECK VISA. M/C. C. 0.0. ON CERTAIN HARDWARE 
TELEPHONE ORDERS ACCEPTED (714) 997-4950 
'TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORPORATIOW 
CIRCLE READER RESPONSE FOR FREE CATALOG. 




^468 



^See Lisi ol Advertisers on Page 455 
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BASF 6106A 
DISK DRIVIS3, 



■i .,ed to new unil performancB, 40 tri.„j.. , ^ ;,, „^^ , , , „ j, JD or DO. 

Compatible with TRS 8Q* MOD ), III and color also Heath 8J9 computer. 

BARE DRIVE '. . $124.95 

2-DRIVE CABLE 21.00 

4 DRIVE CABLE 32.00 

TECH MANUAL 10.00 

iSnld only uvith tirivei 

DUAL, ,o „,....SE ;4.iij 

DUAL P;S (BARE) 59.95 

SINGLE P.'S W;CASE 44.95 

SINGLE P,'S (BARE) 34,95 

Cases finished m black wrmklii Calnr optior;s available, add S2.00. Specify 
color: Tan, B\<f r.iff,, Sil^nr 

DUALP;SW,'CASE 54.95 

SINGLE P,'SW,.'CASE :^-' "^^ 



BASF DRIVE REPAI 
P^^OO PLUS PARTS 
Y GUARANTEE 



Terms: 

Add 3% Visa/MC, COO, M.O. cashier's check, personal checks delay shipment 

^^"■^ '" COMPUTER PERIPHERAL RESOURCES 

(C.P.R.) 
P. 0. BOX 834, OAK HARBOR, WA 98277 
or PHONE (206)67 9 47 97, ORDER NUMBER ■"'^'^ 

All shipping UPS ground, western states add $4.00, midwest and east add 
$6.Q0. Washington residents add 6% sales tav. 



c5^cQ^Maj7 Electronic nmil rckup and deuv'^r^ 

The unique Automated Computer Elec- 
tronic Moil package allows you to send ond 
receive ASCII files froni your COMPLETELY 
UNATTENDED TRS-SQi ACEMAIL can receive 
remote colls os a HOST and place PRESET 
CALLS OS a TERMINAL. 

Written exclusively for the Hayes Stock 
Smartmodem ond the TRS-80 model l/llid8K 
with disi<, ACEMAIL operates on 
DOSPLUS or NEWDOS/80 and comes 
supplied on tiny' DOSPLUS reody 
to run! 

HAYES STACK SMARTMODEM 1200-$619 

HAYES STACK SMARTMODEM 300— $239 

ACEMAIL 1200 SOFmARE-$119 

ACEMAIL SOFTWARE-$79 






HW. 3rd St. Deerfield Beach, FL 33441 
:,iE^Q.<305) 427-6300 / Voice (305) 427-1257 
1-80&327-22S3 WCA'isa acceptea fl residents odd sales to. 
Freight inci (UPS ground cont USA) 
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select Is within the ICs operat- 
ing range. You must determine 
these facts for yoursell. The 



computer will assume your 
desired operating frequency will 
work and will draw a circuit. ■ 



LOW PASS ACTIVE FILTER 
CUTOFF FREQUENCY = 2 



-[[[{I 
39000 



* I 



I * 



39000 



741 



. * r 



[[[[[ * [\\{{ * 

10000' ". 10000 



BE-03 OF 



SYMBOL TABLE 

[ [ [ [ [ RESISTOR (IN OHMS) 



CAP.^CITOR {IN MICAEARADS) 



Figure 4 





Program Listing 3 


10 


CLS 


20 


:NPUT "ENTER FREQUENCY IN MEGAHERTZ "; F 


30 


-NPUT "ENTER CAPACITANCE IN PICAFARAD' ; C 


40 


LC=25330/{F[2j :L-LC/C 


50 


'RINT "INDUCTANCE NEEDED TO OBTAIN CIRCUIT RF.aONANCE = 


60 


'HINT L;" MICHOHENRYS' 


70 


.NPuT "PRESS ENTER TO CONTINUE';AS 


80 


"LS 


90 


>RINT"INDUCT1VE REACTANCE- 


100 


PRINT "XL-2* PI «F*L" 


110 


PRINT 


120 


LPRINT "FREQUENCY = ";F;- MEGAHERTZ" 


130 


F=(10i6)*i' 


140 


INPUT"ENTER INDUCTANCE IN MICROHENBIES"; I 


150 


LPRINT "INDUCTANCE = ■;r;"' MICROHENRIES' 


160 


I-(10[-6)*I 


170 


FOR J=l TO 5:LPRim' CHRS(13),-' " : NEXT 


180 


XL=2*3.14*P*I 


190 


PRINT 'INDUCTANCE = " ; I ; " HENRIES" 


200 


PRINT "FREQUENCY = ";F;" HERTZ" 


210 


PRINT "INDUCTIVE REACTANCE = ";XL;" OHMS" 


220 


LPRINT "INDUCTIVE REACTANCE •*'•.*..***.**■ 


230 


LPRINT"INDUCTANCE = "jl;" HENRIES" 


240 


LPRINT-FREQUENCY = " ;F; " HERTZ" 


250 


LPRINT'INDUCTIVE REACTANCE - ";XL,-" OHMS" 


260 


FOR J-1 TO 5:LPRINT CHRS(13);' ":NEXT 


270 


CLS 


280 


GOSUB 5 50 


290 


XC=1/(2*3.14*F*C) 


300 


PRINT "FREQUENCY = "fF;* HERTZ" 


310 


PRINT "CAPACITANCE = ",-C;' FARADS" 


320 


PRINT"CAPACITIVE REACTANCE = *,-XC,-" OHMS' 


330 


LPRINT "CAPACITIVE REACTANCE *»»**»*'••■'*••"*•'- 


340 


LPRINT "FREQUENCY = "jF;" HERTB" 


350 


LPRINT "CAPACITANCE = ",'Ct" FftBADS" 


360 


LPRINT "CAPACITIVE REACTAMCE= ";XCj" OHMS" 


370 


FOR J=l TO SiLFRINT CHR?113);" "lUEXT 


360 


CLS 


390 


PRINT "IMPEDANCE — CAPACITANCE AND INDUCTANCE IN PARALLEL" 


400 


IF XL<XC GOTO 430 


410 


Z=(XL*XC1/(XL-XC) 


420 


GOTO 45 
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An exciting hew game from the com- 
pany that is setting the standards. 
Colorful fast action play with arcade 
quality sound effects. 1 or 2 players. 

Pause feature. Demonstration mode. 
High score. Multicolored high resolu- 
tion characters on a black back- 
ground. Smooth accurate joy stick 
control. 100% machine language. 

Cassette— $29. 95 Disk— $34.95 
Add $1 .50 for shipping; 4% tax in Mich. 

VISA, MASTERCARD OR CHECK 
DEALER INQUIRIES INVITED 





: ^wivliVIUNiCAi" [UNS 

SETTING THE STANDARDS 

6048 Horizon Drive, East Lansing, Ml 48823 

TRS 80 Color Computer is TM of-Tandy Corp ' v-336 



Which TRS-80 
Do I Buy . . , 



Accounting Software 



That's a tough queslion. I knqw, I, asked it myself not very long ago. I'm Mike 
Motta. As president of Sha^vmut Systems, specialists in TRS-80' custom solt- 
Mvare, my customers were asking me for Model tl and 16 Accounting Sotlware 
— GL, AR, AP and Payrolj. But 1 said "Why write the software. There nniisl be a 
good package already available." So I searched for the best I could find. And I 
found it! 

Now, when I tell you that these are the liest Accounting programs I've seen on a 
microcomputer, you probably think that you are just listening to another sales 
pitch. But you're not. You're listening to a businessman with oyer twenly years 
combined experience in sales, management, and programming. So when ! say 
that these programs will work for you. it really means something. 

Each program, designed for the Model 1 1 or 16, will work With one or more floppy 
or hard disks. With each program, I'll include a 200 page manual written with 
the first lime user in mtnd, and a set of sample data files so you can start using 
the program right away. 

But I won't stop there. 11 you have a question, or a problem, call me. You won'l 
get an operator, or order taker. You'll get me. And ifl can't talk to you on ihe 
spot, I'll call you back. And I'll fix your problem. FAST. 

Now I could say a lot more about these programs, but you really won't know 
flow good they are until you try them. So, order the programs you need, and iry 
them for 14 days. If you're not convinced that these are the programs for you. 
send them back, and I'N refund your money. 

tvly pnce for these programs is only $289.00 each, postpaid. I could charge hun- 
dreds more, but I want you to have the best programs at the best possible pnce 
So mall or call your order in today ril make, sure youK be salisfieO. 



Model 11/16 Accounting Software Packages 



Accounts Receivable , $289 

General Ledger $289 



Accounts Payable 
Payroll 



.S2iJ9 
.$289 



SHAWMUT SYSTEMS 

105 Circle Drive • PO Box 324-A 

Somerset, MA 02726 

(617)672-9794 



Ask about our Model I and I 
versions. 

•TfiS-80 is a Trademark 
of Tandy Corp, 



Send check, money order or 
Visa/MC number 



Mass. residents adt 
5% sales tax. 
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; Ready to Run Sofprn^fe 

■ from 'Canadian Computer Ser'i^ftca^"' 
Data Management Systems - Including the Data! 

RETRIEVAL SYSTEM 80 

ieous access to all of the articles and 

S.Jr)..'ttl.e-niagazine for TRS-80' users';,, 

..■}S{~ :'t''^:,.M^^i Random Access Retr^vat 
Super Fast Z80* Index Search and Scan 
3X Search by One to Three Criteria-Keys 
erence Help Page, Hardcopy and Sound 
sy.,to Use Single Entry Menu Commands 

ARCHIVE RETRIEVAL SYSTEM 

■ reate and maintain your own magazine archives 
with all of the above great features, plus: 

;,-^: ,, ^ '■,.,;;; User Defined Search Keys 

'.u-'-^i'^:: ■■'■;;:■ ■■■""280 Data Entry and Edit Routines 
y- . -,. Super Fast In-Memory Key File Sorting 
^^00 M©#.0^'*/fU':IStecords Per Data Disk 

HEAN to run DATA DISKS 

K.^:^'- '■''■<- ' • ' Hp Typing Necessary 

'#8df 1981 and NEW 1982 80 micro* Data Disks 

Covers Every Article and Program Published 
ieneral and Programmers' Archives Disks 

;;-,-":f QT^Use with Both of. the Above Programs 



>^-^ystem 80 .. ,.. 
Archive Retrieval System. 
,General Data 80, 81 & 82 
Program Data 80, 81 & 82 



.:.■:•:;;. $29.95 
...... $44.95 

each S29.95 
each $29.95 



For 48K 2 Disk TRS-80 Model I and III Comp^t^FS' 

"" ":( Rainbow Software S^^^s-:i:^-tfv-." 
)70B Farrell Road^^utheaSt'" 
igary. AB.. T2H 0T2 Canada 



i 



'J *^-«v 



^ See List of Advertisers on Page 455 
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CAse 
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Encloses LNW & MDX I & II 

P.C. Boards, plus 

Cabling, A/C Cords, etc. 

Silver-gray Fiberglass 

$32.50 plus $2.50 shipping 
N.Y.S. residenls add 7% tax 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Speciali?ing in Electronic Packaging" 



iVtV SUPER™ tViir 
ISA's DATABASE 

The only DBMS with all these features: 

■k PROVEN in one year of test marketing 

* TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals & subtotals - mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files: Up to 128K records 

* SORTS fijl! disks on up to 40 fields 

* PRODUCTiON input of repetitive data 
■*■ USE exisitng data files 

*■ COUPLES to word processors 

* POSTS transactions to master file 

*■ SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the ottier system 

For TRS-80* Mod^ I, II, HE, & 16 - 250.00 
CP/Mt - 295.00 

Ask your Dealer or Write i-* 3^' 

Institute for Sdentific Analysis. Inc. 
P. O. Box 7186, Dept. M 2 
Wilmington, DE 19803 (215)358-3735 

'T.M. Tandy Corp. fT.M. Digital Research 




Secur-lt Disk File storage containers offer safe, 
no-splll portability^ and secure, orderly storage 
for your diskettes. 50 diskette capacity. Walnut 
wood grain or black for 5'A" or 8" diskettes. 5'A" 
files. $29.95 ea. 8" files. S39.95 ea. Specify color 
& size. 

Model l/lll Software 

• Label Maker. $12.95 • Page Maker 

(disk only). $19.95 • Home inventory. 539 95 

• Documeiil Maker. $39.95 • 

• Send For Free Catalog • For Fastest Service 
Send Money Order Or Certified Check 

• Add S2 Oil Shi,,,,i„q <.7i«ryf Per Order 
• Calif Hi-sideitls Add (,'/>% Sales Tax 
• All Mfihundl'ie Shipred fV'.m Stock • 



REM Industries, Inc. 

120 "B" LarUm Avt., Chotxuianii. Co.. 9)31) 

(213) 341-3719 ^ 
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430 


Z=1XC*XL)/(XC-XL) 


i*e 


CLS 


'450 


PRINT "IHDOCTIVE REACTANCE - -jXLj" OHMS" 


460 


PRINT "CAPACITAVE REACTANCE = "jXC;" OHMS" 


470 


PRINT "TOTAL IMPEDANCE - ';Z 


480 


L PRINT "IMPEDANCE — CAPACITANCE AND INDUCTANCE IN PARALLEL" 


490 


LPRINT" '*•**«•**•••*'•■"•••***•*•••*•••*•■*•*«•**«.***«**•■ 


500 


LPRINT "INDUCTIVE REACTANCE = "jXL;" OHMS" 


510 


LPRINT "CAPACITAVE REACTANCE = "jXC;" OHMS" 


520 


LPRINT "TOTAL IMPEDANCE - " ; Z 


530 


FOR J=l TO 5:LPRINT CHRS(13];" ";NEXT 


540 


GOTO 7 40 


550 


CLS 


560 


REH*CALCULATE CAPACITANCE TO ESTABLISH CIRCUIT RESONANCE* 


570 


F=(10|-6) *F:I=(10|6) 'I 


580 


C-{25330/{F[2)]/I 


590 


FQ=F:IO=I:CQ=C 


6de 


PRINT "CIRCUIT RESONANCE" 


610 


LPRINT'CIRCUIT RESONANCE *•■**•■>*«<.»•••«•••••»••" 


620 


LPRINT'FREQUENCY - ";F;' MEGAHERTZ" 


630 


LPRINT"INDUCTANCE = ";I;" MICfiOHERTZ" 


640 


LPRINT "CAPACITANCE = •;C;" PICAFARADS" 


650 


I^(lB|-6)'l!C-(10[-12)*C:F=(I0[6)«F 


660 


FR=1/(2'3.14*(SQR(I*C) ) ] 


670 


FR=(10[-6)*FR 


660 


LPRINT "RESONANT FREQUENCY = ";FR;" MEGAHERTZ" 


690 


FOR J=l TO SiLPBINT CHRSdS);" ";NEXT 


700 


PRINT'INDUCTANCE = ";l!" HENRYS" 


710 


PRINT "CAPACITANCE = "jCj" PICAFARADS" 


720 


PRINT "CIRCUIT RESONANCE § ";FR;" MEGAHERTZ" 


730 


RETURN 


740 


LPHINT "FILTER DESIGN" 


750 


LPRINT "'•**«***«••*•■ 


760 


FOR J=l TO 5:LPF.INT CHR5(13);" " : NEXT 


770 


LPRINT" "lIQ;" uH" 


780 


LPRIWT" — ...* — - 


790 


LPRINT" 11 11" 


B00 

810 




LPHINT" 11 11" 


820 


LPHINT" — ( )— ■ 


830 


LPRINT" ";CQ;" Pfd" 



;"Ci = 
J'W = 

.■"C2 = 



10 REM* L-C BAKD-REJBCT FILTER • 
20 CLS 

30 PRINT ■L-0.318*R/(F2-F11 C= [7 . 96 (F2-F1) "10 | 4] / [Fl'F2*fi) 

796*(F2-F1]*R)/(F1*F2) C2-(3 . IB* ( 10 | 5) ) / ( (F2-F11 *R) " 

40 PRINT:PRINT:INPUT"EHTER UPPER FREQUENCY [HHZ)";F2 

50 INPu'i'"ENTER LOWER FREQUENCY (WHZ)"jFl 

$0 INPUT'ENTER LINE LOAD {IK OHMS)"rR 

70 Ll=.10.3ie*R)/[F2-Fl) 

80 C1=(7.96'(F2-F1)*[10[4) )/(Fl*F2*R] 

90 L2=(.0796*[F2-F1)*R)/(F1*F2) 

100 C2=(3.ie*(1015) )/( [F2-F1)*R) 

lie PRINT "LI = "jLl 

■;C1 

■fL2 

':C2 

120 PRINT"C2/2 = ■;C2/2 

;"Ll/2 = "|Ll/2 

;"2*C1 = "j2*Cl 

;"2*L2 = ■:2'l2 

130 FOR K=1T05:LPKINT CHRSdS)' ":NEXT 

MICROHENRYS" 
PICAFARADS" 
MICROHENRYS" 
PICAFARADS" 

" PICAFARADS" 

" MICROHENRYS" 

" PICAFARADS" 

' MICROHENRYS" 
220 LPRINT"HHEN HIGH FREQUENCY = '';F2 
230 LPRINT"AND LOW FREQUENCY - ";F1 
240 LPRINT"AND LINE LOAD (OHHSl^ ";R 
250 FOR X=l TO 5:LPHINT CHBS{13];" " : NEXT 
260 LPRINT TAB{15] ;C2/2;TAB{451 ;C2/2 

270 LPRINT TAB(10] ;" +++++ + ++++ ■';TAB{40) j' ++++++++++- 

280 FOR X^l TO 5!LPHINT TAB [ 1 0] ; "1 " ; TAB ( 29) ; "1 " jTABf 40) ; "1" ; TAB(59) 

T 

290 LPRINT " 1...*....* ,.*... 11.. 



-L2-[.l 



140 


LPRINT"L1 


= 


" 


T.1 


" 


IbW 


LPRINT'Cl 


= 


" 


01 


" 


160 


LPRINT"L2 


= 


" 


T,2 


" 


1/0 


LPRINT-C2 


= 


" 


C2 


" 


lb0 


LPRINT'C2/2 


= 


■■ 


C2/2 


iy0 


LPRINT*Ll/2 


= 


' 


LI/ 2 


^00 


LPRINT" 2C1 


= 


■ 


2*C1 


210 


LPRINT"2L2 


= 


" 


2* 


2 



3 00 LPRINT"1";TAB(5) ; " 1" ;TAB (15) ; 2*L2 ;TAB | 45) 2*L2 
310 FOR X=l TO 5 

320 IF X=3 GOSUB 360 

330 LPRlHT°l";TAB{5j ; "•";TAB{35) ;'*";TAB{62] ;"•": 

340 NEXT 

350 GOTO 370 

360 I,PRINT"l";rAB(6) ;L1:TAB(361 ; Ll/2 ;TAB( 63) ; LI: RETURN 

370 LPRINT"t» ".-R!" OHMS" 

380 LPRINT"** ";"1NPUT" 

390 FOR X=l TO 5 

400 IF X=3 GOSUB 440 

410 LPRINT"l';TAB(5j ; "+";TAB(35) ;'+"(TAB(62) ;"+" 

420 NEXT 

430 GOTO 460 

4 40 LPRINT"1",-TAB[6) [CI, -TAB (36) ; 2«C1 ;TAB (63) ; CI: RETURN 
450 GOTO 370 

460 LPRINT" 



470 FOR JK = 1 TO 5:LPRINT CHRS(13],-- 

480 LPRINT "SYMBOLS" 

490 LPRINT "*•«•*..- 

500 FOR JK-1 TO 2:LPHINT CHRSI13);" 

510 LPRINT"* = INDUCTOR" 

520 LPRINT"+ = CAPACITOR" 

530 FOR JK-1 TO 5:LPRIWr CHRS(13];" 



':NEXT 
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le CLs 

20 PRINT "LOW-PASS ACTIVE FILTER DESIGN" 

30 LPRINT"EQUAL-COMPONt;NT-VflLUK, SAJ,LEN-KEY SECOND-ORDER LOW-PASS i'lLTER" 

40 LPRINT"NORMALIZED TO IBK AND 1KH2 CUTOFF FREQUENCY" 

50 R3=39000:R2=390fl0:Rl=10000;Cl=,016 

60 F=1:G0T0 220 

70 J = 2 

80 CLStPfilNT'YOU MAY NOW CHANGE THIS CIRCUIT TO ACHIEVE YOUR DESIRED FREQUE 

NCY' 

90 I£IFUT"ENTSR CUTOFF FREQOENCY (IN KHZ)";F 

100 INPUT"EKTEH DAMPJHG {BUST BE LESS THAN 2)";D 

il0 PRINT'DO YOU WISH TO CHANGE THEFREQUENCY SMOOTHLY KY VARRYIHG THE RRSIS 

TORS (]) OR IN STEPS BY VARRYING THE CAPACITORS (2)" 

120 INPUT H 

130 R2=3S90B* (2-D) 

140 IF »=2 GOTO 170 

150 R=l/P:Rl=100e0*R 

160 GOTO 190 

170 C=P/1 

180 C1-.B16/C 

190 FOR X=l TO 5:LPHIST CHRS(13);" ■:NEXT 

200 LPRINT "LOW PASS ACTIVE FILTER' 

210 LPRINT "CUTOFF PRRQUENCY = ";P;" KHZ" 

220 FOR X=l TO 5:LPRINT CHRS{13);" "iNEXT 

230 LPRINT TAB(I0}"* [III[ * [[[!! *" 

240 LPRINT TAB(10) "."TABU6) ;R3;TAB127) ;".":TAB(32) ;R2;TAB[46) ' ." 
250 LPRIHTTAB{10) "."TAG (27) "."TAB (46) "." 

,"TAB(46) "." 
" ,"TAB(46) "." 

."TAB(46) "." 

,"TAB(46) "." 

,"TAD(46) "," 



260 LPRINT TAB(10) "."TAB(27) ". 

270 LPRINT TAB(e)" "TAD(27) 

280 LPRINT TAB(9) "-~"TAB(271 ", 

290 LPRINT rAB(10) '-"TAHIZ7) " . 

300 LPRINT TAB(271 ","TAB130) ", 



310 LPRINT TAB(27) "."TAB(30) ".."TAB{46) ".' 




320 LPRINT TAB1271 ",. ,"TAii(30) " .-,"TAB(46) ".' 




330 LPRINT TAB(30)". ."TAB{46)"." 




340 LPRINT TAB(301". . 741 "TAB( 46) " . " 




350 LPRINT TAB(30)". . ' OUT" 




360 LPRINT TAB130)". . "TABl 46) " . " 




370 LPRINT TAB130)". ."TABi46)"." 




380 LPRINT "0 ![ I [ [ * [[ [[{ * . + ."TAB(46) "." 




390 LPRINTTAB(4) ; Rl ;TAB I 14 ) "."TAB (171 ;Rl;TflB(26) "."TAB (30) ". 


."TAB (46) 


400 LPRINTTAB(14) "."TAB (26) "."TAB(30) "."TAB (46) "." 




410 LPRINT TAB(I4) "."TAB(26) "."TAB(46) "." 




420 LPRINT TAe(14) "."TAB(26) ","TAB(46) "." 




430 LPRINT TAB(14) '-"TAB(26r'-"TAB[46) "." 




440 LPRINT TAB(8) ;C1; "UF" TAB ( 27 ) ; CI ; "UF" TAB(46)"," 




450 LPRINT TAB(14) "-"TAB(26) "-"TAB(46> "," 




460 LPRINT TAB(14) "."TAB{26) "."TAB(46> "." 




470 LPRINT TAB(14) "."TAB{26> "."TAB(46> "." 




480 LPRINT TAB(14) '."TAB(24) " "TAB(46)"," 




490 LPRINT TAB(14) "."TAB(25) "~"TAB(46) "." 




500 LPRINT TAB(14) "."TAB(26) "-''TAB(46) "." 




510 LPRINT TAB(14) "."TAB(46) "." 




520 LPRINT TAB(14) "."TAB(46) "." 








540 FOR X-1 TO 5:LPR1NT CHRS(131;' " : NliXT 




550 LPRINT"SYMBOL TABLE" 


' 


560 LPRINT"[ni[ RESISTOR (IN OHHS) 




570 LPRINT CHRS(13);" " 




5B0 LPRINT"-" 




590 LPRINT" CAPACITOR (IN HICAFAKADS) " 




600 LPRINT'-" 




610 FOR X=l TO SsLPRINT CliRS(13);" " : NEXT 




620 IF J=2 GOTO 640 




6 30 GOTO 7 


1" 


6 40 END 
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*TRS 80 ASSEMBLY LANGUAGE 
PROGRAMMERS 

Make the most of your programming 
time. ULTPLS could be the best assem- 
bly aid to be found anywhurf- any priLtP.I 
A keyboard monitor+pow/erful utilities. 
Both sharable. Load and schedule your 
(any) program, debug and modify, make 
and verify tapes, 

ULTPLS COMMANDS- C<i>sharab(e pro- 
grams. 
@LOAD MEMORY-From tape. (1st & 

by filename) 
DUMP MEMORY-to tape. 3 address 

ranges+name. 
©VERIFY TAPE-display of address 

range -i-name. 
BREAK POlNT-full display. Register 

cond. 
@FIND DATA-disp!ays address to 

screen (user). 
DISPLAY and CHANGE MEMORY- 

both sequential. 
SCHEDULE & DESCHEDULE PRO- 
GRAM-yours or any EDTASM 1.2 
(Yours)-to & from ULTPLS. 
ULTPLS standard mod 1 leu 2 specify 
mod 3. User Manual & Tape 19.95 {We 
pay postage) 

BULLDOG SOFTWARE 

210 LERAM 

PALESTINE, TEXAS 75801 

*TRS-80 is a trademark of Tandy Corp. 
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TRS-80 MODEL II 
TRSDOSorCP/M 

A complete coordinated tax system 
that includes most used forms and 
schedules. All schedules printed, no 
masks, no data field entered more 
than once. All data automatically passed 
between schedules and 1 040. Fully 
supported all year. Partial orfull system. 
System can be run for single or multiple 
returns. Extremely flexible. 

FULL SYSTEM - $600.00 
OTHER CP/M SOFTWARE AVAILABLE 

ANALYTICAL PROCESSES CORP. 

635 MAIN ST. — NASSAU BLDG. 

P.O. BOX 1313 

(^^Bd MONTROSE, COLO, 81402 r^^ 

VISA 303-249-1400 MM 
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ONINIT 




WHatisOMNITERM? 
OMNITEBM IS a professionalcommunications package for tlie TRS-80 that allows 
you to easily commuiiicate and Iransiet files or programs with almost any other 
computer We've never found acomputerthatDMNITERM can'l work with. Its a 
complete package because it incluiles nnt only the lerminal progtam itself, but also 
conversion utilities, a text etiitor, special cDnfiguration tiles, serious 
documentation and serious support 

Why do I need it? 

Yon need OMNITERM if you need to communicate efficiently with many different 
computers, ot if you want to customize youf TRS-30 for use with one particular 
computer. Vou need OMNITEBM lo SOLVE your communications problems once 
and for all 

Wtial do I get? 

The OMNITERM package includes the OMNITERM terminal program, fotit 
conversion utilities, a text editor, and setting tiles for use with popular computers 
such as CompuServe, the Source, anij Dow lones — just as samples of what you can 



Lindbergh Systems 



The ULTI 



lerminal Package 



do for the computer you want to work with. The package includes six programs, seven 

data files, and real documenlation- a 76-page manual that has been called "ttie best in 
tfie industry," And OMNITERM comes with real user support. We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 



Wtiat do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of memory, one disk, and the RS-232 
interface, or Microconnecfion modem. OMNITERM works with all ROMs and DOSes, 

and will work with your special keyboard drivers 

Wfiatwill it do? 

OMMTERM allows you to translate any character going to any device: ptititcf. screen 
disk, keyboard, or coiiimuoicattons line, givjug you complete control and allowing you to 
redefine the cltaractet sets of all devices. It will let you transfer data and run your 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so that 80, 32, or 40 column lines are easy to read and look neat on 
youf TRS-80 screen. It even lets yoti get on remote computers with just one keystroke! 
The program lets you send special characters, echo characters count DART errors 
configure your UART. send True Breaks and use lower case It accepts V10EDT£X codes, 
giving you full cursor control. It will even let you review text that has scrolled off 
the screen! Best of all. OMNITERM will saveaspecial file with ail yourchanges so you 



can quickly use OMNITERfW for any 

one of maoy different computets by 
loading the proper file Its easy fri use 
since its menu driven, and gives you a 
full status display so you can examine 
and change everything 
"OMNITERM lias my vote as the top 
TRS-30 tetmuial program available today" 
Kilobaud Microcomputing, June 1981, 
pages 16-19. 

OMNITERM is S95 (plus shipping if 
COD) Call for 24 hour shipment. Manual 
alone S15. applied toward complete pack- 
age. Visa. M/C. and COO accepted MA 
residents add 5% tax. Dealer inquiries 
mvifed 

AvailahiethistalfOMNITEfiMforthe 
TRS80 Model tl and IBM personal 
compuler. Contact Lindbergh Systems 
for details. 
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TUTORIAL 



Get enhanced printouts from a limited system. 



PRINPUT 



Dr. Stephen Mills 
404 Wilson Ave. 
Kinston, NC 28501 



Any Model I TRS-80 which 
has a printer attached can 
be used for word processing. 
While some of these computers 
are used as dedicated devices, 
others are just dabbling dilet- 
tantes. 

The dedicated TRS-80 which 
is heavily used for word pro- 
cessing typically has a high- 
quality printer, a lowercase 
video modification, a general- 
purpose word processing pro- 
gram in machine language (like 
Electric Pencil or Scripsit), and 
an operator trained in the soft- 
ware. 

Consider the variations which 
may describe a machine used by 
an amateur: The machine may 
not have lowercase display; the 
user may not own a general- 
purpose program; the general- 
purpose word processor is not 
always suitable; or the user 
may want programs that are 
easy for untrained operators to 
use. 

There is plenty of sophisti- 
cated help around for the dedi- 
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Gated; this article is for the ama- 
teur. It's for the computer that 
doesn't even have a lowercase 
modification (although the infor- 
mation may be useful even to 
those who do). It's also for the 
user who wants to write special- 
purpose word processing pro- 
grams in Basic. For people who 
do a lot of word processing with 
standard programs, this article 
offers special features. 

The Missing Case 

One problem you face is that 
the computer's keyboard does 
not respond like a typewriter. 
The unmodified video displays 
all characters as uppercase, 
since the computer is designed 
to interpret unshifted entries as 
uppercase. To input a lowercase 
ASCII code, you must press the 
shift key. This is not appropriate 
for word processing, since low- 
ercase is used more frequently 
in most kinds of text. 

Changing case can be 
treated as either an input prob- 
lem (solved by modifying the 
computer's input functions) or 
as an output problem (solved by 
inverting the case of alphabetic 
characters as they go to the 
printer). But there is no reason 
to modify the keyboard and 
video drivers on a machine 
which cannot display lower- 
case letters on the CRT. In- 
stead, it is better to leave these 
drivers alone, but ensure that 
the printer driver can substitute 



uppercase letters for shifted in- 
put, and vice versa. 

There are different ways of 
accomplishing this, depending 
on the printer. If your printer re- 
quires a special driver routine 
stored in RAM, it may be most 
efficient to modify the driver. If 
your printer works on the rou- 
tine in Level II R0f\1, or if you 
just don't want to modify the 
drivers, use the routine In Pro- 
gram Listing 1. To use this pro- 
gram, the value of variable DR 
must be assigned the correct 
address for the printer driver 
(the one printed in the listing Is 
the ROf\fl address). Determine 
this address by the formula 

DR ~ PEEKn6422) + PEEK{16423)'256 

when the printer is working. 

Program Listing 1 sets up a 
machine-language interception 
of the printer routine. It examines 
the character being transferred 
to the printer, and changes the 
case. As written the converter 
packs the routine into a string 
variable, which means it must 



be added to the beginning of a 
word-processing program. But 
by deleting line 3 and assigning 
the variable AD an address val- 
ue in high RAM, the program 
can be stored in protected 
memory. 

Feeding the Computer 

The problem of inputting text 
is somewhat more complex. 
Level II Basic provides several 
ways of feeding ASCII text into 
the computer's memory, but 
none of them are ideal for word 
processing. 

The two most obvious solu- 
tions have substantial, and 
similar, drawbacks. One way to 
manipulate the text to be printed 
is to edit the program itself, put- 
ting the text into LPRINT 
statements or data statements 
which will be read during a pro- 
gram run. Anotherway is to use 
input statements to enter the 
text while the program is run- 
ning. But there are many 
drawbacks. Commas or double 
quotes cannot be handled easi- 
ly, and control codes cannot be 



REM * PRINTER OUTPUT <SHIFT> INVERTER - LOADS VX 5 
INSERT APPROPRIATE DRIVER ADDRESS 

1 DE=14il ' ROM Driver Address * DATA CHECKSUM = 3061 

2 DATA 245,121,253,124,48,20,254,97,56,4,62,224,24,10,254,91, 
8,254,65,56,4,62,3 2,129,7 9,241,195 

3 VXS=STRIHGS(29,2ai) :X=VARPTH1VXS) !AD=PEEK(X+1) +PEEK (X+2) *2£ 

4 FORA-ADTOfiD+27 : READY : POSEA , Y : NEXT; P=DE : G0SUB6 

5 P-AD:A=16422:GOt;uB6:£ND 

6 H-INT(P/256) :L=P-11'25S;POKL:a,L:POKEA+1,!(:HETURN 



Program Listing 1 



Incorporated into the text ex- 
cept by longer strings. There is 
no way of distinguishing upper- 
case from lowercase text, since 
these functions are controlled 
by the ROM interpreter, and text 
cannot be automatically format- 
ted to a certain length. 

You get around all these 
problems by writing the text 
during an INKEY$ loop. A crude 
version of such a routine is 
given in Program Listing 2. With 
this method you can limit the 
size of input by assigning a 
maximum string length to the 
variable MAX. This kind of input 
will accept commas and quotes 
freely, and conditional state- 
ments can be added to include 
or exclude control codes, to 
make substitutions, etc. 

There are still problems, 
however. For instance, there is 
still no ready way of distin- 
guishing shifted input from un- 
shifted letters. Change the 
routine by typing in these lines: 

40 X^ASC(XS):IFX>96ANDX<123 
THEN PRINT GHR$(143); ELSE 
PRINT X$; 

45 Q£ = QI + X$:IFLEN(QS) = MAX 
THEN RETURN 

Now the program prints a 
graphic block on the CRT 
whenever a shifted alphabetic 
character is entered, instead of 
the character itself. Although 
you cannot actually see the let- 
ter typed, this is not a terribly 
serious problem. Since the ac- 
tual code is stored in variable 
Q$, just print Q$ to be sure that 
the letters are correct. 

Another problem, however, is 
more subtle. Program Listing 2 
adds any control codes to the 
string indiscriminately. Although 
the left arrow, or delete key, ap- 
pears to operate normally, it ac- 
tually generates unusual strings. 
Suppose the string is to be the 
word ■'COMPUTER", The typist 
corrects an "N" to an "M" dur- 
ing input. The string appears on 
the screen as the eight-charac- 
ter string "COMPUTER", but the 
string 0$ will be 10 charac- 
ters long: "CON" -i- CHR${8) -n 
"MPUTER." Some printers cause 
a backspace and overstroke in 
response to this string. Also, if 
you try to format the string by 
setting the variable MAX, each 
deletion counts against this 
maximum length. 



This problem can be elimi- 
nated by inserting conditional 
tests into the routine, but that 
only aggravates another prob- 
lem which is already bad 
enough in Listing 2. The input 
technique is slow. Machine 
response lags noticeably, and 
most typists experience lost 
letters. Apart from direct state- 
ment functions like Input, inter- 
preter Basic just doesn't have 
the rapid response needed. 

The need for speed is fre- 
quently a cue to use machine- 
language as an alternative. But 
machine-language programming 
is difficult to develop and to 
debug. The ideal compromise is 
the TRS-80's USR function. This 
alternative makes it possible to 
produce a Basic program with 
special input capabilities ap- 
propriate to word processing. 

The USR function, however, is a 
very restrictive gate between 
machine language and Basic. It 
only passes numbers. How can 
you use the USR function to get 
the computer to accept and store 
strings? 

In the computer's memory 
strings have to be stored 
somewhere, and their storage 
location is a numeric value. 
This is a value which the USR 
gate can transmit. In addition, 
the TRS-80 has a speciai func- 
tion, VARPTR, which allows 
Basic to access the variable 
handling information of the 
ROM interpreter. So by using 
VARPTR in conjunction with 
the USR function, it is possible 
to get the machine language in- 
put routine and Basic to com- 
municate about strings. Pro- 
gram Listing 3 shows how to set 
up a machine-language program 
which does this. 

To use the subroutine you 
must set up an appropriate 
string variable in Basic. One 
way of doing this is by the 
string statement, which pre- 
pares a string of a specified 
length. The length of this string 
is used by the input subroutine 
to determine the maximum 
length of the entered string. For 
example, if you define A$- 
STRING$ (60,0), the input is 
limited to 60 characters. A USR 
call is made, passing the 
VARPTR value to the machine- 
language input routine. The fol- 



lowing line of Basic shows how 
this can be done: 

100 A$ = STRINGS(60,0):V = VARPTR 
(AS):X = USR(V) 

While execution is in the USR 
routine, text can be input as in 
Program Listing 2, except that 
the response of the computer Is 
instantaneous, and letters are 
not lost during rapid typing. 

The USR routine handles the 
left arrow as in an input state- 
ment, without adding CHR$(8) to 
the string. (Program Listing 2 
does not recognize the shift left 
arrow combination, which In 
Level II Basic deletes an entire 
line of text.) 

If a letter is typed in with 
shift, a graphic block appears 
on the screen, and allows you 
to see text that will be printed 
uppercase. If enough charac- 
ters are typed in to fill up the 
string, the keyboard only re- 
sponds to Enter, which termi- 
nates the input, or to the left 
arrow. Once Enter is pressed, 
program execution returns to 
Basic. The string whose 
VARPTR value was sent to the 
input routine now has the text 
entered, and the string's length 
will be the input length, not the 



length originally defined. 

This USR routine, called Prin- 
put (for printer-oriented input), 
begins by getting the VARPTR 
address. The length of the 
string involved is stored at this 
address. This value is put in the 
B register as a counter. Prinput 
then gets the string's address 
from the next two bytes. Next, 
working as an input loop, Prin- 
put over-writes the current 
string with characters entered 
from the keyboard. 

The program makes sure that 
you cannot advance, or back- 
space, beyond the limits of the 
existing string. When Enter is 
pressed, the length of the input 
is poked into the VARPTR loca- 
tion, and control returns to 
Basic. 

Using Prinput 

With Prinput added to the 
store of input functions, most 
of the string processing and 
program logic can be left in 
Basic. In most word processing 
applications, text is placed in a 
string array to sequence its out- 
put. The best way to do this is 
to use an ordinary string vari- 
able for the Input. Then transfer 



REM * A simple BASIC input Hiibroutiiic UGinq INKEYJ 

10 QS="" :PRINTCHES(14) ; 

20 KS^INKEYS;IFXS-"''THEN20 

30 IF:(S=CHRS(13)1'HENEETURN 

40 PRINTXS;!QS-QS-t-XS:IFLEN(OS>=MAXTHENRETURK 

50 GOTO20 



Program Listing 2 



fl 'BASIC PKINPUT USR ROUTINE, YOU MUKT DELETE EITHER LIKE 2 
OR him 3 TO USE, LINE 3 IS USED IN A BUNNIHG PROGRAM TO PACK 
ROUTINE IN A STRING, LIKE 2 PUTS PROGRAM IN illGH MEMORY (VALUES 
MAY BE CHANGED] S SETS HEM SIZE BELOW XT. 

1 DATA 2 05,127,10,229,70,4,35,9 4,35,36,72,62,14,205,5 8,3,205,132 
,3,254,13,40,31,254,3,40,17,254,32,56,341,18,254,96,56,2,62,143, 
205,58,3,19,16,223,4,27,121,184,56,247,62,8,24,215,121,144,209,1 
8,62,13,195,58,3 

2 POKE16561,127:POKE16562,126!CLEAR50!«=323 85:N1=129!N2=126 

3 CLEAR500!rVS=STRINGS(75,0) !V=VAHPTR( IVS) :H1=PEEK(V+1) !H2=PEEK( 
V+2) !:NcN2*256-fNl 

A Y=0:FORX=NTON+62;EEADC:Y=Y+C:POKEX,C:NEXTX!lFY<>5815THENPRIHT' 
BAD DATA'':ENDELaEPOKE16 5 26 ,N1 ; POKEI65 27 , N2 



Program Listing 3 



REM * ENHANCED VERSION OF PRINPUT POKES ROUTINE INTO MEMORY 
AND SETS MEM SIZE. 

1 POKE16561,94!POKE16562,126:CLEMt50:FORX=32352TO32459!READN:C=C 
+N:POKEX,N:NEXTX:IFC<>9751THEBPRINT"BAD DATA" :EBDELSEPOKE16526 ,9 
6:POKE16 5 6 2,126:DELETE0-3 

2 DATA 20^,127,10,229,70,4,35,94,35,86,72,26,183,40,8,205,58,3,1 
9,16,245,24,66,62,14,205,58,3,205,132,3,254,32,48,35,254,13,40,6 
0,254,8,40,46,56,239,254,11,56,21,254,24,32,231,121,144,40,227 

3 DATA ill, 27, 6 2, 8, 205, 58, 3, 45, 32, 247, 6 5, 24, 214, 25 4, 9, 3 2, 2, 6 2, 9 4 
,254,96,18,56 ,2,52,143,205,58,3,19,16,190,4,27,121,184,56,247,62 
,8,24,182,121,144,209,18,62,13,195,58,3 

Program Listing 4 
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the string to the array after call- 
ing Prinput. 

Why not simply write text di- 
rectly into the array, using 

VARPTR(A$ {N)) as a pointer? It 
is possible, but it won't work for 
the first element In the array, 
since the information Prinput 
recovers is misunderstood. 
And it can waste memory, since 
each array element is initialized 
to its maximum length, even 
though Its length after the Prin- 
put call may be shorter. 

In fact, if memory space is a 
problem {and with word pro- 
cessing, it frequently is), the 
most economical way of using 
this version of Prinput is to set 
the length of the input string 
variable once early in the pro- 
gram. Restore it to maximum 
length by POKEing the desired 
value into its VARPTR address 
after the text is transferred to 
the array. This ensures that 
Basic will not reallocate string 
space every time a Prinput call 
is needed. 



10. A$ = STRINGS (60,0):V = VARPTR 
(A$|: ' USE ONCE 



900 X = USR(V):AS(N) = A$:POKEV, 60 

It is possible to POKE a smaller 
value for shorter inputs, but do 
not exceed the original value. 

Programs that use Prinput 
should also include some capa- 
bilities for reviewing and editing 
text. Editing is available In Basic 
using left and right string state- 
ments, or possibly by direct 
POKES into the string. The string 
address itself can be recovered 
by the following formula: 

AD = PEEK{VARPTR(A$) + 1) + 
PEEK(VARPTR(A$) + 2)- 256 

Going Further 

Program Listing 4 is a some- 
what more sophisticated, but 
also longer, version of Prinput. 
It allows you to reenter a string 
to make corrections and addi- 
tions. The routine begins by 
scanning the string, searching 
for null bytes. It bypasses and 
displays any non-zero elements 



until a null is found, or until the 
end of the string is reached. 
You can use the VARPTR of an 
existing string, and Prinput will 
display it, leaving the cursor at 
the end of the string. You can 
delete letters or, if string length 
permits, add text to the end: 

100 A$=^A${N):X=LEN(AS);AS^ 

STRINGS (60-X,0) 
110 X = USR(VARPTR{A$)}: A$(N) = 

AS 

Similarly, by POKEing a zero 
into the Nth position in the 
string, the Prinput call can be 
used to edit text at the Nth posi- 
tion. If N=0, the whole string 
can be replaced: 

100 V = VARPTR(A$):AD = PEEK 

(V + 1) + PEEK(V + 2)-256 
110 POKE AD+N,0 'SAVES FIRSTN 

CHARACTERS 
120 X = USR(V) 

This version of Prinput also 
recognizes the shift left arrow 
combination for deleting an en- 
tire line of input, and responds 
to the right arrow key by dis- 



playing and adding the arrow, 
CHR$(94). This arrow can be 
used in printer output for a 
horizontal tab. 

The assembler source code 
for this version is given in Pro- 
gram Listing 5. The program is 
designed to be easily modified. 

The HL register pair is. not 
used during the input loop. 
Therefore, it's possible to use 
these registers to gather infor- 
mation which will be passed 
back to Basic. For instance, 
you might want to return the 
number of spaces (" " or CHR$ 
(32)), or the position of the last 
space to justify or format the 
text. In Basic this can only be 
done by a slow For... Next loop. 

All the machine-language rou- 
tines discussed here contain 
no null bytes, and are complete- 
ly relocatable. This means that 
any of them can be stored in 
string variables, packed into 
string constants or REM state- 
ments, or kept in reserved 
memory. 

How these printer-oriented 



|> CHECK US FIRST 






TRS-80 

CALL US FOR 

OUR PRICES 

and PRICE List 



Kansas Residents: 
316-624-1919 (Collect) 



DISCOUNT TRS-80 







Y DIRECT 



No Out-of-State - Taxes - Konsans Add 4% 
Large Inventory for Immediate Shipment 
100% TRS-80^ Equipment 
Convenient Order Number 
F-48 Form Provided. 



1- 



v^ Visa, Mastercard 
i-^ Wire Transfers 
i^ Bank Cashier's 

Checks & Money 

Orders. 



-835-9056 

Jimscot, Inc. 



1023 N. Kansas 

P.O. Box 607 

Liberal, Ks. 67901 



TRS-80 !s a reqistered Trademark of Tandy Corp. 



^254 



lillMI>llllllllP-ai>a«-a*.=i^ta..Laji«'.t.a«.,..~-.--^.,.,-.ja.>^ 

386 • 80 Micro, November 1982 



'■^^ 



routines are used is left up to 
you, the Basic programmer. But 
they make it easy for an amateur 
user of TRS-80S to do some 
sophisticated word processing. 



You quickiy gel used to thinking 
of the capitais on the CRT as iow- 
ercase letters, and remembering 
to look for graphic blocks at the 
start of sentences.B 







90010 






00020 






00030 






00040 






00050 






00060 






00070 






00080 






00090 






00100 






00110 


033A 




00120 


7E4B 




00130 


7B4B 


21607E 


Bene 


7B4E 


22eE4S 


001 'i a 


7E51 


215E7E 


06160 


7E54 


22B14S 


00170 


7E57 


212C7E 


001B0 


7E5A 


22Ae40 


00190 


7E5D 


C37200 


00200 


7E6fl 


CD7FaA 


06210 


7E63 


E5 


00220 


7E6 4 


45 


00230 


7E65 


04 


»e240 


7E66 


23 


00250 


7E67 


5E 


0B260 


7E6a 


23 


00270 


7E69 


56 


00260 


7E6A 


46 


00290 


7E6B 


lA 


00300 


7E6C 


B7 


003 IB 


7EeD 


2B0B 


00320 


7E6F 


CD3A03 


00330 


7E72 


13 


90340 


7E73 


10F6 


00350 


7B75 


1842 


00360 


7E77 


3E0E 


00370 



; EXTENDED PRINPUT USR ROUTINE 

jBY STEPHEN HILLS/1981 

;0H CALLING PRCM BASIC, PASS STRING VAHPTR VALUE 

;K-CHAHACTER INPUT FOR STRINGS(Nr0) 

; 

jNOTE: THIS VERSION ASSUMES THAT LEFT-ARROW 

JWILL BE INTERPRETED BY PRINTER AS A TYPE- 

JWRITBR TAB. TO CHANGE THIS MOVE THE 'WRITE' 

jIHSTRUCTION AFTER 'NOTAB' TO POSITION 

;IHMBDIATELY AFTER 'NORMAL' 

J 

PRINT EQO 33AH ; ROM DISPLAY ROUTINE 

ORG 7E4BH 

TEMP LD HL, ENTRY ;SET UP CODE 

LD (16526) ,HL f IN USR POINTER 

LD HL,ENTRy-2 ;SET MEMORY SIZE 

LD (16561) ,HL 

LD HL,ENTRY-52 fADJUST 

LD (16544) ,HL jCLEAR POINTER 

JP 72H 

ENTRY CALL 0A7FH j FETCH VARPTR VALUE 

POSH HL JSAVE IT 

LD B, (TIL) ;STORE STRING LENGTH 

INC B ;ADJUST FOR COUNTER 

INC iiL 

LD E , ( HL) 

IKC HL 

LD D,(HL] 

LD C , B 

t-IKD LD fl;(DE) 

OK A 

JR E, FOUND 

CALL PRINT 

INC DE 

T>.1V7. FIND 

JK BACKUP 

FOUND LD A, 14 



;GET LSB OF STRING 

;DE NOW HAS STRING ADDB 

;WHERE STRING ADDITION 

;BEGINS 

;TEST FOE 

;DISPLAY CURRENT CHAR 



.-TURN ON CURSOR 



7E79 
7e7C 
7E7F 
7EB1 
7E83 
7E85 
7E87 
7E89 
7E8B 
7E8D 
7E8F 
7E91 
7E93 
7E95 
7E96 
7297 
7E99 
7E9A 
7E9B 
7E9D 
7EA0 
7EA1 
7EA3 
7EA4 
7EA6 
7EAa 
7EfiA 
7EAC 
7EAE 
7EAF 
7EB1 
7EB3 
7EB6 
7ED7 
7EB9 

7e:ba 

7 EBB 
7EBC 
7EBD 
7EBF 
7EC1 
7EC3 
TEC 4 
7EC5 
7eC6 
7EC7 
7EC9 
7E4B 
00000 



CD3?\03 

CDe4B3 

FE20 

3023 

FEED 

2B3C 

FEBB 

2S2E 

38EF 

FE0B 

3815 

FEle 

20E7 

79 

90 

2eE3 

6F 

IB 

3E08 

CD3A03 

2D 

20F7 

41 

1BD6 

FEH9 

2002 

3E5E 

FE60 

12 

38K2 

3E8F 

CD3A03 

13 

IBBE 

04 

IB 

79 



3eF7 



79 

90 

Dl 

12 

3B0D 

C33A0 3 

TOTAL 



00380 MARK 
03 90 SEARCH 

B0406 

Be4i0 

00420 

00430 

00440 

00450 

00460 

00470 

004S0 

00490 

005B0 

00510 

00520 

00530 

00f)40 

005.^0 ERASE 

00560 

00570 

00580 

00590 

00600 

00610 

00fi20 NORMAL 

00630 

0064S 

0065B NOTAR 

00660 WRITE 

006 70 

006 80 

006 90 NOCHHG 
00700 JUMP 

0710 

00720 BACKSP 

007 3 
00740 
07 50 
07 60 
00779 
00780 

07 90 DONE 
00800 
00810 
00820 
00830 
00840 
00850 
ERRORS 



CALL 
CALL 
CP 



CP 
JR 
JR 
CP 

JR 



SUB 

JR 

LD 

DEC 

LD 

CALL 

DEC 

JR 

LU 



JK 

LD 

CALL 

INC 

DONZ 

INC 

DEC 

LD 

CP 

JR 



SUB 
POP 



JP 
END 



FRINS 

384H ;KEYBOARD INPUT 

32 ;TEST FOR NORMAL CHAR 

NC, NORMAL ; CONTINUE IF NOT 

13 ;CARRIAGE RETURN 

2, DONE 

8 ; IS IT A DELETION 
Z, BACKSP 

C, SEARCH 

11 fPASS DOWN ARROW i TAB 

C , NORMAL 

24 jWHOLE LINE ElUiiJE 

NZ, SEARCH 

A,C 

B 

Z > SEARCH 

L,A (PUT IN COUNTER 

DE fDECREMENT POINTER 

A, 8 jERASE ON SCREEN 

PRINT 

L (DECREMENT COUNT 

NZ, ERASE 

B,C (RESET STRING COUNT 

SEARCH 

9 (CHECK FOR TYPEWRITER TAB 
NZjHOTAB 

A, 94 (PUT IN ARROW 

96 .-CHECK FOR <SHIFT> 

(DE) ,A 

C , NOCHNG 

A, 143 (REPLACE BY GRAPHIC BLOCK 

PRINT (DISPLAY BYTE 

DE 

FOUND 

B (RESET COUNTER 

DE 



A,C 
B 

C , JUMP 
A, 8 
HARK 
A,C 
B 

DE 

(DE) ,A 
A, 13 
PRINT 
TEMP 



(FOR CORRECTION 
(CAN'T BE EARLIER 
(THAN 1ST BYTE 
(PRINT BACKSPACE 

(GET MAX LENGTH 
(CALCULATE STRItiG LENGTH 
(RESTORE VARPTR 
(STORE STRING LENGTH 
(DO CAR. RETURN BEFORE 
(GOING BACK TO BASIC 



Program Listing 5 



CONVERT YOUR SERIAll 



Ti^c U PI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port on TRS-80 
Models I, II and III. 

Softwafecompdtibility problems are totally eliminated because 
theTRS-80"Thinks that a parallel printer has been attached. 
No machine language driver needs to be loaded into high 
memory, VISACALC, SCRIPSIT, BASIC, FORTRAN, etc. all 
work as if a parallel printer was in use. 

The UPI interfaces are completely self contained and ready 
to use. A 34 conductor cable and connector plugs onto the 
parallel printer port of the Model I expansion interface or 
onto the parallel printer port on the back of Models II and 
III, A DB25 socket mates with the cable from your serial 
primer. The UPI interfaces convert the parallel output of the 
TRS-80 primer port into serial data in both the RS232-C and 
20 MA, loop formats, 

I g BINARY DEVICES 

I J Formerly SPEEDWAY ELECTRONICS 

I M 1 11560 TIMBERLAKE LANE 

I 81 NOBLESVILLE, IN 46060 

®"'^^^"^ (317) 842-5020 ^ ,06 



TRSHOJb a '<Ai.h',i,j,k (if T^niiv 



sams 



VISA M3';rerr^rH 
HHHMiMiliMiliil 




Switch selectable opiions include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Parity or no parity 

• ODD or EVEN parity 

NEW VARIABLE BAUD RATE MODELS 

Switch selectable from 110-9600 BAUD 

UPI-.3VB for models i or III $149.95 

UPI-2VB for model II $149,95 

UPI-3VB-6 for model I or III with 6 ft, cable $159,95 

UPI-2VB-6for model II with 6 ft. cable $159.95 

Shipping and handling on L!,S, orders. $4.00 

'Ji! ■■ I.I, ,.,^1 : ]-!; . ..■■ .''I i III: ;■',!! ;■■, i^' . Hay return privilege. 



y'See List of Advertisers on Page 455 
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TUTORIAL 



A new way to use Break. 



On Break GOTO 



SFC Roger E. Donais 
USAEDFE 
P.O. Box 426 
APOSF 96301 



M 



ost programs are usually 
full of Utile tests and traps 



to keep a user's input from mak- 
ing it bomb. Is the menu selec- 
tion valid? Does the index ex- 
ceed the limits of the array? Will 
we move off the screen? It 
seems the less experienced the 
user, the more complex the 
checks. Have you ever watched 
someone simply press Break to 
exit the sophisticated program 



10P 


RUM * = » = .=*=,» ^. Q}g BREAK GOTO ... DEMONSTRATION *=*=*=*=* 


::b 


REM t 


120 


IF PBEK(16396)-195 GOTO 310 , ■' PATCH INSTALLED ? 


130 


REM •=*=* RESET MEMORY-SIZE *=*=* 


140 


ADDS = PEEK(16561) + PEEK(16562) *. 256 - 10 


15B 


POKE 16562, ADDR / 256 


lee 


POKi; 16561, ADDR - PEEK (16562) * 256 


170 


CLEAR 


180 


REM •=*=* ENTER CODE PATCH *=*-* 


190 


POKE 16553,255 ' ROM .--DATA- READ FIX 


200 


START = PEEK(16561) ^ PEEK(16562) •256+1 


210 


FOR ADDR - START TO START + 9 


220 


READ CODE 


23 


POKE ADDR, CODE 


240 


NEXT ADDR 


250 


REM *=*^* RESET VECTOR. BACKWARDS FOR BO BOMB *=*=* 


260 


POKE 16398, START / 256 


27 


POKE 16397, START - PEEK[1639ej * 256 


28B 


POKE 16396,195 ■ JCMP TO PATCH 


29H 


REM 


300 


REM » = ':=* INITIALIZE BASIC VARIABLES S CONSTANTS *=* = * 


310 


IF BREAK PRINT: PRINT '--USER ABORT--": GOTO 380 


320 


CLEAR 50 


330 


BREAK = -1 


340 


REM 


350 


RFJfl *-*-*=*=*=«=* = *=*=*=*=*=*=* = *=*=*=«=*^*^«^*i.*=:*=*=* 


360 


REM *=*=* NORMAL PROGRAM EXECUTION RESUMES HERE *-*-* 


370 


am 


3B0 


PRINT "MEMORY -" MEM, "INPUT = " AS, "COUNT - ' X 


390 


PRINT , "TO EXIT TEST & RESTORE TRS-80, ENTER SPACES," 


400 


INPUT "HOW MANY SUBROUTINES TO STACK "; AS 


410 


IF AS="" GOTO 500 ■ EXIT PROGRAM 


420 


X=VAL(AS) 


430 


GOSUB 440 ' EXEHSICE STACK 


440 


PRINT, "MEMORY = "; MEM 


450 


X=X-1 , 


460 


IF X>0 GOTO 430 ELSE 300 

REM >- d' 


470 


430 


490 


REM *-*-• RESTORE MEMORY Sizfe & BREAK VECTOR •-*=* 


500 


X-PEEK(16561). + PEEK(16562) • 256 1 10 


510 


POKE 16396,201 ' BREAK ADDR ^ BETURN 


520 


POKE 16562, X / 256 


b2e 


POKE 16561, X - PEEK(16562)' * 256 


540 


REM BASIC POINTERS ARE OKAY, STRING BCFEER INCREASED BY 10 


550 


REM 


560 


REM *='='=* MACHINE CODE PATCH *=*=*=' 


570 


DATA 2 5,143,27, 42,164,64,43,' 195,30,29 


580 


REM CALL IBBF, HL-!40AP)-1, JP IDIR 


590 


REM RESET STACK, ADJ TOKEN POINTER, STATEMENT PROCESSOR 




Program Listing 1 



you thought could handle any- 
thing? 

The simple cure Is to disable 
the Break key. The instruction 
POKE 16396,175 does this ad- 
mirably. Processing a Break 
sends the Z80 through the re- 
start table (RST-28H). We mere- 
ly take control at the vector ad- 
dress (16396-16398d) and alter 
the A register so it is no longer a 
recognizable Break. Even this 
simple solution has a few op- 
tions. We can XOR A, which 
clears the A register so it ap- 
pears that no key was ever 
pressed. We can also ADD A, 
SUB A, rotate A, or load A with 
another value. In fact, we can do 
anything that prevents a one 
from remairiing" there. If other 
than zero, the program could IN- 
KEY$ the character and perform 
its own interrupt sequence. 

If you have already used this 
method and forgot to restore the 
key as part of the program's exit 
procedure, welcome to the club. 
(Club memt)ers are allowed to 
kick the cat and utter one ob- 
scenity as they reboot to get out 
of automatic line numbering.) 
This makes the selective break 
POKE 16396,165 iess exaspera- 
ting. This break capitalizes on 
the difference in processing 
shifted and non-shifted charac- 



The Key Box 



Model I 



ters- A little experimental testing 
finds register L to be constant 
and provides a mask that dis- 
ables the Break key while allow- 
ing a shifted break to work. 

Yet, this returns nothing or a 
one, and the program can no 
longer use the key for its own 
purpose. After thoroughly exam- 
ining the situation (extensive 
trial and error) a new patch 
evotves. POKE 16396.123 POKE 
16397,61 presents. a beautiful 
use for garbage. This time both 
the Break and shifted Break re- 
turn a value of three while a true 
Break is available using the shift 
down arrow control feature. 
This gives the Break key to your 
program, while still providing a 
true break using a control A. 

What use the Break could 
have within a program can best 
be explained by an example. A 
file maintenance program mak- 
ing a sequential search h,as jUst 
printed the record you wanted. 
You press Break to stop the 
search. Since you now want to 
display a block of records on 
either side of it, you entel a 
GOTO instead of CONT. This re- 
quires that you know the line 
number to the command input 
routineer menu driver. A special 
key available to the program 
could signal your wish to stop 
the search and return to the pro- 
gram's command input routine. 
The user does not have to be 
concerned with the program's 
structure. 

The difficulty in controlling 
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this is directly rbtated to the pro- 
gram's complexity, tnput state- 
ments require a Break-Enter se- 
quence and have to checl< for 
the character's presence. Exe- 
cuting a simple GOTO from 
within a subroutine leaves the 
stack expanded with the param- 
eters for all returns in active For 
loops. A Breait request can only 
be INKEYS in at pre-arranged 
levels and all higher routines 
must constantly check for the 
returning Break request flag. 

What we reaily need is an ON 
Break GOTO nnn! Such a fea- 
ture must not alter or delete any 
variables, including variable def- 
initions. But it must reset the 
hardware stack, reposition the 
interpreter's token pointer, and 
resume program execution at a 
predetermined line as smoothly 
as a GOTO statement. The pro- 
gram in Listing 1 does this using 
a combination of Basic and ma- 
chine code. As before, the key is 
trapped at the restart vector. 
The patch resets the hardware 
stack, positions the token point- 
er to the beginning of the Basic 
program, and resumes execu- 
tion at the interpreter's state- 
ment-processing routine. The 
Basic program then provides 
the GOTO part of the feature. 
This means the first Basic in- 
struction must know if this is a 
fresh run, or a returning Break. 
This is easy enough, since Run 
clears all variables unless they 
have actually been assigned a 



value. The existence of a known 
variable signals a returning 
Break; otherwise we assume a 
new run. 

There is one potential prob- 
lem. Error processing and Stop 
do not use this vector. These 
Breaks will not be trapped and 
control will leave the program. 
Underthese circumstances, var- 
iables will be destroyed if the 
program is altered or a Run exe- 
cuted, while the patch, installed 
in protected memory will be un- 
affected. A plus factor is that 
Break will work in reverse, put- 
ting you into the program with 
one stroke. The problem is that 
the patch would be re-entered, 
consuming an additional 
amount of system memory. The 
solution is to divide the GOTO, 
having the first half check for 
the patch and the second half 
check for variables. The flow- 
chart in Fig. 1 can best explain 
Basic's supporting role. 

That is ail there is to it. A 
small code patch and two con- 
ditional statements provide On 
Break GOTO nnn. To prevent a 
premature jump through the re- 
start table, change the vector's 
return [201d) to a jump {195d) 
last. If the jump is not present, 
ten bytes of system memory are 
reserved. Line 140 determines 
the new memory size, and the 
following two lines reset it. 

A word of caution for those 
who will use this technique for 
other applications. Only one of 



several closely related parame- 
ters has been changed. Re-siz- 
ing is not complete until the 
remaining pointers are also ad- 
justed. Strings will still use this 
newly reserved space if the next 
available buffer position points 
above it! If the string buffer was 
smaller than what we reserved, 
we are now ready to punch val- 
ues into the hardware stack. 
Clear will automatically reset 
the remaining pointers, using 
the one we have changed as the 
base position. So Clear now and 
save yourself some heartache. 

The remaining statements 
enter the code and activate the 
patch. Control then resumes at 
the second conditional jump 
where program initialization is 
checked based upon the vari- 
able "Break" being true. 

The test prog ram makes a ser- 
ies of subroutine calls. This 
forces return parameters onto 
the stack, reducing the amount 
of available memory. The remain- 
ing memory is displayed after 
each call. Control eventually 
goes to the input tine and 
prompts for another count. 
Whenever the Break key is 
pressed, the available memory 
is displayed to show that the 
stack has been reset. The last in- 
put value and the loop count are 
also printed to show that vari- 
ables remain unaltered. 

As mentioned, error process- 
ing wilt not be trapped. The On 
Error GOTO statement can be 



used anyplabe after the last 
Clear. Effective error processing 
within the program could make 
it impossible for anyone to make 
an uncontrolled exit, short of 
pulling the plug. 

Another application initial- 
izes the USR function to the 
break vector (400CH or 16396D). 
USR now gives Basic a software 
breakpoint. This could ease pro- 
gram design. High-level routines 
need not be cluttered with tests 
and traps watching for low level 
problems. Any level could print 
its error message and use the 
USR function as a direct patch 
back to the main line, circum- 
venting ail callers, and not wor- 
rying about expanding the stack. 

Add these techniques to your 
scrapbook. The next time the 
Break key becomes a liability, 
change it to an asset.ii 




INITIALIZE 
PRQGFtAH VARIABLES 
a CONSTANTS 



r COMMAND \ 
l^PROCESSOR^ 



Ftg. 1. Basic Program Support 

for Break GOTO nnn. 



100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY— FULL WARRANTY 



16K COLOR COMPUTER 427.00 

32K COLOR COMPUTER 497.00 

16K MODEL III : 815.00 

48K MODEL III, 1 DR 1549.00 

48K MODEL III, 2 DR. RS232 1795.00 

64K MODEL II, 1 DR 2799.00 

128K MODEL 16, 1 DR 3898.00 

128K MODEL 16, 2 DR 4510.00 



DMP-500 PRINTER. 1398.00 

DMP-100 PRINTER 299.00 

DMP-200 PRINTER 599.00 

DWP-410 DAISY 1195.00 

DAISY WHEEL II 1599.00 

1 DR. EXPANSION MODEL II 919.00 

8.4 MEG HARD DISK MODEL 11/16 3599.00 

ALL RS SOFTWARE 20% OFF 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCONA ELECTRONICS • Boxsgs • Nocona,TX 76255 



jk. 



■e 



i^See List of Advertisers on Page 455 
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GENERAL 



What happens vohen IBM Fortran meets TRS-80 Basic? 



Analysis of 




'1 ^ Y^ O 



George L Gille, Ph.D. 
220 Clayton 
Maryville. MO 64468 

'he analysis of variance pro- 
gram in Program Listing 1 
was created by iBM. The original 
program form can be found In 



IBM "System/360 Scientific Sub- 
routine Package", Programmer's 
Manual (GH20-0205-4). I con- 
verted the program from Fortran 
to TRS-80 Basic. I bought the 
manual from a used book store 
for 62 cents, tax included which 





...... 


............... 


CONVERTED FORM IBM-SSP ANALYSIS OF VARIANCE, 


THIS PROGRAM 


CALCULATES ANALYSIS OF VARIANCE PROBLEMS OF UP TO FIVE FACTOHS 


AND 10 LEVELS OF EACH AS ONE-OBSERVATIONS PER CELL. 


STAND BY— SETUP IN PROGRESS 


INPUT THE NUMBER OF FACTORS IN PROBLEM? 2 


INPUT THE LEVELS OF EACH FACTOR 






FOR FACTOR 1 OF 2 FACTORS 






INPUT A 4 CHARACTER NAME OF FACTOR? A 






INPUT THE NUMBER OF LEVELS IN THE FACTOR? 3 






FOR FACTOR 2 OF 2 FACTORS 






INPUT A 4 CHARACTER NAME OF FACTOR? B 






INPUT THE NUMBER OF LEVELS IN THE FACTOR? 3- 






INPUT THE ANOVA MATRIX VALUES AS REQUESTED BELOW 




LEVELS WITHIN A FACTOR ARE LISTED AS NUMBERS UNDER FACTOR | 


FACTOR NONE NONE NONE B 


A 


VALUE 


1 1 11 


1 


VALUE = ? 9 


1 1 11 


2 


VALUE ^ ? 12 


1 1 11 


3 


VALUE = ? 3 


1 1 12 


1 


VALUE = ? 7 


1 1 12 


2 


VALUE = ? 14 


1 1 12 


3 


VALUE = ? 5 


1 1 13 


1 


VALUE = ? 12 


1 1 13 


2 


VALUE = ? 20 


1 1 13 


3 


VALUE = ?10- 


Fig. 1. Input Format for Analysis of Variance Program 





GRAND MEAN = 10.22222222222222 

SOURCE OF VARIATION SS 


DF MS 


A 134,2222 2 
B 64.6669 2 
A B 8.4444 4 


671111 
32.4444 

2.1111 


TOTALS207.5555555555556 DF TOTAL = 8 
DO YOU HAVE ANOTHER PROBLEM ? '- 

Fig. 2. Output Format of Analysis of Variance Program Using 
Sample Values (see text) 



goes to show that good software 
is where you find it. 

What is the Scientific 
Subroutine Pacltage? 

The IBM Scientific Subroutine 
Package (SSP) is a collection of 
over 2CXJ mathematical Fortran 
subroutines. Any special purpose 
program connects appropriate 
subroutines and then writes a 
main program to call them in the 
correct sequence. The SSP is 
similar to the scientific function 
subroutines in the appendix of 
the TRS-80 Level I manual. 

The versatility of the SSP is 
due in a large part to the way 
Fortran handles subroutines on 
the IBM 360 system and its ex- 
cellent structuring of the sub- 
routines. In IBM 360 Fortran, any 
array data passed to a sub- 
routine must be in a single di- 
mension array or linear array. All 
data entered into a controlling 
main program must be placed 
into this array and leave space 
in the back of the array for inter- 
mediate values a subroutine 
may calculate. 

Observe a data set composed 
of three rows and three columns. 
Normally you would enter the 
data into a variable dimensioned 
X(3,3). However, the SSP enters 
the data as the first nine (9) values 
of a variable dimensioned X(1CK]). 



The Key Box 

Basic Level II 
Model I 
16KRAM 



Another characteristic of For- 
tran subroutines Is that variable 
labels are unique to the sub- 
routine so that a variable labeled 
X in the main program Is different 
from a variable labeled X in the 
subroutine. In converting the 
subroutines to Basic, the vari- 
able labels in the subroutine 
should be compatible with vari- 
ables elsewhere in the program. 
Because of this, many of the sub- 
routine variables may have 
changed from their original form. 

Analysis of Variance Program 

The SSP analysis of variance 
program is composed of: (1) a 
main program to handle the in- 
put, lines 10-550, and output, 
lines 1880-2370, see Listing 1; 
(2) the subroutine AVDAT, which 
places the experimental data in 
specially distributed positions 
in the X# array; (3) the sub- 
routine AVCAL, which calcu- 
lates the sum of squares; and (4) 
the subroutine MEANQ, which 
performs the mean square oper- 
ation of the analysis of variance. 
Program Listing 1, constructs 
the Basic program as a top- 
down or straight flow through 
program. REM statements delin- 
eate the convert SSP subrou- 
tines for easy reference. 

The analysis of variance 
(ANOVA) program in Listing 1 will 
calculate the ANOVA of experi- 
ments with as many as five dif- 
ferent factors and as many as 
three levels per factor. A more 
practical limit would be any exper- 
iment with less than 400 observa- 
tions in five factors. All of the ex- 
perimental data is calculated as 
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an ANOVA with one observation 
per ceil. Almost any type of ex- 
perimentai design can fit into this 
ANOVA form except the partiaiiy 
replicated experiments. 

Data Input 

A sample of the data input for- 
mat is shown in Fig. 1 . The illustra- 
tion is a two factor experiment 
with three levels per factor. First, 
the program requests you to Enter 
the numtier of factors in the ex- 
periment. It then requires a four 
character label and the number of 
levels for each factor. The actual 
experimental data is then entered. 

In entering the data into the 
ANOVA program, Enter the data 
In the correct sequence since 
the data will land in a single 
dimension array. The data entry 
section of the program, lines 
270-470, specifically identifies 
which data element of the ex- 
periment to enter. However, the 
program contains no data re- 
view function. If you make a mis- 
take, you must start over. 

Output Format 

Fig. 2 shows the program out- 
put for the sample input in Fig. 1. 
The output includes the source 
of variation in the experiment, 
sum of squares, degrees of free- 
dom and the mean square. 
When the program lists more 
than one factor on a line under 
the label source of variation, it 
refers to interaction sources of 
variation between the factors 
listed. The program does not 
calculate f ratios. 

Verification of the 
Basic Program 

Calculating accuracy is al- 



ways important in statistical pro- 
grams. In converting a program 
from one language to another, 
there is always a chance for a 
major blunder. To test the Basic 
program in Listing 1, 1 entered the 
sample experiment listed in the 
IBM SSP manual. The setup and 
actual data of the SSP manual 
sample experiment is shown in 
Fig. 3. Fig. 4 shows the resulting 
sum of squares output from the 
Basic program and that listed in 
the SSP manual. 

The two programs produced 
almost identical results for the 
sum of squares for each varia- 
tion source. The Basic program 
in Listing 1 produces the same 
output as the IBM Fortran pro- 
gram. The differences in the sum 
of squares in Fig. 4 usually occur 
in the sixth or seventh significant 
digit. This should be enough for 
most experimental applications. 
If you need greater precision in 
your experimental analysis, 
avoid the program in Listing 1. 

Versatility of the Program 

We converted the SSP pro- 
gram to Basic to tap the SSP ver- 
satility of the original which 
suits almost any experimental 
design within its limited factors 
and observations. The ANOVA 
of nested and multi-observation 
per cell experiments are con- 
structed from the output of the 
program. Combining the sum of 
squares and degrees of freedom 
from listed sources of variation 
accomplishes this. 

Take the ANOVA listed in Fig. 
1 . The experiment was a two fac- 
tor experiment with three levels 
of each factor. If It were a single 
factor experiment with three ob- 



servations per cell, the ANOVA 
program would produce the 
same analysis of variance. The 
listed sources of variation 
should condense into appro- 
priate experimental form. In this 
example, assume that factor B 
is the three obsen/ations per 
cell. The B sum of squares and 
the A by B interaction sum of 
squares would be condensed in 
the error sum of squares, along 
with the degrees of freedom of 
each. The resulting condensed 
ANOVA is found In Fig. 5. 

IBM Copyright Violation 

I have respected the 
copyright to the original IBM 



program. Before starting this ar- 
ticle, IBM personnel in Kansas 
City, Missouri determined that 
IBM had no proprietary rights to 
the programs in the Scientific 
Subroutine Package. 

If you want a copy of the SSP, 
you can either poke around the 
dust filled enclosures of a used 
book store or you can write IBM 
Corporation, Technical Publica- 
tions Department, 112 East Post 
Road, White Plains, New York 
10601. ■ 

George Gille is an Associate 
Professor of Agriculture at 
Northwest Missouri State 
University. 



Source 


ol Variation 




Experiment Su 


T\ of Squares 


TRS-80 Program 


IBM Program 


A 










229.0417 


229.0416 


B 










722.6944 


722.6943 


A 


B 








1382.0833 


1382.0832 













55.1111 


55.1111 


A 


c 








42,0000 


42.0000 


B 


c 








13.1389 


13.1388 


A 


B 


C 






140.7500 


140.7500 


R 










141.6806 


141 6805 


A 


R 








18.8194 


18.8194 


B 


R 








6.0278 


6.0277 


A 


B 


R 






176,9722 


176.9722 


C 


R 








40.7778 


40.7777 


A 


C 


R 






50.5556 


50.5555 


B 


C 


R 






62.6389 


62.6388 


A 


R 


C R 






151.0278 


151.0277 


Fig. 4. Compares 


the 


Sum 


of Squares 


of the Sampie Ex- 


perimental Data in the SSP and the Basic Program Listing 1 



Source of variation SS DF M?.... 

A 134.2222 2 67,1111 

Efror_(B + A&B) J.?'J^33 6 _...12:2222 

Total 207.5555 8 

Fig. 5. Adjusted Analysis of Variance for Output Shown in Fig. 2 



Scientific Subroutine Package Sampie Analysis of Variance 


A tour (4) factor experiment with the toilowing factor ievels; 
Factor A with 4 leveis. 
Factor B with 3 levals. 
Factor C witti 3 ievels. 
Factor R with 2 leveis. 


Data valL 
Faclors 


es for the above sampie expe 
B-1 


mentai data. 
B.2 


B-3 


A-1 A-2A-3A.4 


A-1 A-2A-3A.4 


A-1A-2A-3A-4 


C-1 

R-1 C-2 

C-3 


3 10 9 8 

4 12 3 9 

5 10 5 8 


24 8 9 3 

22 7 16 2 

23 9 17 3 


2 8 9 8 
2 2 7 2 
2 8 6 3 


C-l 

R-2 C-2 

C-3 


2 U 9 13 
7 11 5 8 
9 10 27 8 


29 16 11 3 

28 18 10 6 
28 16 11 7 


2 7 5 3 
6 6 5 9 
8 9 8 15 


Fig. 3. Sample Analysis from IBM SSP 



Program Listing 1 






10 CLEAR 500 






26 DIM ME150) 






30 DIM FS(5) 






40 DIM X#(ie00) ,HS(5] ,j:.G(5) ,IE15) ,KN(5) ,Lfi(51 






50 DIM SQ»(50) ,ND(50) ,SM#(50) 






60 CLSiPHItJT"***************'********* ANOVA 


1 . . 


********'*** 


•••1114**111 " 






70 PRINT STI!1NG5(64,140) 






80 PRINT"CONVERTED FORM IBM-SSP ANALYSIS OF VftRIftNCB 


. THIS PROGH 


9S PRINT" CALCULATES ANALYSIS OF VARIANCE PROBLEMS 


OF 


UP TO FIVE 


FACTORS" 






100 PRINT"AND 10 LEVELS OF EACH AS OHE-OBSERVATIONS 


PER CELL," 


110 PRINT STRINGS(64,:40) :PRINT"STAND BY - SETUP 


IH 


PROGRESS" 


120 FOR 1 = 1 TO lB00!X#iI) *0.0000000000:NEXT IsPHIfJT 


STRlNG$(e4,l 


40) 






130 INPUT"INPOT THE NUMBER OF FACTORS IN PROBLEM 


;K 


PRINT STRING 


S[64,14ei 






140 PRINT-INPUT THE LEVELS OF EACH FACTOR" 






150 IF K > 5 THEN 2350 






160 FOR I - K TO 5 






170 H?(I) ="NONE" 
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Remove the controller board in your printer and 
plug ours in to add the following capabilities: 

• Bidirectional printing 

• Full UPPER/lower case ASCII plus TRS-80 
graphics or DSE sclentifics character sets 
in 9 X 7 dot matrix format (9x9 available as 
option — requires print head change) 

• Motor control — turns off the motor when 
the printer is not in use 

• 2048 character buffer 

• Software selectable features 

• transfer protocol (XON/XOFF or 
none) 

• character densities (10, 12, 15, 16.5 
cpi plus double width in each size) 

• self-test 

•^orms, length, control 



$350 assembled and tested 



^269 




Suite 400 Carolyn Building 
10400 Eaton Place 



Fairfax, VA 22030 



(703) 385-0900 



VISA, MasterCard, check, COD accepted 



START AVDAT 



1 ) 



Listing continued 
180 LG(I) - 1 

190 NEST I 

2ea FOR 1 = 1 TO K 

210 PRINT'FOR FACTOR ".-I;" OF ";K" FACTORS 

226 INPUT"INPUT A 4 CHARACIEK NAME OP FACTOR" ;HS ( 1} 

230 IF LEN(1!S( J) )>4 THEN 220 

240 IF LEN(H5[I))<>4 THEN H¥(I)-" "+HS(I):GOTO 240 

250 INPUT"INPUT THE NUMBER OF LEVELS IK THE FACTOR" jLG [ I) 

260 PRINT STRINGS(63,140) iNEJtT I 

270 CLS:PRIKT"INPUT THE ANOVA MATRIX VALUES AS REQUESTED BELOW" 

2ea W1S="FACT0R %* *% %% i I %% VALUE" 

29B WZS=" ##tl l#t# tttt #### ####* 

380 PRINT'LEVELS WITHIN A FACTOR ARE LISTED AS NUMBERS UNDER FAC 

TOR" 

310 GOSUB 23«8 

320 J - i;L = e 

330 FOR II = 1 TO LG[5) 

340 FOR 12 - 1 TO LG(4) 

350 FOR 13 = 1 TO LG(3) 

360 FOR 14 - 1 TO LG{2) 

37B FOR 15 = 1 TO LG(1) 

380 PRINT USING W2S; II , 12 , 13 , 14 , IS ; 

390 L=L+1 

400 INPUT" VALUE = "; Xt (J) 

410 IF L=13 THEN GOSUB 2340!L=0 

420 J = J + 1 

430 NEXT IS 

4 40 NEXT 14 

4 50 NEXT 13 

46 NEXT 12 

470 NEXT 11 

4B0 H = LG{1) + 1 

490 N = LG(1) 

500 FOR I = 2 TO K 

S10 H = M * (LG(I) + 1) 

520 N = N • LG(I) 

53 NEXT I 

540 MH - H + 20 

550 IZ = 1 

560 REM '**•«**.... 

570 MM = LG(1) + 1 

530 FOB I = 2 TO K 

599 MM = MM * ( LG ( I 

60 NEXT I 

610 Nl - MK ■■■ 1 

620 N2 = N + 1 

630 FOR I = 1 TO N 

640 Nl = Nl - 1 

650 N2 = K2 - 1 

660 Xt (Nil = Xtf (N2) 

670 NEXT I 

680 IE(1) = 1 

690 FOR I = 2 TO K 

79B lElD = lE(I-l) 

710 NEXT T 

720 FOR I - 1 TO K 

730 KN(I) = 1 

7 40 MEXT I 
750 Bl = m - 1 
760 FOR I ^ 1 TO K 
770 L -^ KN!1) 
780 FOR J = 2 TO K 
790 L = L + IE(J) * 
800 «EXT J 
810 Nl - Nl -f 1 
S20 Xt(L) = X#[N1) 
830 FOR J « 1 TO K 
840 IF (KH(J) - LG[J 
850 KN(J) = KK(J) + 1 
860 GOTO 890 
870 KN(J) = 1 

8 80 NEXT J 
890 NEXT 1 

900 REM **«••*••*.• START AVCAL *» 
9ia LA(1) = L + 1 
920 FOR I = 2 TO K 
930 Lfl(I) - LA(l-l) + lEU) 
940 NEXT 1 
950 FOR 1 = 1 TO K 
960 L = 1 
970 LL = I 
9S0 SV# = 0,0 
990 Na = LG(I) 
1000 SH = NN 
1910 IW = IE(I) 
1020 LH - LA(I) 
1030 FOR J = 1 TO NK 
1040 SVI - SVt + X#(L) 
1050 L = L + IW 
1060 NEXT J 
1070 X#(L) - SV* 
1080 FOR J = 1 TO NN 
1090 Xf{LL) = NN * X«(LL) - SV# 
1100 LL - LL + IW 
1110 NEXT J 
1120 SV# = 0,0 

1130 IF (L - LH) >= THEN 1218 
1140 IF (L-LH + IM) > THEN 118B 
1150 L = L + IW 
1160 LL = LL + IW 
1170 GOTO 1030 
11S0 L-L+IW+1-LH 
1190 LL = LL + IW + 1 - LH 
1200 GOTO 1030 
1210 NEXT I 

1220 REM ••*••****** START MEANQ 
1230 REM CHANGE N TO HZ 
1240 NZ - LG[1) 
1250 FOR 1 = 2 TO K 
1260 NZ = NZ * LG(I) 
1270 NEXT I 
1280 LAID = LG(1) 
1290 FOR I = 2 TO K 
1300 LA(I) = LG(I) + 1 
1310 NEXT I 



(LG(1-1} + U 



(KN(J) - 1) 



THEN S70 ELSE 85£ 
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Listing continued 



1320 
1330 
1340 
1350 

1360 
1370 
13!)0 
1390 
1400 
141B 
1420 
143B 
1440 
1450 
1460 
1470 
1480 
1490 

isee 

1510 
1520 
1530 

1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
16 80 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 



TliEN 153 



1910 

1920 



NN = 1 

LL = (2[K) - 1 

MS-(l) - 1 

FOR I = 2 TO K 

MS{I) - KS{I-1)*2 

NEXT I 

KOR I ^ 1 TO LL 

SQ#{I) =0.0 

NEXT I 

FOR I = 1 TO K 

KH{I) ^ 

NEXT I 

L = e 

FOR I - 1 TO K 

IF (KH(I) - LA(I)) 

IF L > THEN 152B 

KH(I) = KN(I) + 1 

IF (KK(I) - LGtD) > THEN 1530 

L = L + MS(I) 

GOTO 1540 

IF (KN(1) - LG(I))= THEN 1540 ELSE 1500 

KN(I} = a 

NEXT 1 

IF L > fl THEN 1560 ELSE 1590 

SQt(L) = SQf(L) + XS(NN) * X#(NN) 

NN = NN + 1 

GOTO 14 40 

ZN = HZ 

GES = X#(NN) / ZH 

FOR I = 2 TO K 

MSlD - 

NEXT I 

NK = 

MSID = 1 

N9 = 1 

H8 = 1 

FOR I = 

IF (MS(I): 

N9 = N9 

NB = B8 

NEXT I 

39 - NZ * N9 

Z8 = NS 

NtJ - NN + 1 

SQ#[NK) = SQ#(KN)/S9 

ND(NN) = m 

SMS(NN) = SQ#(SN) / ZB 

IF (NN - LL) >= THEN 1870 

FOK I - 1 TO K 

IF MSII) = THEN 1B40 

MSC) = 

GOTO 186 

MS (I) - 1 

GOTO 1660 

NEXT I 

REM ••*«•* END MEANQ *******' 

REM **»•****• MAIN PROGRAM *• 

CLS:0Q=3 

PRINT "*»■••********•*•*'•**«•> 

PRINT-GRAND MEAN ""jGE* 
PRINT'SODRCE OF VARIATION 



TO K 

= THEN 1720 
I.G(I) 

(LGin-i) 



1930 PRINT" 



1940 

1950 

1960 

1978 

19 80 

1990 

2B00 

2B10 

2020 

2030 

2040 

2050 

2060 

2070 

20B0 

2090 

2109 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

? 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 



LL " (2[K) - 1 

IE(1) = 1 

FOR I = 2 TO K 

IE(I) = 

NEXT 1 

t'OR I = 1 TO 5 

US = BS 

NEXT 1 

NN = 

SV# =0.0 

NN = NN + 1 

L = 

FOR I = 1 TO K 

FSil) = BS 

IF JE,(I1 = TilEN 2110 

L = L + 1 

FSIL) = HS{I) 

MXT I 

SAi = SQS[NN) 

NA - HD(NN) 

ftAS " SMflNK) 

FOR 1=1 TO 5:PEINT USING "% % " ; F? (I ) ; : NEXT I 

PRINT USING "#t(tf.tlff-,EA#;:PEINT USING " #S "-NA- 

PRINT USING " *##»#. ###)(";AA# 

QQ=QQ-H 

IF QQ-10 OR QQ=24 THEN INPUT'Ct: PRESS ENTER FOR KEST »" ;QQ 

SVI = SV# + SQt(Nbll 

IP (HN-LL) >= THEN 2290 

FOR I = 1 TO K 

IF lEtl) = THEN 2260 

IE(I1 = 3 
GOTO 2 2 80 
IE (I) = 1 
GOTO 2040 
NEXT I 
N = H ~ 1 



2300 PRINT" 



2310 PRINT" TOTALS " ; SV# ; " DF TOTAL =";B 

2320 INPUT-DO YOU ilAVE ANOTHER PROBLEM ";QQS 

2330 IF QOS="YES" THEN 120 ELSE 2360 

2340 PRINT USING W1E;HS(5| ,US(4) ,HS(3) ,HS(2) ,aS{l) SPRINT STRINGS 

(63,140) :RETURN 

2350 CLS;PRINT"ANALYSIS TOO LARGE - USE TIME SHARE SYSTEM" 

2360 PBINT'END OR PROGRAM" 

2370 END 



PRICE BREAKTHRI 







%^ C^ *v: 



^.. 



IRACLE!! 




FLOPPY DISIV 



For Mod I, Mod III, IBM-PC, 
etc. inc. PS & case 

Add $100 for 80 track 
Floppy Disk Case and Power 
Supply— $49.95 
Available as Bare Drives 

■SSDD — Single Side Double 
Density, DSDD — Double Side 
Double Density 




^■S>- 



Complete 
Famous Manufacturer 6.3 
Meg WinchesterDisk System 
Inc. Power Supply, Case, 
Cables & DOS Assembled & 
Tested— 120 Day Warranty 
Available for IBM-PC 



9.6 Meg $ 
complete 
12.6 Meg 
complete $ 
<2 drives) 
19.2 Meg 
complete $ 
(2 drives) 



»1799 



Coming Soon— Mod III & IBM Internal Winch^|^ 
MOD I- Floppy-Winchester Combo, pkg. 



'LAST but n 

TRS-80 Mod III 48K 
+ 1 Floppy disk* 
+ 2 Floppy disks* 

RS232C 

Add $100 ea. for 80 tk drives — 

TRSDOS& Manual S21 — 



n 



leie kii6- 1 dr Jjac 2 ni SfiiSO 



*899 
*1349 
»1549 

add*7C} 

Dosf *99 



better than E 



Tenns-COD or Prepaid Only DISK SUPPLY CO, 

F.O.B. Shipping Point SuHG 439 

(215) 461-5437 %JUi«5 -t*^%F 

Prices Subject to Chagge „, J J1 S. OIlVG St. ; 

' '^'1dia,PA190ft|i^ 

TRS-80 Trademark of Tandy Corp. '■■-■W; 
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HARDWARE 



Use the Z80's interrupt versatility to soup up your Model L 




rupt This Program . . 



Dennis Workman 

15940 Jackson Oaks Drive 

Morgan Hill, CA 95037 



The Z80 microprocessor has 
the most versatile interrupt 

processing capabiiities of any 
eight bit CPU. In most respects 
it equals or exceeds those avail- 
able on minicomputers. A few 
simple hardware modifications 
can equip the Model I with the 
Z80's Interrupt capabilities. The 
modifications will not introduce 
incompatibilities with software 
or operating systems not using 
the real time clock. The clock 
may be retained by installing a 
switch. 

The Z80 has three maskable 
interrupt modes: Mode 0, Mode 1 
and Mode 2. The modes are called 
maskable because they are en- 
abled or disabled (masked) with 




software instructions. The Z80's 
one non-maskable interrupt is 
used in the h/lodel I for reset 
purposes. 

Mode asserts an interrupt 
request by placing a low logic 
level on signal input line INT. 
The line is brought out of the 
Model I through the expansion 
Interface bus. If the Interrupt 
system is enabled by the soft- 
ware, the Z80 acknowledges the 
interrupt by simultaneously as- 
serting low logic levels on signal 
lines lORQ and Ml. These 
lines are not available as out- 



puts. An output called INTAK is 
available on the expansion inter- 
face bus. INTAK is the logical 
AND of MT and lORQ, and be- 
comes a logic low when Ml and 
lORQ are both low. When INTAK 
Is low it becomes the responsi- 
bility of the interrupting device 
to place a single eight bit word 
on the data bus. The Z80 inter- 
prets this word as its next in- 
struction. 

Mode is not useful in a 
Model 1 vi/ith the Basic inter- 
preter in ROM. The reason for 
this lack of utility becomes ob- 
vious when you consider the 
repertoire of single byte instruc- 
tions available with the Z80. 
None of these instructions can 
vector the CPU to an interrupt 
service routine except the re- 



start instructions. All of these 
instructions vector the Z80 to a 
location in its address space oc- 
cupied by the interpreter ROM. 

Mode 1 also makes its pres- 
ence known by asserting a low 
logic level on INT. In this case 
ZBO responds by jumping to 
38H. Simitar to the non-mask- 
able Interrupt, In this mode pro- 
gram execution begins at a fixed 
address. The non-maskable in- 
terrupt vectors the CPU to 66H. 

Mode 1 is used by the real 
time clock and the floppy disk 
controller processing routines. 
It is possible to utilize the Mode 
1 interrupt by disrupting the nor- 
mal processing routines exiting 
the interpreter ROM via hooks to 
low RAM. (See The Assembly 
Line, 80 Microcomputing, 
"October 1981.) 



The Basic interpreterhasa JP 
4012H instruction at 38H. By dis- 
abling the real time clock, this 
interrupt mode could be used to 
access an interrupt service 
routine since 4012H lies above 
the interpreter. Another JP in- 
struction could be placed at 
4012H to vector the CPU to any 
location in RAM. 

This interrupt mode has lim- 
ited power. A polling routine 
must determine what device 
produced the interrupt. 

Mode 2 Is the most powerful 
ZBO interrupt mode. It is similar 
to the interrupt structure of 
most large computers. The inter- 
rupting device can directly vec- 
tor the CPU to any location in its 
address space. No polling rou- 
tines are required. 




Fig. 1 
Original Keyboard Circuitry 



Fig. 2 
Modified Keyboard Circuitry 
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The sequence of steps when 
the CPU is configured (by soft- 
ware) for Mode 2 are: 

• The interrupting device asserts 

an interrupt by placing a logic 
low on the signal line INT; 

• Shortly after the end of the 
current instruction, Z80 ac- 
knowledges the interrupt by 
placing low logic levels on 
lines Ml and TORQ. (INTAK at 

the expansion bus output will go 
low.); 

• The interrupting device must 
place an eight bit value on 
the data bus when INTAK is 

low. The Z80 reads this value on 
the rising edge of INTAK; 

• Z80 uses the eight bit value 
read above in conjunction 
with another eight bit value 
the programmer has previous- 
ly placed in the I Register to 
form a 16 bit word. This word 
is referred to as a pointer; 

• The 16 bit pointer Is em 
ployed to point to the loca- 
tion In RAM containing the 
starting address of the inter- 
rupt service routine. The 16 
bit pointer does not point to 
the service routine; it points 
to a location in RAM contain- 
ing the starting address of 
the sen/ice routine; 

• Z80 loads the eight bits of 
data contained in the 
memory location defined by 
the pointer into the lower 



& 



-4^<1— ^ 



NEWER INTERFACE 



& 



■^ (^s T " 



OLDER INTERFACE 

Fig. 3. Interface Comparison 



eight bits of the program 
counter. The eight bits of 
data contained in the mem- 
ory location defined by the 
pointer plus one are loaded 
into the higher eight bits of 
the program counter; 
• Program execution begins at 
the address now in the pro- 
gram counter. 

When a non-maskable interrupt 
is accepted by Z80, further non- 
maskable interrupts are inhib- 
ited until the software enables 
them again. 

Mode 2 allows direct access 
to 128 independent interrupt ser- 
vice routines which could cor- 
respond to 128 separate inter- 
rupting devices. Alternatively, a 
single device could elicit 128 dif- 
ferent responses. It is possible 
to rate the Interrupting devices 
so they do not Interrupt one 
another. 

Hardware Limitations 

A variety of sources including 
"The Assembly Line" and the 
Radio Shack Model I technical 
manual state it is impossible to 
access Mode 2 interrupts due to 
Inherent TRS-80 hardware lim- 
itations. Some sources describe 
these limitations as a lack of Ml 
and lORQ at the expansion bus 
output, inherent software de- 
fects In the Basic interpreter, 
specially designed Z80's which 
do not allow this mode and 
others. 

There are two reasons the 
Mode 2 will not work on an un- 
modified Model I. First, when in- 
terrupts are enabled by the soft- 
ware the real time clock gener- 
ates an interrupt request as it 
does every 25 milliseconds. This 
request is interpreted as a valid 
Mode 2 request. The Z80 will be 
vectored to an invalid memory 
location and hang or boot a disk 
drive. I have long regarded the 
clock as a nuisance and wel- 
comed this motivation to dis- 
able it. 

Second, although Radio 
Shack obligingly provided the 
INTAK signal at the expansion 
bus output, they neglected to 
allow the data bus to read the 
data presented by the interrup- 
ting device. When INTAK is low 
the data bus is placed in a write 
state by the hardware and the 



external device is ignored. 

Modifying thie Hardware 

A majority of TRS-80 users 
have probably never loosened 
the screws on their keyboards. 
Bold intimidating warnings 
scare many people away. Truth 
is, the Model I is a rugged in- 
destructible piece of equipment. 
The risk of damage, if reason- 
able care is taken, is negligible. 
Radio Shack will bail you out if it 
does not go well. 

You will need a small Phillips 
screwdriver, a soldering Iron (25 
watts or less) and solder, a smal! 
wirecutter, about a foot of 24-28 
gauge wire, an Exacto knife and 
small needle nosed pliers. 

Keyboard Unit Modification 

Disassemble the keyboard 
unit and place the circuit side 
of the PC board up. Locate inte- 
grated circuit Z53. This !C Is a 
74LS132. Connect Pin 4 of Z53 
directly to Pin 3 of 273. Fig. 1 
shows the unmodified circuitry. 
Fig. 2 shows the modified cir- 
cuitry. Disconnect Pin 4 of Z53 
from line going to the Z80 
BUSRQ input. Cut Pin 4 of Z53 
as close to the printed circuit 
board as possible using a small 
wirecutter. Carefully bend the 
cut pin to an approximately 
horizontal position. Solder a 
wire between the cut pin and 
pin 3 of Z73; the modification is 
complete. 

With this modification the 
data bus exiting the keyboard 
unit is in the read state when 



INTAK is low. Previous opera- 
tion of the keyboard will be unaf- 
fected. 

Expansion 

Interface Modification 

There are at least two gen- 
erations of expansion interface 
units; the modifications re- 
quired differ. 

The older expansion Inter- 
faces are characterized by a buf- 




fered interface cable. The newer 
interfaces have no buffered in- 
terface cable. The newer inter- 
faces source the INT signal to 
the keyboard unit from Pins 10 
and 12 of Z34. The older units 
source INT from Pin 3 of Z39. 
Fig. 3 shows partial schematic 
diagrams for each unit. 

On newer interfaces cut the 
trace connecting Pin 9 of Z26 to 
Pin13ofZ34.GroundPin13, Fig. 
4 shows the modification and 
how to install a switch restoring 
the clock. 

For older interfaces cut the 
trace connecting Pin 8 of Z30 to 
Pins 9 and 10 of Z35. Fig. 5 
shows the modification and 
how to install a switch. 

Fig. 6 details a simple inter- 
rupt generator. SW1, a dip 
switch, selects the interrupt vec- 
tor. IC1 is an octal tri-state driver 
used to place the selected vec- 
tor on the data bus when INTAK 
is low. Switch (pushbutton) SW2 
generates the interrupt request. 

Z80 interrupt capability is 
now available on your Model I. 
The new hardware and software 
capabilities are worthwhile par- 
ticularly In applications charac- 
terized by a very busy CPU. ■ 




CUT 

TRACE 



Fig. 5. Older Modification 




<INTfiK(l4) 



r^' 



-^ INT (21) 
-< GND (37) 



I 



-< GND (29) 



Fig. 4. Nev^er Modification 



I ) s TRS-80 BUS PIN NO 

Fig. 6. Simple INT Generator 
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GENERAL 



"^ 



LOAD 80 



If I marry your sister, will we be related? 



The Family Tree 



Richard W. Castor 
345 South 51st Avenue 
Bellwood, IL 60104 



Computerized genealogies 
in recent literature are too 
soplnisticated, detailed and 
overpowering for the average in- 
dividual. The average family 
does not have tfie hardware 
needed for such programs. 

To make computerized gene- 
alogies useful to the public, they 
should require minimal informa- 
tion from normai family records. 
Not everyone interested in 
ancestry has the time or inclina- 
tion to do extensive research in- 
to public records. j-. 

Genealogy II, a stripped-down 
version of more comprehensive 
renditions, is written in Basic for 
a TRS-80 Level II 16K. It gener- 
ates and manipulates a string 
matrix. 

Genealogy M traces ancestry 
back four generations {to great- 
great-great grandparents) and 
identifies aunts, uncles, and 
first cousins from simple family 
records consisting of the names 
of the father, mother, and their 
children. 

The names must be unique; 
use Jr., Sr., I, II, or III where 
ancestors have identical sur- 
names and given names. If you 
use only the middle initial do not 
inadvertently destroy the unique- 
ness of the names involved. 

Program Listing 1 generates 
the genealogical matrix G$(R,C) 
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and provides a menu to edit, 
add, delete, display, and store 
its elements. Program Listing 2 
manipulates G$(R,C) to form the 
ancestral list F${N). Program 
Listing 3 manipulates G$(R,C) to 
create the family relationship 
matrix V$(R,V). 

The matrices associated with 
these three programs are in Fig. 
1. The program does not alpha- 
betize the records. If you desire 
a better organized file, enter the 
data systematically based on 
generation or side of the family, 

A written transcript of the 
record number and its associat- 
ed name aids in future updates. 
Option two of Listing 1 displays 
this information. 

The six Level II Basic string 
handling statements format Print 
# -1 and Input # -1 print string 
routines which reduce data 
transfer time to less than 3.5 
seconds per family record (see 
Listing 1 lines 800-999). The 
F?rint # -1 routine empties the 
G$(R,C) matrix to reuse the 
memory for the print strings. 
Conversely, the Input # -1 
routine nulls the print strings. 
Without this you would soon 
useuptheavailablememory ina 
16K system. 

Delete the monitor display 
statements associated with 
print string formatting after you 
have used them for study or 
debugging. 

Since string spacing is signifi- 
cant and must be identical for 
proper searching and sorting, 
omit both leading and trailing 



spaces. Pay p'articular attention 
to internal spacing between the 
elements of all names. Omit 
such punctuation as a comma 
between last and first names. 

Genealogy II provides a start- 
ing point for a more comprehen- 
sive rendition of lineage. Each 
record in the genealogical 
matrix G$(R,C) can be expanded 
to include dates and places of 
birth and death, date and place 
of marriage and places of resi- 
dence. For most individuals, 
blank or unknown entries ex- 
ceed the known entries in such 
an expanded version. 

You can organize and display 



the lineage and family relation- 
ships of any individual whose 
name appears under issue in a 
family record. The degree to 
which you accomplish this 
depends upon the complete- 
ness of each family record. The 
ancestry and family relation- 
ships become more complete as 
you enter more records. The pro- 



The Key Box 

Basic Level I) 
Model I 
16K RAM 



Program Listing 1 



8 ON ERROR GOTO 2 

10 CLEAR 7000:DIMGS(12,751 

15 DIHL1(30) ,PS(30] 



20 PRINTTAB(51 

21 PRINTTAB[i0) 
30 PRINT "TYPE 
40 PRINT TflB{61 
50 PRINT TAB[6) 
60 PRINT TAB{61 



GENEALOGY PROGRAM **"' 
t*** MENU •«•*■■ 

(1) TO BUILD A FILE- 

(2) TO SEE THE ENTIRE FILE" 

(3) TO SEE AN INDIVIDUAL RECORD" 

(4) TO MAKE CORRECTIONS* 

70 PRINT TAB{61"(5) TO SAVE THE CURRENT FILE ON CASSETTE" 

80 PRINT TAB(6)"{6) TO UPDATE CURRENT FILE TAPE" 

81 PRINT TAB(6)'(7) TO END PROGRAM" 
90 INPUT Q:ON Q GOTO 110 ,340 , 600 ,400 , 800 ,9G 
110 CLS:LET C=l 

120 FOR C-1 TO 75!CLS!lFC>75 GOTO B00 
130 PRIKT'THIS IS RECORD #"fC 
140 INPUT "FATHER'S NAME ; " ;GS (1 rC) 

MOTHER'S NAME!"fGS(2,C) 

TO END RECORD TYPE ••*«* (FIVE ' 

eNTEB ISSUE;" 

1"!G5(3,C) !IF GS(3,C) ="••*••" 

2";GS(4,C) :IF GS ( 4 ,C) ="»****' 

3";GS(5,C) !IF GS ( 5 ,C) ="■'••*' 
200 INPUT "4";GS[6,C) :IF GS [6 , CI ="••*•* ' 
210 INPUT "5"iGSI7,C) :IF GS (7 ,C) ="****'" 

6";GS:8,C) :IF GS { 6 ,C} ="**•*«" 

7"iGS(9,C) ilF G5 (9, €)="**■•• 

8";GS[10,C) !IF G$(10,C)-"***' 

9";GS[11,C] !IF GS(11, €}="**" 

10",GS112,C1 ;IF GS{12,C)-"*'* 



150 INPUT 

155 PRINT 

160 PRINT 

170 INPUT 

180 INPUT 

190 INPUT 



220 INPUT 
230 INPUT 
240 INPUT 
250 INPUT 
260 INPUT 



i.ie 



2 "'Sj AS LAST RECORD" 
GOTO 2B1 

GOTO zai 

GOTO 2B1 

GOTO 2S1 

GOTO 281 

GOTO 281 
' GOTO 281 
'" GOTO 281 
'" GOTO 281 
"*" GOTO 281 



281 IP FRE(XS)<200 THEN PRINT"WARNING FILE END NEAR" 

282 IF FRE(XSj<=0 GOTO 998 

290 PBINT"TO ENTER ANOTHER RECORD, TYPE 1" 

300 PRINT"OTHERWISE, TYPE 0" 

310 INPUT A 

320 IF AOl THEN P1-C:PRINT"FILE CLOSED" :GOTO 20 
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Listing 1 Continued 

330 NEXT C 

340 CLSiPRINT'RECORD # " ,-TAB(I0> "NAME" 

345 FOR C=l TO PI 

350 PRINTC,TflGU01OSll.C) 

355 FOR N=l TO 10 

36B LET N1=10*N 

365 IF C^Nl THEN INPUT'HIT ENTER TO CONTINUE" jXiGOTO 375 

370 NEXT H 

375 NEXT C 

380 INPUT"TO SEE THE MENU, HIT ENTER" ;X :GOT0 20 

400 CLS:PRINT"IF THE RECORD NUMBER TO BE CHANGED IS KNOWN, TYPE 

AND ENTER IT HERE. IF IT IS NOT KNOWN, TYPE 0" 

410 INPUT C 

420 IF C<>0 GOTO 480 

430 INPUT "ENTER THE NAME (LAST, FIRST, MIDDLE) OF THE RECORD TO 

BE CHANGED" r GS 
440 FOR C=l TO PI 
450 IF GS-GSU,C) GOTO 480 
455 IF GS=GS(2,C) GOTO 4S0 
460 NEXT C 
470 PRINT"NAME HOT IN FILE"i GOTO 550 

480 FOR T=l TO 12 

490 PHIHTGS{T,C) 

500 INPUT "is THIS DATA CORRECT? eHTER YES OR NO"; El S 

5ie IF BlSi-"YES° GOTO 530 

520 INPUT 'ENTER CORRECT DATA" j GS (T ,0] 

530 PRINT'DATA NOW READS ";GS(T,C) 

5 40 NEXT T 

550 INPUT "FOR ANOTHER CORRECTION, TYPE 1; OTHERWISE, TYPE 0";X 

560 IF X=l THEN 400 ELSE 20 

600 CLS:PRINT'IF THE RECORD NUMBER TO BE VIEWED IS KNOWN, TYPE A 

ND ENTER IT HERE, IF IT IS NOT KNOWN, TYPE 0" 

610 INPUT C 

620 IF C<>0 GOTO 6B0 

630 INPUT "ENTER THE NAME 

BE VIEWED"(GS 
640 FOR C=l TO PI 
650 IF GS=^GS(1,C1 GOTO 680 
655 IF G5=GS[2,C1 GOTO 680 

6 50 NEXT C 

670 PRINT'NAME NOT IN FILE°:GOT0 710 

6SB FOR T=l TO 12 

690 PBINTT, G5(T,C! 

700 NEXT T 

710 INPUT "FOR ANOTHER RECORD, TYPE 1; OTHERWISE, TYPE 0";X 

720 IF X=l THEN 600 ELSE 20 

800 CLSiPRINT'NOTE CASSETTE COUNTER FOR START OF THIS flLE'iINPU 
T"PLACE CASSETTE IN <RECORD> HODE. WHEN READY, PRESS <EHTER>";X! 
CLS:PR1NTTAS'(23] '**** COPYING *'**":PRINT 

801 PRINT'THE LAST RECORD IN THIS FILE IS #";P1 
B05 C1-1:R1=1:P=1:D1-0!P5(P1 =■" 

810 IFC1>P1THEKPRINT'F0RMATTIHG COMPLETE" :C2=C1--1 :L1 (P) =D1 :GOTOe 

70 

B15 L-LEN1GS1R1,C1] ) 

B20 LS=STRS1L) 

825 IFL<10THENLS=RIGHTS ILS,1) !LS-"0"+LS 

830 IPL->10THENLS-RIGHTS{LS,21 

840 lFGSlRl,Cl)=-"ORL-aTHBlJLS-'0S":GS(KI,Cl]=STRING5(5,3 2) iL=5 

845 GS(R1,C15=LS+GS(R1,C1) :LS-"" 

B50 Dl=Dl+(L+2) ^. 

85 5 IF24 8-DliL+ZTHENLHfS&Dl-(L+2) !Dl=L+2: P=P+1 : P5 IP) ='" 

860 PS!^)=PS1P)+GS(R1,C11 

361 PRINTP;D1,PS(P) 

862 IFG5(Rl,Cl)="05***"'THENGS[Rl,Cl)-""iRl=ljCl=Cl+a!GOTO810 

863 GS(R1,C1)=""!R1=R1+1 

864 IFR1=13THENR1=I:C1-C1+1 
365 GOTO810 

870 PRINT#-1,P,C2 

875 F0RP1=1T0P 

B76 PRINTPIjLllPIl ,PS(Pl) 

S80 PRINT«-1,L1(P1) ,PS(P1) 

885 NEXTPl 

89B PHINT"NUHBER OF RECORDS "jC2:Pl=C2 

895 PR I NT "COMPLETE — NOTE TAPE LOCATION" 

896 INPUT"DO YOU WANT A DUPLICATE DATA TAPE lY/n) " ; AS: IFNOTASs'y 
"THENGOT0899 

897 CLS:PRINT"NOTE CASSETTE COUNTER FDR START OF THIS FILE.":INP 
UT"PLACE CASSETTE IN <RECORD> HODE, WHEN READY, PRESS (ENTERJ'jX 
:CL3iPRIKTTAB(21) ""** DUPLICATING ****':PRINT 

898 PRINT"'1:HE last record IN THIS FILE IS S" ; Pl!GOTO870 

899 PRINT"SESSION COMPLETE" i END 

900 PFINT"PLACE TAPE CASSETTE IN <PLAY> MODE AT PROPER LOCATION" 
:INPUT"WHEN READY, PRESS <ENTER>' jXiCLS 

905 INPUT 1|-1,P,C2 

910 PRINT"THIS FILE CONTAINS ";P; "PRINT STATEMENTS" :PRINT*THE L 

AST RECORD ON FILE IS #";CZ 

915 FORPl^lTOP 

920 INPUT f-l,Ll{PI) ,PS[P1) 

925 PRINTP1,L1[P1) ,PS[P1) 

930 NEXTPl 

935 PRINT "RETRIEVAL COMPLETE" : INPUT'PRESS <ENTEH> TO CONTINHE"lX 

:CLS 

940 Cl=l;Rl=l:Pl=liDl=l 

945 GS(R1,C1)=MIDS(PS(P1) , tDl+2) ,VAL(MIDS (P5(P1) ,D1,2))) iPRINTDl 

;Pl!Rl;Cl;GS(Hl,Cl) 

9 50 D1=D1+2+VAL(HIDS(PS(P1) .01,2)) iIPDl">Ll(Pl)THENPS(Pl) ="" iPl- 

Pl+l!Dl=l 

955 IFCl>C2THEtiGOTO980 

960 IFGS|Rl,Cl)="*'**"THENRl=liGl=Cl+liGOT0946 

955 R1=R1+1 

978 IFR1=13THENR1=1:C1=C1+1 

975 GOT0945 

980 P1=C2!PRINT"D0NE~HATRIX RESTORED" : INPUT'PRESS <EHTEB> TO CO 
NTINUE";XiCLS 

981 PRINT"TYPE (1) TO SEE CURRENT FILE' 

982 PRINTTAB(6) "(2) TO SEE AN INDIVIDUAL RECORD' 

983 PRINTTAB(6) '(3] TO CORRECT CURRENT FILE" 

984 PRINTTABI6) "(4) TO ADD TO CURRENT FILE' 

985 INPUT UiON U GOTO 340,600,400,990 

990 FOR C=(P1+1) TO 75!lF C>75 PRINT "FILE FULL ENTER OPTION 1 

, 2, 3": GOTO 981 

991 GOTO 130 

998 Let P1=C 

999 print"file closed" 

1000 input "has this file been saved? type yes or no"; al s 

1010 IF AIS-'YES" TREN 1020 ELSE 20 
1020 END 



grams accomodate 75 such rec- TRS-80 Level II. Although they 
ords, somewhat more than the run spaced as listed for ease of 



average beginning genealogist 
can construct. 

These programs use nearly all 
available memory of a 16K 



typing, compress them to con- 
serve memory. Use a high-qual- 
ity recording medium {Memorex 
MRXj Oxide or equivalent). A 
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Program Listing 2 



(32) ,L1(30) ,PS|30) 



:INPUT"PREES <ENTER> TO CONTINUE";X: 



:PRINTDlf 



'lPl=P 



8 ON ERROR GOTO 110 

10 CLEiCLEAB 7000:DIMGS [12 , 75 ):DIHF; 

15 PRINTTAB(24) "••• ANCESTRY ***" 

20 PRINT"PLACE TAPE CASSETTE IN <PLAY> HODE AT PROPER LOCATION': 

INPUT"WHEN READY, PRESS <ENTER>"iX:CLS 

25 INPUTt-l,P,C2 

30 PRINT'TBIS FILE CONTAINS ";P;" PRINT STATEHENTS" : PRINT"THE LA 

ST RECORD OK FILE IS "fC2 

35 FORPl-lTOP 

40 INPUT|-1,L1(PI) ,PS[P1] 

45 PRINTP1,L1(P1) ,PS(P11 

50 NEXTPl 

55 PRINT "RETRIEVAL COMPLETE" 

CLS 

60 Cl = ltRl-l!Plt'l:Dlt=l 

65 G5(R1,C1]=MIDS1PS[P1) ,(Dl+2) ,VAL(HIDS (PS(Pl) ,D1,2) 

Pl;RljCl;GS(Rl,Cl) 

70 D1=D1+2+VAL(MIDS(PS(P1] ,D1,2) ) : IFD1 = >LHP11 THENPS [Pll =" 

l+l!Dl=l 

75 IFC1>C2THENGOTO10 

80 IFGS(Rl,Cl)''"***"'THENRl = l:Cl=Cl+l!GOT065 

65 Rl=Ri+l 

90 IFB1=13THENR1=1:C1=C1+1 

95 GOT06 5 

100 P1=C2!PRINT"D0NE— MATRIX RESTORED" : INPUT"PHESS <ENTER> TO CO 

NTINUE";XiCLS 

110 CLS: INPUT "TYPE NAME OP INDIVIDUAL WHOSE ANCESTRY IS DESIRED 

(LAST FIRST MIDDLE INITIAL] " ;FS ( 1) 
120 FOR K^2 TO 32 
125 LET FS(K) =■******««•»- 
13 NEXT K 
150 FOR C^l TO PI 
160 FOR R=3 TO 12 
170 IF GS(R,C)=FS(1] GOTO 200 
175 IF GS(R,C)='*****" GOTO 185 
180 NEXT R 
185 NEXT C 

190 INPUT'NAME NOT IN FILE. PRESS ENTER" ;X :GOTG110 
200 INPUT "WHICH SIDE OF THE HOUSE IS DESIRED? TYPE FATHER 

OR MOTHER' J HS 
210 IF HS='FATHER" THEN FS { 2) -GS 1 1 ,C) ELSE FS ( 2) -GS( 2 ,C) 
240 FOR C-1 TO PItFOH H=3 TO 12 
250 IF GS(R,C1=fS(2) goto 270 
255 IF GS[R,C)-"*"**" GOTO 265 

26 NEXT R 

265 NEXT C: GOTO 1000 

270 LET FS(3)=GS(1,C) 

280 LET FS(4)=GS(2,C) 

290 FOR C=l TO PliFOR R-3 TO 12 

300 IF GS(R,C)»FS(3) goto 320 

305 IF GSIR.C) •="****"' GOTO 315 

310 NEXT R 

315 NEXT C: GOTO 340 

320 LET FSI5)=GS(1,C) 

330 LET FS{7)=GS|2,C) 

340 FOB C=l TO PI : FOR R=3 TO 12 

350 IF GS(R,C)=FS{4) GOTO 370 

355 IF GS(R,C)-"1'****" GOTO 355 

360 NEXT R 

365 NEXT C! GOTO 390 

370 LET PS(6)=GS(1,C) 

380 LET FS[81=GS(2,C) 

390 FOR C=l TO P1:F0R R=3 TO 12 

400 IF GS[R,C1=FS{5) GOTO 420 
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4B5 IP G5(R,C) ""*•■••" GOTO 41S 
4le NEXT B 

41S NEXT Ci GOTO 440 

420 LET FSO)=G5{l,C} 

430 LET fS(11)=GS{2,C) 

440 FOR C=l TO PljFOfi R-3 TO 12 

450 IF GS(fi,C)=FS(7) GOTO 470 

455 IF GS(R, €)="*••••" GOTO 465 

46 NEXT a 

465 NEXT C: GOTO 430 

470 LET F$a3)=G?(l,C) 

480 LET FS[15)=GS(2,C) 

490 FOR C=l TO P1:F0H R=3 TO 12 

500 IF GS(R,Cj=PS(6} GOTO 520 

505 IF GS(R,Cl-"«***- GOTO 515 

510 NKXT R 

515 NEXT Ci GOTO 54B 

520 LET FSdaj^GSdrC) 

530 r.ET FS(12)-G5(2,C) 

540 FOR C-1 TO PliFOR R=3 TO 12 

550 IF GS(B,C)"P5(8) GOTO 570 

555 IF GS(R,C) =■*•*••■ GOTO 565 

56fl HEXT R 

565 NEXT C: GOTO 590 

57B LET fS{14)=GS(1,C) 

580 LET F5(16)-GS(2,C1 

590 FOR C"l TO P1:F0R R=3 TO 12 

600 IE Gg(R,C)=FSO) GOTO 620 

605 IF GS(R,C)-"*****- GOTO 615 

610 NEXT R 

615 NEXT C: GOTO 64B 

620 LET FS(171=GS(1,C) 

630 LET F$(19)='GS(2,C) 

640 FOR C=l TO PljEOR B=3 TO 12 

650 IF GS(R,C)=FS(I1) GOTO 670 

655 IF G5(R,C)='***"° GOTO 665 

660 NEXT E 

665 NEXT Ci GOTO 690 

670 LET FS{21)-GS(1,C) 

680 LET FS{23)=GS(2,C) 

690 FOR C-1 TO P1:F0R R-3 TO 12 

700 IF G5(R,C)=FS(13) GOTO 720 

705 IF G$(R,C)-'*****" GOTO 715 

710 NEXT R' 

715 NEXT Ci GOTO 740 

720 LET FS(25)=GSU,C) 

730 LET PS(27)=GS{2,C) 

740 FOR C"l TO PliFOR R=3 TO 12 

750 IF GS(R,C)=PS(15) goto 770 

755 IF G5(R,C)-"*****" GOTO 765 

760 NEXT R 

765 NEXT Ci GOTO 790 

770 LET PS(29)=GS(1,C) 

780 LET F5(31)=G$(2,C) 

790 FOB C=l TO PliFOR E=3 TO 12 

B00 IF GS{K,C)=FS{10) GOTO 820 

805 IF G$1R,C}»"*****" GOTO 815 

810 NEXT R 

815 NEXT C: GOTO 840 

B2fl LET FSdeHGSdrC) 

830 LET FS1£0)-G$(2,C) 

840 FOR C=l TO PI: FOR R=3 TO 1 2 

850 IF GS{R,C)=FS(12| GOTO 870 

855 IF GS|R,C)="****' GOTO 365 

860 NEXT R 

865 NEXT C: GOTO 890 

870 LET FS(22)=GS<1,C1 

880 LET P5(24)=GS(2,C) 

890 FOR C=l TO PltFOR R''3 TO 12 

900 IF GS(H,C)-FS(14) goto 920 

905 IF GS(R,Cf-'**»*«" GOTO 915 

910 NEXT R 

915 NEXT Ci GOTO 940 

920 LET FS(26)-GS(1,C) 

930 LET FS(28I -GS(2,C] 

940 FOR C-1 TO F1;F0R R=3 TO 12 

950 IF GS1R,C)-P?d6) GOTO 970 

955 IF GS(R,C)="*****" GOTO 965 

96 NEXT R 

965 NEXT Ci GOTO 1BB0 

970 LET F$(30)=GSd,C} 

980 LET FS(32)-GS(2,C) 

1000 CLS 

1010 IF H5-"FATHER'THEN PRINT TAB(18)'*** PATERNAL ANCESTRY ***" 

ELSE PRINT TABdS)"*" MATERNAL ANCESTRY ••■" 

1020 PRINT ;PRINTTAii( 20) FS(1) : PRINT 

1030 IF HS = "FATHER'TliEN PaINTTAB(291 "FATHER" ELSE PRINTTAB( 29] "H 

OTHER" 

1040 PRINTiPRINTTAB<20>FS(2) 

1050 PRlNT:PRINTTftBl26) "GRANDPARENTS" 

106 PRINT:PRINTFS(3) ,TAB{ 42) FS { 4) : PRIST 

1070 INPUT-TO CONTINUE, HIT ENTER";X:CLS 

I0B0 PRINT:PRINTTAB(23) "GREAT GRANDPARENTS" 

1090 PRINT!PRINTF5[5) ,TAB( 42) FS( 6) 

1100 PRINTFS(7) ,TAB(42)PS(8) 

1110 PRINT:PRINTTAB(201 -GREftT GREAT GRANDPARENTS" 

1120 PRINTiPRINTFSI9) , TAB(42)F5d6) 

1130 PRINTFSdD rTA15(42)FSd2) 

1140 PRINTFSd3) ,TAB(42)FSd4) 

1150 PRINTFS(151 ,TfiB(42)FSd6) 

1160 INPUT'TO CONTINUE, HIT ENTER" ,-X :CL£ 

1170 PRINT:PRINTTABd7) "GREAT GREAT GREAT GRANDPARENTS" 

1180 PRINT!PRlNTFSd7) ,TAB | 42) FS (18) 

1190 PRINTFSd9) ,TAB(42)F$(201 

1200 PRINTFS[21) ,TAB{42)FS(22) 

1210 PRINTF$[23) ,TAB(42)FS(24) 

1220 PRINTF$(25) ,TAB|42)FS(26) 

1230 PRINTFS(27) ,TAB(42)FS(28) 

1240 PRINTFSI29) ,TAB(42)FS(39) 

1250 PHINTFS(31) ,TAB(42)P5(32) 

1300 INPUT'DO YOU WANT THE OTHER SIDE OF THE HOUSE? IF YES, TYPE 
Ij OTHERKISE type 0";X 

1310 IF X=l GOTO 110 

1320 INPDT"DO YOD WANT TO TERMINATE THIS RUN? ENTER YES OR NO";A 

S 

1330 IP AS-"N0- GOTO 110 

134e IF AS="YES" THEN END 



lost bit can create havoc! 

Enter the programs which foi- 
!ow and undertake challenging 
adventure— organizing your 
past. Genealogy 11 gets you 
started in the right direction. ■ 



Richard Castor has been an 
electronics engineer in both the 
public and private sectors for30 
years. He is currently a consul- 
tant for computer sorting 
systems. 



a ON ERROR GOTO 110 

10 CLS;CLEAR 7000:DIMGS (12 ,75 1 :DIMFS (12] :DIHVS (12 ,10) ,L1 (30) ,P 

S(30] 

15 PRINTTAB(18) ■*** FAMILY RELATIONSHIPS *••" 

20 PRINT"PLACE TfiPE CASSETTE IN <PLAY> MODE AT PROPER LOCATION": 

INPUT"WHEN HEADY, PRESS <ENTER>" ;X!CLS 

25 INPUT*-!, P,C2 

30 PRINT"THIS FILE CONTAINS ")Pj" PRINT STATEMENTS" i PRINT"THE LA 

ST RECORD ON FILE IS #"rC2 

35 FORPl^lTOP 

40 INPUTt-l,Ll(Pl) ,PS[P1) 

45 PRINTPI,I,1(P1) ,PS(P1) 

50 NEXTPl 

55 PR I NT "RETRIEVAL COMPLETE" : 1NPUT"PRESS <ENTER> TO CONTINUE"(X! 

CLS 

60 Cl=liRl=l:Pi=l!Dl-l 

65 GS(R1,C1)=MIDS[PS(P1) ,(DH-2) ,VfiL(MIDS (PS (PI) ,D1,2))) :PRINTD1, 

PllRl;Cl;GS(fil,Cl) 

7 D1=D1+2+VAL(MIDS(PS(P1] ,D1,2) ) : IFD1=>L1(P1) THENPS(Pl) =" ' !P1^P 

1+I:DI-1 

75 1FC1>C2THENGOTO10 

80 IFG5(H1,C1|=-«****"THENR1=1:C1=C1+1:G0T06S 

85 H1=R1+1 

90 IFRl=13THENBl=ltCl=Cl+l 

95 G0T0e5 

100 P1=C2:PRINT"D0NE — MATRIX RESTORED" : INPUT"PRESS <ENTEH> TO CO 

NTINDE";X:CLS 

110 CLS: INPUT'TYPE AND ENTER NAME OF INDIVIDUAL WHOSE FAMILY EE 

LATIONSHIPS ARE DESIRED (LAST FIRST MIDDLE INITIAL) " jF?d} 

120 FOR K=2 TO 12 

121 LET FS(K)="*******"'" 

122 NEXT K 

123 FOR X-1 TO 12 

124 FOR L=l TO 10 

125 LET VS(K,L)-"*-**"'"*" 

126 NEXT L 

127 NEXT K 

150 FOR C-1 TO PliFOK R»3 TO 12 

160 IF GS(R,C)«F5d) GOTO 180 

165 IF GS{R,C)="**»"' GOTO 175 

17 NEXT R 

175 NEXT C:INPUT"NAHE NOT IN FILE. PRESS ENTER'; X :GOTOI10 

180 INPUT"WHICH SIDE OF THE HOUSE IS DESIRED? TYPE FATHER OR 

MOTHER" ;HS 

190 IF H5="FATHER' THEN FS|2)=G5d,C) ELSE PS(2) -GS (2,C) 

200 FOR C-1 TO PI: FOR R=3 TO 12 

210 IF GS{R,C)-FS(2] GOTO 230 

215 IF GS(E,C)="*****" GOTO 225 

220 NEXT B 

225 NEXT Ci GOTO 110 

230 IF R>=3 GOTO 270 

240 FOR T=3 TO (R-1) 

245 IF GSfT.C)-"*"""" GOTO 300 

250 LET FS(T)=G5(T,C) 

255 IF GS(R,C] -"*••**" GOTO 300 

26 NEXT T 

270 FOR T-(R+1] TO 12 

275 IF GS(T,C]="****'" GOTO 300 

280 LET FS(T-1)=G5{T,C) 

265 IF GS(R,C)--*-'"*" GOTO 300 

290 NEXT T 

295 STOP:PRINT" TYPE CONT TO CONTINUE" 

300 FOR N=3 TO 12 

310 GOSUB 340 

320 NEXT N 

330 GOTO 1000 

340 FOR C-1 TO PI 

350 IF FS(N)='****'" GOTO 1000 

360 IF FS(N)=GS(1,C) GOTO 390 

370 IF Fg(N)=G$(2,Cl GOTO 390 

380 NEXT C 

390 FOR R=l TO 12 

400 LET V=(N-2) 

410 LET V5(R,V)=GS(R,C) 

420 IF GS(R,C)-"*""" GOTO 440 

43 NEXT R 

4 40 RETURN 

1000 CLS 

1010 IF HS="FATHER" THEN PRINT TABd2) "*••* PATERNAL FAMILY RELA 

TIONSHIPS *'*•• ELSE PRIKT TABd2) ***** MATERNAL FAMILY RELATION 

SHIPS ••••- 

1020 PRINT FS(1) ,TAB(321FS(2) 

1030 FOR V=l TO 10 

1040 PRINT TABf20)"***» AUNTS (, UliCLES ****", "PAGE" ;V 

1050 GOSUB li:i0 

1060 INPUT'FCR NEXT PAGE, HIT ENTER'jXiCLS 

1070 NEXT V 

1080 INPUT "DO YOU WANT THE OTHER SIDE OF THE H0USE7 IF YES, TYP 

E 1; OTHER- WISE TYPE 8";X 

1090 IF X-1 GOTO 110 

1100 INPUT 'DO YOU WANI TO TERMINATE THIS RUN? eNTER YES OR NO"l 

AS 

1110 IF AS="NO" GOTO 110 

1120 IF AS-"YES" THEN END 

1130 FOR R=.l TO 12 

1140 IF R=3 THEN PRINT TAB(20]"***' FIRST COUSINS *•••" 

1150 PRINT TAB[20] VS(R,V) 

11S0 IF VS(E,V)="*****" GOTO 1130 

117 NEXT R 

1180 RETURN 
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HOBBY COMPUTERS ARE HEREIir you want to come 
up 10 speed on how computefs wo(k— hardware and 
software— this is ar\ excellent book. It starts with funda- 
mentals and explains thie circuits and the basics of pro- 
gramming, along with a couple of TVT construction proj- 
ects, ASCII, Baudot, etc. This book has the highest rec- 
ommendations as a teaching aid. $2.97." BK7322 

THE NEW HOBBY COMPUTERS-This book takes up 
(rem whore Hobby Computers Are Here! leaves off, with 
ciidpiers on Large-Scale Integration, how to choose a 
microprocessor chip, an introduction to programming, 
low-cost 1(0 for a computer, computer arithmetic, check- 
ing memory boards. . and much, much more! Don't 
■ miss this tremendous valuel OK7340 Only S2.97 ■ 

BOTH VOLUMES FOR $4.95! 
ORDER HC002 



NEW NEW NEW 

INTRODUCTION TO WORD PROCESSING by Hal 
Glatzer. This book explains in plain language what a 
word processor can do. how to use one, how it improves 
productivity— especially in businesses that handle lots 
ot words— and how to buy one wisely. No technical 
knowledge required, tor all first-lime users and those 
considering purchasing a word processor. BK1238 $12.95 

A USER GUIDE TO THE UNIX SYSTEM by Jean Vales 
and Rebecca Thomas Here at last is a clearly written 
book that allows you to use the Unix operating system 
easily, and al a fraction of the lime 11 previously took. If 
you're using, evaluating or simply curious about this sys- 
tem, Ihis IS your book. BK)242 $15 99 



WORDSTAR MADE EASY by Waller A, Eithn. Now Word- 
Star is as simple to learn as it is easy to use. This book 
teaches WordStar in 14 easy lessons, saving hours of 
tiard work, it comes with a convenient pull-out Command 
Card. BK1239 $11.95 




• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1— A collection o( the best articles that 
have appeared in Kilobaud MICROCOMPUTING Includ- 
ed IS material on the TRS-SO and PET systems, CP/M, the 
6080/8085/Z-80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large format, 200 plus page edition 
$10.95.- 

DON'T (or How to Care tor Your Computer)— by Rod- 
nay Zaks in piLiin language, with numerous illuslra- 
tions, this book tells all ihedosand don Is of the care, 
preservation and correct operation of the small com- 
puter system. Specific chapters cover each piece of 
hardware and software, as well as safety and security 
precautions and help for problem situations. Have 
your computer work right (he first time and keep it 
working. No technical background required For all 
computer users BK1237$1195. 

YOUR FIRST COMPUTER— by Hodnay Zaks. Whether 
you are using a computer, thinking about using one or 
considering purchasing one, this book is indispen- 
sable. II explains what a computer system is, what it 
can do, how it works and how to select various com- 
ponents and peripheral units. It is written in everyday 
language and contains invaluable Information for the 
novice and the experienced programmer. (The first edi- 
tion of this book was publisfied under the iiiie 'An In- 
troduction to Personal and Business Computinq") 
BK1191 $8 95* 

MICROPROCESSOR INTERFACING TECHNIQUES 
—by Austin Lesea & Rodnay Zaks— will teach you how 
to interconnect a complete system and interface il to 
all the usual peripherals. It covers hardware and soft- 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BKt037S17,95,- 



AN INTRODUCTION TO MICROCOMPUTERS. VOL. 

— The Beginner's Book— Written for readers who know 
nothing about compulers — for those who have an in- 
terest in how to use computers — and for everyone else 
who must live with computers and should know a little 
about them. The firsl in aseriesof 4 volumes, this book 
will explain how compulers work and what Ihey can do. 
Computers nave become an integral part of life and 
society. During any given day you are affected by com- 
puters, so start learning more about them with Volume 
0. BK1130 $12,50,' 

VOL. I— NEW 3rd Edition! Dedicated to the basic con- 
cepts of microcomputers and hardware theory. The 
purpose of Volume 1 is to give you a thorough under- 
standing of what microcomputers are. From basic con- 
cepts (which are covered in detail), Volume 1 builds the 
necessary components of a microcomputer system. 
This book highlights the difference between minicom- 
puters and microcomputers. BK1030 $15.95 



KILOBAUD KLASSROOM by George Young and Peter 
S1ari< Learning electronics theory without practice isn't 
easy. And il's no fun lo build an electronics projecl that 
you can'l use. Kilobaud KJassroom. the popular series 
first published in Kilobaud Microcomputing, combines 
theory with practice. This is a practical course in digital 
electronics. It starts out with very simple electronics 
projects, and by the end of the course you'll construcl 
your own working microcomputer! 

Aulhor,-; Young and Starve are experienced teachers. 
and Iheir approach is simple and direct. Whether you're 
learning at home or in Ihe classroom, this book provides 
you with a solid background in electronics— and you'll 
own a computer that you built yourself! BK7386 $14.95 

TOOLS & TECHNIQUES FOR ELECTRONICS— by A. A 

Wicks IS an easy-lo-undersland book written for the 
beginning kit-builder as well as the experienced hob- 
byist. It has numerous pictures and descriptions of Ihe 
safe and correct ways to use basic and specialized tools 
for electronic projects, as well as specialized metal- 
working tools and the chemical aids which are used in 
repair shops. $4.95.- BK7348 

• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK73e2— A valuable addition to your 
computing library This Iwc-pan teil includes the best 
articles ihal have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft- 
ware aspects ot microcomputing. Well-known authors 
and well-structured text helps the reader get involved 

$1095- 
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Special Interests 



DOS BANDOfVi ACCLG3 £. BAGIC FILE HANDLING — By 

H J. Muller This book was wntlen lor Ihe nonprogram- 
mer. it is ideal for the businessman or professional who 
needs lo solve and write special programs for in-house 
business problems, or ihe hobbyist who wants lo go be- 
yond the cassette recorder and into disk storage and file 
manipulation II is written as a sell-inslructton tutorial 
and will provide anyone wilh some Level 11 experience 
with Ihe ability to write special programs for inventories, 
mailing list, work scheduling, record keeping, research 
project data manipulation, etc. 150 pages BK1236 
$29.50 

TRS-80 DISK AND OTHER MYSTERIES — by Harvard C 
Pennington. This is the definitive work on the TRS-80 
disk system II is full ot detailed "How to use," infor- 
mation wilh examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike. 
The recovery ot one lost file is worth the price alone. 
BK1181 $22.50.' 

MICROSOFT BASIC DECODED AND OTHER MYS- 
TERIES--by James Farvour From the company thai 
brought you TRS-80 DISK AND OTHER MYSTERIES. 
Contains more than 6500 tines ot comments tor the dis- 
assembled Level II ROMs and six additional chapters 
describing every BASIC subroutine, with assembly 
language routines showing how lo use them. Flow- 
charts for all major routines give the reader a real in- 
sight mto how the interpreter works. BK1 186 $39.50.' 



MOD III ROM COMMENTED — Sott-Sector marketing. 
981. This book is not an msliucticn course on 
lachine language, but rather an information source 
lal you can use time and time again for writing your 
wn program or patching old Mod I machine language 
rograms, II contains an explanation ot ROMs in the 
Llesl machine from Tandy, with most every location of 
ie I4K ROMs listed, with comments. BK1235 $22 50. 

HE CUSTOM THS-80 AND OTHER MYSTERIES-by 

ennis Kitsz. More than 300 pages of TRS-80 cuslomiz- 
ig information With this tiook you'll be able lo ex- 
lore your computer like never before. Want to turn an 
track into a mass storage unit? individual reverse 
characters? Replace the BASIC ROMs? Make Music? 
High speed, reverse video. Level I and Level II? Fix it if 
Il breaks down? All this and much, much more. Even if 
you have never used a soldering iron or read a circuit 
diagram, this book will teach you howl This is the 
definitive guide lo customizing your 80i BK12ie 
$29.95 * 

BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— -by Lewis flosenfelder. You don't have lo 
learn assembly language lo make your programs run 
fast With Ihe dozens of programming tricks and 
techniques in this book you can sort al high speed, 
swap screens in ihe twinkling of an eye, write INKEY 
routines that people think are m assembly language 
and add your own commands 10 BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore Ihe power of USR calls BK1221 
$29.95.- 

THECP/M HANDBOOK (with MP(M)-by Rodnay Zaks. 

A complete guide and reference handbook for CP/M — 
the industry standard m operating systems. Slep-by- 
step instruction lor everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations. 
This also includes a complete discussion of all ver- 
sions of CPf'M up to and including 2,2, MP/M and 
CDOS. BK1187$14 95.' 



PRICES SUBJECT TO CHANGE WITHOLIT NOTICE 



No C.O.D, orders accepted. All orders add $1.50 for first book, $1.00 each addilional book, $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery Questions 
regarding your order? Please write to Customer Service at ihe following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department*Peterborough NH 03458. Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1-800-258-5473 



'Micro, November 1982 • 401 



C3^^ micro 

ECOK SHELF 




MD9 
-CROCOMPUTER 
ROGRAMMMG 

ft 
INT^MCWG 






INSIDE LEVEL II— For machine language program 
mers. This is a compreherisive reference guide to the 
Level II ROMs, alfowing easy utilization of the 
sophisticated routines Ihey contain It concisely ex- 
plains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new corn- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler. Special consideration Is given to disk systems. 
BK1183 $15.95.' 

• Z-aO ASSEMBLY LANQUAQE PROQRAMMtNG— 

BK1 1 77— by Lance A. Leventfial. This book thoroughly 
covers the 2-80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and Interfac- 
ing methods, assembler convenitons, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99." 



Z80 



TRS-80 ASSEMBLY LANGUAGE-by Hubert S. Howe, 
Jr. This book incorporates into a single volume all the 
perlment tacts and information you need lo know to 
program and enioy the TRS-80. Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROW and RAW and disk operating systems, plus com- 
prehensive tables, charts and appendices. Suitable for 
the first time user or more experienced users. BK1217 
$9.95.- 

PROGRAMMING THE Z-80— by Rodnay Zaks. Here is as- 
sembly language programming foriheZ-80 presented as 
a progressive, step-by-step course. This book is both an 
educational text and a self-contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-30. Exercises to 
test the reader are included. BK1 122 $15 95.* 



6809 



6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING— by Andrew C. Staugaard, Jr. Getting 
involved with Tandy's new Color Computer? If so, this 
new book from the Blacksburg Group will allow you lo 
exploit the awesome power of the machine's 6809 
microprocessor Detailed information on processor ar- 
chitecture, addressing modes, register operation, data 
movement, arithmetic logic operations, I/O and inter- 
lacing IS provided, as well as a review section at the 
end of each chapter. Four appendices are included 
covering the 6809 instruction set, specification sheets 
ol the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter This book is a must for the seriousCoior Com- 
puter owner BK1215 $13.95.' 



NANOS SYSTEM 
REFERENCE CARDS 

For Models I, II, III and color computer 

At las|i No more flippmg Ihrougli Ihe pages of the 
Basic manual' No more working through Ihr? maze of 
machmri language mslruclionil These cards com- 
pletely summarize the Basic and Assembler manuals' 
FEATURES INCLUDE' 

memory map, eyeball graphics matn mslructions. 
basiL commands store instructions, basic functions, 
load instructions, basic statements, move instruc- 
lions. special keys, exchange instruclroris. print using 
example,=;, shifl infilruciiOris. basse special characters, 
compare instructions, basic and assembler messages 
and codes, branch instruclrons, basic (acts, data 



alteration instructions, reserved words, i/0 instruc- 
tions, ROM routines, complete character chart with 
graphics and space-compression codes, hex-dec 
chart, control code cross-reference, assembler in- 
structions commands and operators, screen line 
layout, editor commands & subcommands, condition 
code easy access 

Designed asa told-yp. accordion-stylecard, Ills in your 
pocket Panels organized for optimum speed for 
reference. 

Model I: Basic only FC1001 $2.95 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.95 

Model III: BASIC only FC1004 $3.95 

Model III: BASIC and Assembler FC1003 $5 95 

Color: BASIC and Extended FCl 006 $4.95 

Apple II: BASIC only FC1007 $3.95 

Apple II: BASIC & 6502 FC1008 $4,95 





MICROCOMPUTING CODING SHEETS Microcom- 
puting's dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours of 
programming lime. Available for programming is 
Assembly/ Wach me Language (PD 1001), which has col- 
umns for address, instruction {3 bytes), source code 
(label, op code, operand) and comments: and lor 
BASIC (PDI 002) which is 72 columns wide. 50 sheets lo 
a pad. $2.39.- 



ALL NEW 



iWNERS ENCYCLOPEDIA FOR THE TRS-80' 



ENCYCLOPEDIA FOR THE TRS-80- • is the newest per- 
ipheral for your microcomputer. This ten-volume rele- 
ence series contains programs and articles especi a' - 
selected toextend the documentation that comes wi^' 
the TRS-80. Volumes of the Encyclopedia are bei- . 
issued one-at-a-time, approximately six weeks apai 
This means that each new volume will reflect the late 
developments in TRS-80 microcomputing. Encyclo- 
pedia (or the TRS-80 is available in two editions. Ti 
delu/e COLLECTOR'S EDITION has a handsome greL ■ 
and black hard cover with a dust jacket. A soft cover 
edition is also available. 

To order single hard cover volumes ol the Encyclope- 
dia please specify 

Volumel EN8101 

Volume2 ENei02 

Volumes EN8103 

Volurne4 EN8104 

Volumes EN8105 

Voiumee EN8106 

Volume? EN8107 

Volumes EN8108 

Volume9 EN8109 

Volume 10 EN8110 







■IT ENCYClOPEOiA 
IFOHHE TRS-80* 



^e'tfi in'f"'-^M\0'^. 



$19.95" 
$19.95* 
$19.95- 
$19.95* 
$19.95* 
$19.95* 
$19.35* 
$19.95* 
$19.95* 
$19.95* 




ENCYCLOPEDIA LOADER is the software companion 
lo the Encyclopedia for the TRS-80. This special series 
of cassettes will allow you to load selected programs 
from the Encyclopedia instantly. Hours of keyboarding 

lime and Ihe aggravating search for typos is eliminal- 
ed by using the Encyclopedia Loader. 

Encyclopedia Loader for Volume 1 of the Encyclopedia 
of Ihe TRS-SO is available at a Special Introductory 

Price of S12.95 (a $14.95 valuei. To lake advantage of 
this offer specify; 

EL800111 $12.95- 

Additional Encyclopedia Loaders will be available as 
each volume of the Encyclopedia for the TRS-HO is 
issued. To order specify Encyclopedia Loader: 



SPECIAL INTRODUCTORY OFFER 

Order the entire set of the Encyclopedia 
"for the TRS-80 and receive the tenth vol- 
ume free: 

10 Volume deluxe hard cover COLLEC- 
TOR'S EDITION, a $199.50 value, EN8100 
S164.00 postpaid 

10 Volume soft cover edition, a $109.50 
value. EN8080 $83.00 postpaid 



To order single softcover volumes of the En(;yclopedia 
please specify: 

Volumel EN8081 $10.95* 

Voiume2 EN8082 $10.95* 

Volumes EN8083 $10.95' 

Volume4 EN8084 $10.95* 

Volumes EN8085 $10.95* 

Volume 6 EN8086 $10.95' 

Volume? EN8087 $10.95* 

VolumeB EN8088 $10.95* 

Volume 9 EN8089 $10.95' 

VolumelO EN8090 $10.95* 

NoCO.D orders accepted All orders add $T,50 for first book, SI. 00 each additional book. $10 00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the followmg address. Use the order card in this magazine or itemize your order on a separate piece ol paper and 
mail to 80 Micro Book Department'Peterborough NH 03458. Be sure to include check or detailed credit card information. 



Volume 2 EL8002 


$14.95* 


Volumes EL8003 


$14.95' 


Volume 4 EL8004 


$14.95* 


Volumes EL8005 


$14.9S* 


Volumes EL800S 


$14.95* 


Volume? EL8007 


$14.95* 


Volumes EL8008 


$14.95" 


Volumes EL8009 


$14.95* 


VolumelO EL8010 


$14.95* 


SPECIAL OFFER 




All 10 Volumes of ENCYCLOPEDIA LOADER"^ 


AS14930«alMf«onlYS1t9.97 




,n¥T#ftmt. El80Mi119.97 | 


t%"^!'M'iW5*' (shipping mdixled) 





For Toll Free Ordering Call 1-800-258-5473 
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THE BASIC HANDBOOK — SECOND EDITION — by 

David Lien. This book is unique it is a virlual 
ENCYCLOPEDIA ot BASIC While not lavoring one 
computer over another, ii explains over 250 BASIC 
words, how to use them and alternate strategies II a 
computer does not possess the capabilities of a need- 
ed or specitied word, there are often ways to ac- 
complish Ifie same function by using another word or 
combination of words That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a"bottom-of-the-line" micro or an oversized 
monster. BK1 174 $19 95.' 

LEARNING TRS-80 BASIC-by David A Lien. Dr Lien 
who is Ihe author ot THE BASIC HANDBOOK and the 
original Radio Shack LEVEL I USER'S MANUAL, has 
compiled a tutorial which includes portions of the 
original USER'S MANUAL, and most ot LEARNING 
LEVEL II along with extensive additions. II will com- 
pletely cover the TRS-80 Models I, II, III, and 16 (sorry, 
not the color or pocket computers). It is, of course, writ- 
1en in the easy learning style which readers of Dr. 
Lien's books have come to en)oy. BK1175 $19.95. 

BASIC BASIC (2ND EDITION)— by James S. Coan. This 
IS a textbook which incorporates the learning of com- 
puter programming using the BASIC language with the 
teaching of mathematics. Over 100 sample programs 
illustrate the techniques of the BASIC language and 
every section is followed by practical problems. This 
second edition covers character string handling and 
the use of data files. BK 1026 $1 1 50 * 



INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING — by Michael P Zatain- 
ski. Written by an experienced educator, this is the 
book for those beginners who want to learn about com 
puters without having to become an expert. It has prac 
tioal programs, useful line-by-line comments, excel 
lent fiowcharls accompanied by line numbers and ove 
200 exercises which help tlie reader assess progress 
reinforce comprehension, and provide valuable prac 
tical experience BK1319$1095* 



50 BASIC EXERCISES— by J. P Lamoitier Thisbookis 
structured around the idea that the best way to learn a 
language is through actual practice It contains 50 
completely explained exercises: statement and 
analysis of the problem, flowcharts, programs and ac- 
tual runs Program subjects include mathematics, 
business, games, and operations research, and are 
presented in varying levels of difficulty This format 
enables anyone to learn BASIC rapidly, cfieckmg their 
progress at each step BK1 192 $12.95' 

PROGRAMMING IN PASCAL-by Peter Grogono. The 
computer programming language PASCAL was the 

first language to embody in a coherent way the con- 
cepts of structured programming, which has been 
defined by Edsger DijKstfa and C. A R Hoare As such, 
it is a landmark in the development of programming 
languages PASCAL was developed by l^iklaus Wirth 
in Zurich; it is derived from the language ALGOL 60 but 
IS more powerful and easier to use. PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented and as an excellent teaching 
tool. It does not assume knowledge of any other pro- 
gramming language and tfierefore suitable for an in- 
troductory course. BK1140 S12 95." 



ADVANCED BASIC — Applications including strings 
and tiles, coordinate geometry, area, sequences and 
series, simulation and graphing and games. BK1000 
$11.50 



INTHODUCTION TO PASCAL— By Rodnay Zaks, A 

step-by-step introduction for anyone wanting to tearn 

the language quickly and completely. Each concept is 
explained simply and in a logical order. All features of 
the language are presented in a clear, easy-to-under- 
stand format with exercises to test the reader at the 
end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used dia- 
lect for small computers. No computer or program- 
ming experience is necessary. BK1189 S15.95 




Moneymaking 



HOW TO MAKE MONEY WITH COMPUTERS— In 10 in- 
formation-packed chapters. Jerry Felsen describes 
more than 30 computer-related, money-making, high 
profit, low capital investment opportunities 
SK1003 $15.00 ■ 

HOW TO SELL ANYTHING TO ANYBODY— According 

to The Guinness Book of World RecorOs, the author, 
Joe Girard, is "the world's greatest salesman." This 
book reveals how he made a fortune — and how you 
can. too. BK7306I2 25.- 

THE INCREDIBLE SECRET MONEY MACHINE— by 

Don Lancaster. A different kind of "cookbook" from 
Don Lancaster, Want to slash taxes? Get free vaca- 
tions? Win al investments? Make money from some- 
thing that you Me to do? You'll find this book essential 
to give you the key insider details of what is really in- 
volved in starting up your own money machine. BK1178 
$5.95.' 



ANNOTATED BASIC — A NEW TECHNIQUE FOR NEO- 
PHYTES.— BASIC programming was supposed to be 
simple— a beginner's programmmg language which 
was so near to English thai is could be easily 
understood. Bui, in recent years, BASIC has become 
much more powerful and therefore much more difficult 
to read and understand BASIC simply isn't basic 
anymore. 

Annotated BASIC explains ihe complexities of 
modern BASIC. II includes complete TRS-80' Level II 
BASIC programs thai you can use Each program is an- 
notated to explain in step by- step lash ion the workings 
o1 the program Programs are fiowcharted to assist 
you in following the operational sequence And — each 
chapter includes a description of the new concepts 
which have been introduced. 

Annotated BASIC deals with the hows and whys ot 
TRS-80 BASIC programming How is a program put 
together? Why is it written that way"* By observing the 
programs and following ihe annolalion. you can devel- 
op new techniques to use m your own programs — or 
modify commercial programs for your specific use 
Annotated BASIC Volume 1 8K738'i $10 95 
Annotated BASIC Volume 2 BK73e5 $10 95 
Order Both Volumes and Save' 8K738402 $18 95 



Games 



Business 



CAPTAIN 80 BOOK OF BASIC ADVENTURES — by Rob- 
ert Liddil. This book contains 18 ol the most popular 
Adventure programs available today; allmonceasyto 
read book with listings ready to be keyed in to your 
computer This unique book also contains an ADVEN- 
TURE GENERATOR program, not available from any 
other source. This generator program will actually 
write another BASIC ADVENTURE PROGRAMi Al- 
though specifically written for the TRS-80 Model I S III, 
these programs are adaptable to other computers us- 
ing Microsoft BASIC BK 1240 $19-95. 

40 COMPUTER GAMES FROM KILOBAUD MICROCOM- 
PUTING— Foiiy gsmes in all in nine different categories. 
Games for large and small systems, and even a section 
on calculator games. Many versions of BASIC used and 
a wide variety of systems represented A must for the 
serious computer gamesman. 8K7381 $7.95.' 

BASIC COMPUTER GAMES — Okay, so once you get 

your computer and are running in BASIC, then what? 
Then you need some programs in BASIC, that's what. 
This book has 101 games for you from very simple to 
real buggers You get the games, a description of ttie 
games, the listing to put in your computer and a sam-., 
pie run to show you how they work. Fun Any one game 
will be worth more than the price ot the book for the fun 
you and your family will have with it BK1074 $7.50.' 

MORE BASIC COMPUTER GAMES-Edited by David 
H. Ahl More fun m BASIC! 84 new games from the peo- 
ple who brought you BASIC Computer Games In- 
cludes such favorites as Minotaur (battle the mythical 
beast) and Eliza (unload your troubles on the doctor al 
bargain rates). Complete with game description, list- 
ingandsample run. BK 11 82 $7.50 ' 

WHAT TO DC AFTER YOU HIT RETURN — PCC's first 

book of computer games.. 48 different computer 
games you can play in BASIC, .programs, descrip- 
tions and many illustrations Lunar Landing, Ham- 
murabi, King, Civel 2, Cubic 5, Taxman, Stat Trek. 
Crash. Market, etc. BK1071 $16,50'. 

No C.O.D. orders accepted. All orders add $1.50 for first book, $1,00 each additional book, $10.00 per book loreian airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service al the following address. Use the order card in this magazine or itemUe your order on a separate piece of paper and 
mail to 80 Micro Book Depattmenl'Peterborough NH 03458. Be sure to include check or detailed credit card information. 



BUSINESS SYSTEM BUYER'S GUIDE— By Adam Os- 
borne with Steven Cook. When you enter the market 

place of small business computers, you face a bewil- 
dering array of products, prices, features and fables. 
This guide cuts through the jargon and unravels the 
task of buymg ihe right computer system. This book 
provides solid information on how to determine your 
needs, how to choose software and hardware for all 
business applications, what to expect from vendors, 
what toavoirj, and what questions you must asK. It also 
provides a wealth ol detailed information on products, 
manufacturers, retailers and the whole microcompuler 
market. 8K1229 S9.95 

SO YOU ARE THINKING ABOUT A SMALL BUSINESS 

COMPUTER— by Richard G. Canning and Nancy C. 
Leeper. For a well-organized manual on the process ot 
selecting the right computer system for your small 
business, this text can't be excelled. Designed to in- 
troduce the novice m data and word processing to the 
real benefits of computerization, the book is filled with 
money- and time-saving tips, photos of equipment, 
lists of suppliers, prices, explanations ol computer ter- 
minology, and helpful references to additional sources 
of information. Everyone contemplating a first com- 
puter inslallaiion Should have this book. BK1222 
$14.00' 



SOME COMMON BASIC PROGRAMS— Published by 
Adam Osborne & Associates, Inc Perfect for non- 
technical computerisis requiring ready-to-use pro- 
grams Business programs, plus miscellaneous pro- 
grams Invaluable tor ihe user who is not an experi- 
enced programmer All wiil operate in the stand-alone 
mode BK1053 $14.99 paperback. 

THEORY Z— How American Business Can Meet the 
Japanese Challenge— by William Ouchi. Why ate the 
Japanese catching up and surpassing American in- 
dustrial productivity? What allows Japanese in- 
dustrialists to offer guaranteed lifetime employment 
to their workforce? This book will help you understand 
ihe Theory Z managerial philosophy and lis implica- 
tions for ihe American corporate future. Examples ate 
given of the American industrial giants already 
operating under Z-styie management, and ihe impact 
of this style on ihe quality ot their executives and 
workers is explored. A must tor ihe alert businessman, 
large or small. BK1226 $12,95' 
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TUTORIAL 



Make your programs invisible. 



To Baffle a Pirate 



Randy Hawkins 
6214 Hidden Cove 
Corpus Christi, TX 78412 



Add a couple lines to your 
Basic program and a ma- 
chine-language routine to high 
memory, and you can load and 
execute any Basic program with 
the System command in Level II. 
Checksums are calculated 
and compared periodically for 
System tapes; the "C" message 



in the upper right corner sig- 
nals a bad load. You must list or 
run a CLOADed program to 
check for a bad load, and the 
List method does not detect 
misspelled words or substituted 
keywords. You can assign a 
name of up to six characters to 
your Basic program; no more 
single letters or numbers repre- 
sent your programs. 

Your newly revised program 
will look like a machine-lan- 
guage program, impossible for 



B CLS:PRINT"SAVE COMMAND IS BEING ACTIVATED..." 

le REM SET HEKOKY SI2E TO 3260H 

20 POKE;16561,B8!POKE16562,127:CLEAR50 

30 REM 

40 REM READ STARTING ADDRESS IH HEX 

5B READ STS!F0RI=iT04:AS(I)=MIDS[STS,I,l) 

60 A(I)=ASC(AS(I))-48+7*(AS(I)>"9"):NEl!TI 

70 ST = 4096*A(1) + 256*fi(2) + 16*A(3) + A(4) 

80 KEH 

90 REM READ MACHINE CODE INSTRUCTIONS 

100 HEM AKD POKE INTO HIGLi MEMORY LOCATION 

110 READ IS!lFIS="END"THEN400 

120 F0RI=1T0LEK(IS)STEP2 

130 AS(l)=MIDS(IS,Irl) :AS(2i=MIDS[IS,I+l,l) 

140 fORJ=lT02!A(J)''ASC[AS[J))-4e+7*(AS(J)>°9") jNEXTJ 

150 POKEST,A(l)«16+A(2) :ST=ST+1:NEXTI jGOTOllB 

160 DATA 7F5F,21F37PCDA72BCDB31B 

170 DATA B7C2191AD7C26C7P06063620 

180 DATA 2310FBAF'CD1202CD87022AA7 

190 DATA 40D72B3E55CDe402060e7ECD 

200 DATA 64022310F9ED5BF9402AA440 

210 DATA 3E3CCDe4020e407eCDe4020E 

220 DATA 007DCDEB7F7CCDEB7F7E23CD 

23B DATA EB7FE5373FBD52B1280810F1 

240 DATA 79CDe402ieDei002X806AFCD 

250 DATA EB7F10FB79CD64023B78CD64 

260 DATA 022AA44023232323237DCDe4 

270 DATA 027CCD6402CDF801C3191AF5 

280 DATA 814FF1CD6402C950524P4752 

290 DATA 414D204E414D4500,END 

300 REM 

40B REM SET UP "SAVE" COMMAND 

41B POKE 16801,95: POKE 16802,127 

420 PRINT;PKINT:PRINT"AFTER ADDING THE SPECIAL LINE S TO YOUR PR 

DGRAM, 

TYPE "CHRS(34) "SAVE"CHRS(34)' AND PRESS ENTER. AT THE 

PROMPT, TYPE IN A SIX CHARACTER OR LESS PROGRAM NAME, 

PREPARE THE CASSETTE TO RECORD, AND PRESS ENTER, TO" 

430 PRINT'LOAD THE PROGRAM, USE THE SYSTEM COMMAND. AFTEH 

LOADING, ENTER A SLASH TO BEGIN NORMAL BASIC EXECUTION. ": PRINT : P 

HINT 



Program Listing 1 



many users to copy, change, 
and understand. Enhance this 
image by disabling the Break 
key with a POKE 16396,23. To 
prevent listing the program, 
POKE 16863, 195: POKE 16864, 
114: POKE 16865,0. Include the 
proper On Error GOTO state- 
ment in your program; if an error 
turns up, you can catch it rather 
than returning to a Level II error 
message. That would give the 
whole secret away! 

You need a machine-language 
routine in high memory to 
establish a new Save command 
in Level II. When activated, this 
routine saves your Basic pro- 
gram on tape in a format read- 
able by the System command. 
First, type in Program Listing 1 to 
load the machine-language in- 
structions into high memory. You 
do not have to reserve memory 
with the memory size question; 
the program automatically does 
this in line 20. The source code 
for the same routine is in Pro- 
gram Listing 2. Although written 
for a 16K machine, it could easily 
be modified for any size. 

Save Program Listing 1 on 
tape (using the CSAVE "S" com- 



The Key Box 

Basic Level li 
Model I or HI 
16K RAM 



mand). Run the program, and see 
on the CRT verification that the 
Save command is ready. If you 
have some kind of error, recheck " 
the listing. 

Add these two lines of code at 
the beginning of the Basic pro- 
gram: 

REM 

1 ST = PEEK(16548)-(-256-PEEK(16549) 
■l-5:F0R I = ST TO ST -I- 29: READ X : 
POKE i,X: NEXT I: DATA 205,248,26,35, 
34,249,64,42,167,64,54,82,35,54,85, 
35,54,78,35,175,119.42,167,64,62, 
13,43,195,129,26: DELETE 1 

Double check the numerical en- 
tries in the Data statement of 
line one, and enter Run. You 
must use line zero, REM (not the 
apostrophe shorthand), and ex- 
actly 30 periods. After running, 
do not be alarmed when listing to 
see strange symbols and screen 
action at line zero. Do not try to 
edit line zero once it is set up. 

These two lines POKE a ma- 
chine-language routine into the 
unused area behind the REM 
command of line zero. The rou- 
tine jumps into ROM where the 
Basic Run command should 
have sent the computer. The 
starting point of this routine will 
be entered as the execution 
point for the System copy of the 
program. When you enter a 
slash at the '? prompt of the 
System procedure control trans- 
fers to our new routine, which in 
turn begins a Run. The source 
code for the routine POKEd Into 
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06010 






7FA3 0EHH 


00440 


LD 


C,0 


START CHECKSUM 






00020 


SYSTEM 


-SAVE ROUTINE FOR BASIC 


7FA5 7D 


00450 


LD 


A,L 


TOTAL IN C REG 






00030 


BY RANDY HAWKIKS 


7FA6 CDEB7F 


00460 


CALL 


CHKSUM 








00040 


6214 HIDDEN COVE 


7FA9 7C 


00470 


LD 


A,H 








00050 


CORPUS CHRIST I, TX 


7FAA CDEB7F 


00480 


CALL 


CHKSUM 








00060 






7FAD 7E 


00490 FIVE 


LD 


A,(HL] 








00070 


THIS ROUTINE STORED IN HIGH 


7FAE 23 


00500 


INC 


HL 








00080 


MEMORY 


WILL BE ACTIVATED BY 


7FAF CDEB7F 


00510 


CALL 


CHKSUM 








00090 


THE COHMAHD "SAVE" AND STORE 


7FB2 E5 


00520 


PUSH 


HL 








00091 


A BASIC PROGRAM ON TAPE IN A 


7FB3 37 


00530 


SCF 










00092 


FORMAT 


THAT CAN BE READ BY THE 


7PB4 3F 


00540 


CCF 










00093 


SYSTEM 


COMMAND. IF ENTERED AS A 


7FB5 ED52 


09550 


SBC 


HL,DR 


CHECK FOR END 






00094 


SYSTEM 


TAPE, YOU MUST FIRST SET 


7PB7 ill 


00560 


POP 


HL 


OF PROGRAM 






00095 


MEMORY 


SIZE? AT 32600. 6/6/81 


7FB8 2808 


00570 


JR 


a, SIX 








00096 






7FBA 10F1 


00580 


DJNZ 


FIVE 




41A1 




00100 


ORG 


41A1H ;REDIRECT "SAVE" 


7FBC 7 9 


00590 


LD 


A,C 


OUTPDT C REGISTER 


41A1 


5F7F 


00110 


DEFW 


START jCOHMAND TO START 


7FBD CD6402 


00600 


CALL 


0264H 


(CHECKSUM TOTAL) 


7F5F 




00120 


ORG 


7F5FH 


7FC0 1BD6 


00610 


JR 


FOUR 




7F5F 


21F37F 


00130 START LD 


HLfNAME jMESSAGE "PROGRAM 


7FC2 1002 


00620 SIX 


DJNZ 


SEVEN 




7F62 


CDA728 


00140 


CALL 


28A7H ;NAME" TO SCREEN 


7rC4 1806 


00630 


JR 


NINE 




7F65 


CDB31B 


00150 


CALL 


1BB3H ; INPUT NAME . 


7FC6 AF 


00640 SEVEN 


XOR 


A 




7F6e 


B7 


00160 


OR 


A ; IF BREAK . . . 


7FC7 CDEB7F 


00650 EIGHT 


CALL 


CHKSUM 




7F69 


C2191A 


00170 


JP 


NZ,1A19H .-GO TO READY 


7FCA 10Fa 


00660 


DJNZ 


EIGHT 




7F6C 


D7 


00180 ONE RST 


10H 


7FCC 79 


00670 NINE 


LD 


A,C 


END OF PROGRAM ... 


7F6D 


C26C7F 


00190 


JP 


NZ,ONE 


7FCD CD6402 


00680 


CALL 


0264H 


SEND FINAL CHKSUM 


7F70 


06 06 


00200 


LD 


B,6 rFOLLOW INPUT 


7FD0 3E78 


00690 


LD 


A,7BH 


ENTRY POINT CODE 


7F7 2 


3620 


00210 TWO LD 


(HL) ,2EH rWITH 6 


7FD2 CD6402 


00700 


CALL 


026 4H 




7F74 


23 


00220 


INC 


HL ; 13LANKS 


7FD5 2AA440 


00710 


LD 


HL,(40A4H) 1 


7F75 


IBFB 


00230 


DJNZ 


TWO 


7FD8 23 


00720 


INC 


HL 


EXECUTE ADDRESS 


7F77 


AF 


00240 


XOR 


A 


7ED9 23 


00730 


INC 


BL 


IS AT START OF 


7F78 


CD120 2 


00250 


CALL 


0212H .-DEFINE DRIVE 


7FDA 23 


07 40 


INC 


HL 


BASIC PROGRAM 


7F7B 


CD8702 


00260 


CALL 


0287H JWHITE LEADER 


7FDB 23 


07 50 


INC 


HL 


PLUS 5 BYTES 


7F7E 


2AA740 


00270 


LD 


HL,(40A7H) 


7FDC 23 


00760 


INC 


HL 




7F81 


D7 


00280 


RST 


10H 


7 FDD 7D 


00770 


LD 


A,L 




7F82 


2B 


00290 


DEC 


HL 


7FDE CD6402 


007 80 


CALL 


026 4H 




7FB3 


3E55 


00300 


LD 


A,55H jWRITE SYNC BYTE 


7FE1 7C 


007 90 


LD 


A,H 




7F85 


CDe402 


00310 


CALL 


02e4H , 


7FE2 CD6402 


00800 


CALL 


026 4H 




7F8B 


0606 


00320 


LD 


B,6 


7FE5 CDF801 


00810 


CALL 


01F8H 


STOP CASSETTE 


7F8A 


7E 


00330 THREE LD 


A,{HL) ;WRITE T'lLE NAME 


7PB8 C3191A 


00820 


JP 


1A19H 


GO TO READY 


7F8B 


CD6402 


00340 


CALL 


0264H 


7FEB F5 


00830 CHKSUM 


PUSH 


AF 


SUBROUTINE TO 


7F8E 


23 


00350 


INC 


HL 


7FEC 81 


00840 


ADD 


A,C 


COMPUTE CHKSUM 


7F8F 


10F9 


00360 


DJNZ 


THREE 


7FED 4F 


00850 


LD 


C,A 


AND- OUTPUT BYTE 


7F91 


ED5BF940 


00370 


LD 


DE,(40F9H) ;END ADDRESS 


7FEE F3 


00860 


POP 


AF 


IN A REGISTER 


7F95 


2AA440 


00380 


LD 


HL,[40A4H) fSTART ADDRESS 


7FEF CD6402 


00870 


CALL 


0264H 




7F98 


3E3C 


00390 FOUR LD 


A,3CH jDATA HEADER CODE 


7FF2 a 


00880 


RET 






7F9A 


CD6402 


00400 


CALL 


026 4H 


7FF3 50 


00890 NAME 


DEFM 


' PROGRAM 


NAME' 


7F9D 


0640 


00410 


LD 


B,40H ;SAVE 64-BYTE BLOCK 


7FFF 00 


00900 


DEFB 







7F9F 


78 


00420 


LD 


A,B 


1A19 


00910 


END 


:ai9h 




7FA0 


CD6402 


^0430 


CALL 


26 4H 

Program 


00000 TOTAL 

Listing 2 


ERRORS 









line zero is in Program Listing 3. 

CLOAD and run the special 
Save activator you typed in from 
Program Listing 1. You should 
see the message indicating that 
all went as planned and the 
Save command is ready. Type 
New to clear that program out of 
memory, and run the demon- 
stration program in Program 
Listing 4; it already contains 
lines zero and one. Line zero will 
be altered and line one will be 
deleted. Run the program once 
to see it operate as a normal Ba- 
sic program. Now type the word 
Save and enter. The TRS-80 
prompts you for a program 
name. You can enter up to six 
characters to identify the pro- 
gram (call this program Demo). 
Before pressing Enter, set the 
cassette to record the new pro- 
gram just as in a normal CSAVE 
operation. You might save a sec- 
ond copy in case of a bad copy, 
but there is no verification like 
CLOAD? when using this step. 

You can either turn off the 
computer or type New and re- 
move your program. Rewind the 
tape and press play. Type 
System and at the *? prompt, 
enter Demo. At the second *? 



prompt type a slash and press 
Enter. The program should fill 
the screen with the graphics 
demonstration Just as it did us- 
ing the Run command a few mo- 
ments before. 

Because of the tack of a verifi- 
cation command, do not com- 
pletely abandon the CSAVE com- 
mand. During development of a 
new program, CSAVE the pro- 
gram as It changes. CSAVE a ver- 
ified final copy and prepare a 
System-readable copy using the 
Save command for everyday use. 

The starting address of the 
program is permanently stored 
on tape. Different TRS-80 mod- 
els use different starting points 
for the beginning of a Basic 
program; a program you have 
saved on your Model III will 
probably not work on a friend's 
Model I. Disk systems alter the 
starting address also. However, 
any tape you prepare on your 
TRS-80 should always work on 
your TRS-80, and any identical 
TRS-80's. ■ 

Randy Hawkins, a chemical 
engineer, uses his TRS-80 for 
entertainment, personal and 
educational applications. 





00100 








00110 


START 


BASIC EXECUTION ROUTINE 




00120 


BY RANDY HAWKINS 




00130 


6214 BIDDEN COVE 




00140 


CORPUS CHRISTI, TX 




00150 








00160 


THIS 


IS THE ROUTINE WHICH IS 




00170 


POKED 


INTO' THE REM STATEMENT 




00180 


AS OUTLINEDIN THE ARTICLE. 1 




00190 


WHEN 


EXECUTED AT THE SYSTEM 




00200 


"SLASH" ENTRY, A NORMAL BASIC 




00210 


RUN COMMAND IS ENTERED AND 




00220 


ACTIVATED, 6/6/81 




00230 






42EE 


00240 


ORG 


42EEB ; START ADDRESS 


42EB CDP81A 


00250 


CALL 


1AF8H iROM ROUTINE 


42F1 23 


00260 


INC 


KL 


42F2 22F940 


00270 


LD 


(40F9H),!iL ;ENI> OF PROG 


42F5 2AA740 


00280 


LD 


HL,(40A7H) ;BUFFER ADD. 


42F8 3652 


00290 


LD 


(iiL) , 'R' 


42FA 23 


00300 


INC 


Ht. 


42FB 3655 


00310 


LD 


[HL) , 'U' 


42FD 23 


00320 


INC 


HL 


42FE 364E 


00330 


LD 


(HL) , 'N' 


4300 23 


00340 


INC 


HL 


4301 AF 


00350 


XOR 


A fZERO BYTE 


4302 77 


00360 


LD 


(HL) ,A 


4303 2AA740 


00370 


LD 


HL,(40A7H) 


4306 3E0D 


00380 


LD 


ft, 13 


4308 26 


00390 


DEC 


HL 


4309 C3811A 


00400 


JP 


lASlH ;ROM ENTRY POINT 


0000 


00410 


END 




00000 TOTAL 


ERRORS 










Program Listing 3, 



HEM 

1 ST=PEEK (16548 )-h256*PEEK (16549) +5 :FOHI=STTOST+29:READX:POKBI,X: 
NEXTl!DATA205,248,26,35,34,249,64,42,167,64,54,82,35,54,85,35,5' 
, 78,35, 175, 119 ,42, 167, 64, 62, 13, 43, 195, 129, 26 iDELETEl 

10 CLS!POKE16396,23!RBM TO DISABLE THE BREAK KEY 

20 FOR2=1TO3!FORI=15360TO163 83STEP64 . 

25 K=128+RND(63) 

30 FORJ=0TO63!POKEI+J,K:NEXTJ 

35 K=128+RHD(63) 

40 1=1+64 !FORJ=63TO0STEP-l!POKF,I-tJ,K 

45 NEXTJ,I,Z:POKE16396,2a: 



Program Listing 4 



80 Micro, November 1982 • 405 



UTILITY 



LOAD 80 



A trace table to avoid a cluttered screen. 



Clean Up Your TRON/TROFF 



Arne Rohde 

Pilevej31 
7600 Struer 
Denmark 



One of the main advantages 
of Basic on the TRS-80 is 
the ability to write and test pro- 
grams interaclively. Programs 
can be run immediateiy after 
making changes to them, with- 
out going through compilation 
and Uniting phases. Develop- 
ment time with Basic can be re- 
duced significantly for smaller 



The Key Box 



Disk Basic 
Mode) I 
48KRAIVI 



programs compared to similar 
compiled languages. Yet, when 
programs become larger and 
the logic more complicated, the 
time required to test and debug 
becomes more significant, and 
the quality of the testing tools 
available becomes more impor- 
tant. The testing and debugging 
tools may be built into the lan- 
guage itself, or be available as 
separate packages which can be 
used as required, One of the fea- 
tures built into Level II Basic on 
the TRS-80 is the trace facility. 

Program Tracing 

How often have you encoun- 
tered an error in a Basic pro- 
gram, but have been unable to 
determine the logic flow from 
the val ues of the variables at the 
time the error occurred? When 
you rerun the program, you can 
either set on the Basic trace 
function with the TRON com- 
mand or embed instructions in 
the program to give a simulated 
trace, possibly with variable 
values displayed. Both methods 
have one major disadvantage: 
Any scrieen display will be de- 
stroyed unless the trace com- 
mands in the program direct the 
output to a printer. The Basic 
trace produces a mass of output 



unless carefully controlled with 
TRON and TROFF embedded in 
the program, especially in loops 
waiting for input with the IN- 
KEY$ function. The screen will 
fill with trace information, and 
any operator prompt will be lost. 

A more useful trace function 
for many of the errors encoun- 
tered during program develop- 
ment would be one which main- 
tains a trace table in memory 
but only prints the results after 
the error has occurred. A trace 
function of this type is hidden 
during normal program execu- 
tion; no program changes are re- 
quired to run with or without the 
trace function. The disadvan- 
tages of this approach, apart 
from the increase in execution 
time, are that the trace table is 
of limited length, and variable 
values normally will not be 
stored. If variable values are re- 
quired during the run, instruc- 
tions to list these can be embed- 
ded in the program. 

Program Listing 1 shows a 
routine which can be used to 
maintain a Basic trace table in 
memory. Data from the trace 
table can be printed either with a 
single Basic line executed di- 
rectly from the keyboard, or with 
an error routine embedded in the 



program. An embedded routine 
can also be executed directly 
from the keyboard with a GOTO 
line number. 

The routine was written for 
use with disk Basic; only a 
single line needs to be changed 
if it is used on a cassette-based 
system. The jump instruction in 
line 350 returns to DOS after in- 
itializing various pointers. For a 
tape system, the address in this 
instruction should return to the 
Basic Ready prompt. It was also 
written for a 48K system, with 
another routine resident from 
about FFOOH, hence the start 
address FEOOH. The start ad- 
dress can be changed (in line 
180) to any desired value, and 
the routine reassembled. The re- 
location can be done manually, 
but the addresses in 12 of the in- 
structions will have to be 
changed. 

In disk operating systems, the' 
routine is loaded before enter- 
ing Basic; on entry to Basic, 
memory must be reserved for 
the routine. Alternately, after 
entering Basic, the routine 
could be POKEd into memory. In 
tape systems the routine can be 
written as a System tape and 
loaded after powering up the 
system. Again, memory must be 
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reserved for the routine 

The trace table has room for 
10 entries. Unlike the built-in 
Basic trace, an entry will not be 
created for each command with- 
in a line. Instead the line number 
is associated with an execution 
count; this count is used each 
time a command is executed in 
the same line as the previous 
command. The maximum exe- 
cution count is 255, and any ex- 
cess count will be lost. Thus sin- 
gle-line loops will not fill up the 
trace table, whereas multi-line 
loops will have an entry for each 
line in the loop. When waiting 
for a key to be depressed, for ex- 
ample, the construct 200 A$ = 
INKEY$:IF A$ = " " THEN 200 
should be used instead of 

200 A$ = INKEY$ 

210 IFA$ = "" THEN 200 

if the longest possible trace is 
desired. The latter will fill the 
table with line 200 and 210, the 
former will oniy have a single en- 
try for line 200 with the remain- 
ing nine still showing the pre- 
vious line numbers executed. An 
execution count greater than 
255 will still be shown with the 
value 255. 

Accessing Data 

There are two methods for ac- 
cessing data in the trace table. 
One is to type in a single line 
when data is needed; the other 
is to embed the access routine 
in the program so it will be ex- 
ecuted when an error occurs or 
when a GOTO to the iine is exe- 
cuted. For access from the key- 
board, the address of the trace 
table must be known. As shown, 
it is resident from FE24H to 
FE41H,or -476 to -447 using 
the Basic method of addressing. 
Each entry In the table consists 
of three bytes, two for the line 
number and one for the execu- 
tion count. The table can be 
printed with the line FOR 
1= -476 TO -449 STEP 
3:PRINT PEEK(l)-t-256*PEEK 
(l-l-1);PEEK(l-h2):NEXT. 

For automatic access, the 
trace table address is stored in 
the two bytes immediately pre- 
ceding the routine entry point. 
The entry point can tie found in 
the keyboard device control 
block at address 16406 and 
16407. The program lines re- 
quired for implementing an 



automatic print of the table are; 

10 ON ERROR GOTO 65500 



65500 PRINT "ERR0R";ERR/2 + li"IN 
LINE";ERL/TRACE TABLE ENTRIES:" 

65501 ll = PEEK116406] + 256.PEEK(16407); 
IF ll>32767THEN I! = I! -65536 

65502 ll = PEEK(l!-1.256+PEEK(l!-2);IF 
l!>32767THEN |[ = l!-65536 

65503 FOR I! = 1! TO I! + 27 STEP 3:PR1NT 
PEEK(I!] + 256.PEEK(I! + 1); 

PEEK(l! + 2),:NEXT:ON ERROR GOTO 
0;END 

Line 10 will cause control to 
be passed to line 65500 if an er- 
ror occurs in the program. Line 
65500 will first print the error 
number and the error iine num- 
ber, since the normal Basic error 
display has been suppressed. 
Line 65501 gets the routine start 
address from the keyboard de- 
vice control block, and converts 
it to the required Basic format if 
it points to an address above 
32767. Line 65502 will use this 
address to get the start address 
of the trace table, again convert- 
ing It to Basic format. Line 65503 
will then print the actual trace 
table entries. If the routine is re- 
quired other than in an error 
trap, GOTO 65501 can be exe- 
cuted from the keyboard. 

Lines executed directly from 
the keyboard and program lines 
with line numbers greater than 
65279 will not be traced because 
of routine coding. The four lines 
used for printing the table will 
therefore not appear in the trace 
table listing, even though the 
trace routine is active while they 
are being executed. 

Program Description 

The normal Basic trace 
routine is resident in read-only 
memory, and can not be modi- 
fied to provide the required trace 
information. However, the inter- 
preter calls a keyboard scan 
routine immediately before exe- 
cuting each statement and be- 
fore checking for trace on or off. 
The keyboard scan routine was 
a logical choice for inserting the 
trace code, with a check insert- 
ed to use the trace table oniy 
when a Basic program is exe- 
cuting. The call to the scan rou- 
tine is found at address 1D1EH; 
the return address on the stack 
should be 1021H. Other infpr- 
mation has been put on the 
stack before getting to the 
keyboard routine, so the ad- 
dress can be found at displace- 



ment 14 from the current stack 
pointer value. The first state- 
ment in a program is not ex- 
ecuted beginning at address 
1D1EH, and the line number will 



not appear in the trace table 
unless it contains multiple 
statements. 

The address of the next com- 
mand to be executed has also 









Program 


Listing 








00100 














80110 


J KEYBOARD INTERCEPT AND TRACE ROUTINE | 






00120 


;MAINTAIHS TRACE TABLE FOR LINE 


NUMBERS < FF 


00 (65280) 
















00130 


; TOGETHER WITH 


ONE-BYTE EXECUTION COUNT [MAX | 


2551 




00140 














00150 


I PROGRAMMED BY 


ARNE ROHDE, PILEVEJ 31, | 






00160 


;7600 STRUER, 


DENMARK , OCTOBER 


1960 






00170 


J 








eEna 




00180 




ORG 


0FE00H 




FE00 




00190 


INTKYU 


EQU 


S 


; INITIALISE 


keyb: 


ROUTINE 












FEBB 


2A1640 


00200 




LD 


HL, (4016H) 


; PRESENT DRI 


VEH ADDP 












FE03 


EB 


00210 




EX 


DE,HL 


: ADDRESS TO 


DE 














FEe4 


2144FE 


00220 




LD 


HL,KYBRUT 


,-NEK ADDRESS 


FE07 


DF 


00230 




EST 


24 


; COMPARE DE, 


HL 














FE08 


280fl 


00240 




JR 


Z , CLRTAB 


{ALREADY ENT 


ERED 












■ ■ R 


FESfi 


EB 


00250 




i.X 


DE,HL 


[BACK TO HL 


FEHB 


22A4FE 


266 




LD 


(JPRET+1) ,HL 


; STORE IK RE 


TURN 














FEBE 


2144FE 


270 




LD 


HL,KYiiRUT 


;KEK KEYBOAR 


D ROUTINE 












FEll 


22le4f] 


0B28B 




LD 


{4ai6H) ,HL 


; INSERT IN D 


CB 














FE14 




00290 


CLRTAB 


EQU 


S 




FE14 


2124PE 


00300 




LD 


HL, TRCTAB 




FE17 


3600 


00310 




LD 


{HL) ,0 


; CLEAR TRACE 


TAB 














FE19 


1125FE 


00320 




LD 


DE,TRCTABil 




FEIC 


011D00 


00330 




LD 


BC,TRCTBE-TRCTAB-1 | 


FEIF 


EDBB 


00340 




LDIR 






FEZl 


C32D40 


00350 




JP 


40 2DH 


: RETURN TO D 


05 




00360 
00370 


; TRACE 


TABLE 






FE24 




003B0 


TRCTAB 


EQU 


S 




FE42 




00390 


TRCTBE 


EQU 


TRCTAB-t-3 


;10 ENTRIES 


OF 3 


BYTES 








''■- 




rE3F 




00400 


TABLIN 


EQU 


tr6tbe-3 


;CDRRENT LIN 


H NO 




00412 


.-TABLE 


ADDRES.. 






FE42 




00420 




ORG 


TRCTBE 




FE4 2 


24FE 


00430 




DEFW 


TRCTAB 


; PRECEDES KY 


BRUT 




00440 














00450 


; KEYBOARD INTERCEPT ROUTINE 




FE44 




00460 


KYBHOT 


EQU 


S 




FE44 


210E00 


00470 




LD 


HL,H 


;RETURK ADDR 


IN 


;tack 












FE47 


39 


004S0 




ADD 


HL,SP 


:ADDR TO HL 


FE4S 


5E 


00490 




LD 


E, (HL) 


; LSB TO E 


FE'19 


23 


500 




INC 


HL 




FE4A 


56 


0B51B 




LD 


D, (HL) 


jRSB TO D 


FE4B 


21211D 


00520 




LD 


HL,1D21H 


J EXPECTED AD 


DH 














FE4E 


□ F 


00530 




EST 


24 


ICOHPAHE VAL 


UE 














FE4F 


2B3P 


00540 




JR 


N2,DEBNGE 


INOT EQ, ION 


ORE 














FE51 


210600 


00550 




LD 


HL,6 


;OLD HL VALU 


E IH 


STACK 












FE54 


39 


00560 




ADD 


HL.SP 




FE5 5 


SF 


00570 




LD 


E,(HL} 


;ADDR TO DE 


FES 6 


23 


00580 




ING 


HL 




FE57 


56 


00590 




m- 


D,(HI.) 




FE58 


lA 


00600 




m 


A,(DE) 


:NEKT CHAR T 


A 














FE59 


B7 


00610 




OR 


A 


;CHECK FOR 


FESfl 


2AA240 


00620 




LD 


HL, (40A2H) 


,-GET LINE NO 


FE5D 


200C 


00630 




JR 


NZ, STORLN 


;N0N-ZERO, S 


TORE 


LINE 












FE5F 


EB 


00640 




EX 


DE,HL 


;ADDR TO HL 


FE60 


23 


00650 




INC 


HL 


; BYPASS NEXT 


ADDR 












FE61 


7E 


00660 




Lb 


A, (HL) 


; CHECK FOR E 


ND OF PROG 






■' 






FE62 


23 


00670 




INC 


HL 




FE63 


B6 


00680 




OR 


(HL) 


;CHECK NEXT 


ADDR 


= 












FE64 


2B2A 


00690 




JR 


Z,DEBNCE 


;YES, IGNORE 


FE6S 


23 


00700 




INC 


HL 




FE67 


5E 


00710 




LD 


F, IHL) 


;GET LINE NO 


FE68 


23 


00720 




INC 


HL 




FE69 


56 


00730 




LD 


D,(HL) 




FE6A 


EB 


00740 




EX 


DE,HL 


fLINE NO TO 


HL 














FE6B 




00750 


STORLN 


EQU 


s 




FE6B 

F 

F£6C 


7C 


00760 




LD 


A,H 


iCHECK MEB=F 


3C 


00770 




INC 


A 


;LINE NO >65 


279 














FE6D 


2621 


00780 




JR 


Z,DEBNCE 


;YES, IGNORE 


FE6F 


EB 


00790 




EX 


DE,HL 


;LINE NO TO 
Program continues 
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Piogmm continuBd 








DE 

FE70 2A3FFE 


00800 


LD 


HL,(TABLIN) 


jLAST LINE N 


IN TfiBLE 










FE73 DF 


00810 


RST 


24 


[COMPARE DE, 


HL 










fE74 3A41FE 


00820 


LD 


A,(TABLIK+2) 


J PRESENT COU 


NT 










FE77 2811 


00830 


JR 


Z, INCRPT 


T INCREMENT R 


EPEAT COUNT 










FE79 D5 


00840 


PUSH 


DE 


;HTOEE LINE 


NO 










FE7A 2127FE 


00850 


LD 


HL,TRCTAB+3 


;MOVE TABLE 


LEFT 










FE7D 1124FE 


00860 


LD . 


DE,TRCTAB 




FEB0 011B00 


00870 


LD 


BC , TRCTBE-TRCTAB 


-3 


FE183 EDB0 


00880 


LDIR 






FFS5 El 


00890 


POP 


HL 


;LinE NO 


FEtjg 223FFE 


00900 


LD 


(TABLIN) (HL 


(■STORE NEW N 


UMBEK 










ilJGg AF 


00910 


XOR 


A 




FB8A 


0092B INCRPT 


EQU 


S 




FE8A 3C 


00930 


IHC 


A 


; iWCfi COUNT 


PKBR 2F!fl3 


00940 


JH 


Z.DEliNCE 


;OVEH MAX CO 


UNT 










FEBD 3241FE 


»0950 


LD 


[TABLIt« + 2) ,fi 


; STOKE NEW 


i'E90 


B0960 DEBNCE 


EQU 


5 


;D£BOUNCE RO 


UTINE 










FE90 118038 

Efi 

FE53 21354B 


80970 


LD 


DE,38Sei[ 


jKLl-tiOARD AE 


§w9e0 


LD 


[(L,4035H 


; PREVIOUS VA 


LUES 










FE96 


60990 KXKY 


EQU 


S 




FE96 C803 

R 

PE9R Fe 


01000 


RLC 


S 


iTO NEXT ADD 


01B1H 


KET 


M 


; NO CHANGE, 


RETURN 










FE99 2C 


eiB2E 


TNC 


L 


; NEXT Or,D VA 


LUE 










FE9A lA 


01030 


LD 


Ar (DE] 


J GET KEYS 


FE9B AE 


01040 


XOR 


(HL) 


jCOMPWITH P 


REVIOUS 










FE9C 2aF8 


01050 


JR 


Z.NXKY 


; REPEAT IF S 


AHE 










FE9E 0605 


01060 


LD 


B,5 


rDELAY VALUE 


!'EA0 CL>6aaa 


01078 


CALL 


Dwsaii 


;L>£LAy ROt-TI 


tlLi 










FEA3 C3E303 


01080 JPRET 


JP 


e3E3H 


rCONTINUE KE 


YBOARD ROUTINE 










01090 






;ADDHESij CHA 


NGED BY IBITL 








FE00 


01100 


END 


INTKYB 




KH000 TOT AT, 


FRBOBS 









AT LAST! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 

SCIENTISTS MATHEMATICIANS & SfATISTICIANS USING 

niCROCOMPUTERS. 

PLUG INTO- 

ACCESS! 
The Journal of Microcomputer Applications 
for 

* numerical analysis * computerized design 

* math modeling * process simu'ation 

* statistical analysis * report generation 

The articles in ACCESS are written by working 
engineers and scientists who share their knowledge of 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And you'll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive tool possible. 
Sign up NOW be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada 8c Mexico 
$20. Other $32). Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 



nSign me up. $16 enclosed Q Bll! me Q Bill ^155 
Company Charge VISA Q MC # 

Exp ^ 5®"*^ sample issue here's %i 

Name & address 

City State and ZIH 



Mail to ACCESS PC Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 



been stored on the stack, and 
this value will be founcJ at dis- 
placement six. If this address 
points to a byte containing 
binary zero, a new line is I0 be 
executed; the line number will 
be found at displacement three 
from ttie address. If the byte is 
non-zero, a new command with- 
in the current line is to be exe- 
cuted, and the current line num- 
ber will be found at location 
40A2H. 

Lines 190-350 in the routine 
are used for initialization, and 
are usually executed only once. 
A check has been made for inad- 
vertent execution more than 
once, to avoid an endless loop. 
The current keyboard driver ad- 
dress is compared to the routine 
entry point, and if identical no 
new address is stored in the 
keyboard device control block. 
Otherwise the trace routine 
start address is stored in the 
jump instruction JPRET; the 
current routine will be used after 
the trace routine has been ex- 
ecuted. The trace table is then 
cleared, ready to accept trace 
information, followed by a jump 
to the DOS entry point (402DH). 
This address should be changed 
to 72H if the routine is used on a 
tape system. 

Trace Table 

The trace table itself is de- 
fined in lines 380-400, and con- 
sists of 10 entries, each three 
bytes long. The first two bytes In 
each entry are the line number, 
ttie last is the execution count. 
The trace table could be defined 
with any desired number of en- 
tries by changing the value in 
line 390, and reassembling the 
routine. More entries will require 
more storage and slow down ex- 
ecution of Basic programs since 
the whole table is moved for 
each new line executed. The cur- 
rent line will always be in the 
last table entry, easing access 
to the table at a cost in execu- 
tion time, A circular table with 
pointers could have been used, 
but would have complicated the 
table access logic. 

The keyboard intercept and 
trace routine starts with the 
label KYBRUT in line 460, and is 
preceded by the table start ad- 
dress to allow easy relocation of 
the table. The stack is accessed 



to check for the return address. 
!f this is not equal to 1D21H the 
remainder of the routine is 
skipped. The current execution 
address is then found at dis- 
placement six in the stack. If 
this points to a non-zero byte the 
line number at 40A2H is used; 
otherwise, a check for end of 
program is made and the line 
number of the next line is found- 
Line numbers with the most sig- 
nificant byte equal to FFH will 
be ignored. This takes care of 
directly executed statements 
(line number FFFFH) and line 
numbers greater than 65279. If 
only directly executed state- 
ments are to be ignored, line 765 
should be inserted with the 
statement AND L. If the current 
line number Is equal to the last 
linenumfaerin the table then the 
execution count is incremented 
(unless it already contains the 
value 255). If the tine numbers 
differ, the table is shifted left 
one entry, the new line number 
inserted in the last entry, and 
the execution count is set to 
one. 

Since the routine is inserted 
in the keyboard scan procedure, 
it was logical to try and fix key- 
board debounce. The debounce 
routine is found in lines 
970-1070. If your system already 
contains an effective keyboard 
debounce routine these lines 
should be deleted. These lines, 
together with the return jump in- 
struction, could also be used as 
an independent keyboard de- 
bounce, and will execute faster 
than the one in read-only mem- 
ory if there is no change in key- 
board status. 

Modifications 

The routine could be modified 
to increase the execution count 
to a two byte value if 255 as max- 
imum is too restrictive. Modifi- 
cations could also be made so 
only certain command types are 
traced, or so tracing couid be 
switched off under program 
control to save execution time. 
It should also be possible to in- 
clude single-stepping or slow 
execution, controlled from the 
keyboard or by the program be- 
ing executed. Note: The routine 
is for Model I; changes will 
probably be required to run on 
Model III.H 
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MASTER ELECTRONICS, INC. 

*TRS-80 is a trademark of Tandy 



CAN SET YOU UP !N A 




Color Conrp 








Are you tired of searching the latest magazine for articles about 
your new Color Computer? When was the last time you saw a 
great sounding program listing only to discover Ihat it's for the 
Model I and It's too complex to translate? Do you feel that you are 
all alone m a sea of Z-80's? On finding an ad for a Color Computer 
program did you mail your hard earned cash only to receive a 
turkey because the magazine the ad appeared in doesn't review 
Color Computer Software? If you have any of these symptoms 
you're suffering from Color Computer Blues' 

But take heart there is a cure! 
It's COLOR COMPUTER NEWS. 

The monthly magazine for'^Color Computer owners and only Color 
Computer owners, CCN contains the fuH range of essential 
elements for relief of CC Blues. Ingredients include; comments to 
the ROMS, games, program listings, product reviews, and general 
interest articles on such goodies as games, personal finances, a 
Kid's page and other subjects. 

The p;:ce for 12 monthly treatments is only $21.00 and is available 

from: 

RKMarkable Software 

P.O. Box 1192 

Muskegon, Ml 49443 .v' 145 



CONVERT YOUR TRS-80 MODEL-I OR III INTO A 

DEVELOPMENT 




{■^-..-.j yi;t. can develop Z-80 based, 
stand-alone devices such as games. 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system. The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface} 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems. THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs: one TTL circuit for clock 
and reset, a Z-80. an EPROM, and one 
peripfieral interface chip. 

When the In-Circuil-Emu lation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80 
You can use the full power of your 
editor/assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
tiardware, then the system program 
can be run to debug the logic of your 
stand-alone device 

Since the program is kept in TRS-80 
RAM, changes can be made quickly 
and easily. When your stand-alone 
device works as desired, you use the 
Developmate's PROM PROGRAMMER 
to copy the program into a PROM 
With this PROM, and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself 



The DEVELOPMATE is extremely 
compact Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3.2" x 5.4". A 
line-plug mounted power supply is 
included The PROM programmer has 
a ■ personality module" which defmes 
the voltages and connections of the 
PROM so that future devices can be 
accommodated. However, the system 
comes with a "universal" personality 
module which handles 2758, 2508 (SK). 
2716, 2516 (16K), 2532 (32K), as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs) 

The COMPLETE DEVELOPMATE 
81, for Model I, witfi software, power 
supply, emulation cable, TRS-80 
cable, and "universal" personality 
module $3?9 

DEVELOPMATE 83, Model III version. 
same as above S329 

PIVI2 PERSONALITY MODULE for 
2732A EPROM Sl5 

PM3 PERSONALITY MODULE for 
2764 EPROM S15 

ORION 

INSTRUMENTS 

172 Otis Avenue. Dept M, Woodside, 

CA 94062 

(415) 851-1172 ,^161 

Master Charge and Visa pfione orders accepiec 

California residents please add 6''% sales tax 



■See Us! of Advertisers on Page 455 
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UTILITY 



Take the tedium out of debugging. 



Checksum 



Howard F. Bade 
12002 Cheviot Drive 
Herndon, VA 22070 

Debugging long listings gets 
tedious whether you mind 
keying in listings or not. If you 
have a Model I or Model III Level II 
TRS-80, you can add this 
800-byte program to the end of 
any Basic program to hasten de- 
bugging by producing check- 
sums for the main program 



Address 


Contents 


Meaning 


17129 


244 


Next line 


17130 


66 


at 17140 


17131 


100 


This line 


17132 





NrlOO 


17133 


132 


CLS 


17134 


58 




17135 


153 


DEFINT 


17136 


65 


A 


17137 


206 


— 


17138 


87 


W 


17139 





End of Line 


17140 


3 


Next line 


17141 


67 


at 17155 


17142 


110 


This line 


17U3 





Nr 110 


17144 


72 


H 


17145 


79 





17U6 


213 


= 


17147 


51 


3 


17148 


50 


2 


17149 


58 




17150 


74 


J 


17151 


213 


= 


17152 


72 


H 


17153 


79 





17154 





End of Line 




Table 1 



listing. 

Generation of checksums 
must be simple, uniform and 
consistent. The Checksum 
listing in Program Listing 1 com- 
putes and displays a single 
checksum value for each pro- 
gram line. It also generates the 
total of all checksums in each 
successive blockoften program 
lines. The main program lines 
may contain multiple state- 
ments separated by a colon. The 
reader can then compare his 
checksums to those generated 
by the author of the program. 
They w\i shovi/ correct and in- 
correct program lines. The act- 
ual checksum value is the sum 
of the contents of all memory lo- 
cations after the next-line 
pointer and up to the first re- 



LINE 


CHECKSUM 


100 


801 


110 


1071 


120 


768 


130 


1734 


140 


1932 


150 


1946 


160 


2389 


170 


1314 


180 


2004 


190 


2499 


BLOCK 1 


16458 


HIT ENTER TO CONTINUE?_ 


Figure 1 



mark statement on each line. 

How do vi/e find out what 
memory locations belong to 
each program line? Let's use the 
short "Formula 80" Basic pro- 
gram from the August 1981 



statements in compression 
code format where applicable 
(see "Mysteries of the Level II 
ROM," 80 Microcomputirjg, De- 
cember 1980, p. 150). Each pro- 
gram ends with 0, The check- 



"How do we find out 
what memory locations 
belong to eacfi program line? 



issue as an example (Program 
Listing 2). Table 1 shows how 
the first two lines are stored in 
RAM on the Model I. 

The first two locations of 
each line point to the beginning 
of the next program line. The fol- 
lowing two memory locations 
specify the program line num- 
ber. If the line number were 
greater than 255, then location 
17132 would contain the most 
significant byte of the line num- 
ber. The succeeding memory lo- 
cations contain the program 



The Key Box 

Basic Level II 
Model lor III 



sum value for line 100 of Listing 
2 is the sum of the contents of 
addresses 17131-17138. The 
checksum value includes the 
line number but not the next line 
pointer (17129-17130). Thus the 
checksum value is independent 
of where the program line re- 
sides in RAM. 

The Checksum listing should 
have high line numbers so the 
main program is not disturbed. 
The Checksum program in List- 
ing 1 generates checksums for 
all program lines up to but ex- 
cluding the lines of the Check- 
sum program itself. Since 
Checksum appends the main 
Basic program listing and can 
run separately, it will not inter- 
fere with the variables tables, 
string or array storage area or 
protected memory (if used). The 
Checksum program can use the 
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Selling 80 Mi- 
cro will make mon- 
ey for you. Consider the 
facts: 
Fact #1: Selling 80 Micro in- 
creases store traffic — our dealers 
tell us that SO Micro is the hottest- 
selling computer magazine on the news- 
stands. 
Fact #2: There is a direct correlation between 
store traffic and sales— increase the number of people 
coming through your door and you'll increase sales. 
Fact #3: Fact #1 + Fact #2 ^ INCREASED SALES, 
which means more money for you. And that's a fact. 

For information on selling 80 Micro, call 800-343-0728 
and speak with Ginnie Boudrieau, our bulk sales man- 
ager. Or write to her at 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. 



micro 



80 Pine Street Peterborough, NH 03458 

800-343-0728 



A NEWSLETTER FOR POCKET COMPUTER USEki 
This timely, compact publicdlion provides up to the minute 
information on pocicet computers, including models iuch as 
the Radio Shack TRS-80 PC-1 and PC-2, Sharp Eiectronic's 
PC-1500 and PC- 121 1, and others as they are announced. Sub- 
scribe now to receive a valuable bonus absolutely FREE! 

■ Up to the Minute News ■ Product & Equipment Reviews 

■ Important Operating Tips ■ Practical Programs ■ More 
By Subscription Oiiiy: for a Lalendar year period (|anuary 
December). You get all issues published to date for tlie calen- 
dar year in which you subscribe, at the time you subscribe. 

MC/VISA Phone Subscriptions: (203) 888-1946 

n I arn interested. Please send me more information. I have a: 

□ Radio Shack PC-2 n Sharp PC-1500 D 

D 1982 Regular Subscriber (Issues 11 - 20). S30.00 in U.S. 

[U.S. $36.00 to Canada, U.S. $45.00 elsewhere.) 
D 1982/83 Subscriber (Issues 11 - 30], $60.00 in U.S. 

(U.S. S72.00 to Canada. U.S. $90.00 elsewhere.) 
n 1983 Regular Subscriber (Issues 21 - 30). $36.00 in U.S. 

(U.S. $42.00 to Canada. U.S. $50.00 elsewhere.) 
Orders must be accompanied by payment in full. We do no! 
issue invoices for the POCKET COMPUTER NEWSLETTER. 
Thank you for your remittance. 

Name: . „_ . 
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same variables since running 
tlie main program automaticaliy 
reestablishes the proper vari- 
ables tables. An End statement 
separates the last line of the 
main program from the Check- 
sum listing. 

Program authors should inte- 
grate checksums for each line in 
their program listing so that us- 
ers can double-check manually- 
entered listings. To generate 
checksums, the program author 
would perform the following 
steps: 

Directions 

• Enter manually or CLOAD 
as directed the debugged main 



program listing for which you 
desire checksums. 

• Key in manually and add to 
the main program listing the 
Checksum listing in Listing 1. 

• RUN 65000. The check- 
sums for each line will display in 
10 line blocks, and a block total 
will show as in Fig. 1. 

• Copy the checksum for 
each line of the main program 
listing and the block total for 
each 10 lines, 

• Edit each line and add 
either " ' (checksum)" or ":REM 
(checksum)". Add no space 
after the last character of the 
original line and the apostrophe. 
The remark form requires no 



65000 A = PEEK( 16549)* 256 + PEEK(16548)' D = D 

65010CLS: D = D + 1: E = 0: PRINT," LINE", "CHECKSUM" 

65020 FOR 1 = 1 TO 10:C = 0; L = PEEK(A + 3)-256 + PEEK(A + 2] 

65030 IF K65O00 PRINT.L,. B^PEEKiA + 1)*256 + PEEK(A): ELSE 65070 

65040 FOR J = A + 2T0B-1 F = PEEK(J): IF F = 147 C = C - 58: GOTO 65060 

65050C = C-fF: next J 

65060 PRINT C;A = B:E = E + C 

65070 NEXT I: PRINT: PRINT/'BLOCK "iD.E: PRINT: IF L>64999 END 

65080 PRINT,"HIT ENTER TO CONTINUE";: INPUT C: GOTO 65010 

Program Listing 1. Checi^sum 



space before or after the colon. 
Program Listing 3 shows the 
new listing. Table 2 shows how 
it is stored in RAM. 

• Provide the block totals in 
a single figure or table for the 
magazine to print as part of the 
article. 

• CSAVE the new program 



listing in Listing 3 (with lines 
65000-65080 still appended) to 
tape. The publisher prints the 
listing from this tape. 

The reader should manually 
key in the entire listing as shown 
in Listing 3, but omit the check- 
sum values at the end of each 
program line. When the reader 



100CLS:DEFINTA-W 

110HO=32:J = HO 

120 GOSUB290:GOTO230 

130Z = SIN(.9'X)*15'P 

140 IFPEEK(15350) ^ 32HO ^ HO - 2 

150 IFPEEK(15350) = 64H0 = HO + 2 

160 A4 = A3:A3 = A2:A2 = A1:A1 = Z + 23 

170 1FTIME<5A4 = 23 

180PRINTTAB(Z-(-23)CHR$(124)CHR$(191); 

190PRINT@76e + HO,CHRS{13d)CHR$(143|GHR$(137); 

200 Y = 702-I-J:PRINT@Y," ■'CHR$(133)" "::J=HO 

210 PRINT@1D01 +2,CHR$(191)CHR${124):R = A4:S = A4 + 18 

220 IFH0>S0RH0<RPRI NT-CRASH! I !!":PR|NT"TIME = "TIME;:GOSUB280 

230IFTIME<10GOTO270 

240 ONRND(2)GOTO250,260 

250 X = X -(- .3 

260 X = X - .3 

270TIME = TIME+l:GOTO130 

280 FORI =1TO500:NEXT 

290 ONRND(2)GOTO300.310 

300 P= -1:RETURN 

310P = 1:RETURN 

320 END 

Program Listing 2. Formula 80 




Buying a GENUINE TRS-80 direct, literally, means buying from 
the Tandy Warehouses in Fort Worth. For the end user this is not 
possible. However, the closer a retailer is located to the source 
the lower his cost per unit and the closer his buyer can come to 
"almost" buying direct. WE ARE CLOSER so WE SELL LOWER. 
It only takes a FREE phone call to verify this FACT. 



WARRANTY: 






ONLY A GENUINE TRS-80 purchased 
from an Authorized-Outlet can have 
the Radio Shack Warrahty. 
BUYER BEWARE OF IMITATIONS. 




IN TEXAS CALL 817-57^111 

TOLL FREE ORDER NUMBER: 1 ■ 8 00 ■ 4 33 -S-A-V-E 



TM: TRADE MARK OF THE TANDY CORPORATION 



377 PLAZA GRANBURY • FORT WORTH • TEXAS 76048 
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executes RUN 65000 he can 
compare the checksum for each 
program line displayed lo Ihe 
author's checksum value In the 
magazine listing. When ail your 
line checksums agree with the 
article, you will know that the 
listing you entered manually is 
the same as the author's, or 
your errors are self-cancelling 



on the same line, a remote pos- 
sibility. Error messages would 
show up quickly when run. 

Now you can delete lines 
65000-65080 if you like and 
leave the Checksum program 
appended to the main program. 
It will not interfere with execu- 
tion of the main program. Type 
run and Enter. ■ 



Lieutenant Commander Ba- 
tie, USN, is the program coordin- 



ator for tlie Navy's Fleet Satel- 
lite Communications system. 
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100 CLS:DEFiNTA-W' 801 

110 H0 = 32:J = H0:REM 1071 

120 GOSUB290.GOTO230;REM 768 

130Z = SiN(.9'X)'15'P;REM 1734 

140 IFPEEK(15350) ^ 32HO = HO - 2:REM 1932 

150IFPEEK(15350) = 64HO = HO+2:REM 1946 

160 A4 = A3:A3 = A2:A2 = A1:A1 =Z + 23:REM 2389 

170IFTIME<5A4 = 23:REM 1314 

180 PRiNrrAB(Z + 23)CHR$(124)CHR$(191)/REM 2004 

190PRINT®768-(-HO,CHRS(134)CHR$(143)CHR$(137);:REM 2499 

200 Y = 702 + J'PRINT@Y,- "CHRSIISS)" "-J =^ H0:REM 2761 

210PRiNT@1001+Z,CHR$(191)CHR$(124):R^A4:S = A4 + 18:REM 3198 

220IFHO>SORHO<RPRINT"CRASH!ili":PRiNT"TIME ="TiME;:GOSUB280:REM 3633 

230 !FTiME<10GOTO270:REM 1281 

240ONRND{2)GOTO250,260;REM 1242 

250X = X + .3REM941 

260 X = X-, 3: REM 697 

270TiME^TIME + 1:GOTO130REM 1435 

280FORi = 1TO500:NEXT:REM 1020 

290ONRND(2)GOTO300,310:REW 1029 

300 P^ -1:RETURN:REM 797 

310P^1:RETURN:REM601 

320 ENDiREM 193 

65000 A ^PEEK(16549)*256 + PEEK(1 6548): = 

65010 CLS: D = D + 1: E = 0' PRiNT," LINE","CHECKSUM" 

65020 FOR i = 1 TO 10: C = L = PEEK{A + 3)'256 + PEEK(A -(-2) 

65030 IF K65000 PRINT.L,: B = PEEK(A + 1)"256 + PEEK(A>: ELSE 65070 

65040 FOR J = A + 2 TO B-1: F = PEEK(J): IF F = 147 C = C - 58: GOTO 65060 

65050 C = C -I- F: NEXT J 

65060 PRINT C:A = B:E = E-<-C 

65070 NEXT I: PRINT: PRINT,"BLOCK",D,E: PRINT: IF L>64999 END 

65080 PRINT/'HIT ENTER TO CONTINUE":: INPUT C. GOTO 65010 

Program Listing 3. Formula 80 and Ciiecksum 
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IS THE PERFECT GIFT FOR THE COMPUTER THAT HAS EVERYTHING 




Your investment in a computer is long term. You expect 
many years of reliable sen/ice. Comp Case protects 
your investment when not in use or while transporting it 
from office or home. Your computer never leaves the 
case — you simply remove the lid, miake the electrical 
connection, and operate. Comp Cases are available for 
most brands of computers and peripherals. 



Comp Case is the perfect Christmas 
gift. Comp Cases are available in 
better computer stores in our area. 
Or call 800-848-7548 direct to 
receive your Comp Case in 
time for Christmas. 



COMPUTER CASE COMPANY • 5650 INDIAN MOUND COURT • COLUMBUS, OHIO 43213 
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UTILITY 



LOAD 80 



This algorithm sorts quickly. 



Quicksort 



Don C. Brumm 
3559 Walton Way 
San Jose, CA 95117 



Most data processing ap- 
plications must sooner or 
later present data in sequence. 
As a coroiiary to Murphy's law, 
that sequence is not the one 
that is kept in the data, Thus the 
need to sort is born. There are a 
number of algorithms for sort- 
ing, some fast and some slow- 
ly. Quicksort is the fastest 
available. 

The Quicksort algorithm is 
Simple and, with a little study, 
easy to understand. An array to 
be sorted is partitioned into two 
subarrays. To form the subar- 
rays you choose an element 
within the array and search up 
until you locate an element 
greater than or equal to the 
chosen element. Then you 
search down for an element less 
than or equal to the chosen ele- 



The Key Box 

Basic Level II 
Model I 



ment. The stopping elements 
are exchanged, and the scan re- 
peats until the indices cross. 
The result is two subarrays (par- 
titions). The left contains ele- 
ments less than or equal to the 
chosen element; the right con- 
tains elements greater than or 



equal to the chosen element. 

In more detail, the algorithm 
is: Given an array K(0)...K(N) to 
be sorted, pick an element for 
use in the partitioning process 
(P = K(l)). Then scan from K(0) up 
for an element greater than or 
equal to P. When you find one. 



scan from K(N) down for an ele- 
ment less than or equal to P. If 
the indices have not crossed, ex- 
change the two elements and 
continue the scan. When the in- 
dices cross, the left partition 
contains all elements less than 
or equal to P, and the right parti- 



10 CMD"LOAD 0SORT3/CMD" 

20 CLS:CLEAR 20OO0 

30 DEFUER0=SHFE5B;DEFINTI-Z:DEFETRA-H 

40 DIM A(999), 1(999), B(3) 

50 CMD'TIME, 00:00:00" 

60 FOR K9-199 TO 999 STEP 200 

70 X=0: B(0)=RIGHTS(TIME5,91 

30 FOB J=K9-199 TO k9 

90 L-RND(7) 

100 B=STHING5a2," ") 

110 FOB K=0 TO L:MID$ (B,12-K,1)-CHR$(64+BWD(261 ) :KEXT K 

IZO fi(J)=B 

130 PRINT@128,J; 

14 KEXT J 

150 I(0)=K9!l(i)=V;iKPTBIA(0)l 

160 B(l)=RIGHTS(riMES,9) 

170 X=UERa (VARPTR{I(01 ) ) 

IBO B(2)='RIG1ITS(TIMEE,9) 

190 FOR J=0 TO K9-1 

200 IF AdlJJ) ,G.A(I{J+11] THEM PRINT J; I( J) ; A (I( J) 1 ; I U+H ; A [I t J+1) ) 

210 NEXT J 

220 B(3)=RIGHTS(T1MES,91 

230 LPRINT'SORT OF "K9+1" EI.EMEHTS" 
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tion holds all elements greater 
than or equal to P. 

If you invoke the above pro- 
cess for each resulting partition 
containing more than one ele- 
ment, the array will be sorted. 
The boohii^eeping is complex but 
the concept is simple. 

How "Intuitive" is Quicksort? 

To prove just how "intuitive" 
Quici<sort is relative to other al- 
gorithms, try the following ex- 
periment. Shuffle a deck of 
cards and deal four bridge 
hands. Then sort each hand vwith 
a different algorithm. The re- 
sults will surprise those who ad- 
vocate the bubble sort! I found 
that an insertion sort is most 
natural (probably because the 
eye scans the entire hand), A 
warning: Do not assume that ten 
minutes is enough time. 

In non-recursive implementa- 
tions, an auxiliary stack re- 
members one partition whiie 
another is sub-partitioned. This 
adds to the already complex 
bookkeeping. 

LimHations 

There are two potential prob- 
lems with Quicksort. If the com- 
parison key is the largest or 
smallest in the partition, we sub- 
divide to a one element and an 
(N-1) element pair. If this occurs 
on every choice of comparison 
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Figure 1 





key, our sort degenerates into 
an order N squared sort, no im- 
provement over a bubble sort! 
Also, if in this case we stack the 
smaller partition, our stack re- 
quires (N-1) positions. This is not 
good for a minimum core sort. 

The auxiliary -stack problem 
is easy to solve. We can limit 
our stack to ln(N) by stacking 
the largest partition and sorting 
the smaller one, (Not too bad: 
4K elements require 12 stack 
positions.) 

The problem of the worst- 
case performance of the sort is 
not so easy to solve. There are 
two ways to attack it. The first 
method is to choose the parti- 
tioning key as the median of a 
small sample. This also im- 
proves the average performance 
of the sort. The second method 
is to choose the partitioning key 
at random. I have used this 
method in my Quicksort imple- 
mentation. The Z80 refresh reg- 
ister provides an easy method 
for obtaining a random number. 

The Program Listings are for 
a TRS-80 Model I with Level II 
Basic, but you can modify it 
to run on any Z80 system by 
changing the compare, set 
center, exchange and initializa- 
tion routines. 

SORTTST (Program Listing 1) 
serves as a test of the sort and 
an example of ttie arrays and 
calling sequence for the sort. 
Line 30 defines the entry point of 
the sort and types the variables. 
Line 40 dimensions the alpha ar- 
ray to be sorted (A) and the 
pointer array (I), Line 70 refer- 
ences the return code variable 
(X). Line 150 sets the high ele- 
ment index and the address of 
the stl-ing array. Line 170 in- 
vokes the sort. 

The sort operates indirectly: It 
provides a sequential index list 
to the alpha array in the pointer 
array. I chose this method for 
two reasons. First, this fits well 
with the Radio Shack mailing 
list programs. Second, it does 
not change the original data 
sequence. 

A warning about the calling 
sequence! Array variables are 
moved down when new vari- 
ables are introduced. For safety, 
the calling sequence should be- 
gin with an assignment to all 
variables used in it. 



THERE'S A MEW TERM 
FOR MOD III USERS . . 



TELETE 



The TELETERM Communications System is the most powerful 
and most user-oriented terminal package available today for 
the TRS-80 Model III I 

TELETERM will turn any Model III, with at least 32K of 
memory, single disk drive, and RS-232-C board and modem into 
an Intelligent Terminal capable of communicating with nearly 
all types of computer hardware, AND, it will allowyou to define 
its parameters in virtually any way you wish I 

Only TELETERM gives you these (plus many more) features, 
all in a single package: 



DIRECT TRS-80 to TRS- Makes transmitting as easy 

80 DISK TO DISK TRANS- ^ as copying a file I 
MISSION* 



DIRECT FILE TRANS- 
MISSION FROM DISK** 



Eliminates buffer limitations 



SUPPORTS PROMPTED 
OR NON-PROMPTED ^ 
TRANSMISSION 



Flexible capabilities 



ON-LINE/OFF-LINE 
TEXT EDITOR 



Creation of text for trans- 
mission and review and mod- 
ification of memory buffer 



VIDEO PAGING 



Communicates at Baud rates 
^ above 300 with no character 
loss due to scrolling 



SPLIT-WINDOW VIDEO 



Separate simultaneous view- 
ing of typed and received 
data. 



RECALL SCREEN 



Allows you to review pre- 
vious 1 5 lines received 



WORD WRAPPING 



Automatically "wraps" words 
extending past a line's end 
instead of "chopping" them 



USER-DEFINABLE 
TRANSLATION TABLES 



Allows you to define and 
save as an initialization table 
nearly all RS-232 and local 
parameters, as well as many 
system functions 



VIDEOTEX CODES 
SUPPORTED 



Access timesharing systems 
that require Videotex codes 



"when communicating with another TELETERM system. 
'^to tiny compLTter with whjchyou can comniunjcate 

TO ORDER - Complete tfie coupon below and mad it with your check, 
money order, VISA or MasrerCharge # to: 
TELEXPRESS, INC., P.O. Box 217, Willingboro, NJ 08046 



Name. 



Address . 



City, State, Z;p_ 

Phone 



Send me_^ copies of TELETERM @ S ] 25 00 per copy [ includes User's Manual) 

Send me of the TELETERM User's IWanual at S 1 00 per copy (RefundaPle 

when TELETERM program is purchased.) 

Payment' Check Money Order 

Credit Cards Only: Accc,# 



VISA MasterCharge 

Exp. Date 



Amount of Payment: 5 

Please note: Credit card holders may expedite their orders by phoning [609) 
877-4900 



>J 



TELEHPRESS '" inc., PO box 217, WiHingboro, NJ 08046 
TRS-80 IS a trademark of the Tandy Corporation 



; 
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1000 REM CALL QUICKSORT 
1010 REM ASSUME A$ AND I ARE 

DIMENSIONED AND THAT 
1020 REM N HAS THE INDEX VALUE 

FOR THE LAST 
1030 REM ELEMENT IN AS TO BE 

SORTED 
1040 RC==0; ■ USE THE RETURN 

CODE 
1050 1(0) = N: l(1) = VARPTR(A$(0)). ' 

SET SORT PARMS 
1060 RC = USROiVARPTR(l(0))): ' CALL 

SORT 

SORTTST provides a CPU in- 
tensive set of data to be sorted. 
Ttie comparison in tlie sort ter- 
minates on the first unequal 
character. The data has a mini- 
mum of four leading blanks and 
an average of eigfit. If viewed as 
a list of names, the sort is oper- 
ating on the Smith or Jones sec- 
tion of a phone book. 

SORTTST also uses the fact 
that the sort preserves the orig- 
inal order of the data. As the 
sample run shows, most time is 
taken in building the test data. 

NEWDOS80 simplifies the 
steps necessary to invoke the 



sort. The default memory size is 
set automatically at IPL to 
X'FD80', and the sort is loaded 
by the program itself. The pro- 
gram sets the time to zero. 

The benchmark run (Fig. 1) 
took about seven minutes. Of 
that time, 23 seconds were used 
to sort 3000 strings, in no case 
did even the verification of the 
sequence match the sort time. 

The Sort 

The sort (see Program Listing 
2) is organized w/ith data areas 
first, followed by subroutines, 
and then the sort itself. 

Lines 430-540 declare the data 
areas. Lines 550-2120 are the 
subroutines. Lines 2130-4570 are 
the main program. 

Lines 2160-2610 edit the val- 
ues passed to the sort. Lines 
2650-2790 initialize the indirect 
pointer array. Lines 2800-2860 
place the initial partition on the 
stack. The sort begins at line 



2920 by unstacking the first par- 
tition to split. If the stack is emp- 
ty, indicated by the value X'FF', 
the sort is completed and zero Is 
returned to Basic. 

Lines 3110-3370 select the 
partitioning element. This ele- 
ment remains constant through- 
out the process so the string de- 
scriptor is saved. 

Lines 3410-3460 scan the parti- 
tion from left to right until an ele- 
ment greater than or equal to the 
partitioning element is located. 
Lines 3500-3540 scan from right 
to left. These two sections of code 
are the meat of the sort. 

Lines 3600-3620 check whether 
an exchange is required. Avoid- 
ing the exchange vwhen the left 
and right pointers are the same Is 
simply a time saver. 

Lines 3660-3870 perform the 
exchange of the index array el- 
ements. Lines 3880-3910 are, 
again, time savers. 

Lines 3950-4190 determine 



the smaller of the new partitions 
and select the routine which w/ill 
stack the larger one. 

Lines 4230-4320 stack the left 
to J partition if it is not empty, 
and select the II to right partition 
to sort. Lines 4360-4450 do the 
reverse. 

Lines 4500-4570 check if the 
partition selected for sorting is 
empty and if so, transfers to un- 
stack a partition. Otherwise, the 
selected partition is sorted. 

The program's comments teli 
the story of its operation. The 
method of use Is easy to under- 
stand for those who do not want 
to explore Assembly language or 
sorting theory. This program is 
easy to install and a time saver in 
conjunction with Radio Shack's 
original mailing list program. ■ 



Don Brumm is a systems pro- 
grammer in operatir}g systems 

development. 



Program Listing 2 



IC. 

WITH 
. NULL 
UEHCE. 
ISE EQUAL 



OF ELEMENTS 



RETURN CODE 
SEQUENTIAL 



00020 fTHIS SORT IS DESIGHED TO BE CALLED FROM BAS 
00030 ; 



E RC AS A 
ASIC, NOT 
)-, MOVES 
OB THE NEW 
CAN EI THEE 
DD AN 
flLLING 



FDBB 



)IT SORTS ft STRING ARRAY IHTO ALPHA SEQUENCE 

00050 jSPECIAL TREATMENT OF UNEQUAL LENGTH STRINGS 

00060 ;STRIBGS ARE ALLOWED, THEY ARE LOWEST IN SBQ 

00070 ; STRINGS OF UNEQUAL LENGTHS WHICH ABE OTHERW 

00080 fARE SEQUENCED WITH THE SHORTER STRING FIRST 

00090 jARRAY SIZE IS LIMITED TO 4096 ELEMENTS. 

00100 ! 

00110 [CALLING SEQUENCE: GIVEN AN ARRAY AS[0)-AS(N 

00120 ! AN INDEX ARRAY I(0)-I(N), AND N THE NUMBER 

00130 J TO BE SORTED. 

00140 ; I(0)-N: I [ 1) =VARpTR [ASf 0) ) 

00150 ; RC=USR0(VARPTR(I[0) ) ] : REM RC HAS THE SORT 

00160 ! OH A SUCCESSFUL SORT, I(0)-I[N) PROVIDES A 

00170 ; INDEX FOR THE ARRAY A?. I.E. 

00180 i FOR K-0 TO N: AS(I(K)) WILL ACCESS AS IN S 

00190 ; 

00200 ; THE VALUE OF RC IS: 



THE SORT WAS SUCCESSFUL 
1-6 THE SORT DID NOT TAKE PLACE 

1 I IS NOT AN INTEGER ARRAY 

2 I IS NOT SINGLE DIMENSIONED 

3 I IS DIMENSIONED LESS THAN N 

4 AS IS NOT A STRING ARRAY 

5 AS IS MULTI-DIMENSIONED 

6 AS IS DIMENSIONED LESS THAN N 



30210 

00220 

00230 

00240 

00250 

00260 

002T0 

002B0 

002S0 ; 

00300 i A COMMON CAUSE OF CODES 4-6 IS TO INTRODUC 



00310 ; NEW [NOT PREVIOUSLY ACCESSED) VARIABLE. B 
00320 ; KNOWING YOU HAVE SAVED THE ADDRESS OF AS ( 
00330 ; THE ARRAY AS DOWN IN MEMORY TO MAKE ROOM F 
00340 ; SCALER VARIABLE RC. IF THIS HAPPENS, YOU 
00350 ! RE-INVOKE THE SORT'S CALLING SEQUENCE OR A 
00360 ; ASSIGNMENT OF THE FORM RC=0 PRIOR TO THE C 



00370 ; SEQUENCE. 

00380 ; 

00390 ; 

00400 ; 

00410 ; 

00420 ORG 

00430 N9 . DEFW 



0PDe0H ;FOR 4eK SYSTEM 

jCOUNT OF STRINGS IH 



A? LESS 1 
FD82 0000 
N DE 

FD84 0000 
N HL 

FDe6 0100 
PDSS 0000 
FD8A FFFF 
PER 
0018 

FDfi4 FFFF 
ER 

0018 
0003 

FDCl 0000 
FDC3 0000 



SCBIPTOR 
n: HL. 
HL) ) ) AND 



FDC5 D5 
FDC6 29 
FDC7 ED5BC1FD 

I 
FDCB 19 
FDCC CDFIFD 
DE 

FDCF 62 
FDDa 6B 
FODl 29 
FDD2 19 
FDD3 EB 
FDD4 2AC3FD 
FDD7 19 
FDD8 Dl 
FDD9 C9 



YPE 
(MUST 
NTS IN 
, AND 



FDDA 11F8FF 

TO 



00440 

00450 

00460 
00470 
00430 

04 90 
00500 

00510 
00520 

00530 
00540 
00550 
00560 
00570 
00580 

00590 



LEFT 

RIGHT 

RSTK 



VPTRI 
VPTRA 



DEFW 

DEFW 

DEFW 
DEFW 

DEFH 

DBFS 
DEFW 

DEFS 

DEFS 

DEFW 
DEFW 



; INDEX I, NORMALLY I 

f INDEX J, NORMALLY I 

;LEFT LIMIT VALUE 
;RIGHT LIMIT VALUE 
[RIGHT STACK IX STOP 

3 4 [STACK SPACE 

0PFFFH [LEFT STACK lY ETOPP 



1 



0FFFFH 



; STACK SPACE 

[SPACE FOR COHP DESC 



[ADDR OF ARRAY I 
[ADDR OF ARRAY A 



00610 
00620 
00630 
00640 
00650 
00660 

00670 



00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 



! SUBROUTINES 

; GETNA RETURNS THE ADDRESS OF THE STRING DE 
; AT AS(I(HL)). INPUT IS THE I INDEX 

; OUTPUT IS EQUIVILENT TO VARPTR(AS(Ii 

[ IS RETURNED IN HL. 



GETNA PUSH DE ; SAVE DE 

ADD HL,HL (GET INDEX INTO I 

LD DE,(VPTRI) ; GET ADDRESS OF 

ADD HL,DE ;AND I(HL) 

CALL GETVAL [LOAD COMTENTS INTO 

LD H,D [AND INTO HL 

LD L,B 

ADD HL,HL (INDEX*2 

ADD HL,DE ;INDEX*3 

EX DE,HL (INTO DE 

LD HL, [VPTRA] (GET ARRAY ADDR 

ADD HL,DE (PLUS INDEX 

POP DE (RESTORE DE 

RET [AND EXIT 



00810 
00820 

0830 

00840 

00B50 
00860 
00870 



ACHECK CHECKS THE ARRAY DESCRIPTIONS FOR T 
(PASSED IN A) , NUMBER OF DIMENSIONS 
BE 1) , AND LOADS THE NUMBER OF ELEME 
DE. ON A GOOD RETURN, B IS SET TO 
HL WILL POINT TO THE ZERO'TH ELEMENT 
ON ENTRY, HL POINTS TO THE ARRAY'S Z 
ELEMENT. |HI.=VARPTR(A( 0) ] ) 
ACHECK LD DE,-8 [BACK UP 8 TO POINT 

Listing 2 continues 
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Listing 2 continued 










00880 ; 






ARRAY DESCRIPTOR. I 


IP SINGLE. 


00690 ; 






DIMENSION.) 


TDJID ].E' 


00900 
00910 ; 




ADD 


HL.DE 




00920 ; 


FORMAT OF THE 


DESCRIPTOR IS! 




00930 ; 


DI SPLACEMENT 


CONTENTS 




00940 ; 







TYPE CODE (2=1NTEGER, 3=3TRI 


NG) 












00950 ; 




1 


2 BYTE NAME 




00960 ; 




3 


SIZE IN BYTES 




00970 ; 




5 


NUMBER OF DIMENSIONS 




00980 ; 




6 


2 BYTE COUNT OF ELEMENTS 


H) 


00990 ; 




8 


FIRST ELEMENT (IF 1 DIMENSIO 


01000 ; 








FDDE BE 


01010 




CP 


(HL) ;CHECK 1YVE 


FDDF 2BBA 


01020 




JR 


NZ,ACHK0 fWROKG - OUT WITH 


ERROR 










FDEl 110500 


01030 




LD 


DE,5 ; POINT TO t DIM 


FDE4 19 


01040 




ADD 


HL,DE 


FDE5 46 


01050 




LD 


B, (HL) ;GET IN B 


FDEe 10Se 


01060 




DJNa 


ACHKl ;IF NOT 1 OUT 


FDE8 23 


01070 




INC 


HL jPOINT TO ELE. COUNT 


FDE9 1606 


01080 




JK 


GETVAL ;AHD EXIT VIA LOAD 


F COUNT 










FDEB 0601 


01090 ACHK0 


LD 


B,l ;SET TYPE BAD 


FDED C9 


01100 




RET 




FDEE 06.0 2 


01110 ACHKl 


LD 


B,2 ;SET MULTI-DIM. 


FDF0 C9 


01120 
01160 




RET 






01170 


GETVAL LOADS 


THE INTEGER POINTED TO BY HL 


INTO DE. 












01180 




HL, ON 


EXIT, POINTS TO THE t>EXT iHT 


EGER. 


01190 








FDFl 5E 


01200 GETVAL 


LD 


E,(HL) ;GET LOW BYTE 


FDF2 23 


01210 




IKC 


HL 


FDF3 56 


01220 




LD 


D,{HL) ;GET HIGH BYTE 


FDF4 23 


01230 




INC 


HL 


FDF5 C9 


01240 
01250 




RET 






01260 


STACLR STACKS 


DE IN LSTK, HL IN RSTK ANIi 




01270 


ADJUSTS IX AND lY ACCORDINGLY [ 




01280 








FDF6 DD23 


01290 


jTACLR 


INC 


IX 


FDF8 DD23 


01300 




INC 


IX 


FDFfl DD7 500 


01310 




LD 


(IX), L 


FDFD DD7401 


013 20 




LD 


(IX+1),H fSTACK RIGHT 


FE00 FD23 


01330 




INC 


lY 


FE02 FD23 


01340 




INC 


lY 


FE04 FD7300 


01350 




LD 


{IY),E 


FE07 FD7201 


01360 




LD 


(IY+1) ,D ;AND LEFT 


FEBft C9 


01370 
01380 




RET 






01390 


COMPiiRE HL TO 


DE. C IS SET IF DE>HL 




01400 








FE0B 7C 


01410 


:hlde 


LD 


A,H 


FE0C BA 


01420 




CP 


D ;COMP HIGH BYTES 


FE0D C0 


01430 




RET 


NZ ; UNEQUAL SC RETURN 


FE0E 7D 


01440 




LD 


A,L 


FE0F BB 


01450 




CP 


E 


FF,]e a 


01460 
01470 




RET 






01480 


■SETCEN CAPTURES THE STRING DESCRIPTOR (POIN | 


TED TO BY 












01490 


; HL) 


OF THE SELECTED COMPARAND FOR THE PAR ] 


TITIOH. 












01500 


f THIS ALLOWS 


US TO EXCHANGE IN THE ARRAY A 


ND STILL 












01510 


; MAINTAIN A FIXED COMPARAND. | 




01520 


- 






FEll E5 


01530 


SETCEN 


PUSH 


HL ;3AVE REGS USED 


FE12 D5 


015 40 




PUSH 


DE 


FE13 C5 


01550 




PUSH 


BC 


FE14 CDC5FD 


01560 




CALL 


GETNA !GET ADDRESS OF DESC 


FE17 IIBEFD 


01570 




LD 


DE,CENTR ;AND ADDR Of 


SAVE 










FEIA 010300 


01580 




LD 


■bC,3 ;3ET count 


FEID EDB0 


01590 




LDIR 


;AHD SAVE THE DESC. 


FEIF CI 


01600 




POP 


BC ; RESTORE REGS 


FE20 Dl 


01610 




POP 


DE 


FE21 El 


01620 




POP 


HL 


FE22 C9 


01630 
01640 




RET 


;AHD RETURN 


ME 


01650 


; CHPCEN COMPARES NAHES(HL) TO THE CENTER NA | 


01660 


; CARRY IS SET 


IF NAME(HL) <CENTER, ZERO IF = 




01670 


; ALL 


REGISTERS EXCEPT A Ak!:: PRESERVED 




01680 


. 






FE23 E5 


01690 


CMPCEN 


PUSH 


HL 


FE24 D5 


01700 




PUSH 


DE 


FE25 C5 


01710 




PUSH 


BC jSAVE REGISTERS 


FE26 CDC5FD 

L) 

FE29 46 


01720 




CALL 


GETNA fCOMPUTE ADDR OF N(H 


01730 




LD 


B, (HL) ;LOAD LENGTil 


FEZfi 23 


01740 




INC 


HL 


FE2B 5E 


01750 




LD 


E,(HL) 


FE2C 23 


01760 




INC 


HL 


FE2D 56 


01770 




LD 


D,(HL) jAKD STRING ADDR 


FE2E 3ftBEFD 


017 80 




LD 


A,[CENTR) ;CENTER LENGTH 


FE31 4F 


01790 




LD 


C,A 


FE32 2ABFFD 

R 

FE35 7 8 


01800 




LD 


HL,(CENTR+11 ;AND STRING ADD 


01810 




LD 


A,B ;COHP LENGTH 


FE36 B7 


01820 




OR 


A ;IS IT NULL 


FE37 2003 


01830 




JR 


NZ,COMPB ;IF NOT CONTINUE 


FE39 B9 


01840 




CP 


C ; MAYBE BOTH NULL 


FE3A IBIB 


01850 




JR 


COMPX ; OUT 


FE3C 79 


01860 


COHP0 


LD 


A,C ;TRY CENTER 


FE3D B7 


01870 




OH 


A ;POR NULL 

Listing 2 Continues 



9 GREAT NEW PROGRAMS FROM 

Single SOURCE Solution™ 
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7 
8 



-— RIMS - Rental Inventoiv Management System S795.00 

RIMS, a Rentdl Inuealory Manaatmeiit Sv^lem. is 3 fully nulomalcti iyilem de- 
iKjwd lij nwe\ thf ntedi of (lit lypicdl Timt Ri^niiil Business RIMS will Mi.'e [he 
di-Tdije business ovei £4.000 per ytdr RIMS track'^ earh ilem m your time rental 
lti..rUory. (IS well as m.imliiLnLng perforniante and income refoi-fis RIMS can be 
user! lo op<'rsk' the coi-npuiRr a^ a aish register HIMS lias exli^nsive emir checking 
CapflHilities RIMS automalirally ralculiites cieposiis. lime (jut, pnnii rental receipt 
Jii rtiital dni! return, allows instant inquiry inlu rumint statu", of tin item, reports 
idiii monthly, ueiirly ini-ome. espenses. cashflow, produces statements lor cust- 
omers with term rentals produces inueniory labels and tolidex cards, uses a warn- 
ing horn to alert you lo potential problem* and much more Model 111 

■ FPSSI M FINANCIAL PACKAGE HOK SERVICE STATION ONLY $349.50 

FPSSl^M IS a complete ilnancial and bookkeeping package for Retail Petroleum 
Service Stations FPSS Is written in Microsoft Basic* (ot the TRS-80 Model III 
FPSSTM w'hich includes a 90 page detailed User's Manual, offers specialised ac- 

touiitmy modules tailormade for the retail petroleum industry FPSSTM is menu 
driven, keeps track of each sale, purchase, charge and collection oi a service stat 
ion. with dally, weekly, monthly or annual reports at the liters command Inven- 
tory control IS especially detailed, allowing for deterniiii.ng gasoline leakage Com 
missions lo employees can be tracked with two commission rates setup 

FORMGEN^^'^ 2,7 ONLY S249.95 

FormgsnTM 2.7 is a sophisticated screen and form generator which in three sep 
arately callable moijtiles gives users the ability fo create their own forms or set up easy 
menu driven inputs for standardi^eil forms Complicated calculations riiay be in- 
cluded as part of the lotm output, based on the mpul data Screen layout, variable 
array lengths, fieiri sises, prompt messages, form printing positions and variables 
U&ed may al! be modiiied without breaking the program Users saiie time and very 
little memory is used because most things are done as part cif subroutines Fotm- 
genTM 2,7 has been used m over 100 Beta test sites m very powerful applications 
w th impressive results 



CCMS ESTIMATING SYSTEM $499.95 

The CCMS Estimating System is a comprehensive construction cost eslimal 
log system written by a contractor programmer irir contractors CCMS "talks" the 
' ii i. I i.ii ,1.. 1,;, 'Vith several menu driven liles The key is the systems cost 
L .'I ■' !■ c'c I ... 'ne uni! prices established earlier and organizes the estimate 

r- . ■! 1,1 ■■■,.■. I after the uniform system adopted by the AIA, AGCA and 

CSII Models 1 and 11 and Compiler Basic 

■ TRSFLOWTM i.i ONLY $149.50 

5 d hydraulic model based upon the popuiar Hardy Cross 

■rk analysis By telling the program certain systeni parameters 

meter and type of pipes, TRSFIowTM calculates head values 

and the flows through 150 system elements Within the 



TRSFlow'm 1.1 

rueihi'd r)f pipe netwi 

sui has the length. di< 

up to l."i() pope junci 

]fil) sLStem elements. TRSRow'M can handle 10 pumps and 10 fixed head condi 

fl'iii- TRSFlow 1 M allows the system designated to accurately determine pump and 

pipe si;es in any desired network TRSFIowfM. works with level II Basic on 

TRSDOS. 

BUSINESS MULTI-PACK $99.95 

BUSINESS MULTI-PACK blends (our important business functions sales fore- 
casting (ariThmetic avg, regression analysis expotential smoothing, futures 
aiia'ysisl. determines the economic order guantity. LIFO or FIFO inventory 
ai.alvsjs. and a cache oi general business utilities f hese utilities include Pricing Mer- 
chandise to achieve a desired profit margain, a perpetual calendar, future value ol a 
present sum, present value of a lutuie sum. an amortisation schedule Model III, 
■(^Kbytes, one disk 

-j^ PERSONAL ACCOUNTER ' ^ 2,4 ONLY $59.95 

Personal Accounter 2,4 is an easy to use program for keeping track ol one 
or <:!• .re separate accounts and enables (he user to see the current balance, search 
j,_ir check entries by specific dales, months or year call up total inoothly expendi- 
tures or check when a certain account was paid A printed copy o( all checking ac- 
count reports may be ordered Peisonal Accounter"l"M 2,4 is very easy to use 



and, 



;-ith a reference manual. 



— BISPLAN $69-96 

BISPlan'M ,5 3 program (or making business plans and projections. With 
BISPIanTM y,j„ j,re led through screen prompt.s to enter data concerning your 
business plans \' 1 ■ ■ , !■ 1 ■■•limates of a business proposal that you are consid 
ering and prodi, . ; r -.■ . ■ - of prjiential earnings BiSPIanTM will help you 
Bs-ess financing leguneim-iib. loan payofi rales, length ol tune before return <jn in 
lestment, and pioin potential i.stiniates can be projected up to five years, and 
dumped from screen to line printer BISPlanTM 1^ menu driven and includes a 
manual Available in 16K for !he Model 1 with a more extensive version in Models 11 



rid 111 
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An Interactive Dlsassemblet $49.95 

mbiing process through DISMON. an in 

iml II. m. rru r\ ami 1 ii be used to disas 
m, m .ry Model. [ < 1 111 If-Kbytes with 
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Dear Single SOURCE Solutior;, jjl' 

Please enter niy .a'der lii' the 'ol lowing progi'ams at youi" special 10% disco unl rale "^^^ 

tlimugli 19H2 ' ▼^ 
Ctrcl«progr3m|s)ort1etei1 123456789 



NAME 

ADDRESS 
CITY 



.STATE. 



PHONE |_ I ^^_^___ 

Make check or rroney order payable to: Single SOURCE Solulion 

(California residents add 6%) Postage and Handling add S2. 00: C.O.D 3ddSi SO 

TOIAL AMOUM ENCIOSED I 



Salislaction Guanniveit 01 four Money Back in 10 Days * DeaUr Inquirhs tmttad 

¥ailloitay to Single SOURCE Solulion 

2699Clay1on RO Conco'd CA 94519 or call |41S1 680-0?0? 



j'See List of Advertisers on Page 455 
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Listing 2 conlinu 


ed 


PTATIOr 


028V a 

e288a 


; BEGIN QUICKSORT. THIS ALGORITHM IS AN ADA 


FE3E 200-3 


01880 JR N3,C0MP1 ;NEITHER IS NULL 




0289a 


; OF THAT FOUND LH "ALGORiTimS + DATA STRUCT 


FE40 3C 


aiB90 INC A jCY OFF AND Z OFF 


URES = 






FE41 1814 


01900 Jfi COMPX tOUT COMP>CENTER 
BlSia ; NEITHER IS NULL - COHPAKE FOR SHORTEST LEK 




02900 
02910 


( PROGRAMS" BY NICLAUS WIRTH. 


GTH 




FtJC? DD7E01 


02920 


J' JTK LO A,(IXfl) ;GET MSB OF 


FE43 C5 


01920 COHPl PUSH BC fSAVE LENGTHS 


RIGHT 






FE44 79 


019-30 LD A , C 


FECC FErP 


02930 


CP 255 ;CHECK FOR S 


FE45 B8 


01940 CP 8 


TOPPER 






FE46 3001 


B13i0 JR NC,C0HP2 fSHORT IN B 


FECE 2006 


02940 


JR NZ,UNSTK0 (NOT THERK S 


FE4S 41 


Bi'jea LD B,c 

fll'J'/a jNOW WE CAN COMPARE THE STRINGS 


CONTINUE 


02950 




FE49 lA 


ai9t(E C0HP2 LD A,(DE) ;GET COMP BYTE 




02960 


( THE SORT IS DONE SO RETURN A ZERO 


FE4A BE 


ai99e C? (HL) jCOHPARE TO CENTER 




02970 




FE4B 2009 


1!2§S0 JR Na,C0KP3 jNOT EQ SO OUT 


FED0 210000 


02980 


LD HL,0 (GET A ZERO ' 


FE4D 13 


32013 INC DE 


FEDS C39A0A 


02990 


JP 0A9AH (DO THE RETU 


FE4E 23 


02022 INC HL ;STEP POINTERS 


HN 






FE4F 10F8 


0203D njNZ C0MP2 ;CONTINUE TO END OF 




03000 


( CONTINUE THE UNSTACKING OF A PARTITION 


SHORT 




FED6 67 


03010 


UNSTK0 LD H,A 


FE51 CI 


02040 POP UC ;CET LENGTHS BACK 


FED7 DE6E00 


03020 


LD L,(XX) (RIGHT LIMIT 


FE52 78 


02050 LD A,B 


IN HL 






FE53 B9 


02060 CP C ;COMP TO CENT 


FEDA FD56 01 


03030 


LD D,(IY+1) 


FE54 leai 


02070 JR COMPX 


FEDD FD5E00 


03040 


LD E,(IY) (LEFT LIMIT 


FE56 CI 


020B0 C0MP3 POP BC 


IN DE 






FE57 CI 


02090 COMPX POP BC 


PEE0 DD2B 


03050 


DEC IX 


FESe Dl 


02100 POP DE 


FEE2 DD2B 


03060 


DEC IX (DEC RIGHT P 


FE59 El 


02110 POP HL jRBSTORE REGS 


OINTER 






FE5fl C9 


02120 RET ;^tm RETURN 


FEE4 FD2B 


03070 


DEC lY 




02130 ; 


FEE6 FD2B 


030S0 


DEC lY (AND LEFT PO 




02140 ; INITIALIZE FOR SORT 


INTER 








02150 ; 


FEES 2288FD 


03090 


LD (RIGHT) ,HL (SAVERIGbl 


FE3B i;D7f0fl 


02160 START CALL 0A7FH fGET THE ARGUMENT 


Fli;EB ED53B6FD 


03100 


LD (LEFT) ,DE (AND LEFT 




02170 i 


FEEF E5 


03110 


GETCW PUSH HL (SAVE RIGHT 




B2180 ; FIHST WE EDIT THE PASSED PARAMETERS AS WEL 


' N STACK 






L AS WE 






03120 






H2I90 : CAN, THIS CAN SAVt; "JNEXPECTED RE-BOOTS AN 




03130 


( WE PICK A RANDOM KEY AS COMPARAND TO AVOID 


D LOCK- 




THE 








02200 ! UPS. IF THE EDIT IS SUCCESSFUL, WE MILL I 




03140 


! WORSE CASE PERFORMANCE OF THE ALGORITHM, 


NITIALIZE 






03150 


; 




02210 ; 1(0!-I|N) WITH THE INTEGERS 0-N. THESE IN 


FEF0 AF 


03160 


XOfi A (CLEAR A AND CY 


DIRECT 




FEFl ED52 


03170 


SBC HL,DE (GET LEFT-RIGHT 




02220 ; POINTEKE INTO AS ARE. WHAT ARE EXCHAMGED IN 


FEF3 BC 


03180 


CP H (CHECK SPAN OVER 256 


THE SORT. 












02230 ; 


FEF4 200E 


03190 


JR NZ,GT255 (IF SO GET RND 0-25 


FE5E 22C1FD 


02240 LD (VPTRI),HL ; SAVE POINTE 


5 






R TO 1(0) 




FEF6 ED5F 


03200 


LD A,R ;GET RND 0-127 


FEei 3E02 


022S0 LD A, 2 (TARGET TYPE 


FEF8 063F 


03210 


LD B,63 (SET MASK 






FSFA BD 


03220 


CK00 CP L (IS RND IN SPAN 


FE63 CDDAFD 


0226'0 CALL ACHECK ;CHECK THYP AND DIM 


FEFB 380F 


03230 


JR C,AISOK ;L GREATER 


FE66 78 


02270 LD A,B (GET KET 


FEED 2e0D 


0^240 


JR Z.AISOK (OR EQUAL IS OK 


FE67 B7 


02280 OR A ;CHECK IT 


FEFF A0 


03250 


AND B (TAKE TOP BIT OFF 


FEeS 201B 


02290 JR K2,ERRET jIF BAD - OUT 


FF00 CB3S 


3 260 


SRL B (HALVE MASK 


FEeA D5 


02300 PUSH DE jSAVE ELEMENT COUNT 


FF02 18F6 


03270 


JR CK0B 


FE6B CDFIFD 


02310 CALL GETVAL fLOAD N 


FF04 ED5F 


03280 


GT255 LD A,R (GET RND 0-127 


FE6E ED53S0FE 


02320 LD [N9) ,DE ;AND SAVE IT 


FF06 CB45 


03290 


BIT 0,L (IF DIFF IS ODD 


FE7 2 CDFIFD 


02330 CALL GETVAL ;GET AS[0) ADDRESS 


FF08 2802 


03300 


JR Z.AISOK (WE 


FE75 ED53C3FI 


02340 LD (VPTRA) ,DE ;AMD SAVE IT 


FF0A F680 


03310 


OR 128 (SCALE TO 128-255 


FE79 2A80FD 


02350 LD HL,[N9) ;GET H BACK 


PF0C 6F 


03320 


AISOK LD L,A (SET RND IN L 


FE7C Dl 


02360 POP DE ;AND ELEMENT COUNT 


i'F0D 2600 


03330 


LD H,0 (AND FORCE H TO 


FE7D B7 


02370 OB A ;CLEA8 CARRY 


PP3F 19 


03340 


ADD , HL.DE (AND GET INDEX 


FE7E ED52 


02330 SBC HL,DE ;N-E COUNT 


FF10 CDllFE 


03350 


CALL SETCEH (GO GET COMPARAND 


FE80 FAB5FE 


02390 JP M,IISOK ;I IS OK 




03360 


; LEFT IS IN DE 


FE83 3E03 


02400 LD A, 3 ;SET ERROR CODE 
02410 ; 


FF13 El ■ 


03370 
03380 


■ POP HL (AND R IN HL 




02420 ; RETURN TO BASIC WITH RETURN CODE IN HL 


ENT 


03390 


( NARROW THE LEFT PARTITION IN RELATION TO C 




02430 ; 




03400 


; 


FE85 6F 


02440 EEEET LD L,A ;SET LOW BYTE 


FF14 EB 


03410 


EX DE,HL (POSITION L IN HL 


FESe 2600 


02450 LD H,0 ;AHD HIGH BYTE 


FF15 CD23FE 


03420 


NROWL CALL CHPCEN (COMPARE NAM 


FE88 C3 9A0A 


02460 JP 0A9AH ;AND RETURN 


E(LEFT) :C 








02470 ; 


FF18 3003 


03430 


JR NC.DORT ([LEFT)>C 




02480 ; CHECK ARRAY AS DESCRIPTOR 


FFIA 23 


03440 


INC HL (STEP LEFT I 




02490 ; 


NDEX 






FESB 2AC3FD 


02500 IISOK LD HL, (VPTRA) ;POINT TO AS 


FFIB 18F8 


03450 


JR NROWL (CONTINUE 


(0) 




FFID EB 


03460 


DORT EX DE,HL [GET RIGHT E 


FESE 3E03 


02510 LD A, 3 ;SET TYPE 


ACK IN HL 






FE90 CDDAFD 


02520 CALL ACHECK ;G0 CHECK IT 




03470 




FE93 78 


■0253B LD A,B ;GET RET CODE 




03480 


( NARROW THE RIGHT PfiRTITION IN RELATION TO 


FE94 B7 


02540 OR A jCHECK IT 


CENT 






FE95 200A 


02550 JR NZ,ERRA ; IF BAD - OUT 




03490 


; 


FE97 2A80FD 


0256B LD HL,[N9) ;GET N 


FFIE CD23FE 


3500 


NROWR CALL CMPCEN , (COMPARE NAM 


FE9A EDS 2 


02570 SRC HL,DE ; CHECK SIZE OF AS 


E{ RIGHT) :C 






FE9C FAA5FE 


025a;! JP K.FILLI ;0K - FILL I 


PF21 3805 


03510 


JR C, DONER ( (RIGHT) <=C 


FE9F 3E03 


2590 LD A, 3 ; SET CODE 


FF23 2803 


03520 


JR Z, DONER 


FEAl C603 
R 

FEA3 leEfl 


02600 ERRA ADD A, 3 ;INDICATE AS IN ERRO 


FF25 2a 


03530 


DEC HL (NARROW RIGH 


02610 JR ERRET jAKD GET OUT 


T 

FF26 18F6 


03540 


JR NROWR (CONTINUE 




02620 ; 




03550 


- 




02630 ; NOW WE CAN INITIALIZE I(0)-I(N) 




03560 


; EITHER OUT OF SEQUENCE OR AT CENTER. NOTE 




02640 ; 


THAT 






FEA5 19 


02650 FILLI ADD HL.DE ;GET COUNT BACK 




0357a 


( OUT OF SEQUENCE ==> LEFT>RIGHT SO WE EXCKA 


FEA6 EB 


02660 EX DE,HL ;AND,INTODE 


NGE 






FEA7 2ACiFD 


02670 LU HL,(VPTRI) .-POINT TO ARRAY 




03580 


; LEFT AND RIGHT WHICH FORCES L<C<R. 


FEAA 19 ■ 


02680 ADD HL,DE ;flDD N 




03590 


- 


FEAB 19 


02690 ADD HL,DE ;TWICE FOR LAST ELEM 


FF2B CDBEFE 


03600 


DONER CALL CHLDE (CHECK POINTERS 


ENT 




FF2B 2B25 


03610 


JR E.LEQR (AT CENTER - 


FEAC 23 


02700 INC HL jPOINT TO HIGH BYTE 


NO EXCH 






FEAD 72 


02710 FILLI0 LD (HL) ,D ;STORE HIGH 


FF2D 382S 


03620 


JR CLGTR ;hC; HAVE CROSSED OVE 


FEAE 2B 


02720 DEC HL ;POINT TO LOW 


H 






FEAF 73 


02730 LD IBL) ,E ;AND STORE IT 




03630 




FEB0 7ft 


027 40 LD A,D 




03640 


(EXCHANGE STRING DESCRIETORS 


FEBl B3 


02750 OR E ;ARE WE DONE 




03650 




FEB2 2804 


0276D JR Z,FILLI1' ;YES - DO SO 


FF2F D5 


03660 


PUSH DE (SAVE LEFT AND RIGHT 


RT 




FF30 E5 


03670 


PUSH HL 


FEB4 IB 


02770 DEC DE fCOUNT DOlffl 


FF31 E5 


03680 


PUSH HL (AND SAVE RIGHT AGAi 


FEBS 2B 


W2/8fl DEC HL jPOIHTER TOO 


N 






FEES ISt'S 


0279a JR FILLI0 ;AND DO ANOTHER 


FF32 2AC1FD 


036 90 


LD HL,(yprRl) [GET ADDH OF 1(0) 


FEBB 2ASaFD 


02830 flLLll LD HL,(N9) ;GET COUNT 








FEBB FD21A4FD 82820 LP IV,LSTK 


FF3S BE 


03700 


EX DE,HL (POSITION IT FOR SAV 


FEBF DD218AFD 02830 W IX.RSTK ;SET POINTER 


B 






S TO AUX 


0284-B ; STACK OF UNS 


FF36 29 


a37ia 


ADD HL.LiL r INDEX * 2 


OKTED PARTS 










FEC3 110000 


02850 LD DE,0 (INITIAL LEF 








T MARGIAN 










FEC6 CDF6FD 
AL VALUES 


B2860 CALL STACLR (STACK IRITI 






Usiirig 2 continues 
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Listing 2 continued 

FF37 19 I 

LEFT 
FF3B E3 
FF39 29 
FF3fi 19 

RIGHT 
FF3B Dl 
FF3C 0602 
FF3E lA 
FF3F 4E 
FF40 77 
FF41 79 
FF42 12 
FF43 23 
FF44 13 
FF45 10F7 
FF47 El 
FF4e Dl 
AMD DE 
FF49 13 
FF4A 2B 
FF4B CD0BFE 
hi 

FF4E 3804 
D 

FFS0 18C2 
OHTIHUE 
FF52 13 
FF53 2B 
FF54 ED5382FD 
FF5B 2284fD 



03730 
03740 
03750 

03760 
03770 
03780 
03790 
03B00 
03610 
03820 
03830 
03840 
03850 
03860 
03870 

03880 
03890 
03900 



HL,DE f + fiDDR 1(0) = ADDR 
(SP) ,HL ;SftVE AND GET RIGHT 



ADD 


IIL,HL 


; INDEX * 2 


ADD 


HL,OE 


; + ADDR 1(0) = ADDF 


POP 


DE 


; HESTOHE ADDR LEFT 


LD 


B,2 


;SET COUNT 


LD 


A, IDE) 


;GET DB 


LD 


C,(HL) 


;AND HL 


LD 


(HL) ,A 


;DE OVER HL 


LD 


A,C 


jPOSITION HL 


LD 


(DE) ,A 


;HL OVER DE 


INC 


HL 




INC 


■DE 


•STEP POINTERS 


DJNZ 


EXCH 


■DO 2 TIMES 


POP 


HL 




POP 


DE 


; RESTORE HL 


INC 


DE 


;LEFT +1 


DEC 


HL 


rRIGHT -1 


CALL 


CHLDE 


jCHEOK POINTEHS AGAI 



H OTHER 

IGHT] IS 

E <- 

EW PARTITIONS 

HE SHORTEST 

WHEN THE 
TION AND 
OMPLETES 



FF5B E5 
FF5C 2A88FD 
FF5F AF 
FF60 ED52 
FF62 E3 
ND GET J 
FF63 ED5B86FD 
FF67 AF 
FF6 8 ED52 

J-LEFT 
FF6A Dl 

FF6B AF 
FF6C ED52 
IGHT-II) 
FF6E FA89FF 
FT SMALLER 



FF71 AF 

FF72 ED5A 

T 

FF74 FA81FF 

FF77 2808 

FF7 9 ED5B86FD 

STACK L,J 

FF7D 19 

FF7E CDF6FD 

ION 

FFBl 2A82FD 

FF84 2286FD 

II:EIGBT 
FF87 1816 
EFT<RIGHT 



FF89 CB7A 
FFEB 200F 
FF6D 7? 
FFBE B3 



03920 

03930 
03940 
03950 
03960 
03970 
03980 

03990 

04000 

04010 

04020 

04030 

04040 

04050 

04060 
04070 
04080 
04090 
04100 
04110 
04120 

04130 
04140 
04150 



04170 
04180 



04200 
04210 

04220 
0423H 
0424e 

04250 
04 260 

04270 

04280 
04290 

04300 
04310 

04320 

04330 
04340 
04350 
043E0 
04370 
04380 
04390 



LEQR 
LGTR 



JR 

INC 
DEC 
LD 
LD 



C.LGTH ;HL < DE HAVE CROSSE 
NROWL-I ;DE NOT>iIL C 



(11) ,DE 
(J) ,HL 



jETEP LEFT 

,-AND DECR KIGLIT 



( THE WORKING POINTERS HAVE CROSSED OVER EfiC 

J THE CENTER OF THE PARTITION N(LEFT) TO N(R 

r NOW THE MEDIAN VALUE. (ALL TO THE LEFT AR 

f CENTER <■= ALL TO THE RIGHT) THIS GIVES 2 N 

J II TO RIGHT AND LEFT TO J. WE WILL SORT T 

; AND STACK THE LARGEST IF IT IS NOT 'EMPTY. 

; SHORTEST IS EMPTY, WE WILL UNSTACK A PARTI 

; CONTINUE UNTIL THE STACK IS EMPTY, THIS C 

; THE SORT. 

PUSH HL ;SAVE J 

LD HL, (RIGHT) ;GET RIGHT 

XOH A ; CLEAR CARRY 

SBC HL,DE fHINUS II 

EX (SP) ,HL ;SAVE R-II A 

LD DE,[LEFT) fGET LEFT 

XOR A ! CLEAR CARRY 

SBC HL.DE ;fiND COMPUTE 

POP DE ;RELOAD R-II 

XOR A ; CLEAR CARRY 

SBC HL,DE ; [a-LEFT)-[R 

JP M,ISTAK ;<0 ==> J,LE 

jSTACK LEFTsJ. IF EQUAL IN SIZE WE STACK LE 



XOR 
ADC 



JP 

JR 



ADD 
CALL 



HL,DE 



J CLEAR CARRY 

;GET FLAGS FOR J-l.Et 



MfSKPJ ;IF <0 EMPTY 

ZfSKPJ ;IF =0 EMPTY 
DE,{LEFT) ;PREPARE TO 

HL.DE ;GET J BACK 

STACLR : STACK LEFT: J PARTTT 



HL , .( 1 1 ) 
(LEFT) ,HL 



STACK liRIGHT PARTITION 



;SORTABLE IS 
; CHECK FOR L 



FF8F 
FF91 
FF94 
FF98 
TION 
FF9B 
FF9E 



FFAl 
FFA5 
FFA8 
FFA9 
FFAB 
FFAE 
FFBl 
FFB2 



280A 04400 
2A88FD 04410 
ED5B82FD 04420 
CDF6FD 04430 



2A84FD 
2268FD 



04 440 SKPI 
04450 



BIT 
JR 
LD 
OR 

JR 

LD 
LD 
CALL 

LD 



7,D ;SIGN OF RIGHT-I 

NZ,SKPI ;IF SET =-> I>RIGHT 

A,D 

E ;K0 BITS ==> I=RIGHT 



S.SKPI 
HL, (RIGHT) 
DE,(II) 
STACLR 

HL,(J) 
(RIGHT) ,HL 



;GET RIGHT 

;AND II 

; STACK PARTI 

;GET J 

;AS NEW RICH 



04 460 
04470 



PARTITION MAY BE EMPTY. IN THAT CASE, WE 



04480 ; OFF THE STACKED PARTITIONS 



04490 ; 
ED5B86FD 04500 TSTLLR 
2A66FD 04510 
AF 04520 

ED52 04530 

FAC9FE 04540 
CAC9FE 04550 
19 04560 

C3EFFE 04570 

04580 
J TOTAL ERRORS 



LD DE,[LEFT) 

LD HL, (RIGHT) 

XOR A ; CLEAR CARRY 

SBC HL.DE 

JP M,UKSTK ;EMPTY 

JP Z,DNSTK 

ADD . HL,DE 

JP GEXCN 

END 



fGET RIGHT BACK 
;G0 SORT NEW ONE 




PREMIUM 5-SCREW 

SHELL FITS ALL 

STANDARD RECORDERS 



BLANK CASSEHE! 



DATA TRAC / C-05. C-10, C-20 




m 








6 CBPACITY 
CASSETTE ALBUMS 






rely 0" 






HERE'S WH^JbOUT 



USERS 



■■Ifs nice to navj - ^^^^ 



^^l^^^^ ^i^pSs^"^^^^ 



se. 



drop 



5S5SS-S =5f 



S.ace P^l'l^oZo^ ^^'ZZ.s .gM - ^^ 



Beav 



■■Y«J^P'*ff.'! 



cellen' 
t" 



ervice 
VVe'll 13® 




'on 
Greenville. TX 



VoufP"<=«'^;n butyo^^,'^""'"'. doing-- ^^^„ 



rouvE TRIED THB aesT. 

NOW BUY THE BEST- 



'^^\ Call: 213/710-1430 S^iJS^aJd'irJ^r' l^i 
ORDER NOW . . . VORK lOComputefUjorr^ 



»^ 156 MAIL TO: 24573 K^ttridge St., #E 

M M M ■■ M B ORDER FORM ■ 



[JEM 1 DOZEN 2 DOZEN 


TOTAL 


C-05 3 7 50 ^ 13 50 




C-10 G eoo r; 14 40 




c-20 Zl '0 00 Zi '6™ 




Hard Bo" O 2 50 □ 4 00 




Son Bo« u 2.00 3 3 40 




6 Cap. Album @ $6.95 each quanlily .. 




Blank labrts D 4,00/100 D 30.00/1000 




SUB TOTAL 




Calil rosidenls add 6% salas lax 




Shipping 1 doi $2, 2 doz. S3 50, 3 aoz $4 50 
aach additional doz £.50 




Fot Parcel Posl instead o( UPS ADD $1 




Outside Continental USA, ADD $2 




TOTAL 





)L, Canoga ParK, CA 91307 



Each cassette 
includBS two YORK 
W labels only. 
Boxes are sold 
separately. Ship- 
ments are by UPS 
unless Parcel Post 
requested. 

Boxes, altyums, & 
blank labels are free 
of shipping charges 
when ordered with 
cassettes When 
ordered separately 
Minimum shipping 
IS S2 00 



PLEASE SENO 
QUANTITY ^ 

DISCOUNTS U 



Check or M.O. Charge to 



•nclosad [^ 


Credit Card: 


□ VISA n MASTERCHARGE 


Card No, 




Exp. 


Name 


Address 


City 




State/Zip 



Signatur e 



Computer make & model 



mk sa ^^"^^ um H^ itM& '^se& iw 



• See List ol Advertisers on Page 455 
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UTILITY 



Protect high memory v^ith this simple patch. 



Relocated ULCBAS 



Samuel D. Pincus 

W South 671 Ivy Lane 

Hinsdale, IL 60521 



I purchased my Model I mainly 
for word processing func- 
tions, I installed the lowercase 
modification for use with the 
Scripsit package. As lime went 
on I started using lowercase 
characters in my Basic pro- 
grams. Now I find that it feels 
unnatural not using lowercase 
whenever I code. 

To speed up the tape I/O on 
my 48K system, I recently pur- 
chased the TC-8 tape system. I 
was dismayed to find that their 
software drivers reside at the 
top of core. According to Radio 
Shack I could no longer use the 
ULCBAS routine for lowercase: 
"ULCBAS and ULCDVR . . . move 
themselves to the top of mem- 
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ory . . . make sure that your own 
machine-language programs do 
not disturb this protected area 
... 48K computers, FDDO- 
FFFF." (This is not true— in a 
48K system, it resides at FDF2- 
FFFF.) How could ULCBAS be 
sophisticated enough to relo- 
cate Itseif to top of memory but 
not be able to relocate itself 
below a protected memory area? 
In addition, ULCBAS had a bug 
in it; to make it work, I must 
POKE values into memory loca- 



1981 issue of 80 Micro on load 
addresses for their programs, I 
looked for it at 6C00H. No luck; I 
found the code instead between 
7000H and 7269H. 

After a brief look at the code, I 
located the problem. Radio 
Shack wrote ULCBAS in two 
pieces. The first piece is a 
relocator for the main code. It 
finds the top of memory located 
at 40B1 H, modifies all the jump 
addresses within the main code, 
moves this main code to the top 



"ULCBAS tias 
at least one 
major flaw." 



tlons 28829 and 28830 before ex- 
ecuting. This means that the pro- 
gram has at least one major flaw. 

Here's the Problem! 

After loading my trusty dis- 
assembler, I tried to disassemble 
ULCBAS. Using the information 
from Radio Shack in the October 



of memory and resets the top of 
memory pointer. 

However, they missed one ad- 
dressl This is what the POKEs 
are for; to make the POKEs work 
properly, ULCBAS has to reside 
at the very top of core. Ali it 
takes is a simple patch to mod- 
ify the address Radio Shack 



missed, and the program is truly 
relocatable. 

To make the patch, use a ma- 
chine-language monitor. Load 
ULCBAS and put in the following 
data starting at 6FF9H: 22 9D 70 
E5 2B 18 OB. Then change the 
data at 7009H-700AH to read 18 
EE. Punch out a new System tape 
for ULCBAS starting at 6FF9H, 
ending at 7269H with the entry 
point at 7000H. 

The new System tape is truly 
seif-relocating. All you need do is 
answer the "Memory Size" ques- 
tion with the start of memory ad- 
dress that you want protected 
from Basic and ULCBAS. Press 
enter if you do not want to pro- 
tect any memory. Then load your 
new System tape and execute as 
you normally would with / enter. 
ULCBAS wilt now relocate itself 
to the top 525 bytes below your 
protected memory. ■ 



The Key Box 

Basic Level II 
Model I 
ULCBAS 




EVERY D«¥ MORE PEOPLE LEA«N, 
THE NOME OP THE ONE SOFTMORE 
COMPANY THfiT MORE COLOR 
COMPUTER OWNERS HAVE BDTTEN 
SOFTWfiRE FROM THAN fiLL THE 
OTHER COMPfiNIES COMBINED: 
TML ONI COPflPftNY THQT HfiS 
BIVEN MWOV THnUSftND?; OF FREE 
PRORRPlMS ] HH r ORF SUPERIOR 
--I '-'iML- VDU MIGHT Pl-' "-flF" 



ILLUSTHflTEO MEMORY BONKSi 1MB 
WILL SEND YOLi R SHORT EONPLE 

PROGRfiM « OUR NEW COLOR EXT. 
BOSIC SOFTWORE LIST WHEN YQU 
SEND US O BUSINESS SI7Fn SQSE. 



WO 



-dCl f 



= pi^ogr-affi ojn tpe ^i^^d wjth "C^pQ or disk syicl 
Jide^ you «ith i-eal UPPER and LOWERCOSE le-ttsi- 
1 d6f?it:c.yidei-s (plu5 5D letters by 24 lines on 
screen at one time'> Why pay more *^hen thi5i i 
you r-raily need? JUST «J8.9Ei SUPPLIED ON TRPF 
n. l&k Ext. BsBlO. USER MODIFIFtBLE ''! 







GHTDR ZONE - b^ttl 

ticfC'Y^e they ea 

KOSMIC KPf^IKOZE - o 



jlor Basic Tap* ProQi-ams 

predec I qned -> coloi^ tai"gf?ts. 
? against allien ' pi^eppy qat oi"' 
; your- 5hir-t5- I IME original) 
jr- be^t seI 1 irtg tii—raSm , deep 
imp k-hich THF flflTNBOW oal led 
iCEship qraphjc"^ we hi3V 



V^^^ 



m.^«y mi.rf. tjllos available, moludine STAR SIEBE 
PLUS, GALLOPING GflMBLERS, SELECT-P- SAME, STPRBClSF 
iiTTtlCK, METEOR STORM, plus neM releasee c-oming. 

illuscratBd memory banks 

P.O.BOX 289 

WILLIAMSTOWN. MA. 01267-0289 

f-SLJO^PlTeD- 



Li — -^ f^M 



SPECIWL OFFERi 
a FREE proaran 



,^374 * 



Looking for a Spelling Checker? 
Get more than just a spelMng checker — get 



Hexspe 



the EVERY 



checker 



Hiss: (I) LEWH,WORD (R) SETISCE WORD . (S) SKF WRD , 
WORD IN error: nis^tske , 



This is a) exanple of 3 te^!t beinq< checked in 
HESfSftLL". The teiit scrolls up the screen as it is ctiected. 
ifreri BTh error is detected, bou have three choices. 

1) REPLACE the iricorrect udrd. The peplsceneirt nurd 

■ is INETAIfTLY RE-MCKED for correctness, then ins^i^ftiSli' ■ 

tad. ' , ■''.:,-:.■< 

2) The uord ts correct, leave it 36 it in ■' ■ .'' 
■, 3) Tell HEXSPELL to L£ARN this mrd for fufeM^'^' ..- ■ 

pefepenee, uith just one keystpoke. 

Hexspell reqij ires- just one step to chec*. and 
correct a IWt, and learn neu uords. Tow docunerit is reada to 
ppifi t as soon as HeKspell is fini^d. fl uord that is in error 
e.^ilnissta^iis hi9hli#^.:iiri'4t»fc't^;^ eas^ correction. 



Hexagon Systems is projcl to announce anolher first in test checking — an everylhing- 
cnecl<er. Hexspell 2 checl<s not only dictionary worOs, ijul learns and checks codes, tor- 
mjlae and numbers which are so essential m many commercial and technrcai flocoments, 
Witn Hexspell 2 you define what characters mal<e up a word, then teacn Hexspell the new 
"words" it needs to cbeck your text. This advanced system builds on the unique features ol 
the original Hexspell (the first TRS-SO spelling cnecker). Hexspell 2 lealures a one-step m- 
teractive process, a word list mat adapts itself to your word usage, a 25,000 wqrd inilial 
word list and more than three years o( research and experience ^mm 

V/SA 

Hexspell 2 upgrade for registered owners at Hexspell Vers. 1 - 

S35 from Hexagon SyslBms or your nearest dealer. ____„ 

Hexspell (eguires a TfiS-80 Mod I or Mod ill with 2 drives and 48K. US $99 



HeKA< 



P.O. Box 397, Station A 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682 7646 
Micronet 70235,1376 



TRS-80 Customers complaining of tape loading blues? 

DEALERS HELP THEM!! 

With two new products for tiome enthusiasts and the 
small volume software producers. The — 

DATA CONDITIONER (s„„ested rMal, s 69.95 > 
and 

COPY CONDITIONER (sugg..,ed r.t.ii il49.95) 



COMPLETE COMPUTER/CASSETTE INTERFACES WHICH 
PRODUCE SUPERIOR RECORDINGS AND ELIMINATE 
CLOAD ABORTS. 

WRITE or CALL FOR DEALER 
INFORMATION a PRICES 



COPY CtMDii't"- 

Dai' 





WE ALSO DO CUSTOM PRODUCT DBSiOM < MAMUFACTURIMO 

«^«®^ COLE'S CONSULTANTS, INC. 



COMMUNICATIONS SYSTEMS LABORATORIES 



ELECTRONICS 

R a D 

DESIGN 

MANUFACTURING 

CONSULTATION 



M-165 LEOKANE STREET 
WAIPAHU, HAWAII 96797 



PHONE 
808-677-33S0 



TRS-i 



FOR RETAIL ORDERS CALL 24 HR. TOLL FREE 
1.BO0-367-5134 

IS a trademark of Tandy-Radio Shack ^361 



Don't listen to 



Listen to those who use our Full-screen Editor 



"SflrJom 


lave I been 30 


It performs 


exactly as a 


might have been custcnn wri 


"Full-sc 


Ceen Edit is a 


siflstically 


and vlthout r* 


"Further 


, you may adv 


stamped, se 


Lf-addiessed e 


ly to each s 


uch inquiry." 



of software I 
perfectly It 



esc^ied n^.d pleased with a 
LFertised. and fills my nee 
ten for me." 
incredible bargain. ... I recommend It enthu- 
ervation." 

ie potential buyers that if they will send a 
velope to me^ I will recommend it individual- 



- Bud Hyers 

2 Church St, Box 496 
Washburn, HE 04786 



... allows changes to multipl 
the need for special commands." 
"This utility also allows y 
backward sixteen lines at a tin 
ward one line at a time. To 
standard liatjjig functions." 
For ease of operation and f 



to be made quickly and without 



to list your program 
The program may alsc 
this is a great imp 



forward or 
rolled for- 



tough package to beat." 



Full-screen Edit now comes in three versions; 

VI. 2 Standard Tape Model III 15K - no renumber or copy commands 

$ 17.95 
VI. 3 Extended Tape Model III 32K - features renumber and copy 

S 19.95 
V2.0 Extended Disk Model III - features renumber and copj 

On 40 track Disk Format TRSDOS 1,2 S 24 95 

On 40 track Disk Format TRSDOS 1,3 S 24,95 

On Cassette Tape 5 21.95 



Please send the me the folic 
or Honey Order, or bill my 



Enclosed is ray check 
MASTER CARD account. 



expiration date 







Quant 


Description 


Unit Price 


Total 










dCS SOFTWARE 


Sub Total 




Sales Tax 






Total 




^517 







i-'See List of Advertisers on Page 455 
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EDUCATION 



Use a second cassette recorder to add sound to your programs. 



Sound OFF! 



Bertram A. Thiel 
159 West Main Street 
Frostburg.MD 21532 



Something is missing from 
tl-ie TRS-80 in the class- 
room. It lacks both a record of 
the student's responses, to be 
checked by the teacher at a later 
time and an audio output. If you 
have an expansion interface (or 
other dual cassette drive inter- 
face) and an extra cassette tape 
deck these missing factors can 
be realized using the INPUT#- 
and OUTPUT#- statements. 
The programs shovi'n here ad- 



The Key Box 

Two or more CTRs 

Dual Cassette Drive Interface 



minister a spelling test in the 
absence of the teacher. Because 
the computer cannot print the 
word to be spelled questions 
must be audible. The computer 
synchronizes the word list and 
records the ansv^ers as data on 
tape. When time permits, the 
teacher plays the ansvi/er tape to 
make corrections. With proper 
preparation and structure a 
computer can save the teacher 
considerable time. 

This is a simplistic use of the 
computer; expand the concept 
to include sounds (a lion's roar, 
a cricket's chirp, or the theme to 
Beethoven's Fifth) and visual 
output (animation or other 
graphics), to create sophisticat- 
ed learning and testing modules. 

Start at the base of the learn- 
ing pyramid by using the pro- 
grams described here for a 
TRS-80 Vi/ith two cassettes and a 



10 ' TEACHER'S SET-UP PROGRAM 

20 ' 

3a ' B.TlilEL, MfiRCR 1981 

ie ■ 

50 CLS; IHPUT"HOW MANY QUESTIONS WILL THERE BE";X 

60 CLS 

70 PEINT"READY THE CASSETTE TAPE RECORDER SO THAT IT WILL RECORD 
YOUR VOICE. DO SO BY UNPLUGGING THE ' AUX ' PLUG, AND POSITION 

IT SO THAT THE BUILT-IN CONDENSER MIC WILL PICK UP YOUR VOICE 

. PLACE A BLANK TAPE IN IT AND DEPRESS RECORD fllD, PLAV KEYS." 

KB PRINT:PRINT"HHEN YOU ARE READY TO RECORD, JUST PRESS THE ENTE 

B KEY." 

90 PRINT:PBINT"START BY ASKING THE STUDENT TO TYPE IN HIS/HER NA 

HE.' 

100 PRINT:PRINT" DEPRESS <ENTER> KEY WHEN READY" 

110 A5-INKEYS:IF AS="" GOTO 110 

120 PRINT*-:," " 

130 FOR L=l TO X 

140 CLSi PRINT"QUESTION NUMBER";L 

ISe PRINT:PRINT"PRESS <ENTER> WHEN READY TO ASK QUESTION" 

160 AS=INKEYS!lE AS^"" GOTO 160 

170 PRINT(-1," " 

1B0 NEXT L 

190 CLS:PRINT"QUESTION TAPE IS COMPLETE. PLAY IT BACK TO CHECK R 

ECORDING." 



Program Listing 1 



dual cassette drive. Conversion 
to other computer systems and 
cassette/disk combinations is 
not difficult. 

Set- Up 

Program Listing 1 ailows you 
to make the audio tape. The pro- 
gram turns the cassette on for 



four seconds so you can ask for 
the student's name and then 
dictate the spelling iist, one 
word at a time. The time delay 
and the tape deck control are 
provided by PRINT#-1,"". The 
statement turns on the tape 
deck motor, puts out the charac- 
ter string used when you save a 



10 I STUDENTS' AHSWER PROGRAK 

20 ' 

30 ' B. THIEL MARCH 1981 

40 CLEAR 255 

50 DIMAS(50) !CLS;PRINTCHRS|23) ;PRINTTAB(12) j "HELLO" ; PRINT 

60 PRINT'GET READY FOR A LITTLE TEST BY DOING THE FOLLOWING: 

1. PUT THE QUESTION TAPE IN THE TAPE RECORDER 

THAT HAS THE LABEL ON IT THAT SAYS ':QUESTION>. 

70 PRINT;PRINT"WHEN YOU HAVE BORE THAT PUSH MY <ENTER> KEY" 

80 ES=INKEYSiIF ES=""e0 

90 CLSiPRINTCHRS(23) 

100 PRINT" 2. NOW HAKE SURE THAT THE <eAB> PLUG IS NO 

T IN THE <EAR> HOLE IN THE TAPE RECORDER." 

110 PRIHT:PRINT"WHEN YOU HAVE DONE THAT PUSH MY <ENTER> KEY" 

120 E5=INKEYS:IF ES^"''120 

130 CLS:PRINTCHR5(23) 

140 PRINT:PR1NT" 3. NOW PRESS THE PLAY BUTTON 

N THE <QUESTIOK> TAPE RECORDER." 

150 PRINT: PHI NT "WHEN YOU HAVE DONE THAT PRESS HY-CENTER> KUY" 

150 ES^lNKEYSilF ES=""16e 

170 CLS:PRINTCHRS(23) 

1B0 PRINT;PRINT"NOW PUT YOUR ANSWER TApE IN THE TAPE RECORDER LA 

BELED <ANSWER>" 

190 PRINT'THEN PRESS BOTH THE RECORD AND THE PLAY BUTTONS" 

200 PRINT:PRINT"AFTER YOU DO THAT PRESS HY <EHTER> KEY" 

210 ES=INKEYS:IF ES=""210 

220 CLS:PRINTCHE$|23J 

230 PRINT:PRINT"HAKE RVRE ALL THE PLUGS ARE IN AND THEN GET REA 

DY TO TAKE YOUB test." 

240 PRINTiPRINT'PRESS MY <ENTER> KEY WHEN YOU ARE RETlDY," 

250 ES = INKEYS:IE eS:^""250 

260 CLE:PRINTCHRS(23} 

270 PRINTtt-1," " 

280 PRINT"PLEASE TYPE IN YOUR NAME. WHEN YOU ARE DONE PUSH 

THE <ENTER> KEY." 

290 INPUT H5 
300 AS(0) -NS 

310 PHINT:PRINT"1F YOU ARE READY TO TAKE THE TEST, PRESS HY < 

ENTER> KEY," 

320 E$-INKEYS:IF E$-"'320 
330 FOR C=l TO 20 

340 PRINT"TYPE IN ANSWER NUHBER";C 
350 PRINT#-1," " 
360 INPUT A5(C) 
370 NEXT C 

380 PRINT#-2,AS(0) ,AS11) ,AS(2) ,AE(3) ,AS(4) ,AS(51 ,AS(6) ,AS|7) ,AS{ 
81 ,AS(9) ,AS|10) ,fl5(lll ,AS112) ,AS(131 ,ASa4} ,AS(15) , AS (161 , AS |17) 
,AS(131 ,AS{191 ,AS|20| 
390 CLS:PRINTCHR5|231 

400 PRINT"OKEY, YOUR TEST IS DONE, NOW REWIND BOTH TAPES AND 

GIVE THEH BACK TO THE TEACHER." 
410 PRINT:PRINTTAB(121 ;"THANK YOU" 
420 END 



Program Listing 2 
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program, sends the data (in this 
case a single space), and sends 
the closing string. If the data 
within the quotes is 255 charac- 
ters fong (the maximum length 
allowed) the total time is 8.3 sec- 
onds. Run a test on your corn- 



up and turns on your question 
tape. The program gives the stu- 
dent the test, stores answers in 
the A$ matrix, and records them 
on the second tape deck as a da- 
ta string (see line 380). Use a 
leaderless tape to avoid losing 



"The computer should 
be an extension 
of the teacher 
rather than something separate. 



puter to determine your times. 

Since the other tvi'o programs 
are set up for 20 questions, use 
20 as your answer to the first in- 
put request and follow the pro- 
gram directions. Use a leader- 
less cassette tape rewound to 
the very beginning so it is syn- 
chronized with the program. 

Answer Program 

The student answer program 
(Program Listing 2) gives in- 
structions for tape recorder set- 



data. In the classroom label the 
cassette recorders "question 
machine" and "answer ma- 
chine" to avoid confusion. Label 
the two tapes the same way. 

Program Listing 3 extracts 
data from the student's answer 
tape using the INPUT#-1 state- 
ment. Level III or other keyboard 
abbreviation systems are useful 
when creating long INPUT#- 
and PRINTS- statements. I re- 
defined the shifted A key to give 
"),A$(". Use your own voice in 



the question tapes. Students en- 
joy hearing their own teacher on 
the recorder, and it gives a 
sense of continuity. The com- 
puter should be an extension of 
the teacher rather than some- 
thing separate. 

Modifications 

Modify the programs here to 
suit your own situation. Con- 
sider a more complicated meth- 
od of controlling the audio deck. 
Use the following line: FORX= 1 



TO Z:OUT 255,4:NEXT X in place 
of the PRINT#-1,"" control (line 
120 in Listing 1 and line 350 in 
Listing 2). Use Z as a varying 
number stored in another ma- 
trix, transmitted from the teach- 
er's program to the student's an- 
swer program. This varies the 
time the audio portion is on, Ex- 
periment to find out how long 
the For. . . Next loop is for var- 
ious values of Z. Use a Step fac- 
tor so the Z number translates 
directly to seconds of on-time.H 



10 ' ANSWER CHECKING PROGRAM 

20 ' 

30 ' B.THIEL MARCH, 1981 

40 CLEAR 255 
50 DIM AS(50) 

60 PHINT'ANSWER PROGRAM, LOAD STUDENT'S ANSWER TAPE IM TAPE RECO 
RDEH AND DEPRESS <PLAY> BUTTON." 

70 PR1NT"RECHECK PROGRAM IF NECESSARY TO HAKE SURE THE NUMBER OF 
INPUTS AND THE FOR-NEXT LOOP AGREE WITH THE NUMBER OF QUESTION 
S ItJ THE TEST." 

80 PRINT:FRINT"IF READY PRESS THE <ENTER> KEY" 
90 ES=INKEYS!lF ES=""90 

100 INPUTt-l,AS(0) ,AS(1) ,AS(21 ,AS13) ,AS(4) ,AS15) ,AS(6) ,AS(7) ,AS( 
8) ,AS(9j ,A5(10) ,A5(:i) ,A5|12) ,Ag|13] ,AS(141 ,AS|15) ,AS|16) ,AS|171 
,A5[18) ,AS(19) ,AS{20) 
110 PHIHT"STUDENT'S NAME; ";AS|0) 
120 FOR X-1 TO 20 STEP 2 
130 PRINTX;A5(X) , 
140 PRINTTAB{30) ;X+1;AS(X+1) 
150 NEXT X 
160 GOTO 160 



Program Listing 3 




J. 



D 



Deck The 

alls With 
MICRO . . ." 




Make 80 MICRO part of your holi- 
day season. Every month, 80 MI- 
CRO provides its readers with more 
TRS-80* related programs, articles, 
apphcations, new product announce- 
ments, and reviews than any 

other magazine. 

And it's as enjoyable as it is informative. 

What a perfect way to say Happy 

Holidays to your favorite Radio Shack 

microcomputerist. 

Give a gift that will last throughout the 
year. Give a subscription to 80 MICRO. 

'TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 
'See List of Advertisers on Page 455 



JL HjO 5 I want to give a 
subscription to 80 MICRO for 
the Holidays (12 issues— $24.97) 

D Check enclosed 

QMC GVISA DAE DRill me 



Care 



Expire Date 
Signature — 

Interbank jf 
My Name _ 

Address 

Citv 



State Zip 



Please enter a one year 0ft subscription to: 

Name _^ 

Address .__ 

City „ 



State Zip 



Canada S Mexico $27 97, i year only U.S. Funds 
Foreign $44.97. 1 year only U.S. Funds drawn on U.S. BanK 
All Gift Subscriplions Begin With Jan. 1983 Issue. 
MIcro'Box 98TFarmfngdale, NY 11737 

62NFI8 
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UTILITY 



Send Tape-Disk into higher memory. 



TDRELO 



Barry Kornfeld 
190 Waverly Place 
New York, NY 10014 



Being an incurable machine 
language patcher, 1 have 
oft bemoaned the lack of a util- 
ity to do a simple save from 
memory to disl(, down in the 
5200H range, vi/here so much im- 
portant software — Scripsit and 
Vistcalc— resides. 

I usually use Tape-Disk for 
dumps but it won't save any- 
thing below 5400H (that's where 



Tape-Disk lives and works). The 
TRSDOS/NEWDOS 2.1 Dump 
command is useless; it won't 
save anything below 7000H and 
the syntax is next to impossible 
to type correctly. 

NEWDOS BO'S Dump com- 
mand solves all of those prob- 
lems, but one can't always work 
in NEWDOS 80, and not every- 
one owns it. 

Superzap is great for little 
modifications, but tedious for 
longer patches. Plus, you'll have 
extra work counting bytes, up- 
dating directories and such. 

In response to those frustra- 
tions I wrote TDRELO to relo- 
cate Tape-Disk into higher mem- 
ory. I can now write patches on 
Editor/Assembler, load the main 
program and the patch into 



Program Listing 1. Machine-language program to relocate Tape-Disk 




B010O 


; LISTING * 1 




6i2ii 


I TDRELO: A PROGRAM TO RELOCATE TAPEDISK 




S03ee 


t BY BARRY KORNFELD 




00400 


; 




es56e 


..i..tt....tt.i.mn**....*...**...*...««.*« 




BBiBB 




00B2 




HEWADR EQU 0B2H 




00900 


: NEHADfi - THE MSB OF THE RELOCATION ADDRESS 




B1000 


; (THE LSB IH ALWAYS 00) 




01100 


;flS GIVEN ABOVE THE NEW START ADDRESS WILL B 


E 0B2ean 








01200 


CHANGE THIS EQU BEFORE ASSEMBLY TO RELOC 


ftTE AT 








01300 


; THE ADDRESS OF YOUR CHOICE. 




01.400 


;0R BY USING A MONITOR TO EDIT MEMORY LOCATI 


ON 54e4H 








01500 


; MINIMUM MSB - 55H, MAXIMUM - 0FDH 




01600 


; 




01700 


.».»*•«**«.«*««.. «m***»***»««««*««««»««*«* 


* 




Program Listing 1 Continues 



memory and save the whole 
thing as one big file— with the 
disk operating system counting 
all of the bytes and updating the 
directory. 

Only 70 Bytes 

TDRELO is a scant 70 bytes 
that can be quickly assembled 
with EDTASM or via a Basic 
POKE program. 

If you are using EDTASM: 

• Type the source code, as- 
semble and save as a disk file. 

• Exit to DOS and LOAD 
TAPEDISK/CMD. 

• RUN TDRELO. 

• When the Tape-Disk 
prompt comes up on the screen 
enter: 

F filespec/CMD:0 B200 B3F1 B200 

Locating Tape-Disk at B200H 
is adequate for all my needs (so 
far) and works for both 32K and 
48K systems. But you can relo- 
cate Tape-Disk elsewhere by 
simply changing line 700 to: 

NEWADR EQU ONNH 

and readjusting the save ad- 
dresses. Enter a new start ad- 
dress: NNOO; a new end address: 
NNOO -t- 01F1H; and a new ex- 
ecution address: NNOO. 

NN equals the starting loca- 
tion "page." For example OEOH 
relocates Tape-Disk to EOOOH. 
The response to the Tape-Disk 
prompt is: 

F tilespec/CMD:0 EOOO E1F1 EOOO 



NB: NN should not be less 
than 55 or more than FD. 

The Basic Version 

If you feel more comfortable 
in Basic, try this POKE program: 

• Go into Basic with your 
memory size at 28670. 

• Type and execute the pro- 
gram. 

• CMD"S" or reboot to get 
back to DOS. 

• Run Tape-Disk and answer 
the Tape-Disk prompt with: 

F TDRELO/CMDiO 7000 7045 7000 

• Exit Tape-Disk with the E 
command or hit the reset but- 
ton. 

• Follow the last two steps in 
the EDTASM instructions. 

To relocate Tape-Disk else- 
where with the Basic program 
follow the relocation directions 
given after the EDTASM instruc- 
tions. Note, however, that NN in 
the Basic program is the data 
item in line 60 entered in 
decimal. Disk Basic doesn't 
seem to like &H DATA items. 

Also note that NN should be 
between 84 (54H) and 253 
(OFDH), but cannot be 111 (6FH) 
or112(70H). ■ 



The Key Box 



Disk Basic 
32K RAM 
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Program Listing 1 Continued 



THE CODE 

341^0 

S400 31FC41 

5403 3EB2 

5405 D652 

5407 67 

5408 2E00 
540A E5 

5406 110052 
T ADDRESS 
540E 19 

N HL 
540F E5 

5410 EB 

5411 01F201 
ISK 

5414 EDB0 



5417 01 

5418 01D001 

541B C5 
OR 

541C 05 
541D E5 
S41E 3ES2 
5420 CD3754 

5423 El 

ss 

5424 Dl 

5425 CI 

5426 D5 

5427 3E53 
5429 CD3754 



542C Dl 
S42D 217E52 
RESTORED 

5430 19 

5431 3E52 

5433 77 

5434 C30053 



ALLS & J PS 

5437 EDAl 

5439 2B03 
543B EB 
543C 1BF9 
543E F5 
543F 82 

O MSB OF ADDR 

5440 2B 

BE CORRECTED 

5441 77 
TE 

5442 23 

5443 Fl 

5444 18F1 
5400 



ai800 
01900 

02000 
02100 
B2200 
02300 
02400 
02500 
02600 
02700 
02800 

02900 

03000 
03100 
03200 



03400 
03500 

03ea0 
03700 
03800 
03900 

04000 
04100 

04200 

04300 
04400 
04500 
04600 
04700 

04800 
04900 
05000 
B5100 
05200 
05300 
05400 

05500 
05600 
05700 
05800 
05900 

06000 
06100 
06200 
06300 
06400 
06500 

06600 
06700 



0690 
07000 
07100 
07200 

07300 
07400 

07500 
07600 
07700 
07 80 
07 900 



fCALCULATE NEW ADDRESS, OFFSET, AND RELOCATE 



ORG 5400H 
LD SP,41FCH 
I.D A,NEWADR 
SUB 5 2H 
LD H,A 
LD L,00 
PUSH HL 
LD DE,5200H 

ADD HL,DE 

PUSH HL 
EX DE,HL 
LD BC,01F2H 



rCORRECT FOR CALLS AND 

POP HL 

POP DE 

LD BC,1D0H 

PUSH BC 

PUSH DE 
PUSH HL 
LD A,52H 
CALL RAISER 
POP HL 

POP DE 
POP BC 
PUSH DE 
LD A,53H 
CALL RAISER 



•SET STACK 
;HSB OF NEW ADDRESS 
; CALCULATE OFFSET 
;FULL OFFSET IN HL 

jSAVE IT 

jORIG. TAPF.DISK STAR 

;NEW START ADDRESS I 

J SAVE IT 

jSWAP TO SETUP LDIR 

;t OF BYTES IN TAPED 

; RELOCATE TAPEDISKM 



JPS 

;GET NEW ETAIiT ADDR. 

-GET OFFSET 

: « OF BYTES TO CHECK 

;AND SAVE THEM ALL F 

J SECOND PASS 

;CORRECT 5200H PAGE 

; DO ITl 

;GET NEW START ADDRE 

; AND OFFSET 
f ■ AND # OF BYTES 
fRESAVE OFFSET 
fCORRECT 5300H PAGE 
T DO ITl 



.-RESTORE 52H AT ORIGINAL MEM LOCATION 527EH 



POP DE 

LD HL,527EH 

ADD HL,DE 
LD A,52H 
LD (HL) ,A 
JP 5200H 



■GET OFFSET 

;ORIG MEM LOC TO BE 



;KEW MEM LOCATION 
jP'JT IT IN 



fJUMP TO TAPEDISK 

;USE TAPEDISK '?' COMMAND TO SAVE RELOCATED 

;EHD ADDRESS - START ADDRESS + 01F1H 

; EXECUTION ADDRESS = START ADDRESS 

,-FOR 'NEWftDR ?QU 0B2H ' AS GIVEN IN LlfJl-l 8080 

t THE TAPEDISK COMMAND WOULD BE: 
!?F FILESPEC/CHD:B B20B B3F1 5200 
I 

; SUBROUTINE TO CORRECT FOR NON-RELOCATABLE C 



0B400 
085 00 
08600 
08700 



CPI 

JR Z,RAISIT 

RET PO 

JR RAISER 

PUSH AF 

ADD A,D 

DEC HL 

LD (HL) rh 

INC HL 
POP AF 
JE RAISER 
END START 



;IS IT 521! OR 53H 

;YES? GO J 

jDONE? RETURN 

;ELSE TRY NEXT BYTE 

jSAVE BYTE 

fADD MSB OF OFFSET T 

;GET HEM LOCATION TO 

jPUT IN CORRECTED BY 

; RESTORE HL 
;GET BYTE 
;TRY NEXT BYTE 



TOTAL ERRORS 



1 REM t 


LISTING • 2 














5 RtM K 


ILiRELO! BASIC POKE PROGRAM 












6 RLM * 


BY BARRY KORNFELD 














10 


FOR X-SH7000 TO SH7045 














20 


READ 


Y 














30 


F-OKE 


X.Y 














40 


UtAI 
















50 


DATA 


49 ,252. 65 F 62 














55 


REM * THE FOCLOUING DATft 


ITEH '17B' - 


0B2h 








36 


REM « CHANGE TO RELOCATE 


TAPEDISK 


ELSUHERE. 








AO 


PflTA 


178 














70 


DATA 


214182.103.46.0,229 


17,0,82, 


25,2 


29.235,: 


,242 


,1. 


237 


SO 


DATA 


176>22S,209,1,20B,1 


197,213, 


229. 


62.82.20 


5>55 


,11 


2 


90 


DATA 


225.209,193,213,62, 


33,205,55 


,112 


.209.33. 


126, 


i'2. 


2Zi 


100 DAIfl 63»a2Tll9Tl93i0T82 


237,161, 


40,3 


,224. 2-1 


249, 


24a 


fl30.43 


110 DATR 119i35i241f2tT2'»l 
















Program Listing 2. TDRELO, 


the 


Basic version 





IK 



TRS-SO MODELS i OR III, 32K, 1 DISK DRIVE 

Your personal 

money 

manager, 

DOUCHFLO! 

Doiiqfif lo !S a comoleie accounnng system that grows as vou need it - 
FEATURING: 

■^ Excellent for use as a general letlger, tax preparation system, or 
accounts payaoie system 

•^ Reportswnicncompare totals from up to 24 months Automatically 
form income and expense averages, and budgets 

V-- Interactive cneckbook balancing while expenses are being entereO. 
Complete cneck-wnting logic customized to your own checks 

u^ versatile report generator searches and lists all totals and balances 

^ user friendly documentation— includes sample data ready to run 

Pay your bills, and gain valuable insight. Create a complete financial 
databaseforyourhomeoroffice . $79.95 complete. Demonstration 
disk available for S12.00 postpaid, to be put towards future purchase 
For more .information check reader service number, specify 

Model I or III ^,112 

"A ~ 

Perfect Cload 
Every Time" * 

■From a review m SeDleniDer-OcroOer 19B0 
Elementary Electronic; Reprints iiu.ui.iiDie 

TRS-80 TAPE DIGITIZER ► $49.95 ! 

At last there is a cure for TRS-80 tape cloading blues! For 

ovef three vcats, Alptunciics nas bt'tn selling the TRS-80 Tape 
Digitizer, a proven hardware solution for vour software problems. No 
longer need you juggle the recorders volume control endlessly, try- 
ing for a perfect cload of a pre-recorded program just pop the tape 
into tne cassette recorder, process the signal through our digitizer, 
and vou re ready to RUN a perfect load! 

Just check out the Tape Digitizers features 

.' Makes tape program loading virtually independent 

of volume control setting 
.' Allows copying system and normal tapes without 

using computer. 
.' Makes a perfect digital copy of any tape without 

using computer, removing hum, noise, and cures 

minor dropouts. 
' cassette switch allows manual control of cassette 

recorder, independent of computer control. 
,' 'GOOD DATA' indicator easily enables setting proper 

volume . . . doubles as a tape monitor. 
' A.C. powered — no batteries to replace. 
.' Housed in a sturdy, attractive metal case. 
.' Completely compatible with Lewel 1 & II, also LOW 

speed (500 baud) Model III. 

Feed your cassette tc the Alphanetics Tape Digitizer and feed your 
computer the exact digital waveform the TRS-80 gave your tape. Get 
rid of your tape bugs today — 549.95 postpaid to continental North 
America, or return within 10 days for a full refund! 1^1 13 

we welcome visa or MasterCard. 




[olph oftetics) 



Box 597, Forestvilie, CA95a36 
24 hr. phone 1707) 887-72S7 



^See List of Advertisers on Page 455 
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EDUCATION 



Hit a bull's-eye with this polynomial factoring program. 



Algebraic Archery 



Michael A. Duffin 
1507 East Avenue 
Berwyn, IL 60402 

It has always disturbed me that the com- 
puter is useless for algebraic applica- 
tions. My Level II TRS-80 can add, subtract, 
multiply, divide and determine certain 
trigonometric identities; when it comes to 
factoring a simple polynomial the computer 
knows zip. 

The program in Listing 1 presents a stu- 
dent with a polynomial to factor. It gives five 
chances to answer correctly. If the student 
fails, the program tells the correct answer 
and shows how to determine it. 

Polynomial Lingo 

A variable is a character representing a 
number or a group of numbers(X, Yor A, for 
example). A term is a combination of vari- 
ables and numbers. Terms are separated by 
plus or minus signs. An example of the type 
of polynomial factored by this program is 
Xt2 + 7X + 10. 



The Key Box 

Basic Level II 
Model 1 or II 
16K RAM 



A.. 


. . . Random Number 


B . . 


. , Random Number 


X. . 


. . .The sum ot A and B 


Y 


. . . Product of A and B 


AS. 


. . . One possible answer to Ihe problem 


8$. 


. . .Alternale answer to problem 


CS- 


. . . User's answer 


SA$ 


. . , Sign in front of X ( + or - ) 


SB$ 


. , . Sign in front of V ( + or - ) 


Z$. 


, . , Problem presented by computer 




Table 1. Algebra Variables 



To factor, you must find two polynomials 
which when multiplied together equal the 
polynomial given. The answer to the prob- 
lem above is (X + 5) (X + 2). 

To check the answer, multiply (X -i- 5) 
times (X -I- 2). Do this by multiplying X times 
(X + 2) and 5 times (X -i- 2), and add the 
results. The following details the steps: 

(X + 5| (X -I- 2| 
X(X + 2) -I- 5(X + 2] = 
Xt2 + 2X + 5X + 10 = 
Xr2 + 7X + 10 

Now that we see how factoring works are 
there any tricks to make programming it 
any easier? Look at the problem and answer 
again. 

Protilem X12 + 7X + 10 
Answer (X + 5) (X + 2) 

The middle number in the problem [here, 
7) is always the sum of the numbers in the 
answer {5 + 2 = 7). The coefficient of the 
third term (here, 10) is always the product of 
these numbers (5*2 = 10). 

The Program 

My program selects two random 
numbers, A and B. It determines their sum 
(the variable X) and their product (the 
variable Y). Then it uses these two numbers 
to present the problem (Z$). The person run- 
ning the program has to determine the 
factors. 

The 10 program variables are described 
in Table 1. The subroutine between lines 
1000 and 1030 determines the random num- 
bers in the problem and the sign used with 
each number. The subroutine also builds 
the problem and stores it in the variable Z$. 

STR$ places the numeric values X and Y 
within the string. If the STR$ instruction is 
not used, a Type Mismatch (TM) error oc- 
curs. Thus, this line takes the characters 
"Xt2 -I- ", the value of the number X, the 
characters "X +" and the value of the 



number Y (the product of A and B) and puts 
them together (concatenates them). If A is 3 
and B is 2, Xt2 + 5X -i- 6 appears on the 
screen when Z$ is printed (see line 120). 

The subroutine at lines 2000-2020 sets 
the strings B$ and A$ to the acceptable 
answers. In ourexamplethe values of these 
variables would be (X + 3)(X -i- 2)or(X -i- 2) 
(X + 3). 

The user must place a blank before the 
numeric part of each answer because the 
STR$ instruction reserves a position for the 
sign of the number. 

The routine between lines 4000 and 4060 
informs the student of the possible correct 
answers and tells how that answer was 
derived. 

The subroutine in lines 3000-3020 gives 
the student time to read the answer and 
study it if necessary. Line 3010 loops to 
itself until a key is pressed. The INKEY$ in- 
struction in this line allows input from the 
keyboard while the program is running. 

Although this program teaches a person 
to factor rudimentary polynomial equa- 
tions, it suffers the same ailment as many 
mathematical applications: It is boring. 

Archery Game 

I assigned my data processing class to 
develop a game or educational application 
on the TRS-80. The hardest thing about this 
assignment is generating an idea. One of 
my students came up with the program in 
Listing 2, Archery Game. 

The player fires an arrow at a target. Up to 
20 individuals may play; a player with over 
200 points wins. The amount of points 
scored is determined by the level of play. 

Look at the variables listed In Table 2. They 
are grouped according to their functions. 

Line 19 sets up the initial values to start 
the graphics. Lines 20 and 40-90 explain how 
the game works. Line 100 sets up the max- 
imum number of elements for the array with 
the DIM Instruction. This line also initializes 
some variables used in the program. 

The maximum number of players is ob- 
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". . . when it comes to 

factoring a simple polynomial 

tfie computer knows zip." 



tained by the Input instruction in line 110 
(variable N). Lines 120-140 ask for each 
player's name and store it in the array A$ in- 
dexed by the variable I. 

An array is a storage area. It contains 
multiple elements (pieces of data or groups 
of numbers) identified by one variable name 
and a subscript or index. We could choose 
different variables for each player's name, 
such as NAME1, NAME2, NAME3, NAME4. 
By specifying A$(l) and changing the value 
of I we can store all the names and refer to 
only one variable (A$). In our case, we iden- 
tify a person's name and score Vi'ith the 
same index number. Thus, S(1) is the score 
of the person whose name is A$(1). 

The For.. .Next loop starting at line 160 
and ending at line 312 contains the body of 
the program. The variable QQ points to the 
array elements of the current player. Look 
at line 300 to determine vi/hal this really 
means. 



300 S(QQ) = S(Oa) + B:PRINT 



TOTAL SCORE FOR 



In this line a player's score is incremented 
by the value of B. For the fourth player this 
line vi/ould read: 

300 S{'1) = S(4) -I- B:PRINT ■TOTAL SCORE FOR '■A$(d)" 
= "S(4) 

Oniy the fourth piayer's score is incre- 
mented and only his or her name is printed. 

At line 181 of the For.. .Next loop we enter 
two subroutines. GOSUB 22 prints the 
target, the bow and the arrov*'; GOSUB 501 
moves the arrow. 

The remainder of this For... Next loop is 
arranged sequentially. Line 165 prints 30 
blanks at the top of the screen. This erases 
the line previously starting at screen posi- 
tion zero. Line 170 identifies the player 
whose turn it is and asks what type of throw 
is wanted (1 , 2 or 3). Line 180 mah;es sure 1,2 
or 3 was entered and line 181 goes to the 
subroutines to construct the graphics. 

The routine in lines 190-280 determines 
the number of points scored. The player who 



enters number 1 has only a 50-50 chance of 
getting any score. This playerstands a better 
chance of getting a bullseye, however. The 
player who enters number 2 has a 99 percent 
chance of getting some score and the player 
who enters number 3 has a 95 percent 
chance of scoring. 

Line 300 increments the player's score. 
Line 310 checks to see if we have a winner 
and line 320 starts the routine over for the 
next player. 

Once the For... Next loop is complete 
lines 320 and 325 increment the round 
number and print it. Then lines 330 and 335 
determine if we have a winner. If there is no 
winner yet, the For.. .Next loop starts again. 
If we have a winner final messages print. 

Algebraic Archery 

In the first part of this article I talked 
about a program to factor simple polynom- 
ial equations. In the second part a number 
of players were able to try their luck at hit- 
ting a target with a bow and arrow. As dif- 
ferent as these programs are, they suffer 
from a similar problem. After a short time 
they become very dull. Next I combined the 
two games. 

First, I renumbered the Algebra game 
starting with line 600 and incrementing it by 
100 with Radio Shack's RENUM package. I 
stored the renumbered program on tape us- 
ing the CSAVE command. 

I restored my system to its original status 
(power off-power on). I then loaded the Ar- 
chery program into the system using the 
CLOAD command. 

To store two programs in the machine at 
once, CLOAD the first program and then 
enter the following instructions: 

PRINT PEEK (16633), PEEK(16634) 

The resulting values on my machine for the 
Archery game were 168 and 78. Subtract 20 
from the first value and enter the following 
POKE instructions. 



POKE 16548.166 .POKE 16549.78 



W, 0, O. X, Y, Z Used in llie POKE instmctions ana the For. . , Next loops (hat graphically display 

the Target, Bovu and Arrow and the Arrow's movement 
A$ An array containing the names of up to 20 players 

S An array containmg each player's score 

I. 00 Indices used In the above arrays 

B Score received by a player in a particular round 

M Switch set when a player has scored over 200 points (M - 1) 

T Type of shot (1, 2 of 3) 

U , Shorthand for the expression RND(100)/100 

PI, P2, P3, P4. . . Predetermined values depending on the value of T selected. These ate used with the ran- 

dom number U to determme the score of the player 
R The round being played 

Table 2. Archery Variables 



Most Disk-Directories show only 
the filespecs plus some hard-to- 
understand superfluous infor- 
rTiation, Our 



DISPLAYS DETAILED DESCRIPTION 

OF EACH PROGRAM 

ON A DISKETTE, 

filespec and date of creation. 

SELECT & RUN PROGRAMS 

INSTANTLY. 

(For Model I/Ill, all systems) 



^29 



95 



+ v° 



shipping & handling 



INTERNATIONAL 
COMPUTER PRODUCTS 

346 NO. WESTERN AVE. 
LOS ANGELES, CALIF. 90004 




SUPER GRAPHICS^ SOUND 



I gjwe. mrstmi nviius suk dfcisim i 
33 nirrfiifNi siiBS *ira o«w iDO puneis. encounieb the useb reo musMi. 
mrcH. sricE OEMWS iw miui Honi defeit the hoboi ships or tm *ibio 
m. srawctut. em miai out n* those ikidii ixwup wssus' too i 
ikeh 1 HFir IKE inntE a* e anon iw tou'k 'ivost oit « EliFBor 

ID n FmOLT lUFin: mil me thug id do FKm. TOUU Hin to blow up the HOSKE PIUEI 10 ISUTF 
STtL IHFIO LE THE HVSIEHI OUCIIS IKE 200inD *IICIl SFICE nKTBESi IHO THE EHEflGT HUE. CW KK 
VIKE n THMWHT IHE DFOISM IS lOMS. PHD OIIT m SBUMi FOB OlOSGIVL 

16KTlPf SI4.gs PDH piiil 

32K DISK Sie,9S posl pul 



FOR MODEL I AND III TRS-SD 



X]KATSOFT 

iT^,, , ,„ ^„, 



a SURE TO INCIDOE MQDEI. AND (VHETKER FOR DISK DTI TilPt 
VISA tCCEFTED BUT mHWEf, TO INUUOE EXPIRATIDN DATE 

SENDOHDERTO: KATAHDIN SDfTWAHE 
as W BROADWAY 
IINCQLN MAINE 0445? 

rip^lfif I 'qih'FS ■-VelCDFT^il 




the 
finest dis- 
assembler available, with "load 
registers" before jump, search, 
insert & much more, 
for TRS-80 Mode II w/54k' $48 

ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



f^ See List of Advertisers on Page 455 



80 Micro, November 1982 • 427 



TRS-80^ 

TRSDOS™ 



MODEL Ml 
1 .3 Users 



Super-DIR 1.3 

SDIR a directory maintenance and display 
program enhancing present commands and 
allows unlimited access to your disk and disk 
files. Not recommended for those who need 
to be protected from theaiselves. 

Among its many features: 

SniR run under TRSDOS 1.3. 

.SniR abbreviated (horizontal or vertiral) or 

super expanded listing with scrolling. 
SDIR graphic diskette map with areas 

marked by file type, 
SDIR map showing location of any file. 
SDIR single stroke commands. 
SDIR list files a granule at a time. 
SDIR sort by name, extension, size, starting 

location or back as it was. 
SDIR rearrange order for special needs. 
SDIR most modifications either temporary 

or permanent. 
SDIR create, kill, rename, chantJc attributes 

ar reposition fiies- 
SDIR reduce number of extents, speed up 

direct file handling. 
SDIR change any byte on disk. 
SDIR pack out holes in disk space. 

Comes complete with manual which also 
describes the directory. How to add your 
name to boot message, substitute SDIR for 
DIR, backup protect your files like Scripsit" 
and many many more. 

Price $59.9^. Send check or money order to: 

SMS Products '^ "^ 

1U7 32nd. Ave,SE Albany, OR 97321 

" trademark o( TANDY CORP. 
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a very strong foundation to build upon. You always had to start 
IrOFTi scratch belore but now, alter loading WOBOS I. you'll start 
with over 11 K o( subroutines and systsm utilltieB. Imagine wtiet 
this can do for your produotivityl WOBOS t is not an accessory 
lo your program. It actually t»comee YOUR programr 
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". . . this program . . . suffers the same 
ailment as many mathematical 
applications: It is boring." 



The POKE instructions cliange the start- 
ing adidress where the second program is 
loaded. If the value from PEEK(16633) is 
less than two, subtract one from the second 
value and add 256 to the first. 

Now CLOAD the second program. Re- 
store the pointers to their original locations 
with the following instructions: 

POKE 16548,233 :POKE 16549,66 

The archery program existed at lines 
10-511 and the Algebra program existed be- 
tween lines 600 and 3200. The programs in 
my machine were still independent of one 
another. 

Final Product 

A player is required to factor a polynom- 
ial. If the answer is correct, an arrow fires at 
a target. The number of points scored is 
determined by the number of tries it takes 
to factor the problem correctly. Up to 20 In- 
dividuals may play; ttie first player to score 
over 200 points wins. 

A few program modifications make the 
contest more interesting. During the first 
round each player gets only one chance to 
answer the problem correctly. Thus, a 



player receives zero or 50 points. During 
subsequent rounds, the player with the 
highest number of points receives only one 
chance to factor the problem correctly. All 
other players receive up to five chances to 
answer the problem. 

I made modifications to the games to 
make them work in this manner. Lines 
40-70 in Archery-Algebra direct you to the 
new instructions for this game. 

Notice that line 70 is only a REM instruc- 
tion. When I modify programs 1 find it ben- 
eficial to put in dummy lines. When modify- 
ing programs unfamiliar to you, avoid a UL 
(Undefined Line) error by replacing deleted 
lines with a REM. The dummy REM state- 
ment allows you to insert lines of code at 
the start of a GOSUB or GOTO routine 
which were not identified when the GOTO 
or GOSUB statement was written. 

The next group of instructions modified 
appears between lines 164 and 180. Line 
164 sends us to a subroutine starting at line 
4000. This routineerasesoniy thetophalf of 
the screen. Thus, it is unnecessary to re- 
draw the target and the bow each time. The 
PRINT® writes an entire line of blanks. The 
POKE instruction would have required 
POKEIng each screen position. 



2 REM ********************************************************* 
4 REM* 

6 REM* ALGEBRA FACTORING SIMPLE POLYNOMIALS 

7 REM* 

a REM* BY MICHAEL A. DUFFIN 

9 REM* 

10 REM* MORTON COLLEGE CICERO, ILL. 

12 REM* 

1 4 REM ******************************************************** 

90 CLS:CLEAR 100:D=1 

100 PRINT "FACTOR THE FOLLOWING PROBLEM" 

110 GOSUB 1000 

120 PRINT ZS 

130 GOSUB 2000 

140 INPUT "WHAT IS THE ANSWER ";C$ 

142 IF D>=5 THEN GOTO 4000 

150 IF C$=A$ OR C$=BS THEN PRINT "THATS RIGHT !!":GOSUB 3000:GOT 

10: ELSE PRINT "TRY AGAIN ":D=D-H:GOTO 140 

1000 A=RND(5) +1:B=RND(5) +1 

1002 IF RND(2)=1 THEN A— A:SA$ = "-" ELSE SA$="-H" 

1004 IF RND(2)=I THEN B=-B:SBS="-" ELSE SB$="+" 

1010 X-A-l-B:Y = A*B 

1020 ZS = "X[2 + "-HSTRSCX) -h'-X ■+ "+STR$(Y) 

1030 RETURN 

200 B$="(X"+SAS+STRS(ABS(A))-H") (X"-KSB$+STR5(ABS(B})+") " 

2010 AS="(X"+SB$-hSTR$CABS(B))-h"} (X"+SA$+STR$ (ABS{A) ) -H") " 

2020 RETURN 

3000 PRINT "PRESS ANY KEY TO CONTINUE. " 

3010 IF 1NKEY$="" THEN GOTO 3010 

3 20 RETURN 

4000 CLS:PRINT "THE FACTORS OP "ZS 

4010 PRINT "ARE EITHER "BS" OR "A? 

4020 PRINT "AS YOU CAN SEE" 

4030 PRINT "THE SUM OF "STRS(A)" AND "STRSfB)" IS "STR$(X) 

4040 PRINT "AND THE PRODUCT OF "STR5(A)" AND "STR$(B)" IS "STR$( 

Y) 

4050 GOSUB 3000 

4060 GOTO 10 
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TAKE THE NEXT STEP IN MICRO COMPUTER EVOLUTION 

PUT THE LANGUAGE OF THE FUTURE ON YOUR COMPUTER TODAY. 

Let ALCOR Pascal transform your computer into a truly professional development system. 
No other language system offers as much power, efficiency, and versatility. 

EASY TO LEARN 

Alcor Pascal is easy to learn. It comes with a 250 page documentation package which includes a 100 page tutoriaP 
that introduces Pascal to the beginning programmer. 

Also included in the language are many of the string functions that are familiar to Basic programmers. 

SPEED 

Important to many users is the Fact that Alcor Pascal programs execute between 10-20 times faster than inter- 
preted Basic programs. 

ALCOR SYSTEMS SUPPORT 

Alcor Systems stands behind its products with a free one year service contract that includes upgrades to new Alcor 
Pascal releases for a nominal fee. Also included Free is a one year subscription to the Alcor Pascal Newsletter. Pro- 
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Variant records are fully supported 
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Pascal Tutorial with 500 line Data Base program 

(source supplied on diskette) 
Pascal Reference Manual 
System Implementation Manual 
Text Editor Manual 
Handy System Reference Card 
Cross reference inde* (or documentation package 



The Best of Both Worlds 

Pseudocode (Pcode) for compaclness 

Allows large programs in small memory space [8500 
line + programs can execute in 48k) 
Native code for speed 

Optional code generator produces Z80 instructions 

Z80 code can be mixed with Pcode 



Extensions 

OTHERWISE clause on case statements 
Identifiers may contain '%' and '-' characters 
Automa^c lype conversion in anftimettc expressions and 

assignment statements 
Constants may Ire expressed in decimal or hexadecimal 
Characters within strings may be specified by ascii code 

Allows non-printable characters in strings. 
Type transfer operator to override type matching 
ESCAPE allows exit from anywtiere in a procedure 
LOCATION function returns the address of a variable 
SIZE function returns the amount of memory for a variable 

Full Screen Text Editor 

Included with Pascal 
No limit on tile size (except disk capacity) 
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Pcode optimizer 
Reduces the size of a program by 35-30% 
Increases execution speed 
Z8Q native code generator 
Produces relocatable, reentrant native code for the Z8D 
Native code executes 3-5 times faster than Pcode 
Native code car be mixed with Pcode to provide speed 
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of Pcode 
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and (unction libraries ■ Can create command files 
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TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, ail 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random variate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
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Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to: 

Quant Systems 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 
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"The programs in my machine 
were still independent 
of one another." 



Line 172 sets T equal to six during the 
first round. Each player has only one 
chance to answer a problem during the first 
round. Line 175 performs a similar function. 
The player with the high score is allowed 
only one chance to answer a problem. 

Line 180 sends us to the Algebra program, 
now a subroutine of the Archery program. 
The major differences in the Algebra sub- 
routine exist between lines 1020 and 1390. 
Note the relationship between the variables 
T and D. The Algebra subroutine uses D as 
the number of tries it tai^es a player to 
answer the math problem correctly. The 
original Archery program used T to deter- 
mine the score of the player. Since D now 
determines the score, lines 600 and 1390 set 
them equal to one another so the same value 
is used for both parts of the program. 

There is an exception to this rule. Lines 
172 and 175 set the value of T to six when a 
player gets only one try to answer the prob- 
lem. If the player answers the problem cor- 
rectly, we must make sure he or she re- 
ceives the correct score. Line 1380 resets D 
to one. 

Line 1020 in the Algebra subroutine 



clears the third line of the screen of the 
previous incorrect answer. Lines 1100-1300 
check the answer. If it is correct we exit the 
subroutine. If the answer is incorrect and D 
is less than five, the player is given another 
chance. If the player fails to answer within 
five tries, the correct answer is given and we 
exit the subroutine. 

Lines 190-280 no longer use the variables 
P1-P4 of the original Archery game. Prob- 
abilities are no longer a factor. The player 
who answers correctly on the first try 
receives 50 points. If it takes two tries the 
player receives 40 points, and so on. 

That covers the differences in the three 
games. This might make algebra more in- 
teresting to 6th and 7th graders. If anyone 
uses this program or a modification of it in a 
grammar school or high school environ- 
ment, I would like to hear about it. ■ 

Michael Duffin Is employed full time by 
International Harvester as a Technical 
Assistant at their Broadview location. He is 
employed part time as a data processing in- 
structor at Morton College and North- 
eastern Illinois University. 



Program Listing 2 

3 CLS 

10 REM ARCHERY GAME 

19 X^15360:Y=15360!Z=16173 

20 PRINT@ 0, "GAME OF ARCHERY" : PRINT : RANDOM 

21 GOTO 40 

22 POKE 16000, 188:FOR W=16001 TO 16012:POKE W,140:NEXT WiPOKE 16 
013,188 

23 POKE 16064, 191:P0KE 16067 ,131 : POKE 1607 4 , 131 : POKE 16075, 191:P 
OKE 16077, 191:F0R V=16068 TO 16073:POKE V,179:NEXT V:POKE 16066, 
191 

24 POKE 16128, 191:P0KE 16130 ,191 : POKE 16132 ,191 : POKE 16134, 188:P 
OKE 16135, 188rPOKE 16137 , 191 : POKE 16139 ,191 : POKE 16141,191 

25 POKE 16192, 191:P0KE 16194 ,191 : POKE 16196 ,143 :FOR Q=16197 TO 1 
6200:POKE Q,140:NEXT Q:POKE 16201 ,143 : POKE 16203 , 191 : POKE 16205, 
191 

26 POKE 16256, 191:P0KE 16257 , 176 : FOR 0=16258 TO 16267;POKE 0,179 
:NEXT 0:POKE 1626 8 ,176 : POKE 16269,191 

27 Y=15360 

28 POKE Y+692,188:POKE y+691 ,176:POKE Y+755 ,131: POKE Y-)-754 ,143 :P 
OKE Y+753,188:PQKE Y+752 ,176 : POKE Y-(-816 ,131 : POKE Y+815 , 191 : POKEY 
+879,131:POKE Y+880 ,143 : POKE Y+881 , 188 : POKE Y+882 ,176 : POKE Y+946 
,131:P0KE Y+947,143:POKE Y+948,188 

29 POKE Y+693,148:POKE Y+757 , 149 : POKE Y+821 , 149 : POKE y-(-885 , 149 : P 
OKE Y+949,149 

30 Z=16173 

31 POKE 2,140:POKE Z-fl , 140 : POKE Z+3,140:POKE Z-1-4 ,140 : POKE Z + 5,14 
0:POKE Z-t-6, 140: POKE Z-H7,140 

35 RETURN 

40 PRINT "IN THIS GAME, UP TO 20 PLAYERS SHOOT ARROWS AT A TARGE 

T. " 

50 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES, THE OBJECT IS TO GET 

200 POINTS." 

60 PRINT "THROW", "DESCRIPTION", "PROBABLE SCORE" 

70 PRINT"1" ,"FA5T SPEED SHOT" , "BULLSEYE OR COMPLETE MISS" 

80 PRINT"2","MID SPEED SHOT" , "10 , 20 , OR 30 POINTS" 

90 PRINT"3" ,"SLOW SPEED SHOT" , "ANYTHING" : PRINT 

100 DIM AS (20) ,S{20) ,W(10) :R=0:M=0:S(I)=0:FOR 1=1 TO 2 

110 INPUT "HOW MANY PLAYERS" ; N: PRINT 

115 CLS 

120 FOR 1=1 TO N 

130 PRINT "NAME OF PLAYER" IiINPUT A$[I) 

135 CLS 

Listing 2 continues 
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ELECTRONIC NOTEBOOK 



A totally new concept in small-scale information management for ihe TRS-80 (R). LOG is an 
assembly languageutility which fillsttie gap between tent editors and data base managers to 
provide a true free-form information storage and relneval system with unhearO of ease of 
operation. 

LOG-CMD creates on a formatted diskette a LOG file from 1 to 170 pages long, each page 
containing 1 full screen of information. Pages are accessed individually or sequentially, as if 
thumbing through a book. Information is added, updated, or deleted from each page in free 
form ty an integral cursor oriented text editor. Each diskette tjecomes a separate organized 
notetiook to use and re-use as you please. 

Insert, Delete, Tab, Clear, and full cursor positioning are supported, as well as blinking curbo/ 
and auto-repeat. All functions operate with the ease of a single keystroke including Global 
Search. Output to printer is providefl. LOG can even tje accessed from BASIC without losbof 
program. 

Why. when you own a computer, do you still keep fecuids by hand? Throw away your pencil 
and paper! Use your computer as you never dreamed o( before! 



Model J 
Model II 



32 or 48K 
32 or 48K 



$44.95 
$49,95 



(minimum system: 32K. 2 disk drives, 
DOS 2.3 (I) or 1.3 (III) required) 



Write or Call for further information: 

KSoft 

318 Lakeside Dnve 

Brandon, MS 39042 



(TRS 80 IS a trademark of Tandy Corporation) 



(uppercase only) 
(uppercase/lowercase) 



(601) 992-2239 

MasterCard and Visa accepted. 
MS Residents pay 5% sales tax. 
We pay shipping and handling. 

.-331 



1 ! 
'l I 
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DISK VERSION TALKS' 
ModBl I or riodel III 
Di «k saves hi -scoras 
Keepa top t>n scores 
Fast action graphics 
Joystick coMpatible 
HachinB Language 
Extensive sound 
BeX+-booting disk 



B u / 2 INVADERS 



The best Invaders type gaiae yet. You have 

pi ayed the rest , noH try out the best . Endless 

hordes o-f 1 nvaders try to overtake your base 

station. You must ^ave earth f ron al ien 

de&truct 1 on . 

Oui ck , ahoot the mystery ship and see if you can 

get d 300 point bcinu^ ! Mariy other bonuses are 

a I so i ncluded throughout the entire progra*. 

16K Tape tll.95 ASK Disk »1B.95 

Send check or money order to : 

Banana Soft 

Th» contpany with A-Peal 
1£>01 WildMood Drive Fal 1 ston Hd. 21047 
1301 1 879-B149 

Specify rkidel 1 ar Model III 

Add »2.00 for shipping and handling charges 

Add •3.25 if outside o* the United States 

Maryland residunti. add 5'/. iar &alab tax 

Dealer i nqiii r i es invi ted 




SttSSEiF'-IS^uBS^ 



EPSON MX70 S288 

EPSON MX80GRAFTRAX-(- CALL 

EPSON MXeOF/TGRAFTRAX-i- . . . .CALL 

EPSON MX100GRAFTRAX-I- CALL 

NECPC-8023A-C CALL 

NEC 3550 CALL 

NEC 3510, 3515, 3530 $1695 

NEC 7710, 7715, 7730 $2275 

NEC 7720, 7725 $2645 

C.ITOH8510AP$499 • 8510ACD . . .$616 
C.ITOH 1541S— P$769 • 1541SRE.$839 
GITOH F10-40PUS1395 • F10-40RU$1395 
GITOH F10-55PU$1745 • F10-55RU$1745 

OKIDATA82AGALL •83A CALL 

OKIDATA64ACALL • 82ATRACTOR$60 

TALLY MT 1602 MT 1605 $1495 

TALLY MT 1802 WT 1805 $1795 

DIABLO 630R1 32 $2395 • 630R101 $1749 
DIABLO63OR104$2395 • 630K104$2949 

QUMESPRINT545/RO,KSR& CALL 

55/RO,KSR 

ANADEXADX-9500-PADX-950-P . . , .$1295 
SMITH-CORONA TPl CALL 



UOSOLCUMPUTERPRODUC 

HAYES SMART 
MODEMS CHRONOGRAPH 



lu 



NEC COMPUTER 



1 






i 


^m 




1 "i 


^^'7' ?:&8'n 


i 
n 


a>iM> _ ^ 1 








HAYES SMARTMODEM 300 BAUD , . . S22a 

HAYES SMAHTMODEM 

30081200BAUD $599 

• RS-232C COMPATIBLE 

■ FULL and HALF-DUPLEX OPERATION 
WITH BOTH 

• TOUCH TONE and PULSE DIALOG 

> AUTO-ANSWER/DIAUREPEAT 

' COMPLETELY PROGRAMMABLE 

> BUILT-IN AUTO MONITOR 

• STATUS AT A GLANCE 

• DIRECT-CON NECT DESIGN 

HAYES CHRONOGRAPH $209 

NOVATION AUTO-CAT AUTO ANS . . .$219 



Monitors 



^ 1 



• NEC JC-1202DH RGB 
HIGH RES. COLOR $799 

• AMDEKCOLOR-II RGB 
HIGH RES. COLOR $769 

• NEC PC-1201 M(A) HIGH RES. GREEN . . SI 79 

Terminals 

• TELEVlDEO910$595, #912 ... .$705 

• TELEVIDEO920$750, • 950 $959 

• ADDS Viewpoint A1,A2,A3 $535 

°^ COGSOL. INC. P.O. BOX 743. ANAHEIM. CAllFHRNfA 92f^ni 0743 

■^^111 II ■ ii mi mill I riM^^— ^i^w— — ^^i^i^^^^^^^^^^^^ r'-iTi" "li -■'■"\r -itn 'Vi -i-.-LL^r-^M.,.,, 



• Above NEC System witti PG-8001A 
CPU/KBD, PC-8012A 1/0 Exp., PC-8031A 
Dual Disk. S.JB-1201 Green Monitor . .$2149 

• NEC ACCESSORIES & SOFTWARE . CALL 

Other Computers 

• EPSON HX-20 CALL 

• ALTOS8000SERIESCOMPUTERS . . . CALL 

• ALTOS5-15D $2299 

• ALTOS5-5D,SOFTWAREandetC . . . CALL 

• ATARI80048K,and810 $1249 

• ATARI PERIPHERALS and SOFTWARE 

CALL 

• DYNABYTE 5605-6-1 $5999 

• DYNABYTE OTHERSYSTEMS CALL 

• SANYOMBC-1000 $1639 

• SANYOMBC-2000 $2899 

• SANYO MBC-3000 $4999 

• ADD-ON DISK DRIVES CALL 

• SOFTWARE for the above CALL 

Calif. [7141 545-2Z16 
1800) 854-8496 



^See List ol Advertisers on Page 455 
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OF 

UTILITIES 

SUPER UTILITY PLUS 

"/ believe 

SUPER UTiUTY or 

SUPER UTIUTY PLUS 

should be present at 

every TRS-80 disk 

installation. " 

We didn 't say this; Paul Wiener did in 80 
Microcomputing, Jan. '82...but we sure 
agree with him! 

You heard about it! You read about it (80 
Microcomputing). Mowgetthe'cadillac" 
at a special price! 

Compatibie with MOD I, and MOD III, and 
all the current operating systems! Copy 
files from any DOS to any DOS, MOD I or 
HI, without converting! 

Zap 
Purge 

Format 

Special Format 
Disk Repair 
Memory 
RIe atiUty 
Tape Copy 
Format without erase 
Disl( Copy 
Special Disk Copy 
Configurable System 
MUCH MORE ■ Mod I & Mod lit on S^me Disk 

For MOD I/III . . . $74.95 

NEW 

Back up copy NOW included 

Abo Avdiable: 

Super UUbty Plus Tech. Manual . . . $14.95 

"Inside Super Utility Mus** $19.95 



A Division of Breeze/QSD. inc. "^ ^^^ 
11500 Stemmons Fwy„ Dallas, Texas 75229 
To order call toU fi«e 1-800-527-7432 

For product information (214) 484-2976 

432 • 80 Micro, November 1982 



Listing 2 continued 

140 NEXT I 

150 REM 

160 FOR QQ=1 TO N 

165 PRINT@ 0,STRING$(30," " ) ; 

170 PRINT? 0, A$CQQ) "' S THROW" ;: INPUT T 

180 IF T<0 OR T>3 THEN PRINT "INPUT 1,2, OR 3":G0T0 170 

181 GOSUB 22:G0SUB 501 
190 ON T GOTO 200,210,220 

200 Pl=.55:P2=,55:P3=,50!P4-.50:GOTO 230 

210 Pl=,99:P2=.77iP3=,43:P4=.01:GOTO 230 

220 P1=.95:P2=.75;P3=.45:P4=.05 

230 U=RKD(100)/100 

240 IF U>P1 THEN PRINT'eULLSEYE 1! 40 POINTS! "A$ (QQ) :B=40 :GOTO 2 

90 

250 IF U>P2 THEN PRINT"30-POINT ZONE I "A5 (QQ) ;B=30tGOTO 290 

260 IF U>P3 THEN PRINT"20-POINT ZONEl "AS (QQ) : 8=20 : GOTO 290 

270 IF U>P4 THEN PRINT"10-POINT ZONEl ''R$ (QQ) ; : B=10 : GOTO 290 

280 PRINT "HA-HA, YOU MISSED THE TARGETIl "A$(QQ):B=0 

290 REM 

300 S(QQ)=S{QQ)-t-B:PRINT "TOTAL SCORE FOR "AS(QQ)" = "S(QQ) 

310 IF S(QQ)>200 THEN M=M-H:W(M)=1 

312 NEXT QQ 

320 R=R-l-l 

325 PRINT "ROUND "R 

330 IF H=0 THEN GOTO 150 

335 IF H=l THEN GOTO 340 

340 PRINTiPRINT "WE HAVE A WINNER! I " :PRINT 

350 PRINT A$(WCH)) " SCORED " S(W(H)) " POINTS." 

350 PRINT:PRINT AS(W(H)) " WANTS YOU TO PAY UP NOWl'jEND 

500 GOSUB 21 

501 POKE Z,32:POKE Z-H,32:POKE Z-H3,32:POKE Z-H4,32!POKE Z-<-5,32:PO 
KE Z-H6,32:POKE Z-l-7,32 

502 POKE Z-7,140:POKE Z-6,140:POKE Z-5,140:POKE Z~4,140:POKE Z-3 
,140:POKE Z-2,140:POKE Z-1,140 

503 POKE Z-7,32:POKE Z-6,32:POKE Z-5,32:POKE Z-4,32:POKE Z-3, 32: 
POKE Z-2,32:POKE Z-1,32 

504 POKE Z-15,140:POKE Z-14 ,140 : POKEZ-13 , 140 : POKE Z-12 ,140 : POKE 
Z-11 ,140:POKE Z-10,140:POKE Z-9,140:POKE Z-8,140 

505 POKE Z-15,32:POKE Z-14,32:POKE Z-13,32:POKE Z-12,32:POKE Z-1 
l,32:POKE Z-10,32:POKE Z-9,32:POKE Z-8,32 

506 POKE Z-23,140:POKE Z-22 , 140 : POKE Z-21 , 140 : POKE Z-20 , 140 jPOKE 
Z-19,140:POKE Z-18 ,140 : POKE Z-17 , 140 : POKE Z-16,140 

507 POKE Z-23,32:P0KE Z-22,32:POKE Z-21,32:POKE Z-20,32:POKE Z-1 
9,32:POKE Z-18,32:POKE Z-17,32:POKE Z-16,32 

508 POKE Z-31,140:POKE Z-30 ,140 : POKE Z-29 ,140 :POKE Z-28,140:POKE 
Z-27,140:POKE Z-26 , 140 : POKE Z--25 ,140 :POKE Z-24,140 

509 POKE Z-31,32:POKE Z-30,32:POKE Z-29,32:POKE Z-28,32:POKE Z-2 
7,32:POKE Z-26,32:POKE Z-25,32:POKE Z-24,32 

510 POKE Z,140:POKE Z+1,140:POKE Z-<-3 , 140 : POKE Z-H4 , 140 :POKE Z+5,1 
40:POKE Z+6,140:POKE Z-*-7,140 

511 RETURN 



Program Listing 3 



3 CLS 

5 CLEAR 1000 

6 JJ$=" 

10 REM ARCHERY GAME 

19 X=15360:Y=15360:Z=16173 

20 PRINT@ 0, "GAME OF ARCHERY 

21 GOTO 40 

22 POKE 16000, 188:FOR W=16001 
013,188 

23 POKE 16064, 191:P0KE 16067, 
OKE 16077, 191;F0R V=16068 TO 
191 

24 POKE 16128, 191:P0KE 16130, 
OKE 16135, 188:POKE 16137,191: 

25 POKE 16192, 191:P0KE 16194, 
6200:POKE Q,140:NEXT Q:P0KE 1 
191 

26 POKE 16266, 191:P0KE 16257, 
:NEXT 0:POKE 1626 8 ,176 : POKE 1 

27 Y=15360 

28 POKE Y-h692,188:POKE Y-H691, 
OKE Y-(-753,188:POKE Y-^752,176: 
+879,131:POKE Y-t-880 ,143 : POKE 
,131:P0KE Y-H947,143:POKE Y-f94 

29 POKE Y+693,148:POKE Y-h757, 
OKE Y+949,149 

30 Z=16173 



":PRINT:RANDOM 

TO 16012iPOKE W,140:NEXT W:POKE 16 

131:P0KE 16074, 131:P0KE 16075, 191:P 
16073:POKE V,179:NEXT V:P0KE 16066, 

191:P0KE 16132, 191:P0KE 16134, 188:P 
POKE 16139, 191:P0KE 16141,191 
191:P0KE 16196, 143:F0R Q=16197 TO 1 
6201,143:POKE 16203 ,191 :POKE 16205, 

176:FOR 0=16258 TO 16267:POKE 0,179 
6269,191 

176:POKE Y+755 ,131 : POKE Y-F754,143:P 

POKE Y-h816,131:POKE Y-l-815 , 191 : POKEY 

Y-!-881,18e:POKE Y-l-882 ,176 : POKE Y-f946 

8,188 

149:POKE Y-^821 , 149 : POKE Y-h885,149:P 



Listing 3 continues 



Listing 3 continued 

31 POKE Z,140:POKE Z+1,140:POKE Z+3,140:POKE Z+4,140:POKE Z+5,14 

0:POkE 2+6,140:POKE Z+7,140 

35 RETURN 

40 INPUT "DO YOU NEED INSTRUCTIONS ";IIS 

50 IF II$="NO" THEN GOTO 70 

60 GOSUB 5000 

7 REM 

100 DIM AS(20) ,S(20) ,W(10) :R=1:M=0:S[I)^0:FOR 1=1 TO 20 

110 INPUT "HOW MANY PLAYERS" ; N: PRINT 

115 CLS 

120 FOR 1=1 TO N 

130 PRINT "NAME OF PLAYER" I: INPUT R${I) 

140 NEXT I 

145 GOSUB 22 

150 REM 

160 FOR QQ-1 TO N 
164 GOSUB 4000 

170 PRINT@ 0, A${QQ) "'S PROBLEM" 

172 IF R=l THEN T=6:G0T0 180 

175 IF S(QQ)=HS THEN T=6 ELSE T-1 

180 GOSUB 600 

161 GOSUB 501 

190 ON T GOTO 230,240,250,250,270 

200 GOTO 280 

230 PRINT "BULLSEYE II "AS (QQ) :B=50 : GOTO 290 

240 PRINT "40-POINT ZONE! "AS ( QQ) :B=40 :GOTO 290 



25( 
26! 
270 PRINT"10-POINT ZONE! "A${Qq') 



PRINT"30-POINT ZONE! "A$(QQ) 
PRINT"20-POINT ZONE! "A$(QQ) 



B=30:GOTO 290 
B=20:GOTO 290 
B=10:GOTO 290 



'AStQQ)" YOU MISSED. ■':B=( 



'S(QQ) 



280 PRINT "TOO BAD 

2 90 REM 

300 C(QQ)=S(QQ)+B:PRINT "TOTAL SCORE FOR "A$(QQ)" = 

305 IF HS<S(QQ) THEN HS=S(QQ) 

308 PRINT "HIGH SCORE = "HS 

310 IF S[QQ)>200 THEN M=M+1 : W(M) -1 : WW=S (QQ) 

311 GOSUB 2300: IF N=QQ THEN R=R+1 

312 NEXT QQ 

330 IF M=0 THEN GOTO 150 

335 IF M=l THEN GOTO 340 

340 PRINT:PRINT "WE HAVE A WINNER! !": PRINT 

350 PRINT AS(W(H)) " SCORED " WW " POINTS." 

360 PRINT:PRINT AS(W(M)) " WANTS YOU TO PAY UP NOW!":END 

501 POKE Z,32:POKE Z+l,32;POKE Z+3,32:POKE Z+4,32:POKE Z+5,32:PO 
KE Z+6,32:POKE Z+7,32 

502 POKE Z-7,140:POKE Z-6,140!POKE Z-5,140:POKE Z-4,140:POKE 1-3 
,140:POKE 2-2,140:POKE Z-1,140 

503 POKE Z-7,32:POKE Z-6,32:FOKE Z-5,32:POKE Z~4,32:POKE Z-3,32: 
POKE Z-2,32:POKE Z-1,32 

504 POKE Z-15,140 :POKE Z-14 , 140 : POKEZ-13 , 140 : POKE Z-12 , 140 : POKE 
Z-11,140:POKE Z-10,140:POKE Z~9,140:POKE Z-8,140 

505 POKE Z-15,32:POKE Z-14,32:POKE Z-13,32:POKE Z-12,32:POKE Z-1 
l,32:POKE Z-10,32:POKE Z-9,32:POKE Z-8,32 

506 POKE Z-23,140:POKE Z-22 , 140 : POKE Z-21 , 140 : POKE Z-20 , 140 ; POKE 
Z-19,140:POKE Z-18 ,140 : POKE Z-17 , 140 : POKE Z-16,140 

507 POKE Z-23,32:POKE Z-22,32:POKE Z-21,32:POKE Z-20,32:POKE Z-1 
9,32:POKE Z-18,32:POKE Z-17,32:POKE Z-16,32 

508 POKE Z-31,140:POKE Z-30 , 140 : POKE Z-29 , 140 : POKE Z-28 , 140 : POKE 
Z-27,140:POKE Z-26 , 140 : POKE Z-25 , 140 : POKE Z-24,140 

509 POKE Z-31,32:POKE Z-30,32:POKE Z-29,32:POKE Z-28,32:POKE Z-2 
7,32:POKE Z-26,32:POKE Z-25,32:POKE Z-24,32 

510 POKE Z,140:POKE Z+1,140:POKE Z+3,140:POKE Z+4,140:POKE Z+5,1 
40:POKE Z+6,140:POKE Z+7,140 

511 REM 
520 RETURN 
600 D=T 
700 PRINTS 64, 
800 GOSUB 1400 
900 PRINT Z$ 
1000 GOSUB 200 
101 
102 
110 
111 



'FACTOR THE FOLLOWING PROBLEM" 



REM 

PRINT0 192 ,JJ$; 

PRINTS 192, "WHAT IS THE ANSWER 

IF C$=A5 OR CS=BS THEN PRINT "THAT' 



1300 IF D<5 THEN D=D+1:PRINT "TRY "DiGOTO 

1310 GOSUB 2600 

1320 GOTO 1390 

1380 IF D=6 THEN D=l 

1390 T=D 

1399 RETURN 

1400 A^RND[5)+1:B=RND(5)+1 

1500 IF RND(2)=1 THEN A=-A:SA$="-" ELSE SA$="+" 

1600 IF RND(2)=1 THEN B=-B:SB$="-" ELSE SB$='' + " 

1700 X=A+B:Y=A*B 

1800 Z$="X[2 + ''+STRS(X)+"X + "+STR$(Y) 

1900 RETURN 

2000 BS="(X"+SA$+STR$(ABS{A) )+") (X" +SB$+STR$ CABS ( B 



INPUT C$ 

S RIGHT ! ! I ":GOTO 13( 
1010 



+": 



Listing 3 conlinuss 




THE MOST POWERFOL, FLEXIBLE 

DISK MAIUNG SYSTEM FOR THE TRS80 

•SUPPORTS 65,000 MAMES* 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod I or III. The program 
is written enijrely in machine language for 
maximum operation speed, and occupies 
only 4K of the available RAM in your 
computer. There are no slow periods 
when PowerMAIL is running. Mew 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 'flags' that are incorporated 
into the PowerMAIL program. The 
PowerMAIL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will run in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 168 files simultaneously 
during the process. Author Kim Watt 

For MOD I/III...$ 99.95 

Hundreds of Satisfied 
Users... Scriplus 3.0 

Scriplus is a modification to 
Scripsit* '" which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

Chang* «»>4pi«kf-icrl^fd print 

ch«ng» no. of dufjittfi p»r inch 

or yndpr liof 1 ri •! d-I i n» ' 

• Compatible with all current DOS's (I or III). 

• Modifies ALL versions of SCRIPSrr—. 

• Allows usage of MOD I version on MOD III. 

• Allows MOD HI veraons to be BACKED UP for your 
protection. 

• Files can be killed, loaded, merged, or chained from 
the Scriplus directocy. 

• Scriplus supi^ies an ALPHABETIZED directory with 
FREE space shown. 

• "EMD" returns to DOS READY instead of rebooting. 

• F^nter can be stopped for insertion of text or forms 
alignment Inserted text can be edited prior to 
resumption of printing. 

• Specifically written for the MX-80 but will work with 
any printer that accepts CHRS codes for control. 

• Optionatly seletl line feed after carriage return. 

For /viODI/III... $39.95 



A DiuiSioi-i of Breeze/QSD. Inc. *' ^™ 
1 500 Stemmons Fwy., Dallas, Texas 75229 
To order call toll free 1-800-527-7432 

For product information (214) 484-2976 



i^See List of Advertisers on , 



'455 
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COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

THE ALCHEMIST'S LABORATORY ■ S14.95 

mix the irg.'edienls yoursci' 

. LOKAR'S MAGIC STAFF ■ SU.95 

five crystal statues, the magic staff, and a castle 

filled wltti wild animals. 

■ NIGHT TOWER DESCENT - $14.95 

ten floors of danger, treasure, and magic are be- 
tween you and freedom. 

SQUEEZE $14.95 
arcade style game where aliens close in from both 
sides at once. 

■ GRAPHIC SCREEN EDITOR ■ $16.95 
create pictures on the screen using joysticks o< 
arrow keys-save on tape, erase, paint, and many 
other features. 

■ COLOR SHOW DISPLAYS ■ $8.95 

five graphics programs that create endless chang 
ing patterns. 

all programs 16-K extended basic cassette only. 
Send for free catalogue or order now in time tof 
Xmas. We accept checks, money orders. Visa and 
Mastercharge. (no C O D 'st piease add SI 00 for 
shipping. Send to. 

REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617)393-6281 ,.345 

Mass. residents add 5% sales lax 
__; ■ dealer inauirLes welcomed ' 



2 OR MORE PRINTERS TO CONNECT 
TO YOUR COMPUTER(S)? vice versa^ 



WORKS MITH All STANDARD. PAIlAlLEL-INTF<FACtD PRINTtlS. 
rcpriaiQ QdoproF cablt ««■ 

• ALL CONNECTIONS ARE GOLDPlATEIi lor maiin^um r«l,obilily. 

• VICE VERSA? You bill P'lnrirPlckir® »ill alls ir<l>r>-ilih mulllpli, 

AU ORDERS odd S3, 50 Is, ihiRPlns °nd handling, 

PrinterPicker* Switch Unit $65.00 

Adaptor Cable Set.*. $25.00 

• [a<h PFinlirPickir® S»,l:liing JnK rsquire! an Adaslsr Cobia £<t, 

Sptilly l,e>: TRS-eO.' Madll I, Modll II, S' Model III; or EXTENDED 

((o> <ai>n>Illo 10 anolhir PrM.rPI<k«e Switch Unill; 

or NON-TRS-SO' Ilor all othor lonipuriri). 

NOTE: ALL icropuler iyitlit,! r>i|uir> a IRS-SO' Madol I or III frmlsr 

CabltS.I to-.=thp.,«,. 1No.26-140U, ol.. B'it«: i3S,CD, 






I lh> Tandy Carpo 



COHPUWARE Corpora 
lOOA Abinglon Road 

Charry Hill, NJ 08034 
O09-»3B-I3O9 



,^511 
,. ADD i1 



Listing 3 continued 




2100 


AS^-IX 


"+SB5-t-STR$(RBS(B))+") (X"-I-SA$-1-STR$ {ABS { A) ) -t-" ) " 


2200 


RETURN 




2300 


PRINT 


"PRESS ANY KEY TO CONTINUE" 


2400 


IF INKEY$=''" THEN GOTO 2400 | 


2500 


RETURN 




2600 


GOSUB 


4000:PRINTia 0, "THE FACTORS OF "ZS 


2700 


PRINT 


"ARE EITHER "B$" OR ''A$ 


2800 


PRINT 


"AS YOU CAN SEE" 


2900 


PRINT 


"THE SUM OF "STR$[A)" AND "STR5(B)" IS "STR$(X) 


3000 
3120 


PRINT 


"AND THE PRODUCT OF "STR$[A)" AND "STR$(B)" IS "STR$( ■ 


D=6 




3200 


RETURN 




4000 


PRINT@ 


0,JJ$:PRINT^ 64,JJS:PRINTia 128 , JJS : PRINTia 192, JJ$ 


4010 


PRINT 


@256,JJS:PRINT@ 320 , JJ$ : PRINT@ 384, JJ$ 


4200 


RETURN 




5000 


PRINT 


"IN THIS GAME UP TO TWENTY PLAYERS GET TO" 


5010 


PRINT 


"FACTOR POLYNOMIALS." 


5020 


PRINT 




5030 


PRINT 


"DOESN'T THAT SOUND EXCITING ?" 


5040 


PRINT 




5050 


PRINT 


"A CORRECT ANSWER TO A PROBLEM WILL CAUSE AN ARROW" 


5060 


PRINT 


"TO BE SHOT AT A BULLSEYE." 


5070 


PRINT 




5080 


PRINT 


"A PLAYER WILL RECIEVE FROM 10 TO 50 POINTS FOR" 


5090 


PRINT 


"A SHOT. THE AMOUNT OF POINTS IS DEPENDENT ON" 


5100 


PRINT 


" THE NUMBER OF TRIES NEEDED TO ANSWER THE PROBLEM." 


5110 


PRINT 




5120 


GOSUB 


2300 


5125 


CLS 




5130 


PRINT 


"THE WINNER OF THE GAME IS THE FIRST PLAYER TO GET" 


5140 


PRINT 


"200 POINTS." 


5150 


PRINT 




5150 

N." 

5170 


PRINT 


"DURING THE FIRST ROUND EACH PLAYER GETS ONLY ONE TUR 


PRINT 


"DURING THE FOLLOWING ROUNDS EACH PLAYER GETS 5" 


5180 


PRINT 


"TRIES TO ANSWER THE PROBLEM CORRECTLY EXCEPT " 


5190 


PRINT 


"FOR THE PLAYER WITH THE MOST POINTS." 


5200 


PRINT 




5210 


PRINT 


"THE PLAYER WITH THE LARGEST NUMBER OF POINTS" 


5220 


PRINT 


"GETS ONLY ONE CHANCE TO ANSWER THE PROBLEM" 


5230 


PRINT 


"CORRECTLY" 


5240 


GOSUB 


2300 


5250 


CLS 




5260 


PRINT 


"ANSWERS TO THE PROBLEMS MUST BE IN THE FOLLOWING FOR 


HAT: 


n 




5270 


PRINT 




5280 


PRINT 




5290 


PRINT 


(X+ 3) (X- 4)" 


5300 


PRINT 




5310 


PRINT 


"THAT IS A SPACE MUST BE PLACED AFTER EACH '+'" 


5320 


PRINT 


OR '-' SIGN , 


5330 


GOSUB23 00 1 


5900 


RETURN 






Custom 3 



MOD III S CP/M SOFTWARE COMPATIBLE 



DUAL 40 TRACK SVV DISK DRIVES 
8" DRIVE CONTROLLER 
1 YEAR WARRANTY 

48K $2,233.00 

64K 2,449.00 

OTHER DRIVE CONFIGUR- 
ATIONS AVAILABLE INCLUDING 
INTERNAL HARD DISK 



MACHINES 

:ai#-TRSDOS ^ 




LNW 

Research 



MOD ! & CP,/M SOFTWARE COMPATIBLE 



DUAL 40 TRACK 5VV DISK DRIVES 
8" DRIVE CONTROLLER — HI-RES & 
COLOR GRAPHICS 4 Mhz SPEED— Z80A 
PROCESSOR— FAN 

48K $2495.00 

96K 3095.00 

48K without 

CP/M 2295.00 



fllllllt I ^=^ 

mil I.' I r 



Freedom 
Boards 



Tandy Corp — TRS-80, TRSDOS. Digital Research— CP/M. 



CP/M CONVERSION BOARDS FOR 
THE TRS-80 AND LNW COMPUTERS 
FROM FREEDOM TECHNOLOGY 
INTERNATIONAL 

Freedom Option.... $222.00 

Freedom Plus 444.00 

-adds 16K of RAM 



1 19 N. 18th street Phila., PA 19103 
(215)-569-2420 
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a problem? 



Here's the ideal way to keep your 
growing collection of 80 Micro in 
order! The SO Micro Library Shelf 
Boxes. 




C?^ 

. . -Sturdy, corrugated, white, dust-resistant boxes will keep 
your issues of 80 Micro orderly and available for constant 
reference. Self-sticking iabels are available fort fie boxes, too, 
not only for SO but also ior Microcomputing, 73 Magazine, CO, 
QST, Ham Radio, Personal Computing, Interface Age, Byte 
and Radio Electronics. Ask for whicfiever labels you want 
with your box order. Each box holds a full year of the above 
magazines. Your magazine library is your prime reference: 
Keep it handy and keep it neat with these strong library shelf 
boxes. One box {BX1 000) is $2.00, 2-7 boxes (BX1 001 ) are $1 .50 
each, and 8 or more boxes (BX1002) are $1.25 each. Be sure to 
specify which labels we should send. Shipping and handling 
charges are $2.00 per order. Call in your credit card orders on 
our toll-free line 800-258-54 73, or use the order card in the back 
of the magazine and mail to: 



micro 



Peterborough, 
ATTN: BOOK SALES '^ °''^'^ 

Please aMow 4-6 weeks for delivery. No COD orders accepted 



Sales 



A few select territories available 



Join a fast growing company in- 
volved in the microcomputer in- 
dustry as a direct salesman. 
Sales involve our wide selection 
ol books, four publications and 
software. We are looking for a 
non-smoking individual wilti a 
good sales background and a ba- 
sic understanding of microcom- 
puters. An excellent career 
awaits the person who wants to 
be "on his own." It will be the re- 
sponsibility of our direct sales- 
man to become familiar with all 
makes of computers and their 
sales outlets, amateur radio and 
electronic stores, book stores, 
and other outlets for our prod- 
ucts in your given territory We 
will also add other lines as they 
become available. Arrangements 
are being made to coordinate ef- 
forts with some other firms in the 



area, including a major printer 
manufacturer. We offer an excel- 
lent growth potential with a high- 
ly motivated, young corporation. 
If you or someone you know is in- 
terested in the opportunities 
available at Wayne Green Inc., 
please submit your background 
in detail, including sales experi- 
ence, recent work history, knowl- 
edge of the microcomputing in- 
dustry, educational background 
and references to: 



Sales fVlanager 
Wayne Green, Inc 
Peterborough, NH 03458 



AM replies will be immediately ac- 
knowledged and held in the strict- 
est of confidence. 




WAYNE GREEN, INC. 
(E-11) Pine Street 
Peterborough, N.H. 03458 






SOMETHING FOR EVERYONE: 



(MODEL I/III) 



SI 






iy^lte& 



YOU HAVE JUST BEEN ELECTED TO 
OFFICE IN YOUR COUNTRY. NOW YOU 
MUST KEEP YOUR ECONOMY AFLOAT, 
WHILE TRYING TO AVOID YOl« NASTY 
NEIGHBOURS. YOUR MAIN TASK IS TO 
RUN YOUR COUNTRY AND BUILD YOUR 
ARMY TO TAKE OVER ALL THE OTHER 
NATIONS WITHOUT KILLING OFF YOUR 
POPULATION OR GOING BANKRUPT. 
CAN YtXJ DO IT77 
FOR 1-4 PLAYERS , WITH 0-4 
COMPUTER-CONTROLLED COUNTRIES. 
A CHALLENGING PROGRAM W --•18. SO 



THE BATTLE OF 

ZEIGHTY 




YOU HAVE BECOME THE GENERAL OF A 
STRUGGLING ARMY. YOU HAVE TO SET 
UP AN ATTACKING FORCE AND TAKE 
ZEIGHTY PASS. THE COMPUTER HAS 
CDNTTIOL OF ALL ASPECTS OF THE 
DEFENDER^ AND PROVIDES QUITE A 
CHALLENGE. YOU'U, HAVE TO THINK 
TO WIN !! Ha-SD 



ORDER FRQNi 



ORi 



EXTERMINATE! 




EXTERMINATE IS A NEW IDEA IN AN 
ARCADE CAME, NOT A COPY OF SOME- 
OfE ELSE'S. YOU ARE UP AGAINST 
A HORDE OF ALIEN "BUGS", AND YOU 
HAVE TO GET RID OF THEN BEFORE 
THEY GET OUT OF CONTROL. USE 
YOUR SUPERIOR SPEED AND WEAPONS, 
BUT WATCH OUT! THEY BREED QUICK! 
MACHINE LANGUAGE, OF COURSE, AND 
ITS FAST, WITH GOOD GRAPHICS. 
,14. 5D 







P.a BOX 598 
FALLS STATIW 
NIAGARA FALLS. KY 
US. A. 14303-159B 



710 UPPH JWCS ST. 
fWIILm ONTARIO 
CANADA. L9C-2Z8 
PHQE: 41&-3e9-60e6 



QEALER BOJIRIES INVITED. 



NO SHIPPING OWCE FOR 2 OR MORE GACS 



VISA m NASTBtCARD AaB>TED 
ALL PRICES INU.S. FUNDS 
DISK VERSIONS. $2.00 EXTRA 
PLEASE ADD tiOO FDR SHIPPING 
ALLOV 2 VEEKS FOR PERSONAL DEQUES 
•^'26 PLEASE ADO *L 50 FDR LQ. a 



if See List of Advertisers on Page 455 
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GENERAL 



(sw*) 



LOAD 80 



Keep track of your books. 



Homebrew 



JLuXk^X 



Larry R. Hamilton 
306 Torrent Court 
Rochester, Ml 48063 



As a member of several book 
ciubs for many years, I have 
accumulated a large collection 
of professional books. Most 
books from my college studies 
are also part of my library. The 
value of ttiese books along with 
the difficulty of their replace- 
ment prompted me to write a 
program to keep track of them. 
Program Listing 1 is written for 
myTRS'80 Level II 16K cassette 
system attached to an Epson 
MX-80 printer. 

The program stores the value 
of my books and enough data to 
assist me in replacing them if 
necessary. This program pro- 
vides for data storage on cas- 
sette tape and a printed listing of 
my book inventory which I store 
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in a safe deposit box for in- 
surance purposes. 

Program Routines 

The file consists of nine data 



fields necessary to assist in re- 
placing any given book, A de- 
scription of each field, the pro- 
gram variable used to store that 
field, and a suggested maximum 



Variable Name 


Use 


AS{x) 


Book Author 


D{x} 


Date of Book Purchase 


H1S 


Heading for Listing 


H2S 


Heading for Listing 


lS(x) 


international Standard Boot; Number 


J 


index Used in Loops 


K 


index Used in Loops 


K$ 


Book Number input Variabie 


L 


Line Number Counter for Listing 


L$(x) 


Library of Congress Catalog Number 


MS 


Search Aigunnent 


N 


Loop Control — Maximum Books in Memory 


mix) 


Bootc Number 


p 


Page Number tor Listing 


PI 


Switcii for Additionai Flies During Listing 


PS(x) 


Book Publisher and Date 


Q 


Menu Input 


s 


Totai Book Value Counter 


ss 


Totai Book Value — For Listing 


S$(x) 


Book Subject 


TT 


Book Counter — For Listing 


T 


Book Counter 


TS(x) 


Book Title 


V(x) 


Book Value 


xs 


Search Argument 


z$ 


Menu Controi 




Table 1 



length of each field is shown in 
Tablet, 

The program does not edit 
each field for the suggested max- 
imum length. The more char- 
acters you use, however, the 
faster you will use up your free 
string space. 

Line 40 clears 7000 bytes of 
memory string space, enough for 
at least fifty books {the Ifmit set 
by the dimension statement in 
line 50). You can store 100 or 150 
books in 32K and 48K systems. 
Be sure to change the vaiue of N 
in line 70. 

Table 2 lists all variables. If you 
do not want the ISBN or Library 
of Congress Catalog Number in 
your file you can build more than 
fifty records at one time in mem- 
ory. Experiment to determine 



The Key Box 

Basic Level II 
Model I 
16K RAM 
Printer required 



how many fit in your machine. 

A functional diagram of the 
program routines is shown in Fig. 
1, The numbers above each box 
are entered from the main menu 
to direct the program. The num- 
bers below each box are the line 
numbers used in each routine. 

Lines 1240-1350 display data 
on the screen. This subroutine is 
used in most of the functions. 
Line 1350 re-directs all functions 



back to the main menu. 

The key to the Book Inventory 
file is the Book Number field, 
used while adding or changing 
records. Code the Book Number 
value as you like. You could use a 
sequential number, an alpha- 
numeric code to distinguish 
hardback books from paper- 
backs, a coding system to iden- 
tify location by room, shelf and 
position, or a combination of alt 





Program 


Suggested 


Field Name 


Variable Name 


Maximum Length 


1 Book Number 


N$ 


5 


2. Tille 


T$ 


40 


3 Aulhor 


A$ 


20 


4. Subject 


ss 


30 


5. Publisher & Date 


PS 


30 


6. Intl. Standard Book No, 


($ 


13 


7. Library Congress Cat. No. 


LS 


7 


8. Date Purchased (MMDDYY) 


D 


6 


9. Booh Value (Approx.) 


V 


5 


Total Maximum Length 


156 


Table 2 





these examples. Since the num- 
ber is a string variable, it does not 
have to be numeric. Because I 
am not interested in locations or 
special codes to indicate the 
type of book, I number my books 
sequentially. The file building 
routine in lines 210-390 allows 
you to add records after a file is 
read into memory from tape. Line 
190 searches the file in memory 
and sets the index equal to the 
next available position less than 
50. The search is based on the 
first Book Value (V$) equal to zero 
and is the first available index 
used. Each book must have 
some value or the program 
assumes no book record for that 
particular index. 

Search the book records in 
memory by Book Number (lines 
400-470), by Book Title (lines 
480-560), and by Book Subject 
(lines 570-650). 

When searching by Book 
Number, the number must match 



one in memory exactly or a 
prompt will return you to the 
main menu. 

The other two search routines 
do not require the entire title or 
subject. Each routine compares 
the title or subject in memory to 
the leftmost characters entered. 
After the first record to meet the 
criteria is displayed, the program 
prompts for another search argu- 
ment. If you press Enter the pro- 
gram uses the previous argu- 
ment to search through the re- 
mainder of the file for another 
match. You can page through the 
entire file in memory by repeated- 
ly pressing Enter and having all 
books meeting the search cri- 
teria displayed. For example, 
enter DATA once as a subject 
search argument and the pro- 
gram displays all books having 
the four characters DATA in their 
subject data field as you 
repeatedly press Enter. 

Lines 660-780 provide an input 



Program Listing 1 



9~~1S REM ' BOOK INVEHTORY PROGRAM - REVISIOK EFF. DATE 7/16/81 
20 REM ' WRITTEN BY - L, R. HAMILTON 306 TORRENT COURT • 

30 HEM * ROCHESTER/MI 48063 * 

40 CLEAR 7000 

60 DIM NS{50) ,13(50) ,AS(50) ,S5(50) ,P5|50) ,15(50) ,LS(50) ,D{5fl) ,V( 
50) 
.50 Bi?-"BOOK INVENTORY LISTING ";H2?-" PAGE NgMBEH " 



70 TT=0:SS=fl:L=0:P=0:N=5e 
80 CLS: PRINTTAB(101 ;" ' 



BOOK INVENTORY PROGRAM 



90 PRIHTTAB(20) ( "• * MENU * *": PRINT 

100 PRINT "TO BUILD FILE IN MEMORY TYPE 1" 

110 PRINT -TO SEARCH FOR BOOK NUMBER TYPE 2" 

120 PRINT "TO SEARCH FOR TITLE TYPE 3" 

130 PRINT "TO SEARCH FOR SUBJECT TYPE 4" 

14B PRINT "TO READ FILE INTO MEMORY TYPE 5" 

150 PRINT "TO VALUE BOOK INVENTORY TYPE 6" 

160 PRINT "TO WRITE FILE TO TAPE TYPE 7" 

170 PRINT *T0 CHANGE A RECORD IN MEMORY TYPE 8" 

180 PRINT "TO LIST FILE ON PRINTER TYPE 9" 

190 INPUT Q: IF (Q < 1) OR (Q > 9) THEN GOTO 80 

200 ON Q GOTO 210,400,480,570,660,790,890,990,1360: END 

210 FOR K=l TO N: IF V{K) <> NEXT K ELSE GOTO 220 

220 FOR J=K TO N 

230 CLS: PRINT "TO END FILE BUILD, ENTER ( END)" 

240 PRINT "LAST NUMBER WAS "j NS ( J-l] , " INDEX" ; J 

250 INPUT "ENTER BOOK NUMBER "t KS; IF KS="END" THEN GOTO 

260 NS(J)=KS 

270 INPUT "ENTER TITLE OF BOOK [NO COMMAS ) "; T5(J! 

280 INPUT "ENTER AUTHOR (NO COMMAS) "; ft5(J) 

"ENTER SUBJECT "f SS{J) 



"ENTER PUBLISHER i DATE "j 

"ENTER ISBN NUMBER ' ; 

"ENTER LC CATLG NUMBER "; 

"ENTER DATE ACQUIRED (MMDDYY) ' ; 

"ENTER APPROX VALUE/COST "j 

"CORRECT? Y/N"; US: IF ZS="N" GOTO 230 

'jNSIJlf' > HILL BE BUILT ";: 



P5[J) 
IS[J) 
LS(J) 
D[J) 



FOR I-1TO200: 



290 INPUT 

300 INPUT 

310 INPUT 

320 INPUT 

330 INPUT 

340 INPUT 

350 INPUT 

360 PRINT "RECORD 

NEXT I 

370 NEXT J 

380 NS(J]="END" 

390 PRINT, ■<FILE BUILD ENDED. .,.>•: GOTO 1350 

400 CLS 

4ia INPUT "ENTER BOOK NUMBER SEARCH ARGUMENT (END TO STOP)"j 

420 IF MS= "END" GOTO 1350 

430 FOR J=l TO N 

440 IF N5(J) = "END" PRINT "<END OF FILE...>': GOTO 1350 

450 IF MS <> KS(J) NEXT J 

460 GOSUB 1240 

470 GOTO 410 

480 K=l! CLS 

490 INPUT "ENTBB TITLE SEARCH ARGUMENT (END TO STOP)'; MS 

500 IF MS="END" GOTO 1350 

510 FOR J= K TO N 

520 XS-LEFTS(TS(J) ,LEN{MS) ) 

530 IF N5(J) - "END" PRINT " <END OF FILE...>": GOTO 1350 

540 IF MS <> XS NEXT J ELSE GOSUB 1240 

550 K=J+1: IF K>N K=N 

560 GOTO 490 

570 K-1: CLS 

580 INPUT -ENTER SUBJECT SEARCH ARGUMENT (END TO STOP)"; MS 

590 IF HS="END" GOTO 1350 



MS 



600 FOR J- K TO S 

610 X5-LEFTS(85(J) ,LEN(H5) ) 

620 IF N5(J) = "END" PRINT ■<END OF FILE...>"i GOTO 1350 

630 IF MSOXS NEXT J ELSE GOSUB 124B 

640 K-J+li IF K>N R-N 

650 GOTO 580 

660 CLSlRBH * READ FILE INTO HEKOBY * 

670 INPUT 'PRESS ENTER WHEN INPUT TAPE IS READY. "iKS 

680 FOR J-l TO N 

690 INPUT l-l,NS(J).TS(J),AS(J) ,S5(J) ,PS[J),IS(J) ,LS(J) ,D(J) ,V(J 

) 

700 IF J-N THEN NS(J)""END" 

710 GOSUB 1240 

720 IF V(J) " GOTO 750 

730 IF SS(J)- "END" THEN GOTO 750 

740 NEXT J 

750 PRINTe896,"FREE STRING SPACE = "FREtZSJI 

760 PRINT "FILE IS LOADED IN MEMORY...." 

770 IF Pl-1 PRINT" PRINTING CONTINUES. .." i GOTO 1400 

780 GOTO 13Se 

790 CLSi T"0i S-e 

800 FOR J - 1 TO N 

810 IF V(J)-0 GOTO 850 

820 IF NSCJ) - "END" GOTO 86B 

830 T-T+li S"S+V(J) 

840 GOSUB 1240 

850 NEXT J 

860 PRINT "TOTAL BOOKS ON FILE - "l Ti PRINT 

870 PRINT "TOTAL VALUE OF BOOKS - S"l Si PRINT 

880 GOTO 1350 

890 REM • RECORD DATA ON CASSETTE * 

900 CLSi INPUT"PRBPARE CASSETTE FOR RECORDING. WHEN READY, PRES 

S ENTER. "jZS 

910 FOR J" 1 TO N 

920 IF V(J)- THEN NS(J)"'END' 

938 CLSi PRINT "COPYING..., BOOK NUMBER ";NS(J); 

94B PRINT *-l,N5(J),TS{J),AS(J) ,SS(J) ,PS(J) ,IS(J) ,LS[J) ,D(J),V(J 

) 

950 GOSUB 12401 PRINT "RECORD COPIED...") 

960 FOR I » 1 TO 2501 NEXT I 

970 IF NS(J)-"END" PRINT "FILE COPIED TO TAPE"l GOTO 1350 

980 NEXT J 

9 90 CLSi REM • CHANGE RECORD IN HEBORY * 

10Bfl INPUT "ENTER BOOK NUMBER TO BE CHANGED. (END TO STOP) "iKS 

1010 IF KS-"END" GOTO 1350 

1020 FOR J-l TO Ni IF NS(J)»KS GOTO 1B50 

1030 IF NS(J)-"END"tPRINT"<BOOK NUMBER NOT FOUND. END OF FILE..> 

■iGOTO IBBB 

104B NEXT J 

1050 GOSUB 1240 

1860 PRIHTe650, "TO CHANGE i BOOK NUMBEB.ENTER B" 

1070 PRINT "TITLE ENTER T", "AUTHOR ENTER A" 

1080 PRINT "SUBJECT. ..ENTER S", "PUBLISHER. , .ENTER P" 

1090 PRINT "ISBN ENTER I","LC CATLG. .. .ENTER L" 

1100 PRINT "DATE ENTER D", "VALUE ENTER V"| 

1110 INPUT ZS 

iJ.2» IF ZS-"B" INPUT"ENTER NEW BOOK NUMBER "iNS{J) 
1130 IF ZS-"T' INPOT"ENTER HEW TITLE "iTS(J) 
114B IF ZS-"A" INPUT'ENTER NEW AUTHOR" J AS (J) 
1150 IF ZS-"S" INPUT"ENTEH NEW SUBJECT" j SS (J) 
1161 IF ZS-"P" INPUT"ENTER NEW PUBLISHER" jPStJ) 
1170 IF ZS-"I" INPUT-ENTER NEW ISBN"|IS(J) 

Listing continues 
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Lifting continued 




1180 


IF ZS="I.' INPUT"ENTER NEW LC CATLG NO."|LS(J) 




1190 


IF ZS=*D" INPUT"ENTEfi NEW DATE";D(J) 




1200 


IP ZS = "V" INPUI"BNTER SEW VAH}E"jV(J) 




1210 


GOSUB 1240 




1220 


INPUT "CORRECT? Y/N";ES: IF Z$="K" THEN GOTO 105eELSE 


GOTO 


123 






1230 


IKPUT "MORE CHANGES? Y/N";ZS: IF Z5="V" THEN GOTO 1050ELSE | 


GOTO 


1000 




1240 


CLE: 




1250 


PRINT "BOOK NUMBER 


NS(J) 




1260 


PRINT "TITLE 


TS(J) 




1270 


PRINT 'AUTHOR 


AS(J) 




1280 


PRINT "SUBJECT 


SSIJ) 




1290 


PRINT "PUBLISHER 


PSU) 




1300 


PRINT "ISBN NDHBEE 


ISU) 




1310 


PRINT "LC CATLG NUMBER " 


LS[J) 




1320 


PRINT "DATE ACQUIRED " 


D(J) 




1330 


PRINT 'APPROX. VALUE "jVU) 




1340 


PRINT: PRINT: RETURN 




1350 


INPUT "TO SEE MAIN MENU, PFESS ENTER.."; ZS: GOTO 80 




1360 


HEM * PRINT LISTING • 




1370 


INPUT " IS PRINTER READY? Y/N";ZS:IF ZS="N' GOTO 1350 




13 80 


LPRINT CHRS[143) ;CHRS[141) 




1390 


GOSUB 153 




1400 


FOR J=1T0 N 




1410 


IF N5(J}="END"; GOSUB 1600: LPRI NT "TOTAL BOOKS - " | TT 


TAB (2 


S) "TOTAL VALUE = " ;SS; TAB ( 50) "AVERAGE VALUE = " j SS/TT 




1420 


IF NS(J)="END": LPRINT: LPRINT'END OF REPORT " iGOTO 


L350 


1430 


LPRINT "BOOK NO. -;NSIJ) ;TAB(60) 'TITLE: ";TS(J] 




1440 


LPRINT "AUTHOR: ",-flS(J) ;TA6(601 "SUBJECT: ";SS[J] 




1450 


LPRINT "PUBLISHER: ";PS[ J) ; TAB (60) 'ISBN: ";IS( J) 




1460 


LPRINT "LC CATLG: " ;LS ( J) ;TAB(30) "DATE PURCH : ";D(J] 


TAB 16 


0)"fiPPfiOX, VALUE: "jVlJ) 




1470 


LPRINT 




14 80 


L=L+5 




14 90 


TT=TT+1; SS=SS+V| J) 




1500 


IF L>55 GOSUB 1530 




1610 


NEXT J 




1520 


GOTO 1350 




1530 


REM • HEADING SUBROUTINE * 




1540 


L=0:P=P+1 




1550 


IF P>1:LPRINT CHRS(140) 




1560 


LPRINT TAB{40) ;HlSfH2S;P 




1570 


LPRINT 




1580 


L=L+3 




1590 


RETURN 




1600 


REM ' ADDITIONAL FILE ROUTINE • 




1610 


INPUT"DO YOU HAVE ANOTHER TAPE OF DATA TO PRINT? Y/N" 


•z? 


1G2B 


IF aS="Y' Pl=l: GOTO 660 




163S 


RETURN 





routine to read a file into memory 
from cassette tape. If this routine 
finds a Bool< Value equal to zero 
or a Book Number equal to End 
the routine ends. After the file is 
loaded into memory, the program 
displays the amount of free 
string space. As each record 
reads into memory it is displayed 
on the screen (line 710). 

The routine to record the Book 
Inventory on cassette tape is 
found in lines 890-980. This rou- 
tine displays each book record 
on tfie screen as it Is written to 
tape. When a Book Number 
equals End the routine ends. 

A simple routine to total the 
value of all books in memory is in 
lines 790-880. The total value is 
also computed when the file is 
printed. 

To change any data for a book 
in memory, selection eight of the 
main menu sends the program to 
line 990. If you enter a valid Book 
Number you w\\\ be prompted to 
enter a code for the field to be 
changed. After the changed data 
field value is displayed you w\\\ 
be asked if it is correct. If so, you 



can enter another Book Number 
to be changed or return to the 
main menu. 

The printing routine in lines 
1360-1630 uses some control 
characters unique to my Epson 
MX-80 printer. Change these 
codes in lines 1380 and1550 for 
use vi/ith your printer. CHR$(143) 
condenses the printing to 132 
characters per line. CHR$(141) is 
the line feed and CHR$(1 40) is the 
top-of-form code. 

The program prints 55 lines per 
page, allowing eleven books on 
each page. Lines 1600-1630 al- 
low additional data tapes to be 
read into memory while the list- 
ing is printed, necessary since 
only 50 books fit in memory at 
one time. This feature uses the 
input routine in lines 660-780 and 
branches back to line 1400 in the 
printing routine. ■ 

Mr. Hamilton is a Systems 
Manager for an automative sup- 
ply company in Michigan. He 
is certified by ttie Institute for 
the Certification of Computer 
Professionals. 
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TIRED 




TOLL FREE 
ORDERS ONLY 



EXCEPT WA. HI. AK 



Flexplus 

Compatible 

Software 

Sleuth Disassembler - A program which 
allows user (o examine, modify and dis- 
assemble object program files on disk or in 
memory on 6809 systems. Will convert an 
obje« file in RAM lo a lexl file on disk 

Tabularasa (Eleoronic spread sheet) ■ These 
programs enable the user to generate and 
maintain tabular computation schemes, pro 
viding a simple user interface and sophisti 
cated report ■ generation 

Cross Assembler ■ A set of modules for 
6800/i. 6805, 6S02. 9080'5. and Z-BO 
micnD processors which will enable the user 
to convert a master assembly module to 
assemble code for any of the above micros. 

PASCAL 



TRS-80 



FLEXPLUS DOS 



FLEXPLUS IS a powerful easy-to use disk operatng sy^terri Spectral Associates has adapted 
TSCs FLEX to the best DOS completely compaLWe wit.'i Radio Shack software (of use on (he 
Color Computer Eliminate the need for Radio Shack s TRS DOS use FLEXPLUS with 
Editor Assembler and have the options of a full range ot utilities FLEXPLUS works on the 32K 
Radio Shack disk svslem with 64K memofv chips with a High Resolution mulii screen format that 
supports a 24 line by SI character display! Also included are special enhancements to Radro 
Shacks Disk system when you are running FLEX wilh Single or double sided, single or double 
density 35 40 and 80 track dnves 

Advantages of FLEXPLUS are: 

• Best price anywhere 

• Easy start-up — just type "RUN FLEX+" 

• Allows you to save RS compatible disk files from FLEXPLUS 

• All FLEX compatible software will run including INTERRUPT 
DRIVEN SOFTWARE 

• NO HARDWARE MODIRCATIONS NEEDED 

• Warranty will not be voided — no need to open computer 

• Wide range of available software 

• Requires Supercharger board 

• Si 49.95 for FLEXPLUS. Editor/ Assembler and Supercharger 



145 Harvard Ave. 

Tacoma, Washington 98466 

(206) 565-8483 

WRITE FOR COMPLETE 

CATALOG 
ADD 3% FOR SHIPPING MO COD 

VISA OR MASTERCHARGE ACCEPTED 



AVAILABLE ON DISK: 

• Editor Assembler 

• Super Monitor 

• Color Text Star Word 
Processor 

• Sound Source 

• Compuvoice 



Call or write us for price information 
and for a complete list of Flexplus 
Compatible Software 



SUPERCHARGER - Allow machine language access 
lo all 64K RAM in a Series E PC board, 
ho hardware mods, S39.95 

DISK BASED EDITOR/ASSEMBLER - MACROS, 
COMDITIOMAL ASSEMBLY - will work with Super- 
charger. S49.95 



FANTASTIC BARGAIN 

FLEXPLUS, Editor/Assembler and Supercharger 

ALL FOR ONLY $149.95 
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SPECTACULAR GAMES 



For TRS 80 

COLOR COMPUTER 




If not available at your local daaler ask why not and 

Call Toll Free 800-426-1830 



RAINBOW 



Excapt WA,,AK.. HI.. (8:00-4:00 Mon.-Frl.) ""T.'"^"" u/a 



y- See UsI ot Advertisers on Page 455 
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TECHNIQUE 



These five programs give high-precision answers. 



Find a Number's Roots 



David R. Cecil 
Texas A & I University 
Department of Mathematics 
Campus Box 172 
Kingsville, TX 78363 



I wrote these five Basic pro- 
grams for the TRS-80 but they 
apply to any Basic machine. 
Three of these programs find 
any roots, and two extract 
square roots. 

Most Basic exponentiation (t) 
and square root (SQR) functions 
only give about six places of ac- 
curacy. The methods in this 
article give higher precision an- 
swers, some accurate to 15 
decimal places after only a few 
iterations. 

These methods include a 
3500 year old technique, con- 



The Key Box 

Basic Level II 
Model I 
16K RAM 



tinued fractions, binomial ex- 
pansions, repeated halving, and 
recursion based on an algebraic 
identity. 

Compare the accuracy, num- 
ber of iterations used, and com- 
putation time of the methods to 
see which w/orks best for your 
range of values. 

The Newton- R a phson Method 

An averaging method for 
square roots appeared in an- 
cient Mesopotamia before 1500 
B.C. Those folks successively 
approximated \AA by the se- 
quence x-i, X2, ... where Xj + i - 
V2{X| + A/xJ and x, was a first 
guess at v^A. This is a special 
case of the Newton-Raphson 
method which uses the general 
formula Xj + i = Xj - f(X|)/f'(X|). In 
this formula if x = \AA is the 
desired square root, let f(x} = x^ 
- A; then f'(x) = 2x. The 
Nev*/ton-Raphson formula re- 
duces to the ancient Meso- 
potamian formula. 

Program Listing 1 uses the 
Newton-Raphson formula vi/ith 
f(x) = x^ - A to find the Mth 
root of A. Line 80 requests the 
first guess Xi; the recursion for- 
mula appears in line 120. The 
loop in lines 100 through 140 
generates X2, X3, ..., x^. The 
value x-,1 is a good approxima- 
tion to "^v^A unless an excep- 
tionally poor choice is made for 
Xi. Experiment with this by 
holding A and M fixed and run- 
ning the program twice using 
different starting values for the 



first guess X-,, INPUT of line 90. 
To determine how weW x^^ ap- 
proximates "VA add the follow- 
ing two lines to the program: 

500 PRINT: Y = 1; FOR J = 1 TO M; Y 
= Y'X: NEXT J 
510 PRINT Y 

A Binomial Expansion 

In contrast, the user does not 
enter a first guess or initial value 
in the Binomial procedure. 

The series 

1 -l-(1/M)(x/1l)-(-(1/Mj(l/W-l)(x'/2!) 
-(-(1|M)(l(M-l)(1/M-2(xV3!)-f .. . 

obtained by expanding (1 + 
x)'"^ using the binomial expan- 
sion, is convergent for x be- 
tween - 1 and 1 inclusive. 

Program Listing 2 uses this 
expansion to determine "^v^A. 
The loop in lines 80 and 90 finds 
the smallest integer L such that 
L"^ is greater than A. The pro- 
gram lets x - (A/l") - 1. Then A 
= l'^(1 -f x) or, more suitable to 
our purpose, Va = L(1 + x)^'". 
Because the x value is between 
- 1 and 0, our expansion for (1 
+ x)^'" is valid and converges. 

Lines 110 through 160 carry 
out the series expansion. S 
denotes the sum of the first I 
terms and appears In line 130. 
The Ith term is in line 150, where 
it is called T. Fifty iterations are 
used since this convergence is 
usually slow. 

Binary Chopping 

Repeated halving begins with 



an interval knovt/n to contain 
Va. This interval (0 to A if A > 1 
otherw/ise to 1) is halved and 
one-half discarded. The remain- 
ing half-interval is halved, one- 
half discarded, and so on until 
further halving is insignificant. 
This proceeds quite rapidly for 
< A < 1, but much halving is 
done if A > 1. 

If the Mth power of the inter- 
val's midpoint is less than A 
discard the left (smaller) half- 
interval; the midpoint is too 
small to be ^v^A. For Mth power 
greater than A discard the right 
(larger) half-interval. 

Line 70 of Program Listing 3 
determines the initial interval 
containing '^v^A. Line 100 ac- 
complishes the halving and the 
logic of line 120 discards half-in- 
tervals. Line 90 uses 60 itera- 
tions; use only 10 or 15 itera- 
tions for small values of A. If 
many values do not change you 
used unnecessary iterations. 

Recursion Based 

on an Algebraic Identity 

This method and the con- 
tinued fraction method that fol- 
lows determine square roots 
with the same algebraic identi- 
ty. If T is any real number and if 
x^ = A then x' - P = A - P. 
Factoring, we have (x - T)(x -i- 
T) = A - P, and X = T -f (A - 
T')/(x + T). This is our desired 
identity. 

For recursive use with x,, x^, ... 
approximating -/A replace the 
identity with x^^j = T + (A - 
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P)/(X| + T), with Xi being T. If you 
choose T such that P is close to 
A, you obtain good approx- 
imations for v"A rapidly. 

Program Listing 4 imple- 
ments the recursive relationship 
with the algebraic identity in line 
90. The twenty-five iterations in 
lines 70 through 100 are usually 
more than enough to approx- 
imate \/~A very accurately if your 
choice for T is good. For exam- 
ple, If A = 0.0012345only fifteen 
iterations are needed If T is 
chosen to be .03. If T = .1 fifty- 
T = 1, 57 iterations are required. 
The 25 value in line 70 must 
change to 75 to allow this. 

Continued Fractions 

This technique repeatedly 
uses the identity x = T + (A-P)/ 



(T + x). Replace the X on the right 
side of this identity by the entire 
right side. Thus, x - T + (A - P)/ 
(T + T + (A - P)/(T + X)). Continue 
to replace the right hand x value 
by T + {A - T')/(T + x). The result- 
ing expression, after an infinite 
number of replacements for x, is 
called a continued fraction. 

In general, if x = b^ + a,llb,+ 
aj/(b;-i- a3/(b3-f . . .) is a con- 
tinued fraction, then x is approx- 
imated by Aj/Bj-(bjAj_,+ 
ajAj_j)/(bjBi_J for i^1,2,. . . 
with A_,=^1,As^bf„B_, = 0, 
and Bo=1. If 

lim Aj/Bj 

exists (as it does with our par- 
ticular continued fraction), the 
infinite continued fraction con- 
verges to X. 



s 


•** NEVfTON-RAPHSON METHOD FOR FIKDING 


ROOTS 






le 


CLS 








20 


DEFDBL A,X,y 








30 


DEFIWT 1,J,M 








4e 


INPUT "WHAT ROOT DO YOU WANT, 










ENTER 2 ?0R SQUARE ROOT ,3 i'OK CUBE 


^OOT , 


;tc. 


";M 


50 


PRINT "ENTER THE NUMBER YOU WANT THE " 


IMT-TH ROOT OF "; 1 


6d 


INPUT A 








70 


'YOU CAN ENTER 1 FOR THE INPUT IN LINE 
OTHER CHOICES WIGHT BE BETTER THOUGH 


90 IF 


YOlJ 


WISH, 


80 


PRINT "ENTER A NUMBER WITH POWER ";M;" 


CLOSE 


TO 


";A: 


90 


INPUT X 








lei 


FOR 1=1 TO 10 








111 


Y"1:F0H J=l TO M-1 !Y"Y*X!NEXT J 








121 


X={(M-1)*X+V^)/M 








131 


PRINT X; 








14B 


NEXT 1 

Program Listing 1 









'*•* A DIUOMIAL EXPANSION METHOD TO FIND H-TH ROOTS ** 

IB CLS 

20 DEFDBL A,S,T,X 

30 DBFINT I,J,L,H 

40 INPUT "ENTER 2 FOR SQUARE ROOT, 3 FOR CUBE ROOT, ETC. ' 

50 PRINT'ENTER THE NUMBER YOU WANT THE ";M;"-TH ROOT OF 

60 INPUT A 

70 L=l 

80 L1=1:P0R J-1 TO M!L1=L1*L:NEXT J 

90 IF A>=L1 THEN L=L+1:G0T0 80 

100 X=A/L1-1 

110 I=l!T=X/M:S=l 

120 FOR K=l TO 50 

130 S^S+T 

140 PRINT L*S; 

150 I=I+1:T=T*X*(1/H-(I-1))/I 

160 NEXT K 



Program Listing 2 



• '" REPEATED HALVING OR BINARY CHOPPING FOR ROOTS *•* 

1« CLS 

20 DEFDBL A,D,X,Y 

30 DEPINT J,M 

40 INPUT"ENTER 2 FOR SQUARE ROOT, 3 FOR CUBE ROOT, ETC. ";M 

50 PEINT "ENTJiK THE NUMBER YOU WANT THE ";H;"-TH ROOT OF"; 

60 INPUT A 

70 IF AM THEN D=A ELSE D = l 

80 X=D 

90 FOR K"l TO 60 

100 X=X/2 

110 Y=l!FOR J=l TO M!Y=Y*D!NEXT J 

120 IF ¥<A THEN D-'D+X ELSE D-D-X 

130 PRINTD; iNEXT K 



rm 



Program Listing 3 






COLORQUEST™ presents 

the ADVENTURE TRILOGY 

machine code, high-res Adventure Game 
- tor ihe TRS-BOC''''*^ Color Computer 
This TRiLOGV OF 3-D FANTASY GAMES takes you to the WORLD 
CIMEEON MOON. Engage in ritual combat with Tooamoath Narthokc I 
skilled warriors. Advance in rank with play experience. Then adventure through 
DAZMAR'S UNDERWORLD OF DOOM to the forbidden ruins of Castle Argaan. 
Search for the Eye of Dazmar while avoiding the sorcerer's intricate traps. Survivors 
must then negotiate the perilous peaks of the Ugrek Mountains to the FORSAKEN 
GULCH where the wicked idol awaits restoration, i 

16K Tape $24.95 (Ext. Basic not reqd.) 32K Disk $29.95 




^5^ _ by Kevin Herrboldt 
-■3^^ 3'id Tim Nelson 




The TRILOGY CONTEST 

he TRILOGY and win the new COLORQj^t'ai 

BEYOND THE CIMEEON MOON 

The GRAND PRIZE, a Super "Color" Writer & Super "Color" Terminal 

ROMPAK or DISK program-set valued at up to $1 70.00. will be drawn from 
the winning entries. Consult the September issue of COLOR COMPUTER 
NEWS published by REMarkable Software at 1781 5th Street; Ivluskegon, 
Ml. 49441; (616)728-9100 for contest details, or see RULES with the game. 
When ordering include $2.00 tor shipping. Extra S2.00 for CO.D.v;..; 

DEALER INQUIRIES INVITED t 




P.O. Box 19096 - Minneapolis, MN 55419 - 612/827-4703 .^^ 
TRS-80C IS a registered trademark of Tandy Corp. 



^ See List of Advertisers on Page 455 
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WARE CONCEPTS 



f i u 



Now is the time to turn your TRS-80 and 

your text editor into a REAL word processing 

machine. 

EXCELLENT... Creative Computing Review. 

State of the Art... 80 Microcomputing 

Review. 

• Maintain your mail list 

• Print personalized FORM letters. 

• Free format labels 

• 100% machine language 

• Enter names at typist speeds 

• Use with Scripsit, Lazywriter, Electric Pencil 

(we sell them all!) 

• Extract selected names 

• Boldface & underscore 

• Get your form letters past the secretary's desk! 

XTRA Special Delivery Includes 
all of the above PLUS: 

• Disk Sorts 

• Multi Label printer 

• Key definitions 

This is the LAST mailing list you 
will ever have to buy!! 

FOR YOUR MODEL I OR III: 

(requires minimum 32K & single drive) 
SPECIAL DELIVERY ... . $125 

XTRA SPRCIAL DELIVERY """"!" $199 

FOR YOUR MODEL II 

(requires Scripsit 2.0) 
SPECIAL DELIVERY $199 

Over 2800 satisfied customers 

(plus 12 that won't speak to us any more) 

Electric Pencil 2.0 $80.00 

Lazywriter $165.00 

Scripsit $95.00 

(Most TRS software available at similar discounts. CALL!) 

SOFTWARE CONCEPTS 

105 Preston Valley Shopping Center 
Dallas, Texas 75230 

Our retail store is located at the SW corner of 
Preston & LBJ 

(214) 458-0330 

MasterCard, Visa, American Express, COD 



mmtammiimiimmmm 



mk 



Program Listing 5 evaluates the previous five programs. Lines 
the A, terms in line 80 and the B. 31 through 34 print a menu with 



terms in line 90. Two prior 
values, initialized in line 60 and 
updated in line 110, determine 
each of the values A, and B|. 
Program Listing 6 combines 



the five methods for choices. ■ 

David R. Cecil is chairman of 
the Department of Mathematics 
at Texas A & I. 






*»* USING AN 


ALGEBRAIC IDENTITY TO 


FIND SQUARE 


ROOTS 


*.. 


10 


CLS 














20 


DEFDBL A,T,X 














30 


INPUT "ENTER 


THE NUMBER WHOSE SQUARE 


tOOT you WANT " 


A 


4B 


PRINT "ENTER 


A NUMBER WHOSE 


SQUARE 


Ifa 


CLOSE TO 


'jA; 




50 


INPUT T 














6e 


Xt^T 














70 


FOR Kcl TO 25 












80 


PRIOT' X; 














90 


X=T+(A-'r*T)/{X+T) 












100 NEXT K 
















' 


Program 


Listing 


4 












"• CONTINUED FRACTION METHOD FOR SQUARE 


ROOTS 




10 


CLS 










20 


DEFDBL A,B,T 










30 


INPUT "ENTER THE HUHBER WHOSE SQUARE 


R001 


YOU WANT ";A j 


40 


PRINT "ENTER A 


NUMBER WHOSE SQUARE TR 


CT/)SE TO 


"; A; 


5 


INPUT T 










60 


Al^TtA2=i!Bl=l 


B2 = 








70 


FOR K=l TO 25 










80 


A0=2*T*A1+ (A-T'T) «A2 








90 


B0=2*T*B1+(A"T*T) *B2 








100 PRINT A0/B0 










110 A2=A1:A1=A0 


B2=B1:B1=B0 








12C 


NEXT K 


Program Listing 5 









'*'■' A COMBINED PROGRAM FOR ROOTS *'* 

10 CLE 

20 DEFDBL A,BrD,E,T,X,y 

30 DEF'INT I,J,1,,K 

31 PRINT"SELECT THE METHOD YOU WANT TO USE TO FIND THE ROOT" 

32 PRINT"1. NEWTON-RAPHSOH " , "2 .BINOMIAr. SERIES " ' 

33 PBINT"3. INTERVAL-HALVING "," 4 .ALGEBRAIC IDENTITY " 

34 PRINT, "5. CONTINUED FRACTION " 

35 INPUT Ki:IF Kl>3 THEN 320 
40 INPUT "WHAT ROOT DO YOU KANT, 

ENTER 2 FOR SQUARE ROOT ,3 FOR CUBE ROOT ,ETC. ";H 
50 PRINT "ENTER THE NUMBER YOU WANT THE ";Mj"-TH ROOT OF " ; 
60 INPUT A 
70 ON Kl GOTO 80,150,250 

B0 PRINT "ENTER A NUMBER WITH POWER ";M;" CT.OSE TO ";A; 
90 INPUT X 
100 FOR 1=1 TO 10 

110 Y=1:F0R J=l TO M-1 j Y=Y*X!KEXT J 
120 X=({H-l)*X-i-A/Y)/H 
130 PRINT X; 
140 NEXT I:END 
150 L=l 

160 L1=1:F0R J=l TO M:L1=L1*L:NEXT J 
170 IF A>=L1 THEN L=L+1:GOTO 160 
180 X=A/I,1-1 
190 I=1:T=X/M!S=1 
200 FOR K=l TO 50 
210 S=S+T 
220 PRINT L*S; 

230 I=I+l!T=T*K*(l/M-{l-l))/I 
240 NEXT K:END 

250 IF A>1 THEN D=A ELSE D=l 
260 X=D 

270 FOR K=l TO 60 
280 X=X/2 

290 Y=1;F0R J=l TO M:Y=Y*DrNEXT J 
300 IF Y<A THEN D=D+X ELSE D=D-X 
310 PRINTD;:NEXT K:END 

320 INPUT "ENTER THE NUMBER WHOSS SQUARE SOOT YOU WANT ",-A 
330 PRINT "ENTER A NUMBER WHOSE SQUARE IS CLOSE TO ",-A; 
340 INPUT T 
350 IF Kl=5 THEN 410 
360 X=T 

370 FOR K=l TO 25 
380 PRINT X; 
390 X=T+(A-T*T)/(X+T) 
400 NEXT KlEND 
410 Al-TiA2=ljBl=l:B2=0 
420 FOR K=l TO 25 
430 A0=2*T*A1+(A-T*T) •A2 
440 B0=2*T*Bl+(fl-T*T) *B2 
450 PRINT A8/B0; 
460 A2=Al!Rl=A0:B2=Bl:Bl=B0 
470 NEXT K:END 



Program Listing 6 
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DAISY WHEEL 

New Smith Corona TP-1 

True letter quality printer for less than the cost of an 
office typewriter! Priced $500 less than other popular 
daisy wheel printers! 

SALE PRICE: 
$599.00 




FEATURES: 

if Friction feed 

if 15 cps, 120 wpm 

if Changeable daisy wheels 

if Parallel or serial interface 

if Compatible with R/S. Apple, etc. 

B SUNLOCK SYSTEMS 
™ 4217 Carolina Ave. 

Richmond. Va. 23222 

AVVITJOf^AL PRINTER SPECIALS 

MXSO ^49 OkldcUa h\LSO $349 
'FT $529 HLS2A $449 

UKIOO $699 MLS3A $719 

WE ma MEET OR BEAT ANY AVVERTISEV PRICE 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard, Visa and CODs 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 



IDM2 IS GREAT !" 



-publisher ofSO-US 



(01.) ?,upenor to either the Osborne (SBSCj & laranio) 
or Radii") Shack ... MAIL-X has a greater capacit}'. , . 
more flexible th;jn (R,S.)" 

-columnist of SO-microcoinputing 

imperceptivclv fast ... (DBMS) is a good and reliable 
workhorse" -publisher of Interface Aiie 



Oaia base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



aN» 



Micro Architect, Inc. 

96 Dolhan St., Arlington, MA 02174 






Works with all model 111 Visicaic/ ^cnpsit and aiiowb uiilmmtu udLKups ul luasLci ai=ks. Works 
even if you're already backed up twice. Simple, 17 line program. 

And look at these other outstanding values! 



APPARATS 
NEWDOS/80® , 
$129.95 



2.0 



Convert Modyl I Scripsit and Visicalc to 
Model III, plus. Renumber program lines 
-move program lines - move blocks of pro- 
gram lines - duplicate program lines - selec- 
tive variable clearing - program single step- 
ping - memory sort multi-dimensioned ar- 
rays - swap variables - read and write lo 
model 1 disks - reference keywords - spool 
printing - change disk speeds - disable 
BREAK and CLEAK - Much, much more! 

FREE "Layman's Guide to 
Newdos 80" included with this 

purchase. 



Use VISA - Mastercard - Money Orders - 
Allow 2 weeks for persona! checks. 
Kansas residents add 3.5% sales tax 



HAYES SMARTMODEM®. . 
$249.95 

Tdlk with other compulers over regular 
telephone lines. SMARTMODEM can auto 
dial - auto answer ■ repeat - allow for audio 
monitoring - programmable - is FCC ap- 
proved direct-connect - full or half duplex 
capability. 0-300 baud - RS-232C interface 
- seven status LED's. 

VERBATIM® 
DATALIFE DISKETTES 

5" diskettes come fn a reusable plastic 
storage box. 

CALL TOLL FREE! 
1 - 800 - 835-0071 

IN KANSAS: 
316 -665-3611 



ST80 III®.. $129.95 

Smart terminal communications package. 
Allows file uploading/downloading. 
Emulates many different terminals. Total 
operator control. (Written by Lance 
Micklus ) 

FREE 
Catalog price list 

of all Sales Data Direct-Order merchan- 
dise available upon request. Super prices . 
. . Rapid delivery , , . Quality products. 



Ji. i^ e: et 




526 E. 4th Hutchinson, Kansas 67501 
316/665-3611 
Dealer Inquiries Invited. 

Phone or write Sales Data, Inc. 



■See List of Advertisers on Page 455 
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GENERAL 



SYSTEM loads that crash explained. 




iiigs Still Crawl in the Level II 




Gregg E. Marshall 

P.O. Box 3282 

Walnut Creek, CA 94598 



Recently, while loading a ma- 
chine language tape with 
the System command my TRS-80 
displayed a "C" in the upper 
right corner of the video display, 
and the tape stopped. I tried the 
load again, but still had no luck. 
I usually record any program 
twice, with different file names. 
But when I tried to load the sec- 
ond copy, my TRS-80 couldn't 
find it. Since the Radio Shack 



The Key Box 

Basic Level II 
Model I 
4KRAM 
Cassette 



manuals didn't give any expla- 
nation of these problems, 1 de- 
cided to "PEEK" around in the 
Level II ROMs and find ou! what 
was going on. 

I was interested in what was 
happening at the byte level 
since Radio Shack's Technical 
Reference Manual offers a good 
description of the hardware and 
operation at the bit level. By 
searching the ROMs for calls to 
the read-a-byte subroutine at 
0235H, I found the System com- 
mand processing nearby in loca- 
tions 02A9H to 032AH. By disas- 
sembling and analyzing the 
code, i not only discovered an 
explanation of my loading prob- 
lems, but two potentially seri- 
ous bugs! 

Machine-Code Tape Format 

Figure 1 shows an overview of 
the machine language tape for- 
mat as a sequence of bytes that 
can be divided into four record 
types: the leader and sync byte, 
a file name, the data records, 
and the end of file/starting 
address. 

The leader and sync byte rec- 
ord consists of 255 bytes of 



zeros, followed by a single byte 
containing the value ASH, When 
the tape is started, the TRS-80 
moves an eight-bit wide window 
across the data bits read from 
the tape until it finds the value 
ASH. Normally, the tape is start- 
ed before or during the leader, 
so ii skips the zero bytes until it 
reads the ASH. 

If, however, the tape is started 
in the middle of a file, it is possi- 
ble for some of the data to be 
nnistaken for a sync byte. That 
data might be an AND A,L in- 
struction; or an LD A, (BO) fot- 
fowed by an LD, D, B; or any 
number of combinations of in- 
structions that result in an ASH 
data bit pattern. 

A more secure mechanism for 
synchronizing the tape would be 
to identify the leader by finding 
several bytes of zeros followed 
by the ASH sync byte. This 
mechanism is not foolproof, but 
the probability of a program or 
data matching the desired pat- 
tern is significantly lower. 

Following the leader and sync 
byte record is a file name record. 
This record consists of a file 
name ID byte (55H), followed by 



a six character file name. If the 
file name is shorter than six 
characters. It must be padded, 
usually with spaces. Unlike the 
data records, no checksum is 
recorded. 

Next on the tape are one or 
more data records. The number 
of records depends on the size 
of the program being saved. 
Each data record contains a 
maximum of 256 data bytes. 
Therefore, if the machine lan- 
guage program were 1000 bytes 
long, at least four data records 
are required. However, you can 
use more than four. In fact, the 
records need not even be in 
order since they each contain 
the starting address for storing 
the data. 

A data record consists of an 
ID byte (3CH), a byte containing 
the number of data bytes in the 
record (0 implies 2S6 data 
bytes), two bytes containing the 
starting address of the data 
(least significant byte first), the 
data bytes themselves, and fin- 
ally a single checksum byte. 
Note that a single file can con- 
tain data for several areas of 
memory. 
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INCOME TAX OFFICES: 

MULTIPLY YOUR OUTPUT. 







WITH 




TM 



THE PROFESSIONAL INCOME TAX SYSTEM, 



TAXPRO DOES MORE. 

Five years of successful use 
and system improvement 
has pushed TAXPRO far 
beyond Form 1040 and its 
supplemental schedules. This versatile system 
also totals W-2s, computes FICA overpayment, 
calculates tax alternatives . . . even prepares 
client billing. 

TAXPRO IS INTELLIGENT It analyzes 
the client's tax picture, suggests the best 
route to go. Determines eligibility for special 
forms such as minimum/ 
maximum tax, income 
averaging, to name a few. 

TAXPRO IS EASY. 

Because it follows the tax 
forms line by line. Taxes 
are automatically figured, 
entered everywhere they 
apply. Change any entry, 
and all relevant data is 
automatically revised. 
Produces a printout that 
exactly fits 1040 and 




IRS-approved schedule forms. 

TAXPRO IS GUARANTEED. We stand 
behind TAXPRO completely, Full, no-charge 
support through the tax season. Inexpensive, 
yearly system updates. Over 5 million 
returns prepared with no reported errors. 

TAXPRO BUILDS PROFITS. The door is 
open to higher profits than you have ever 
enjoyed. Double, triple, or quadruple your 
output; pay for TAXPRO and the computer 
in one tax season. 
If you do income tax returns, you need 
TAXPRO. the truly 
professional, computerized 
income tax preparation 
system. 

Look into it today. 
Contract Services 
Associates, 
706 South Euclid. 
Anaheim, 
California 92802, 
[714] 635-4055. 

45-PAGE DESCRIPTIVE 
SYSTEM MANUAL: $7.50 




CONTRACT SERVICES ASSOCIATES 
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Improving the bottom line. 



"There are few limitations 
on file names — tfie only 
illegal characters are 
the colon and the cursor control. 



The checksum for data rec- 
ords is a simple running sum of 
the data bytes and the data 
starting address, but not the iD 
byte or byte count. 

If, during loading, (he check- 
sum calculated by the TRS-80 
doesn't match the recorded 
checksum, a C is displayed in 
place of the left asterisk normal- 
ly displayed as part of a tape 
loading signal. However, the 
loading doesn't halt until the 
end-of-file record is detected. 

This can be good or bad, de- 
pending on what causes the 
checksum error and what data 
are affected. If a part of a text 
string is bad, the program may 
run sucessfully. If, however, the 
byte count is bad, the loading 
may become out of step with the 
data, causing the tape to read 
continously. 

After it reads each data rec- 
ord, a loading tape toggles the 
right asterisk, alternating be- 
tween ' and space; this results 
in the familiar flashing asterisk. 

Finally, each file contains an 
end-of-file record. This consists 
of an I D byte (78H) and two bytes 
containing the starting address 
of the machine language pro- 
gram (again, least significant 
byte first). This address is used 
if the slash is typed without a 
numeric value. A numeric value 
overrides the recorded starting 
address. Like the file name, it 
records no checksum byte. 



System Command Processing 

To understand the inner work- 
ings of the System command, I 
dump the ROM memory be- 
tween 02A9H and 032AH, disas- 
sembling it by hand. 

With help from Wes Thieike's 
article in February 1981's 80 Mi- 
crocomputing, I translate that 
information into Assembly. The 
result is a commented Assem- 
bly listing. 

Since Radio Shack copyrights 
Its machine language, I cannot 
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publish that listing here, but Fig. 
2 is a detailed flowchart of the 
System command processor in 
the order in which it appears in 
memory. This flowchart and the 
discussion that follows should 
allow anyone to create his own 
commented listing. 

The System command pro- 
cessor divides into four major 
sections: prompting and com- 
mand decoding (02B2H to 
02CCH), file name search 
(02CEH to 02E5H), file load- 
ing (02E7H to 0312H and 02A9H 
to 02AFH), and execute a ma- 
chine language program (031 DH 
to 0329H). 

Upon entering the command 
processing code, the TRS-80 
calls a subroutine located in 
RAM. This moves the TRS-80 
from Basic to TRSDOS. I plan to 
use it to transfer control to a 
ROM monitor I am attaching to 
my TRS-80. 

During power-up, TRS-80s 
without disks initialize the RAM 



subroutine to a return-from-sub- 
routine instruction. This nulli- 
fies the subroutine. If the RAM 
subroutine returns, the TRS-80 
initializes the stack pointer, out- 
puts a *? prompt, and uses 
Basic's line input subroutine to 
input the command. Using 
Basic's line input allows the 
user to type left arrow and shift 
left arrow to erase the last char- 
acter or the entire line, respec- 
tively. You can terminate input 
by either Enter or Break, with 
Break returning you to Basic. 
Typing Enter causes a syntax er- 
ror and returns to Basic. 

There are only two System 
commands: Execute and Load. 
If the command line starts with 
a slash, the TRS-80 assumes it' 
to be a Start Execution com- 
mand. Otherwise the TRS-80 In- 
terprets the command line to be 
the file name of the machine lan- 
guage program you want loaded. 

There are few limitations on 
file names — the only illegal 
characters are the colon and the 
cursor control characters. 

You can store several ma- 
chine language programs on a 
single tape and search for the 
desired file. 

Starting the cassette, the 
TRS-80 finds the sync record. It 
then inputs until it finds a file 



name ID byte. 

The file name characters you 
type are matched with those 
read from the tape until: 1) two 
characters do not match; 2) all 
the characters in the command 
line are matched; or 3) six char- 
acters have been matched. 

In the first case, the TRS-80 
looks for another sync record 
and tries again. Otherwise, it 
considers the file data loaded in- 
to memory. 

During file loading, the 
TRS-80 displays two asterisks in 
the upper right corner of the 
video display. It turns the right 
asterisk on, then off, after it 
reads each data block. It re- 
places the left asterisk with a C 
any time a data record check- 
sum occurs. 

After the TRS-80 reads one 
block but before it reads either a 
data ID byte or an end-of-file ID 
byte, it ignores any characters. 

The end-of-fiie ID byte is as- 
sumed to be followed by a two- 
byte starting address. When you 
are loading more than one ma- 
chine language program, the 
last file loaded determines the 
starting address. 

In all cases, after the TRS-80 
loads the file, it stops the 
tape and restarts the System 
command. 













REVISED 


FILENAME 


SEARCH FDR TRS-aO 1 


1 


0000 










TITLE 


'REVISED FILENAME SEARCH FOR TRS-SO ' 


2 
3 
4 


0000 










ORG 


OOOOH 


SET THIS TO APPROPRIATE MEMORY ADDRESS 










i Rivisid filanam* starch for loading machina language programs 


5 










i via the 'SYSTEM' command in Level II Basic. Replaces the code 
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} from 


02CEH to 


02E6H. To be useful, the code betuieen 02B5H and j 
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i 02CDH 


should 


also be relocated 


and a jump to the revised code j 
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r place 


d ctarting at location 41E2H. j 
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10 










1 Greg; 


E. Mara 


hall 2/15/80 




11 

12 


0000 


CD 


93 


02 


MCLOAD 


CALL 


0293H 


START THE CASSETTE AND FIND THE SYNC BYTE 


13 


0003 


CD 


35 


02 


BFNAME: 


CALL 


0235H 


A : - BYTE READ FROM CASSETTE 


14 


0006 


FE 


55 






CP 


55H 


IF BYTE <y START OF FILENAME 


15 


OOOB 


20 


F9 






JR 


NZ, SFNAME 


THEN KEEP LOOKING FOR START 


16 


OOOA 


06 


06 






LD 


B. 06 


ELSE B - MAX FILENAME LENGTH 


17 


OOOC 


E5 








PUSH 


HL 


« SAVE DESIRED FILENAME POINTER 


IB 
















IN THE EVENT OF NO MATCH 


19 


OOOD 


7E 






SLOOP: 


LD 


A, (HL) 


A :- NEXT CHARACTER IN DESIRED FILENAME 


20 


oooe 


B7 








OR 


A 


IF END DF DESIRED FILENAME 


21 


OOOF 


28 


0"? 






JR 


Z. MATCH 


» THEN MATCH IS SUCESSFUL 


22 


0011 


CD 


35 


02 




CALL 


0235H 


ELSE A := NEXT CHARACTER IN 


23 
















RECORDED FILENAME 


24 


0014 


BE 








CP 


<HL1 


IF RECORDED CHARACTER <:> COMMAND STRING 


25 


0015 


23 








INC 


HL 


CHARACTER 


2b 


0016 


20 


Ob 






JR 


NZ. NDMTCH 


THEN FIND NEXT FILENAME 


27 


00 IB 


10 


F3 






DJNZ 


SLOOP 


ELIF NOT 6 CHARACTERS COMPARED 


2B 
















THEN CHECK NEXT CHARACTER 


29 


001 A 


El 






MATCH 


POP 


HL 


« ELSE SUCESSFUL MATCH 


30 
















(ADJUST STACK) 


31 


00 IB 


C3 


E7 


02 




JP 


02E7H 


AND READ THE FILE'S DATA 


32 










, 1^0 MATCH — SO START OVER 




33 


00 IE 


El 






NOnTCH: 


POP 


HL 


* RESTORE POINTER TO DESIRED FILENAME 


34 


00 IF 


IB 


DF 






JR 


MCLOAD 


• AND FIND NEXT SYNC/START OF FILNAME 


35 
















« COMBINATION 


36 


0021 










END 












Program 


Listing. Assembly Program Ustin 


g of Revised File Name Searcii 



Smith Corona TP-1 TEXT PRINTER Hayes Smartmodem 



Dosplus 



$59988 

UPS DELIVERED 




120 words/min (12 cps) with full letter-quality 
Either parallel or RS-232C interfacing available (specif/) 
10 or 12 pitch (characters per inch) available (specify) 
Friction feed on lO'/o" printable line; takes 4-part forms 



Okidata Printers 

MICROUNE8O >349" 

MICROLINE 82A '439»« 

80/82A TRACTOR '59" 

MICROLINE 83A *694" 

OKIGRAPH ROM '44" 

MICROLINE 84 

Parallel, 200 cps '1044»« 

MICROLINE 84 

RS-232C, 200 cps »1 164" 

Anadcx Printers 

DP-9500A M469" 

DP-9510A *1469" 

DP-9620A M569" 



Brother Printers 

DAISyWRITER 2000 ... - '1089»« 

IBM PC CABLE »49'" 

TRAaOR '149" 

IDS Printers 

MICROPRISM ^699" 

PRISM 80 W/4-colors, Sprint 
Mode, Dot Plot, & Cut 

Sheet Guide M329«« 

PRISM 80 w/out color . . *999*« 
PRISM 132 W/4-colors, Sprint 
Mode, Dot Plot, & Cut 

Sheet Guide >1699" 

PRISM 1 32 w/5print Mode 

& Dot Plot *ia59" 



TEC Printers 




DMP85 *469" 

The generic version of NEC & 
Prowriter printers. Features 120 
cps, bi-directional, logic-seeking, 
1 ,3K buffer. 5 fonts, 8 sizes on 
9x9 matrix, w/ proportional print, 
true descenders, & Greek/Math 
font. 160 X 144 dots/inch Hi-Res 
graphics matrix, 1/144" line feed. 
Friction & tractor standard, rear 
paper path. 



C. Itoli Printers 

C. ITOH PROWRITER '499" 

C. ITOH PROWRITER 

Parallel & RS-232C ^W^ 

C. ITOH PROWRITER 2 . . . '734" 
C. ITOH PROWRITER 2 

Parallel & RS-232C *794" 

F-10/40 STARWRITER 40 cps 
Parallel or RS-232C .... '1499" 
F-1Q/55 PRINTMASTER 55cps 
Parallel or RS-232C .... '1799" 
F-10 TRACTOR »289" 

NEC Printers 

NEC PC 8023A< '509" 

NEC 3530 (35cps) '1809" 

NEC 7730 (55 cps) .... *2579" 

Centronics Printers 

CENTRONICS 122-1 '979" 

CENTRONICS 352 1614" 

CENTRONICS 353 52274" 

CENTRONICS 739-1 »564" 

MPI Printers 



MPI 88G . 
MPI 99G . 
MPI 150G 



'639" 
'6B9" 
*879" 



Call For Prices 

On QUmE & DIABLO Daisywheels. 
QUANTEX, DATASOUTH, DIP, 
& other printers available 




A sophisticated 0-300 baud 

originate/ answer modem. 
Features include auto- 
dial, auto-answer, full/half duplex, 
keylx>ard control, user-selectable 
parameters. Comes with tele- 
phone cable & power supply, 

HAYES SMARTMODEM . . . '229" 

HAYES 1200 BAUD 

SMARTMODEM »574" 

RS-232C CABLE •29" 

MicroTerm 

An excellent terminal program 
from Micro-Systems Software. 
Microterm features simultaneous 
input while at menu, auto dial 
support (including pre-pro- 
gramed dialing and trans- 
mission without operator 
intervention), direct file transfer, 
34K of capture buffer, and a high 
operational baud rate (near 
9600). Well-suited to both the 
Lynx & Hayes Smartmodem's 
auto dial & auto answer features. 
Specify Model I or III when 

ordering 
MICROTERM "89" 

MODEA^S 

LYNX '229" 

SIGNALMAN MARK I 589" 

NOVATION AUTO CAT . . '224" 

NOVATION 1200 BAUD 

AUTO CAT »569" 

Model 3 

Model 3 wtth 48K RfiM and two 
single sjded, double density 
drives, delivered ready to run. 
Fully compatible with all hard- 
ware/software. RS-232C port 
optional. Non-Radio Shack 
warranty, but full 90 days on 
parts & labor, 

MODEL 3 '1 799" 

Disk Drives 

40 TRACK SS *239" 



The finest DOS available. Features 
a BASIC array sort (multi-key, multi- 
array), input @ (controlled screen 
input), random access and ASCII 
modification, BASIC checks for 
active "DO", repeat of last DOS 
command, device routing, single 
file conversion from Model III 
TRSDOS, reading 40-track disks 
in 80 track drives, etc. Specif/ 
Model I or III, single or double 
density, 40 or 80 track disk drive. 
DOSPLUS 3,4 »104" 



Quic-N-Easi 



Qulc-N-Easl lets anyone write 
custom business application 
programs without BASIC— and 
you do it faster. Now you can try 
Quic-N-Easi for 1 5 days FREE, 
You're satisfied or your $195 
refunded— no questions asked. 
Non-programmers & experts 
alike can write sophisticated 
business programs with Quic-N- 
Easi. Inventory, records, sales 
traclgng, budgeting— and you'll 
program faster, with greater 
flexibility, like a pro— or your 
money tiack. 
TR5-80 Model I/Ill 

Quic-N-Easi '159" 

Model 11/16 (CP/M required) 
Quic-N-Easi '159" 

NEWSCRIPT 7.0 

ProSoft's NEWSCRPT supports 
most printers (including the new 
Microlin 14), and features true 
right- justified proportional 
printing single and double-width 
type within text, subscripts, 
superscripts, underlining, 
boldfaces, multiple character 
pitch, full-screen editing, global 
search/replace, customized 
"form" letters, plain cnglish 
commands, typeahead/ print- 
ahead buffers for sfjeed, a 
professional manual, & customer 
support from the author himself 

Newscript '104" 

Options (below) are not 
available separately. 

Mail Labels '15*" 

File Converter '15"* 

Proportional Driver *49" 

Electric Webster '150" 



Orders & Information: CALL (603)-673-8857 

Orders Onty: CALL (800)-343-O726 

No Hidden Charges 

No surcharge for credit cards— No charge for 
UPS shipping— Stock shipments next day 
All equipment shipped factory fresh with 
manufacturer's warranty — We accept CODs 
Open PO's not accepted— $50 minimum 
order— No foreign orders accepted 

Prices subject to change— call tor quotes 



<^> 



HIGH TECHNOLOGY AT AFFORDABLE PRICES 

THE BOTTOM 
•———►LINE 



Milford NH 03055-0423 



LEADE 


/SYNC 
NAI^E 

RECORD 


1 
OOH 




ASH 




55 H 


FILE 


6 BYTES 




3CH 




1 BYTE 




2 BYTES 


DiTA 


1-256 BYTES 




1 BYTE 




, 




7BH 


END OF FILE 
t 


2 BYTES 



START OF FILE NAME ID 



START QF DATA RECORD ID 

NUMBER OF DATA BYTES 
THIS RECORD 

STARTING LOAD ADDRESS 



MORE DATA RECORDS, 
AS NEEDED 



END OF FILE ID 



STARTING ADDRESS 
OF PROGRAM 



Fig. 1. Machine language tape format 



It is also possible to build a 
file that loads on top of the Sys- 
tem command's RAM subrou- 
tine, takes control of the TRS-80 
(possibly to load a "protected" 
program), then returns control 

INPUT STAPTINO iOOflESS 



HL - BOJTINE STARTING 
ADOHESS (INPUT FROM 
CiSSETTEl 



STORE STARTING ADDBESS 
AT LOCATION 40DrH 



TURN OFF CASSETTE 



TRS-eO'S BASIC SISTEU COMMAND 



TRS-BO BASIC'S S'SIEH COMMAND 



to the TRS-80's normal System 
command processing. 

Bugs in System Command 

Have you evertried to load the 
second or third machine lan- 
guage program on a tape only to 
have it float into Never-never 
land? Eventually, you reach the 
end of the cassette without 
loading the program. 

The problem is a result of the 
way the TRS-80 searches for a 
file name. When you type a file 
name, the TRS-80 activates its 
cassette and finds the sync 
byte. It reads the tape, character 
by character, until it finds the 
start of the file name ID byte. It 
compares the file name you type 
w/ith the recorded file name until 



TRAP INTO HAM FOR EXPANSION 
LEVEL II INITIALIZES THIS 
RAM LOCATION TO A RET 



one of three conditions Is met: 1) 
If you type a file name of less 
than six characters, as many 
characters as you type are 
matched with corresponding 
characters in the recorded file 
name, (Thus, EDTASM and ED 
both load Radio Shack's Edi- 
tor/Assembler.) 2) Six charac- 
ters of both file names match. 3) 
One of the characters it reads 
from the tape does not match 
the corresponding character 
you type. 

If conditions one and two are 
met, the TRS-80 loads the ma- 
chine language program that 
follows. 

Condition three is an unsuc- 
cessful match. This is where the 
TRS-80 can get confused. In- 
stead of going back and finding 
a new leader and a new sync 
byte, the TRS-80 continues to 
read characters until it finds an- 
other file name ID character. 

This strategy, in itself, is very 
dangerous, since it is likely the 
TRS-80 will use a data byte as 
the start of file name. Even 
worse, the TRS-80 might lose 
sync completely. Then, any 
combination of data that results 
in a byte equal to 55H will be 
misinterpreted. 

Even in the unlikely event that 
the TRS-80 does find another 
real file name, it does not reset 
its pointer to the file name you 
typed. Therefore, what the 80 



INITIALIZE THE STACK 
POINTER TO 42BBH 



OUTPUT ■? AND INPUT 
COMMAND STRING 



<z 



■BREAK' TYPED ? 



SCAN INPUT eUFFEn 



< 



INPUT BUFFER EMPTY ? 



< 



FIRST CHARACTER ' '7 " 



RETURN TC SASH 



/■report AN SN ERROF 
/ RETURN TO BASIC 



'execute a machine 

language program 



EIECUTE A MACHINE LANGUAGE PROOHAH 




I 






DE. ■ --OSI STAFtTINS ADDRESS 
INPUT FROM CASSETTE 
(STORED 41 40DFM1 






1 






RST IB 






SCAN THE INPUT BUFFER 






! 




VFS 


/ INPUT BUFFER EMPTV F \ 
\ (EXCEPT FOR SLASH) ■ / 




1 




IE5AH 




CONVERT INPUT BUFFER VALUE 
INTO BINARY. RESULT IN DE 






t 


YES 




<f ILLEGAL VALUE F j] 




i NO 




1 



matches depends on how well 
the last file name(s) it reads 
from the cassette resembles the 
desired file name. 

Eventually, it can match all 
the characters in the desired file 
name, resulting in its loading 
the wrong file. Assuming the 
first bug doesn't "byte" you, it is 
possible to exploit this "fea- 
ture" to load the second copy of 
the same file by preceding the 
file name with an extra un- 
matchable character. For exam- 
ple, to load the second copy of 
EDTASM, you can type XED. 

Program Listing shows a re- 
vised version of the file name 
search. This version only adds 
nine bytes of code but fixes the 
second bug and decreases the 
probabilities of the first. To use 
this version, relocate the code 
for the locations 02B5H-02CDH 
to come immediately before the 
code listed. (I generally put the 
code in the highest part of mem- 
ory after protecting it from Ba- 
sic.) When the TRS-80 loads this 
code into memory, change the 
memory locations starting at 
41E2H to jump to the revised 
System command processor. 

This revised version is the 
same as Radio Shack's except I 
add code to save and restore the 
pointer to your file name before 
and after each attempt at 
matching. It also improves the 
chances of finding a second file 



HL POINTS TO DESIRED FILENAME, 
START CASSETTE AND DO A 
FILENAME SEARCH 



START CASSETTE AND SYNCMRONIJE 



■ RE-EXECUTE 

SYSTEM 
COMMAND 



JUMP TO THE ADDRESS 



INPUT A BYTE FROM CASSETTE 



NPUr BITE ^ 55M 



NEXT BYTE IN COMMAND 
STRING ' OOH ? 



INPUT A BITE FROM CASSETTE 



CHARACTER BEAD = NE«T 
CHARACTER IN COMMAND 
STRING ? 



B CHARACTERS MATCHED? 



COMMAND STRING 
POINTER (HL) IS 
INCREMENTED 



> 



Fig. 2. Flowchart of TRS-80's System Command 
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name ID byte by jumping back to 
the synchronization routine 
whenever an unsuccessful 
match occurs. The lines in the 
listing with an asterisk before 
the comment indicate the re- 
vised code. 

This version Is not an abso- 
lute answ/er to the first bug, 
since it only searches for the se- 
quence: one byte of zeros, sync 
ID byte, file name ID byte. While 
it is still possible for a machine 
language program to contain 



those three bytes— OOH, ASH, 
55H— I haven't run Into one. 

Conclusion 

In general, the TRS-80's ROM 
software w/orks as specified. 
Though it's been said, "If a piece 

of software is bug free, it is ob- 
solete," the Level II ROMs are 
hardly obsolete. It's safe to as- 
sume they contain several bugs. 
Always approach a piece of 
software with a bit of justified 
caution.! 



Figure 2 continwid 



ReaD DJTA 



FLIP FLOP flSTEBISK IN HIGHT 
HAND CORNER OF VIDEO MOri(T0R 



INPUT A BTE FROM CASSETTE 



BYTE READ ■ END OF FILE 
MARKER 17BHI ? 



BITE READ ■ DATA BLOCK 
MAFjKEn OCH) p 



INPUT STARTING 
ADDRESS 



INPUT THE NUMBER Of DATA 
BYTES IN THIS BLOCK FBOM 
THE CASSETTE 



HL' ' STARTING ADDRESS 
FOR THIS BLOCK OF DATA 
(INPUT FROM CASSETTE} 



COMPUTE CHECKSUM FOR 
STARTING ADDRESS 



INPUT A SITE FROM CASSETTE 



STORE BYTE IN MEMORY. 
INCREMENT MEMORY POINTER (ML) 



UPDATE RUNNING CHECKSUM 



DESIRED NUMBER OF DATA 
BYTES INPUT P 



INPUT STORED CHECKSUM 
BYTE FROM CASSETTE 



STORED CHECKSUM • 
COMPUTED CHECKSUM P 



DISPLAY A "C" IN UPPER 

RISHT CORNER OF VIDEO MONITOR 



LOAD 
80 

LOADS 
EASY 




ELIMINATE HOURS OF 
TYPING AND 




In the April, 1981 Issue of 80 Micro we introduced LOAD 
80 to save you the time an(j trouble of typing our programs 
yourself. LOAD 80 cassette tapes contain dumps of the 
major program listings in 80 Micro. 



If you have not yet ordered any LOAD 80 tapes and wish 
you liad, don't worry. We are now offering a "back issue" 
cassette program. You can order any LOAD 80 cassette 
from April, 1981 to date for S9.97. Back issues of 80 
Micro are also available with the LOAD 80 cassettes for 
$3.50. With the complete documentation found in the com- 
panion magazine Issue, you should have no difficulty 
loading any of 80's major programs. 



Please send me the (oilowing: 

month year month 
Tapes Magazines 



year 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes: August 1982 Doubie Issue 
add $1 .50 per tape for postage and handling 


$17.97 
$9.97 






80 Micro 

add $1.00 per magazine for postage and 

fiandling 


S3 50 








T 


OTAL 





D Check Enclosed Bill my; D MC D AE C VISA 
NAME 



AnnRFSR 


CITY 


STATE 71 P 


OARn* 
SIGNATURE 


FXP DATE 
INTFRBANK# 



Please allow 4-6 weeks for delivery 

LOAD 80 • 80 Pine SIreet • Peterborougti NH 03458 

Attn: Debra Boudrieau 
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GAME 



LOAD 80 



Destroy the crafty K'taabas. 



Invader 



Jeffrey Fisher 
414 W. 41st Street 
Sand Springs, OK 74063 

Earth is being threatened by 
the Ktaaba, beings capable 
of existing beyond three dimen- 
sions. When in these higher 
dimensions, they are invisible to 
us. To attack they must regress 
to three dimensions, becoming 
visibie. They remain three 
dimensional until either you or 
they are destroyed. 



"To attack they 
must regress to 
three dimensions... 



You are in the cockpit of a 
fighter ship. When a K'taaba ap- 
pears, target, him at the approx- 
imate center of the screen using 
the arrow keys. Pressing two 
l^eys together results in diago- 
nal movement. 



Press the space bar to fire 
your laser. Hold the space bar 
down for a machine gun effect. 
You must hit the ship with the 
tip of at ieast one of your two 
laser beams to destroy it. 

Due to the small target area, it 



is sometimes difficuit to teil if 
firing the iasers will destroy the 
ship. To help I incorporated 
small graphics bioci<s that track 
the ship's position by its 
horizontai and vertical com- 



The Key Box 

Basic Level 11 
Model I 
4K RAM 



10 REM **** INVADERl ••*' 

BY JEFF FISHER 
JftHUARY 3RD, 1982 
20 CLEfiR300:DEFINTD,F,H, J,K,0,P,T,V,X,¥!CLS:PRINTCHR5(23) ; :SS[1) 
-CHR5(15 6)-fCHRS{14 0)+CHR5(17 2> : SS [ 2) =CHRS { 191) +CHRS (140) 4-CHRS { 19 
1) iSS(3)=CHRS(141)+CHRS(iee)+CHRS(1421 : PRINT@-148 ," INVADERl ": PRIN 
T"BY JEFF FISHER" 

30 A$-INKEyS:IFRS=" 'THEN110ELSEIFK<15 0THEf;K-K + l :GOTO3 
48 CLSiPRINT'EAETH IS IN DESPERATE TROUBLE ! 1 1 M ": PRINT: PRINT'YOU 

HAVE BEEN CHOSEN IX) SAVE EARTH FROM THE K'TAABA RACEI ' :PRINTi PR 
INT" THE K'TAABA HAVE THE CAPACITY TO TRAVERSE HIGHER DIHENSIO 

tJ5":PRINT"AND ARE ATTACKINGI TO BE FAIR, THEY ALWAYS REGRESS" 
50 PRINT-TO THREE DIMENSIONS TO ATTACK. AT THIS TIME, THEY BECO 
HE':PRINT"VISIBLE AND YOU MUST DESTROY T!]E>5 , "i PRINT: PRINT" hUE 
■N THE INVADERS ATTACK, YOU LOSE FUEL SINCE YOU MUST" : PRINT"REPLE 
NISH YOUR SHIELDS AS THEY ARE WEAKENED BY ENEMY FIRE." 
60 PRINT" IN DESTROYING ENEMY CRAFT, YOU SCORE POINTS ACCORDIN 

G TO":PRINT'THE TYPE OF VESSEL ," !GOSUB320 :CLS : PRINT'VESSEL" , "POI 
NT", "DESTRUCTIVE": PRINT 'TYPE "."VALUE", "CAPACITY" :FORK=iT03: PRINT 
SSIK) ,K*ie,K' 50: PRINT: NEXT 

70 PRINT" THE VESSEL TYPE IS WHftT THE SHIP LOOKS LIKE. THE":P 
R1NT"P0INT VALUE IS THE NUMBER OF POIHTS YOUR SCORE IS INCREASED 

FOR'iPRINT'DESTROYING THAI TYPE OF SHIP. THE DESTRUCTIVE CAPAC 
ITY IS THE" 
B0 PRINT"MAXI«y« AMOUNT OF FUEL THAT YOU CAN LOSE WHEN THAT SHIP 

FIRES":PHINT"UPON YOU ." :GOSUB320 : PRINT" MANEUVER THE OFFENDIN 
G SHIPS TO THE APPROXIMATE CENTER" : PRINT"OF THE SCREEN USING THE 

ARROW (",-:FORK = 91T093:PRINTCHRS(K) i',"; :NEXT 
90 PRIKTCHRS(K) ,") KEYS, THE DIRECTION" : PRINT"OF THE KEYS INDIC 
ATE THE DIRECTION OF MOTION OF THE SHIP, ' l PRINT"DIAGONAL HOVEHEN 
T IS ACCOMPLISHED BY PRESSING PERPENDICULAR" : PRIKT'KEYS. " 
100 PRINT:PRINT"TO DESTROY AN ENEMY SHIP, YOU MUST HIT IT WITH T 
HE TIP OF YOUR":PRINT'LASER.":PRINT:PR1NT"TO FIRE, PRESS THE SPA 

CE BAR.':PRINT"REMEMBER THE K'TAABA NEVER MIES 1 "; PRINT: PRINT"G 

OOD LUCK ":GOSUB32fl 

110 CLS:PRINTe44e,CHRS(23) ["TRANSFERRING COMMAND" : FORK=lTOe!LS=L 
S-*CHRS(27)+CHRE(186) : LES=LES^■CHRS ( 27) +" ' :RS = RS+CHRS (27) +CHRS ( 24 
)tCHRS(24)+CHRE(181) : RE$=RES+CHRE 1 27) +CHR5 (24) +CHES ( 24) -^" "iNEXT 

120 FORK-lT014!SS-SS+CHRS(26)-fCHR5(Z4)+<:HRS(191) ! SES=SE$+CHRS [26 
)+CHR?(24)+- ":NEXT 



E 



CLS:PRINTCHRS(23) > : FORJ=1TO10 : PRINT§45 8, "' 

"; :F0RK=1T025;NEXT:PRINT@45B,S'CRINGS(22," ' 



PREPARE FOR BATTL 
I ; :NEXTiF^1000:T=0 



"; :PRINT@P,CBRS(12a+RNDI63))-H:HRS(12e 
; :FORK=1TO5:NEXTK,J!T^T+V*10;GOSUB26 



140 CLS:GOSUS26 0:V-RND(3) :X=RND(61) :Y = RHD(1'1) ! P=Y*6 4+X :GOSUB340 

150 PE = PEEK(14400) ;X-X-fRND ( 3 ) -2: Y=Y-(-RND |3) -2: IFPEAND8ANDYMTHENY 

=Y-1 

160 IFPEAND16ANDY<14THENY-Y+1 

17 IFPEAND3 2ANDX>1THENX=X-1 

180 IFPEAND6 4ANDX<61THENX-X+1 

190 IFX<1THENX-1ELSE1FX>61THENX=61 

200 IFY<lTaENY=lELSElFY>14THENY-14 

210 P=Y*64+X:GOSUB3 40!lFRND(20)=lTHEND=(957-P)/64!PRIKT§P+2,LEFT 

S(SS,D*3) ;! PRINT ?P+2, LEFTS (SES,D*3) ; : F=F-RND( 50*V) / (D-H) ;GOSUB26 



220 IFPEAin)128THENPRINT@983,LS;:PRINTei001,RS;iPRINTi9e3,LESjiPR 

INTgl001,RE?, ;PRINT@P,SS1V) , j F^F-10 :GOSUB26 : IFP>47 5ANDP<4eiTHEN 

GOSUB250!GOTO140 

230 IFF<-0THEN280 

240 GOTO150 

250 PORJ=1TO10:PRINT@P," 

-i-RND(63]) +CHRE(12 8-fRND(63 

: RETURN 

260 IFF-;0THENF = 

270 PRINT@960,STRING5(63," " ) ; ; PRINTg960 , "FUEL : " ; F ; : PRINTe980 , " 

SCORE :';T! :PRINTgie05,"TOP SCORE :";H;:RETURN 

2 80 F0RJ=1T05:PRINTCHRE(23) ; ! F0RK=1T015 : NEXT; PRINTCHRS ( 28) j : NEXT 

!M=M+1:PRINT"HISSION";M;"OVER":GOSUB300:PRINT"CARE TO PLAY AGAIN 

(Y/N}?" 
290 AS=INKEYSiIFAS="Y"THEH130ELSE1FAS<>"N"THEN290ELSEPRINT"THANK 
S FOR PLAYING1":END 

300 IFT>BTHENPRINTSTRINGS(25,"*") :PRINT'CONGRATULATI0NSI YOU HA 
VE":PRIKT"POSTED A NEW illGH SCORE] ": PRINTSTRIHGS ( 25 ,"•"): H=T:GOS 
UB260:PRINT@320,; 
310 RETURN 

320 PRINT:PRINTTAB(13)CHRS(191) ;"PRESS THE SPACE BAR TO CONTINUE 
"jCHRS(I91) ; 

33 PE=PEEK{ 14400) : lFPE<>12eTHEN33 0ELSECLS: RETURN 

340 PRINTiO," ", :PRINT§XO-fl," " ; : PRINTgYO, " ";: PRINTER , SS (V) j : 

IFX>27ANDX<33THENPRINT@X+1,CHRS(191) j ELSEPRINTgX+I ,CHRS (131) j 
350 YB=Y*64!lFy=7THENPRINTgYB,CHRS(191) ,■ ELSEPRINT@YB,CHRS (140 ) ; 
360 XO=X:0-P:YO=YB:RETURN 
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UAkt DKiVcS ONLY 
REGULAR 5Va inch DRIVES 

40 track single tided t199 

ao track (dual ildsd 40 track) ... (269 
ISO track (dual tld»d SO track) . $369 

SLIMLINE 5V4 inch DRIVES 

SLIMLINE 8 inch DRIVES 

Wi^'CHESTER 5'/4 Inch 
-^^^;0 DISK DRIVES 



ii l^itjVtJ III <.<i)l#iiid 

40 track alngla aided S249 

80 track (dual aided 40 track) . . . (329 
leo track (dual sided 80 track) . $449 

1 DRIVE/Double Cabinet 

40 track single sided $289 

80 track (dual «ld*d 40 track) . . . $369 
160 track (dual sided 80 track) $499 

2 DRIVES/Double Cabinet 

40 track single sided $489 

80 track (dual tided 40 tracks) (639 

180 track (dual sided 80 tracks) . . . $849 



RS-80 





TCShasth.- vvlST PRICES on IN STOCK PRINTERS! 



MATRIX PRINTERS 

STAR MICBONICS $449 

NEC 8023A $495 

C.ITOH 8510 / TEC $479 

OKI DATA 82A $429 

OKIDATA 82A w/tractor $479 

OKIDATA eSA $685 

OKIDATA 84A (s«rlal) $1169 

OKIDATA a4A (parallel) $1069 

ANADEX 9501 w/2k buffer $1295 

LINE PRINTER V (RS) $Call 

LINE PRINTER VI (RS) $988 

LINE PRINTER VIII (RS) $649 

CENTRONICS 352 (200 cps) $1795 

CENTRONICS 353 (dual ft>ode) . . . $2495 

HI SPEED BAND PRINTERS 

CENTRONICS 6080 (standard) . . $CALL 
CENTRONICS (quiotlied) $CALL 

LETTER QUALITY PRINTERS 

C.ITOH F-10 (40 cps) $1595 

DAISY WHEEL II (RS) $1695 

SMITH CORONA TP-1 $699 

BROTHER / COMREX $829 

NEC 7730 $2375 

Nrc n'lr^ri $1796 



EPSON PRINTERS 

EPSON MX80 $449 

EPSON MX80 FT $524 

EPSON MX100 FT $685 

GRAPHTRAX PLUS comM tree in Epsonslt 
EPSON ACCESSORIES 

GRAPHTRAX PLUS (bit Image) $79 

MODEL I Interface $29 

MODEL I interface/cable to ksyboard $85 

MODEL III cable $29 

COLOR Computer Interface/cable . , $155 

APPLE Interface/cable $89 

ATARI cable (must tiave 850 Int) $36 

IBM Personal Computer cable. . $45 

OSBORNE cable $36 

Serial RS232 2k buffered int.card , . . $109 

EPSON PACK II 

Screen oriented bit image graphics gener- 
ator tor the Model III. Create your own 
characters, symbols, etc. Documentation 
EPSON PACK II bought w/prlnter $24.95 
EPSON PACK II bought separately $34.95 
Update for EPSON PACK I $7.50 



rMMimiii 



DEALER INQUIRIES INVITED 



CUSTOM SOFTWARE FROM TCS 



BTREE Scratchpad 



The BTREE Executive 
Reference Scratchpad al- 
lows the user to store all 
your phone numbers, 
business cards and what 
ever in a multi-key data 
base tor Immediate 
access by as many keys 
aa you assign. Extremely 
«aty to use. Allows 3 
fields of MIsc data. 



$39.95 



BTREE Library 



The BTREE Library pro- 
gram altows over 2000 
books to be stored on a 
single double density 
data diskette in a efficient 
BTREE structured file for 
immediate access to your 
date by Author. Includes 
4 build in reports. No 
sorting necessary for 
reports. 



$39.95 



BTREE Mail List 



The BTREE Mail List 

program allows over 2000 
names to be stored on a 
single double density 
data diskette. Labels can 
be generated in zipcode 
order or by range of zip- 
codes and also by a code 
restriction if you wish 



$49.95 



COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

TECHNICAL ASSISTANCE 817/274-9221 

ORDER STATUS 817/277-1913 

TELEXATWX/Easylink ELN 62100790 



433-5184 



U^ 



gri- =% Price* subject to change al any time. 



TCS MODEL III 48k 2 DISK 

SyvteiiH come nrWi IM cUy TCS KmHcd warranty. 

$1695 

with standard 40 track 

double density drives. 

Over 340,000 bytes 

Includes TDOS. 



$1995 

With 2 dual headed 40 

track dbl. density drives 

Over 730,000 bytes. 

Includes TDOS. 



Fully assembled and tested systems that are software compatible and functionally 
identical to Radio Shack units sold at computer stores tor $hundreds more. 

■ CONTROLLER BOARDS are high quality double sided epoxy boards with gold 
plated contacts 

■ POWER SUPPLY Is the finest switching type available. 

■ MOUNTING HARDWARE includes power and data cables 

■ DISK DRIVES are Tandon, the same ones used by Radio Shack . . 40 track, double 
density, with a 5 millisecond stepping rate 



TCS MODEL III DISK EXPANSION KITS 

Controller, Power Supply, Mountir>g Hardware A Inatructions $379 

Controllef, Power Supply, Hardware & one 40 track Tandon drive (577 

Controller, Pow«r Supply, Hardwiro, two 40 track Tandon drivM. 32k memory 

(everything you need lor 2 drive 4flk upgrade) $799 

I Kit 3 but with two 90 track drives (dual sided 40a) . . ... $990 



3b Kit 3 but with two 160 track drives (dual sided aOs) 



$1169 



MODEL ill SYSTEMS 

Original 90 day manufacturer's warranty. 
MODEL III 4k Level 1 $596 

MODEL III 16k $818 

MODEL IH 32k SB9S 

MODEL IM 48k . $988 

MODEL IM 48k 2Dr/RS232 $1944 

TCS MODEL III Systems use original RS 
hardware and quality TCS memory 
180 day limited warranty. 

TCS MODEL III 16k $799 

TCS MODEL III 32k M18 

TCS MODEL Ml 48k $846 



COIOR COMPUTER 

Original 90 day manufacturer's warranty. 
ISklevel 1 $368 

1 6k Extended Basic $398 

32k Extended Basic $CALL 

Color Disk $479 DM 1 $349 

TCS COLOR COMPUTERS use original 
RS hardware & TCS niemory. 
180 day warranty 

TCS 32k Extended Basic , $499 

TCS 32k Memory Upgrade $79 

TCS Color Disk Drive $449 

TCS Color Disk Drive 1/2/3 $249 



Model II . . Model 16 . . Accessories . . ICAl 



I CS IS an authorized TRS-80 dealer F701 in Bradv, Texas 



Introductory offer 
until 12/31/82 



WIZARD'S TOUCH "^os^-^y $199 
Program Development System $99 

BELIEVE IT OR NOT, YOU CAN DEVELOP YOUR OWN PROGRAM IN IS MINUTESMI 
The WIZARD'S TOUCH Program Development System Is a superior program 
generator that can provide you with the programs you've t>een loking for. It 
comes with its own Disk Operating System, providing unlimited backups. 

With WIZARDS TOUCH, here's what you can do: 

■ Custom design your own special form for maximum ease of entering your data. You 
have total control over defining the number of characters assigned to each field and 
any other entry restrictions. 

■ Fully view and edit all fields at all times. No need to retype an entire field when editing. 
Just type over the mistakes, or insert or delete them. 

* Create a BTREE structured file, allowing you to access your stored data rapidly and 
without sorting. Duplicate keys are allowed, as well as sub-keys 

■ Enter data at full typing speed. 

■ Define your own special self-help Of prompt Information that will be displayed for any 
given field, by |uat touching one key 

k Expandyour program to support up to S calculations for each data field. Results can 
be displayed In any field or in any defined display area. Results can also be saved to disk 
along with regular data fields. Data such as dates or prices can t>e formatted as desired. 

■ Generate your own reports with the built-in pre-defined or custom defined report 
generator. Just a few keystrokes can get you a report that can be alphabetized or 
ordered by any field. And it's all automatic. 

The WIZARD'S TOUCH is so fast and easy to use. It makes other development 
systems of the market look like amateurs. No royalty necessary tor resale of 
programs you develop on WIZARD'S TOUCH. It creates a stand-alone, fully 
commented, BASIC program, which you can easily modify 

Your purchase includes a free sutiscrlption to our WIZARD'STOUCH newsletter, a 
quarterly publication with free programs, ideas tor applications, updates and more 
Now available tor MODEL I/Ill Coming soon for MODEL II, IBM and APPLE. 



ponents. When the K'taaban 
vessel is in target range both 

sighting blocks will grow larger. 
The Ktaaba return fire occa- 
sionally. Their weapons shoot 



downward. Although they never 
miss you can limit their effec- 
tiveness by keeping the attacker 
near the top of the screen. The 
higher the ship, the greater its 



A$— Used with the INKEYS command in lines 30 and 290 fo wait for user input 

LS— Gtapliic characters for lelt laser 

LE$— Used to erase left laser 

B$— Graphic characters for right laser 

RES— Erases right laser 

S$— K'taaban ship's laser graphic string 

SE$— Erases K'taaban's laser 

SS(n)— String array used to contain enemy ships (n is equal to 1,2 or 3) 

Table 1. String Variables 



distance and ttie less damage 
its w/eapons can cause. 

The status of your ship is in- 
dicated by fuel reserves. If you 
are fired at, it takes a certain 
amount of fuel to replenish your 
shields. The amount of reserve 
fuel lost due to an attack de- 
pends on the distance between 
you and the attacker and on the 
type of the ship attacking. The 
ones that can do more damage 
are worth more points when you 
shoot them down. 

Each ship's point value and 
potential maximum damage is 
explained during the program's 



D — Distance of the enemy vessel from bottom of the screen; used to assess damage io player's ship 

F— Amount of fuel remaining; initialized to 1000 before each mission 

H— Highest score achieved during current game session 

J, K— Used as controi variables in For., .Next loops; K is also used to escape the GOTO loop in line 30 

O— Enemy's previous position; erases ship prior to moving its position 

P — K'taaban ship's current position 

T— Tally; player's current score 

V— Vessel type on screen 

X— Current horizontal position of enemy ship 

XO— Previous horizontal position of enemy ship 

Y— Current vertical position of enemy vessel 

YB~Used to print vertical sighting block on screen 

YO— Previous vertical sighting block's position 

Table 2. Numeric Variables 



instructions. Firing your lasers 
also uses fuel. The consumption 
rate is 10 fuel units for each 
shot, 1,000 units of fuel are allo- 
cated for each mission allowing 
for a maximum of 100 shots. 

Invader has 3,000 points as a 
perfect score, assuming that the 
enemy causes little, if any, 
damage, all the ships you 'en- 
counter are worth 30 points, and ' 
your lasers always find their 
target. 

Pressing the space bar while 
the game's title Is displayed 
bypasses the instructions on 
the screen. 

Modifications for the 4K Owner 

The program requires about 
3.650 bytes of memory. Leaving 
out lines 10, 40-100, and 
320-330 (which are primarily in- 
structions) drops the require- 
ment to roughly 2,050 bytes.B 



Jeff Fisher is a computer sci- 
ence/engineering major at the 
University of Illinois in Urbana- 

Champaign. His hobbies include 
amateur radio. 




Instant Software's 

prices are going up. 

Stop waiting for the right 

time to buyl Stock up now on all 

the programs you want, and SAVE. 

Shop early and save $$$$$$ on your 

Christmas shopping also. 

Remember, this is the last chance to buy Instant 

Software's products at the old 1982 prices. Effective 

November 15, 1982* Instant Software will be raising its prices 

on most of its products. 
Order today so that you too can beat the Instant Software price 

increase. Just call toll free: 



1-80 



5473 



Old prices will ijut bo ii€ocplcd after this date. 



Instant Software 

(a subsidiary of Wayne Green Inc.) 

Route 101 & Elm St. Peterborough, NH 03458 
603/924-9471 
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COLOR WORKS 



NOW— create color 

graphics and play color 
games on your TRS-80' 
MOD 1 i MOD 3. 
CHROMAtrs Kit 

only '99* 





UNRETOUCHED PHOTO 



'CHROMAtrs assembled & tested '169 



WITH 15 VIVID COLORS 



Now be first! CHROMAtrs lets you create color graphics with capabilities never before possible on 
TRS-80*. You'll be able to play color games with such brilliant effects your friends will be green with envy — 
or any other color of your choice — and all this on your own TRS-80* MOD 1 & MOD 3! 



CHROMAtrs works with: 

• 15 vivid colors 

• Transparent and high resolution graphics (192x256) 

• Atari® joystick and paddle interface 

• Audio and video outputs 

• 3 Dimensional simulation through 35 
prioritized display planes 



CHROMAtrs comes with: 

• Routines to provide high speed color 
graphics capability through Basic 

• Operating manuals 

• One complimentary game 

• 16K RAM on board 



The TRS-80* memory is not used and there is no modification necessary (warranty not voided). This 
uncomplicated system Is so simple to connect you'll be amazing your friends with your color powers Immedi- 
ately. 

South Shore Computer Concepts, Inc. 



Please send 

□ CHROMAtrs KIT *99 

D CH ROM Atrs assembled & tested . *1 69 

n TR&W* MOD 1 cable M2 

'TRS-80' is a product of Tandy Corp. 



nTR&60*MOD3cable *14 

n Modulator with cables & switch box . '25 

Sub Total 

N.Y.S. residents sales tax 7y<.% 

Handling & shipping *5 

Total amount order 



Check one: 

Check or M.O. enclosecJ 

Master Charge Visa 



Account # 
Signature __ 
Name (Print) 

Address 

City 



expiration . 



_State_ 



.Zip. 



South Shore Computer Concepts, Inc. • 1590 Broadway, Hewlett, N.Y. 11557* Phone Orders Taken (516) 569-4390 




"NEVE 



FORGETS." 



MORE THANJUST ANOTHER PRETTY nCE. 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livenmore Lobs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll wont us to make some Elephants 
for you. 



ELEPHANT. HEiWY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 
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TUTORIAL 



Merge a mailing list voith a standardized letter. 



Scripsit Makes It Easy 



Peter C. Bennett 
7139 Scott Road 
Homer, NY 13077 



At last! My first big mass mailing 
job: 700 "hand-typed" personalized 
campaign letters (complete with envelopes) 
for a neighbor running for the county 
legislature. 

My 48K TRS-80 Model I is blinking its 
friendly Scripsit cursor at me and its dual 
disk drives and Daisy Wheel II printer are 
ready. Now what? 

Name Your Price 

If you can afford a $20,000 dedicated 
word processing system touted as the lat- 
est in office automation, your problem is 
solved practically before you've identified 
it. For that money you can expect a ma- 
chine that will automatically merge your 
standardized letter with a separate file of 
names and addresses, replace the name of 
the recipient in the salutation [and wher- 
ever it appears in the body of the letter) and, 
just as automatically, print the letters and 
envelopes. All you have to do is sign and 
fold them, stamp the envelopes and march 
off to your local post office. 

Or, for a much smaller cash outlay— in 
the area of $7,500— you can use the Model 
ll's ability to merge files created under 
Scripsit 2.0 and Profile II. 

But what if you have a much smaller 
amount of cash? Enter the Model I/Ill with 
Scripsit 1.0 alone. For less than $5,000 you 
can provide yourself with a TRS-80 Model 
III, two disk drives and the letter-quality 
Daisy Wheel II printer. That combination 
will do nearly everything the larger, more ex- 
pensive computers can do. It will, however, 
be somewhat slower, since a great deal of 
manual file and block manipulation is 
required. 

How can we get Scripsit 1.0 to merge a 
campaign letter with a mailing list of recipi- 
ents? The workflow depends on the crea- 
tion of two master files, the address file and 
the standard letter file. A temporary print 
file holds the letter (with an envelope print- 
ing routine chained to it) with each name 
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and address record merged using Scripsit's 
Insert Block command. The trick is to make 
sure I send only one letter to each potential 
recipient. More on how that is accom- 
plished later. 

Creating the Address File 

Each name and address record will be 
designated Block A in the list so it may be 
moved around at will during the merge 
process. You can name the block any alpha- 
betic character, but I use A because it is 
conveniently close to the letter Q on the 
keyboard, which, with @ (the control key) 
produces the command Scripsit needs to 
recognize the various block functions it has 
available. 

Start, then, with a name and address for- 
mat to be called Block A within another 
block (let's call it Q). 

Hold control, type Q, release control and 
again strike Q, thus naming the block. Now 
repeat the process, but name the new block 
A, To prompt for this first address line type 
name and leave enough blank spaces for 
the longest name on your list. Press enter. 

You will most likely label the next line ad- 
dress. Again leave enough blank space on 
the line to allow entry of the longest street 
address on your list. 

Since all the letters on my political mail- 
ing list are going to one election district, the 
next line of the address block will be the 
same for all addressees. Thus I type Cort- 
land, NY 13045. By holding control and typ- 
ing Q and the down arrow {i.e. block end) 
twice I now have an address format that I 
can use 700 times to create the 700 Block 
"A"s I will need to run the manual merge 
routine. Be sure to end each address block 
with a control block end enter command se- 
quence since the insert of Block Q does not 
move a block end signal with it. 

Figure 1 shows the Block Q format and 
the first three addresses on a fictional polit- 
ical mailing list. The underline symbol (_) 
indicates forced line ends (created by 
pressing enter) while the ieft (\) and right (]) 
brackets show Scripsit's block beginning 
and block ending symbols. 

After the name and address file is com- 
plete I delete the Block Q format since later 



I will use Block Q to manipulate the 
letter/envelope combination in building a 
print file. Save the mailing iist under its own 
unique file name. 

Creating the Letter 

Start with a full format line, even though 
most of the instructions are already default 
values. This confirms the instructions when 
you call the file for review on your screen. 

Then, since my candidate does not have 
a preprinted letterhead I use the C-Y for- 
mat command to center his name, address 
and telephone number at the top of the let- 
ter. Two spaces down I use the FR = Y for- 
mat command to set the date line flush with 
the right margin. Don't forget to counter- 
mand those two commands with C ^ N and 
FR = N before you type the body of your 
letter or the printed output will come as a 
surprise! 

Two spaces down again I insert a com- 
ment line using the greater than and aster- 
isk symbols to keep the line from printing. It 
reminds me >*INSERT BLOCK "A" ON 
NEXT LINE. 

I skip another line and I am ready to start 
the letter with the salutation "Dear M 
leaving plenty of space to type in r., rs., or s. 
and the recipient's last name. 

After typing the body of the letter and the 
usual closing, end the page with a page end 
marker, control V, which is indicated on the 
sample letter/envelope (Fig. 2) by the back- 
wards slash orvirgule. 

The Envelope 

The format line will take into considera- 
tion the short page represented by the enve- 
lope as well as the different left margins for 
the printer-produced return address and the 
recipient's name and address. Again a com- 
ment line reminding whereto insert Block A 
is helpful during the creation of the tempo- 
rary print file. Don't forget to type a Page 
End marker so you have a chance to change 
paper and envelope in the printer between 
letters. 

With the completion of the letter/enve- 
lope file designate the entire file Block Q so 
you have the opportunity to create a fresh 
document for each name on the mailing list. 



Figure 2 shows what the combrnation looks 
like when printed using the P,l command 
to show all of the invisible print format 
instructions. 

Putting It Together 

Load the name and address file. Then 
load and chain the letter/envelope file using 
the L,C command. This appends Block Q to 
the end of the address file so there is quick 
access to both the top and bottom of the 
combined file using the shift, up arrow and 
shift, down arrow keystrokes. 

Now go to the end of the file. Insert Block 
Q by holding control and pressing S(lnsert), 
Q (Block), and— after releasing control— Q 
(the name of the block). Using the down 
arrow, space a few lines to the first >*IN- 
SERT BLOCK "A" ON NEXT LINE prompt 
and insert the first name and address block. 
Space down again to the salutation and, 
after setting a Tab at the space after "Dear 
M..." (using the Break, TS, Enter routine), 
type the rest of the recipient's title and last 
name. Jump to the end of the document 
again (using shift, down arrow) and insert 
Block A where prompted. 

To assure sending only one letter to each 
recipient simply jump to the top of the file 
where the name and address blocks are and 
delete the used Block A by holding control, 
pressing D (Delete) and answering the 
prompt "DELETE OR UNMARK BLOCK (D 
OR U)?." with a D. 

The next name and address is now in po- 
sition to be inserted into a new Block Q at 
the end of the file by repeating the whole 
process. Although the procedure may seem 
complicated as each step is described in 
detail, by the time you have repeated it 
several times the keystrokes become al- 
most second nature and the process sur- 
prisingly fast and accurate. 

Warning: If the number of recipients is 
large it doesn't take many letters to fill up 
the computer's available memory. A one- 
page letter/envelope combination resident 
in memory with a 100-name mailing list will 
only allow about 10 Block Qs before a 48K 
machine returns the No More Room error 
message. The solution to the problem is 
two-fold: Break the name and address file 
down into several smaller files, and when 
you run out of memory save the existing file 
under a new name such as TEMPFILE. After 
you have printed the current letters and en- 
velopes, reload TEMPFILE, delete all of the 



TQ> [A>name 

address 

Cortland, NY 13045 

)]_ 

[AVMr. <r Mrs. Albert D. Voter 

36 Anylane Drive 

Cortland, NY 13045 

1_ 

[A>Nrs. Jacob Askher 

222 City Court 

Cortland, NY 13045 

]^ 

(A>Ms. Holly Woodstar 

5230 Glitter Road 

Cortland, NY 13045 

]_ 



Figure 1 



completed documents below your original 
Block letter/envelope combination and 
start the whole process over. Thus you have 
preserved the correct mailing list and, with 
each deleted Block A, have opened up more 
memory space for new Block documents. 
Printing the letters and envelopes is 
simple once you have cleaned up the file. 
First save the current file as suggested 
above. Then remove the top part of the file 



(names and addresses down through the 
end of the Block Q blank letter/envelope) 
leaving only the properly addressed letters 
in memory. Issue a P,P command to the 
printer so it will stop between each docu- 
ment to allow insertion of the next let- 
terhead or envelope. 

By the way, my candidate won. He thinks 
it was because of the mass mailing I 
prepared. ■ 



>PL-66 LM=12 RM=72 TM=1 BM=58 LS=1 PP=2 J=N C=N H=2 

>* NOTE: this is the letter format. _ 

>C=Y_ 

John Q. Candidate_ 

2136 Disk Drive_ 

Cortland, NY 13045 



>C=N FR=Y_ 
October 30, 1981 
>FR=N 



>* INSERT BLOCK "A" ON NEXT LINE 



Dear M . $ 

The body of the letter goes here 



Sincerely , 



John Q. Candidate 
\ 

>PL=23 LM=4 RM=90 TM=2 BM=23 J=N C=N FR=N VC=N H=N 
>* NOTE; this is the envelope format . 
John Q. Candidate_ 
2136 Disk Drive_ ~ 
Cortland, NY 13045_ 

>*NOTE : change LM=25 for short envelopes_ 
>LM=40 



>* INSERT BLOCK "A" ON THE NEXT LINE 
\ 

Figure 2 



BET ON! 



I STUDS 



A liue caret slud program so reaNslic 
you'll sweai you're lacing six professionals. 
You decide who's bluffing ar^d who has 
the cards Your opponenis lejrn 
your style anO tfiat ol Ihe others ar'fl 
modify iiieir betting strategies as 
the game proceeos You can define Ihe 
olayers chaiacteristics to mafcfi those 
of your Friday night poker cluD or let your 
computer deline them randomly. 

Only $15.00 



_ TOUT! 

A vastly improved version of ttie 
original TOUT horse race handlcapper, 
fJOw. thousands of races are simu- 
lated in seconds to give yno each 
horse s probaliilily of winning and 
identify overlays Horses are 
screened using factors oerived from 
an ooerations research study This 
liandicapoer outperforms programs 
ano calculators selling lor mpch more. 

Only $19.00 



%% 



DRAWS 



inis IS Ine pokei piaying prugram that s 
gelling the rave reviews 

"MXm wrt/'e eacn ol ine s'mulatea players 
lakes on ils own mamdual personalily- 
il's mosl uncanny . . DRAWS has OelmiWy 
snarpenea my playing skills ' (Lloyd 
Manin. ao Micfocompuung. Jan 198?) 
"II you like playing poHei. Ouy iiiis pwgiam. 
II mil De a long lime belore a belief one 
comes along.' {Richard Ciope. Compuw 
snapper. Jan. 1982| 

Only S20.00 



TRADE IN your old advertised handicapping and poker- AH progr^.ms an cassette lor Level II 16K (Models I and ill) 

playing programs and receive a $6.00 credit. Include ongmai Loading guaranteed Add S3. 50 to get one or more programs on 
cassetie/disl^ and doc j mentation witn your order. a formatted diskette. Pa. residents add 6^ sales tax. 

WILSON -"^^^ 

Software Division • 539 Springhouse Lane • Camp Hill, PA 17011 



TRS-80 IS a Tandy Corporalion IraOemurk 



^See Lis! ol Advertisers an Page 455 
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NEWS 



edited by John P. Mello Jr. 






Move to sell CC outside chain overplayed 



When the Tandy Corporation announced in July that for the 
first time in its history it would market a computer outside 
its company stores, the computer press spent a considerable amount 
of ink on the move, treating it as an admission by the Fort Worth 
firm it could no longer hold its share of the home computer market 
by distributing its Color Computer exclusively through its Radio 
Shack outlets. Much of that ink was misspent, according to one 
Tandy executive. 



"It's been way overplayed [by the 
press]," said Tandy's vice president for 
retail computer marketing Ron StegaU. 

He added the new distribution 
scheme is "absolutely a test. . .a non- 
controlled distribution experiment to 
see what kind of business is out there." 

The move, he said, is not an attempt 
to establish an alternative distribution 
network. "An alternative distribution 
system doesn't make much sense when 
you own the distribution chain you've 
got out there," he declared. 

Clive Smith, an analyst with the 
Yankee Group in Cambridge, MA, sees 
Tandy's move as "market research to 
see how its machine will do against 
other machines on the same shelf, 
rather than an attempt to build an alter- 
native or complementary distribution 
network." 

"I would be surprised if it were ex- 
panded to substantial proportions," he 
added. *'At this point, Tandy doesn't 
expect it to develop into a significant 
portion of its business." 

But Aaron C. Goldberg, research 
manager at International Data Corp. in 
Framingham, MA, attached more im- 
portance to Tandy's decision: "It's a 
very significant decision. It shows Tan- 
dy becoming a more aggressive com- 
petitor, going into these independent 
stores to build a market share." 

Although Smith doubted the Color 
Computer would make a strong show- 
ing in the experiment because it's 
"overpriced and has other problems," 
Goldberg reserved judgement on the 
outcome of the test: "Any time you 
have a system priced very attractively, 
has a wealth of software, and is broadly 

458 • 80 Micro, November 1982 



supported by the market place, you 
can't make a snap judgement that this 
tryoul distribution channel will be a 
failure." 

The new distribution channel will in- 
volve 60 independent distributors of 
RCA products, who reach some 2,000 
retailers. Stegall explained Tandy has 
existing business contacts with the dis- 
tributors because of a tv antenna plant 
purchased from RCA by Tandy. 

With 2,000 new retailers and Tandy's 
existing network, the Color Computer 
will have more than 8,000 outlets in the 
United States. However, that's less than 
the number of retailers hawking the 
home computer of one of Tandy's chief 
competitors, Texas Instruments. After 
announcing a $100 rebate scheme on its 
16K 99/4A, Tl's retailers zoomed from 
6,000 to 9,000 in one week. 

There is a significant difference, 
though, in Tandy's new retailers and 
its competition's: size. The competi- 
tion has gone after large, general mer- 
chandising firms— K-Mart, Montgom- 
ery Ward, J.C. Penney, Wooico, and 
Sears — while Tandy's distributors will 
be selling to smaller shops. "As a gen- 
eral rule," Stegall said, "the distrib- 
utor network is servicing your small 
video store that is handling the RCA 
line. Your big discount houses and 
department stores don't buy from dis- 
tributors. They buy directly from 
manufacturers." 

But there is at least one distributor 
who feels it can elbow Tandy's home 
computer onto the shelves of a mass 
merchandising chain. Southco of At- 
lanta, GA, told Elecironic News it has 
supphed regional K-Marts in the past 



and sees the stores as a potential cus- 
tomer for the TDP-iOO — the version of 
the Color Computer the distributors 
will be peddling. 

The model is a "totally different- 
looking machine" on the outside, Ste- 
gall said, but it is "similar" to the Color 
Computer on the inside. He added all 
Color Computer software and periph- 
erals wiU work with the TDP-IOO. 

"The main difference is it's going 
out in a while box," said Smith of 
the Yankee Group. "They're not de- 
veloping an alternative machine." He 
maintained the color change is a sig- 
nificant one: "It will improve the con- 
sumer desirability of the machine quite 
considerably." 

He explained: "Tandy has had a 
commitment for a long time now to 
what it calls Mercedes silver, what other 
people call batdeship gray. They went 
the other way with the Model 16 
because their market research showed 
them executives would not have a bat- 
tleship gray machine on their desk. Part 
o^ the market research they're conduct-' 
ing now is to see whether they should 
change the color of the lower end of the 
Hne as well." 

Soon after Tandy announced the dis- 
tribution move, industry observers 
claimed Radio Shack was forcing com- 
petition between its entrenched stores 
and its neophytes. 

Tandy's Stegall maintained the new 
stores "will never bump heads with our 
existing company-owned dealer net- 
work," but one competitor contends 
Tandy's test will be a Pandora's Box for 
the firm. 

Said Kit Spencer, Commodore's vice 
president for marketing: "I think it will 
be difficult for Tandy to be successful 
with independent channels because they 
will always have a conflict of interest 
with (heir internal channels. 

"How are you going to give the out- 
side people the same terms as their inter- 
nal people, who have always had price 
control of their own brand? The inde- 
pendents will be upset because they 
won't feel they're getting as good terms 



JAt^DYconlinued 

as the Tandy people, while the Tandy 
outlets themselves won't be happy 
because they have to compete with more 
people on the outside. 

"I think it shows some uncertainty 
about where Tandy is going in the 
marketplace." 

But the national accounts manager 
for Commodore's Consumer Products 
Division, David Harris, found no 
uncertainty in Tandy's move. He told 
E/ecironic News: "It was a logical move 
for Tandy to make. They are acknowl- 
edging the market is bigger than that 
which they can take advantage of 
through their stores." 

"Buyer's preference is becoming a 
very important issue here," said Texas 
Instruments' Consumer Group Manag- 
er William Turner. "Retailers over the 
last three or four years have been work- 
ing very hard at making a lasting fran- 
chise with a given consumer to get him 
to feel comfortable with buying all his 
products in a given channel or a given 
store. As such, 1 think Radio Shack is 
finding their market somewhat limited 
by working only through its channel of 
distribution." 

"They're acknowledging they don't 
want to lose [their] market share," 
Commodore's Harris added. 

That market share would mean sub- 
stantial revenues for Tandy. Analysts 
estimate the market to be $500 million 
to $800 million this year, $2 billion next 
year and $3 billion by 1985. But accord- 
ing to some analysts, Tandy will need 
more than a new distribution scheme to 
maintain their slice of the market. It will 
need price cuts. 

Both Smith of the Yankee Group and 
Robert Lyon, a portfolio manager at 
the Fred Alger Company, an invest- 
ment and brokerage firm in New York 
City, maintained the Color Computer is 
overpriced in today's home computer 
market. Lyon observed: "I think they 
have to cut the price of the Color Com- 
puter. I think they have to bring the 
price down substantially." 

"Radio Shack has enjoyed an oppor- 
tunity to get a premium price for their 
product compared to the competition's 
by having only one product on the shelf 
in Radio Shack stores," Turner of 
Texas Instruments said. "When Radio 
Shack goes into the marketplace, 
they're going to have to be more com- 




petitive in price. Every other product on 
the market has more functionality for a 
price equal to or lower than Radio 
Shack's." 

By the end of 1983, he predicted, any 
home computer maker who wants to re- 
main competitive will have to retail his 
product between $175 to $200. 

"This is a razor business," he con- 
tended. "You sell your razors cheap 
and you maximize your sale of razor 
blades. Razor blades in this business 
are software in cartridge format — not 
disk or cassette format — with an ex- 
pansion capability for skilled users as 
they grow." 

Because it controlled its distribution 
chain, Tandy, to some extent, could re- 
main aloof from price wars. But as 80 
Micro went to press, there were signs 
Tandy would unsheath its broadsword 
and storm into the pricing fray. By the 
end of August, the Electronic News was 
quoting unnamed sources close to Tan- 
dy as saying a CC price cut was "im- 
minent." 

Those price cuts, in the minds of 
some analysts, were signaled by the out- 
side distribution scheme, since the cor- 
poration could not control discounting 
by independent sellers. 

According to Electronic News, the 
cost of making the CC ("well under 
$200") is not as low as the cost of mak- 
ing the VIC ($80 to $90), but it does 
leave room for discounting. How much 
room, though, was questioned by Smith 
of the Yankee Group: "Tandy is not 
going to the dealers. They're going to 
the distributors, which means there's a 
lot less leeway for the computer to be 
discounted." 

That prospect doesn't seem to be 
worrying the retailers served by RCA's 



Tandy's President John Roach has ap- 
proached Herculean task of competing in red 
hot home computer market by letting the Col- 
or Computer break out of the Tandy distribu- 
tion chain. 

independent Boston-area distributor, 
Eastco of Westwood, MA. Audio Divi- 
sion General Manager Joseph Cunning- 
ham said the retailers he's talked to 
about carrying the TDP-100 were "very 
enthusiastic" about the prospect. 

Stegall argued consumers will be 
looking at more than prices when shop- 
ping for a home computer. They'll also 
be looking for expandability. "The Col- 
or Computer has legitimate expandabil- 
ity at a reasonable price," he said. "The 
cost to expand the machines that under- 
price our machine is considerably more 
than the cost to expand ours." 

But portfolio manager Lyons insists 
that without price cuts, Tandy's outside 
distributors will find very few takers 
for the white CC: "They're not going 
to put this on the shelf when Toys R Us 
is selling the Atari machine for $250 
and a Commodore for less. How's it 
going to sell?" 

That's a good question in the face 
of dizzying price moves by Tandy's 
competitors: 

• Texas Instruments — which is aiming 
to be top dog in the home computer 
market by the end of the year — has ef- 
fectively reduced the price of its 99/4A 
to $199 by offering a $100 rebate with 
the purchase of that model. 

• Commodore is offering a new game 
machine — the Max, listing at $179 — 
and offering dealers a $25-$40 price 
break on the VIC if they pass the break 
on to consumers. 

• Atari, the Electronic News speculat- 
ed, may, in the face of those moves, 
release its new model 600 at a lower 
than originally planned price. 

Add to that an impending invasion 
by a bevy of low-priced European and 
Japanese computers (including a Color 
Computer clone produced by Dragon 
Ltd. of Swansea, Wales, UK) and 
you've got what amounts to a pricing 
holocaust. 

With that kind of price war looming 
over the market, a question some ob- 
servers are asking is, is Tandy's experi- 
ment too little, too late? "Radio Shack 
has a strong marketing capacity," 
Turner responded. "They have knowl- 
edgeable, good marketing people. My 
suspicions are they will make the appro- 
priate marketing reaction." ■ 
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andy hot line 



Customers debate end of toll-free service 

Midwestern software entrepreneur and programmer Bob Snapp 
became the standard bearer for the Tandy Corporation in 
CompuServe's Software Author's Special Interest Group during a 
flurry of exchanges spurred by Radio Shack's dropping of its toll- 
free customer service lines June 1 . 



*The reason for dropping the 800 

number was quite simple and sensi- 
ble," Snapp wrote on the CompuServe 
SIG's bulletin board. "The availability 
of the toil-frec call prompted thou- 
sands of calls that never should have 
been made. Faced with the choice of 
looking in the book and calling a toll- 
free number, many folks opted for the 
latter. As a result, folks who Rf^ALLY 
needed help had to be put on hold for 
45 minutes on the average. The bottom 
line was that they were providing BAD 
customer service through lack of avail- 
ability. Each time they added more 
lines and staff, the calls just increased. 
This change will filter most of the 
'junk' calls, so they can provide better 
service to those who really need it." 

In a telephone interview with 80 
Micro, Ted Rosenberg, the customer 
relations manager at Tandy, echoed 
Snapp's view: "Wc found, quite to our 
surprise, simply adding more WATS 
lines wasn't really doing anything. In 
fact, it made things worse. 

"We used to get letters saying I've 
been on this queue waiting to get 
through to you guys for 20 minutes, 
half an hour, an hour and a half — 
you name the number. We had al- 
most 65 WATS lines and it wasn't 
doing diddley." 

But business consultant George Her- 
man disagreed with Radio Shack's ra- 
tionale for ending the service. "You 
either give service or you don't," he 
wrote in a bulletin board message. "If 
your view of the customer is punitive, 
then you deny him service. ,, 'I andy 
forgot who exists for whom." 

He went on to say in another 
message: "Tt seems to me Bob Snapp's 
report indicates a punitive approach lo 
customers that is exactly the opposite 
of what the conceptually intimidating 
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PC industry needs at this point. 

Then Herman offered this tongue-in- 
cheek alternative to total aboHtion of 
Tandy's hot line: 

"Let the dumb customers listen to 
Muzak for an hour. Offer a toll 
number for any customer who wants (o 
pay for it. Use a red phone. Give this 
hne immediate priority. If the ques- 
tions are still dumb, charge a fee. Tell 
ihem to call toll-free with dumb ques- 
tions. But keep the 800 line open to the 
dummies — they're your customers!" 

If the Fort Worth powers didn't 
like that suggestion, Berman had 
another one; 

"Tandy sets up a committee to de- 
termine the quality of each incoming 
request. If it's a sort of excusable ig- 
norance, let him pay the toll charge. 
If it's a real [bleep] question, invoice 
him SIO and explain why he really 
shouldn't own a computer if he can't 
think his way out of a paper bag. And 
when it's a true bug or it stumps the ex- 
perts for more than 15 minutes, send 
him a check for $10 and a certificate 
suitable for Framingham. ..." 

The Snapp-Bcrman debate stirred 
Roy Green to enjoin: "I have to agree 
with Bob. I know Loo many people 
who would call the 800 number to get a 
clue to Rakka-Tu or Pyramid!" 

Green's comment prompted a part- 
ing shot from Tony Camas: 

"I think that Tandy should realize 
that by selling computers through 
Radio Shack stores, they're going to 
sell some machines to people who 
probably shouldn't have bought them. 
These people need a good deal of 
handholding and if Radio Shack is a 
responsible retailer, they should pro- 
vide it or risk being badmouthed by 
these gullible folks. 

"In fact, I'll bet that the proper 



analysis would reveal that the 'dumb' 

questions come from a continually re- 
freshed phalanx of new owners who 
need initial support — and now don't 
have it as part of their purchase. 1 
know I often bother a tech service 
group for about three weeks after I buy 
a computer/time share/data bank ser- 
vice simply because it ain't all in the 
manual. 

"My approach to clients is that there 
are dumb answers, but no dumb ques- 
tion." 

Snapp replied to Berman's broad- 
sides: "Many new users need a certain 
amount of handholding. Tandy wants 
them to get it. That's why they estab- 
lished the relatively new position of 
CSR at each RSCC. Most folks could 
get the answers to their simple ques- 
tions from the (simple-minded) CSR 
via a local phone call. This would take 
the pressure off the (supposed) tech- 
heavics in Fort Worth to deal with the 
more serious problems." 

Tandy's Rosenberg added: "If a 
customer has a problem, his first step 
should be to go lo his computer center. 
If the man at the computer center 
doesn't know the answer, then the 
Radio Shack guy will call us, so its on 
our nickel." 

"Now," he continued, "people who 
have to call Fort Worth get in much 
faster. The reps don't keep them on 
the phone. They get the information 
they need and they're off. It also 
discourages people who, with all due 
respect, are too lazy to look into their 
instruction book. They tie up the 
phones for someone who has a legiti- 
mate problem." 

"Has it occurred to you," Berman 
asked rheLorieally, "that the present 
arrangement favors 'dummies' in Fort 
Worth over those in Yonkers and pro- 
portionately in between?" 

"The problem is, having made the 
800 number available once, it will do 
them a great deal of harm now that 
they are taking it away. 

"Now that they have created the 
monster, it is irresponsible to try and 
sweep it under the rug."H 
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MODEL U MASS STORAGE FROM ZZZL.. __ 

AT LAST! An Alternative to Radio Stiack's Over-Priced, Over-Sized Model II Disk Expansion! 




The Inlernational Instrumentatjon THIN THREE" disk drive enclosure is 
the Berteci aiternaiive to RadioShack's expensive, Oulky dislsexpansiun 
box for the Model II. T^e THIN THREE'" is designed to hold three hall 
sizeTandon TM848-1 8" disk drives. These are the same drives Radio 
Shackisusinginthe new Model 16'". TheTHIN THREE'" occupies less 
than half of Ihe space required for Radio Shack's disk box, leaving you 
more room to work Best of all the THIN THREE'" with drives and cahles 
installed, is priced at only $1795.00. THATS $555.00 LESS THAH THE 
RAOID SHACK DISK BOX! 




FEATURES 

• Connects airecily lo the disk exfiansion port on the t)ack of your Model II 
no hardware modifications are required ■ completely Model II compalihie 

• Filtered positive pressure forced air cooling for dust-free reliabledisk 
drive operation 

• Internal data cahle for easy hook-up, 

• AC input via 3 wire 7 foot internaiionai cord/sxket set. 

• AC input EMI filtered 10 six amps to help prevent disk crashes due to 
power spikes and line noise. 

• Slide out chassis with front panel pulls for easy access to drives. 

• Disk Environment Monitor Panel monitors supply voltages and 
displays internal case temperature on standard DVM Alarm sounds 
if case femperature exceeds safe limits; protects your disks 

" aluminum rear panel with socketed power pass devices tor cool, 
trouble free power. 



• 14 gauge main chassis 

• Easy externally replaceable fan filter. 

• integral power supply with 5V@6A/-5\/® IA/34VP6A 

• Douhle-sided custom PC power board and supply engineered 
especially for tlie THIN THREE'". 

• Each DC supply and AC separately fused 

• Overvoltage protected 5V supply. 

• LED power supply monitors and lest jacks for each supply on rear 
panel 

SKPDBIIITRS/\ & T with antefnal data cable ana Si 795.00 

IIIMZPATCH TRSDOS ENHANCEMENT PACK.'^GE 
(Shipped Motor Freight Collect) 

III TRSDQS"' UTILin ENHANCEMENTS 

This package of 1 Z individually selectable utility programs is designed for 
the sophisticated iBlodel 11 TRSDOS" user. Each utility is designed to 
increase system efficiency by overcoming the limitations of TRSDDS"". 
Here are three examples. 

• Modifies TRSDOS'" 20or2.0AtorunwithOC-motordiskdrivessuch 
as the TandonTM848-1. 

• Elimination of password protection on TRSDOS™ files to allow total 
user manipulation of these tiles. 

• Changes TRSDOS'" sleprate tram 20ms to12ms;usermay adjust to 
as low as 6 ms 
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Supplied on 8" disk 



Sg9.9S 



TRSao Model II. TRSeO rnodel 1 6, TRSDOS, and Radio Shack are trademarks 

of Tandy Cnrp THIN THREE is aii^demaik^rldtemationalliislrunienialian. 



MORE PERIPHERALS FOR THE TRS-80 MODEL H 

*Also For Your TRS-80 Models I and III 



FUJITSU FROM SELLUM 

LETTER QUALITY PRINTERS 




80 CHARACTERS PER SECOND!! 

That's over three tinBS as fast ai Radio Shack's Daisy Wheel II 

The Fujitsu SP83 letter quality printer from Solium ib net only the 
fastest daisy wheel letter quality printer on the market it is also the 
most versatile, II may he hooked-up to either the parallel or one of the 
serial portson your Model 11® It has five different printer pnDtocols bo iff 
in so it will run with jusi ahout any word processing package on the 
market including SCRIPSIT*. The printer is built to he solid andquiet; it 
won't shake the oft Ice down with every carriagereturn. It alsohasaI6K 
buffer (48K optional). The buffer allows your computer to send data out 
lo the printer and not have to wait tor it before allowing you lo continue. 
No more staring at the screen waiting for the printer to finishli 
MORE SPfCIAL FEATURES: • Z80 CPU • &0-19.2K baud on serial 
iiiieiface • Distinct alarm sound foreach error condition • Intelligent 
bi-directional logic seeking • Complete wonj processing features 
including sub and super script, underlining, and double-stnke char- 
acters • Auto reprint • Auto Clear • Proportional spacings and 
supports automate justification • Front panel fomis contnil • Com- 
patible with most mechanical sheet feeders • Ouiet-60db • Siy 
month warrantee 



Pari Ho. 



Daicripbin 



Uit Price SALE 



BKPOBSLMFBB Printer w/16K buffet $3495.0052795.00 

BKPDBSLMFB6B48 Printer w/48K buffer $3895.00 S3095.00 
BKSLfUFBBVFT Optional vertical forms tractor S 200.00 

8KSLfi1PS34002 Model II Parallel Cable S 80.00 

SKSLMPE340D3 Model l/lli Parallel Cahle S 80.00 

'Printer shipped via motor freight coitect) 

8 CP/M® SOFTWARE FOR MODEL II 

MICROPRO INTERNATIONAL 



BKMOSWOSTR 

8KMDSMIMRG 

eKfflDSSPSTR 

BKMDSCALSTH 

SKMDSOATSTR 

BKMCSSUPSET 



Woidsiai Veisioir 3.0 
Mail Merge* 
Spell Star- 
Calc Star* 
Data Star- 
Supersort' 



S249.D0 
S100.DO 
SISO.DO 

Szoo.oo 

$200.00 

Siao.oo 



''Trademark o' Mir.roprn International 

SOSCIM 

8KS0RCAL SUPEFICALC- a Superior Electronic $229.00 

Worksheet 

'Trademark of Sorcim 
MICROSOFT 

8KMDSBAS8D BASIC-BO* Version 5,X Extended ■ $300.00 

Disk Basic 
8KMCPBASC BASIC- Compiler Version 5.X $395.l» 

eKfUDSfHIFT FORTRAN-80* $500.00 

'"' ~-..i- -ft Microsoft Coni: — ■ ■ ""' — 

HSiiiai^^^HiHiiiiiiibifiiiiiiil 



OKIDATA DOT MATRIX PRINTERS 




COMPARE OKIDATA'S FEATURES TO 

ANY OTHER PRINTER! 

COMPARE PRIORFTY ONE'S PRICES 

TO ANY - THEN DECIDE!! 

DON'T BE FOOLED BY THOSE WHO TRY TO "SOAK" 
YOU FOR THE TRACTOR 



80 CPL Li 10 CPl loi32A 
132 CPL@ 10 CPIfor83A 



• BI-DIRECTIONAL 120 CPS 

• 9 X 9 Matrii! (Alphanumeric) 

• 6 X 9 w 12 Matrix for grapdics S. 84 

• 10 Oiffereni character sets • 82A&e3Ahaue both Centronics 

• 5,83, 10, or 16 Characters Parallels 1200 baud Serial I/O 
perincli • Sett Test 

All OkiOata pnnters feature 10 front panel switch selectable from 
lengths from 3" to 14" Front or bottom paper loading of up to four part 
forms, tear bar, andout of paper switch Most important of all, OKIDATA 
printers are built to survive the business or industrial environment wbere 
you'll use them All of these features make OKIDATA the best value in 
low cost printers! 
PART HO, DESCRIFTIDN SALE 

S 539700 

750.00 

143.00 

1095.00 



BKPDBDKIBZftTG OklDATA 82A w/tractor & graphics 
BKPQBDKieSATG OKIOATA 83A w/tractor S graphics 
BKDKISER2KBf 960G Baud 2K Serial buffer/interlace 
BKBKmATB4ftP 132 cof printer parallel interface with 

graphics and tractor 
8X0KIDflT84AS ' 32 coL printer 9600 buad serial 2K inter- 
lace, graphics, and tractor 
BKPRinmPSUr 5' Model il Parallel CaWe 
GKPfllAFUPTRSO 5' Model I/Ill Parallel Cable 
BKCtlDOKlSERBF 8' OKIDATA Serial Interface Cable 



$1250.00 



t9.95 
t9.0S 
24.05 



(Shipping Weights: 82A 25 lbs.: 83A & 84 35 lbs.) 




SEND $1.00 TODAY 
FOR THE NEW, FULL COLOR 
SPRING 1982 ENGINEERING 

SELECTION GUIDE! 




MODEMS 

ID Hayes 

SMARTMODEM 

The HAYES Smartmodem will alow you to take advantage of the many 
database services available for your TRS-SO such as Dow-Jones, the 
Source, and others. The Smartmodem nins directly off an RS232 serial 
port 

FEATURES: • Auto Answer, Auto Dial • Variable data formats • 0- 
30Cbaud • lnternalZ8Microprocessorwith2Kbcontrol program* 40 
character command buffer • Easy to pnDgram with simple commands 
from your keyboard, 

PART NO, DESCRIFTIDN LIST PHI CE SALE 

BKDCHOZOOP Smartmodem |Sh Wt 6 lbs.| $279,00 $225.00 
BKDCH0400P Smartmodem 1200 baud S699.00 $649.00 

8KDCHOSO0P Chronograph (Sh WL 3 IBs.) S249.00 $205.00 

8KI:NDRS2328F 8' RS232 Class I Cable S 19.95 

THE STAR ,i ^ 

by , 

PRENTICE 

• Olu 300 buad • Beii103and 113 

• Exclusive triple seal acoustic chamber 

• Self Test • Runs off BS232 Port 
8KPRNSTAR flS232,TTL,20HflaCurrentLoop $199.00 $127.00 
8KCNDRS2328F 8' RS232 Class 1 Cable $19.95 

DISKETTES! 

SOFT SECTOR 

40 TRACK SINGLE SIOEO 

DOUBLE DENSITY WITH 

HUB REINFORCING RINGS 

PACKAGE OF 1 0$\9.9^ 

BONUS! 

FREE!! KASSEHEIO 
LIBRARY CASE WITH 
PACKAGE OF 10 DISKEHES 

A S4.Z5 yALllE!! 8KPRf5SDD iSh Wl 2 lbs.) 

8KPRI580 package of SO less Litirary Case $120.00 

ELECTRONICS 







.PRIORITY 

9 .1 6 1 DEERING AVE • CHATSWORTH, CA 9 1 3 1 1 S^ 
ORDER TOLL FREE (800) 423-5922 CA, AK, HI CALL (2 13) 709-5464 

Temis. U S. VISA, MC, BAG, Check, Money Order. U.S. Funds Only CA residents add 6ft% Sales Tax. MINII^Ut^ PREPAID ORDER $1 5.00. Include f^lNlfilUttl 
SHIPPING 5 HANDLING ot $3.00 lor the first 3 lbs. plus 40t for each additional pound Orders over 50 lbs sent freight collecl Just in case, pleaseinclude your 
phone number Prices subject to change without notice. We will do our best to maintain prices through November 15, 1982. Credit Card onlers will be charged 
appropriate freight If you haven't received your Spring 82 Engineering Selection Guide, send 11,00 for your copy today! Sale prices are lor prepaid orders only. 
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Seven e-papersfold after two years on line 



By Joh^j p. Mello Jr. 
80 Micro News Editor 

Without much fanfare, a two-year experiment in videotext 
journalism involving the Associated Press, 10 newspapers, 
and CompuServe ended June 30. The final verdict isn't in on the 
test, but its participants appear to agree on one thing: the market 
isn't there yet for a profitable electronic newspaper. 

Those piiblicalions, he said, should 
be aimed at computer enthusiasts of 
any professional area where people are 
frequently in contact with computers. 

"The fact that people weren't beat- 
ing our doors down to sign up for the 
service might be interpreted as failure, 
but we don't see it that way at all," 
San Francisco Chronicle Executive 
News Editor Kenneth E. Wilson con- 
tended. "The market is still a few years 
away, but what we learned was we 
could do it and that was really some- 
thing for us to learn." 

When the newspapers began their 
experiment (80 Micro, November 
1981, p. 74), most of them said they 
were participating primarily for the ex- 
perience of working with videotext and 
not to turn a profit. But one videotext 
editor argues money was the primary 
reason most of the newspapers folded 
their electronic editions. "What it 
comes down to is money," Jim Crowl- 
ey of the Columbus Dispatch main- 
tained. "We ain't making it." 

In a column on the electronic Dis- 
patch (see "I sweep floors" box), 
Crowley said his e-paper made $4,000 
for CompuServe since July 1, 1980. He 



"There is a lot more smoke than fire 
in this area to date even though some 
day it's going to be a big thing," an ex- 
ecutive at one of the -participating 
newspapers observed. "It's obviously 
some time off because it's very expen- 
sive for the consumer as well as the 
provider." 

"We don't think that as the technol- 
ogy is now [an electronic newspaper] is 
a profliable venture," noted Glenn 
McCutchen, managing editor for ad- 
ministration, Atlanta Journal and 
Constifulion. 

Not only is the technology expen- 
sive, the CompuServe experimenters 
found, but the audience for the prod- 
uct is small and specialized. 

The Washington Post's manager for 
electronic publishing research and de- 
velopment, Harold Logan, observed: 
"The reader of the electronic news has 
to be someone who owns a receiving 
device. The demographics of those 
people makes them a specialty audi- 
ence. They're male. They're upper in- 
come. They're white. They're highly 
paid, college-educated people. I think 
that defines a pretty specialized au- 
dience." 
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explained revenue from an c-paper's 
interactive features^games, cross- 
words, and the like— arc spUt 90-10 
and for news and information, 80-20. 
In both instances the hon's share goes 
to CompuServe, which charges $5 an 
hour to access its system weekday eve- 
nings and all day Saturday and Sunday. 

Gordon Phillips, director of promo- 
tion and public relations at the Los 
Angeles Times, noted money played a 
part in his newspaper's decision to cut 
loose from CompuServe: 

"The CompuServe experiment was 
just that: an experiment. There was 
some expense involved and we felt we 
learned about as much from it as we 
could for the present time. This is a 
tight economic year and our invest- 
ments really needed to go into some 
other areas." 

"We are not making money on 
CompuServe. I can categorically say 
that," said the Post's Logan. 

But that isn't deterring the Washing- 
ton daily from continuing the Compu- 
Serve experiment. Logan said the Post 
will continue furnishing the Columbus, 
OH, information utility the entire text 
of the newspaper and an electronic 
product emphasizing the paper's 
strongest suit: coverage of the federal 
government. 

He noted: "There is a market for 
electronically delivered news. It may 
not be as large and robust a market as 
we suspected two years ago, but if you 

continued 




Our Users asked for it, and we made the 
best TRS-80 disk assembler even better! 
Now M-ZAL has: 

■ Recursive MACi^OS with full symbolic parameter 
substitution 

■ Conditional assembly with uniimited nesting 

■ Text Editor warm-start/recovery option 

■ Support for all popular source file formats 

■ Load Module inspeot/superzap using LiNKER 

and the features that made it famous: 

■ True muiti-pass ossembiy 

■ Fuil Screen Option Menus 

■ ENTRY/EXTERN symbois, relocation, and object 
module linking 

■ 8 character labels with sorted symbol table 

■ Built-in symbol table cross-reference 

■ Nested * INCLUDES (source file chaining/nesting} 

■ Lower case support (Model 3 only) '' 

■ Over 175 pages of documentation including 
Z-80 Teohnioal Manual 

■ Full Screen Text Editing and much, much more! 

M-ZAL provides o modular, structured developmertt 

environment that makes programming your TRS-80 
a truly enjoyable experience. Order yours today 
(Requires 32k, 2 disk system) 

*1050-10 Mod 1 S149.00 

*1250-10 . Mod 3 $149,00 




Full Screen lexi tairor ror BASIC: we were the first to 
give the TRS-80 this indispensable ability! A must for 
every BASIC programmer: 

*1010-20 Mod 1 $24,95 

*1210-20 Mod 3 S29.95 

T-ZAL: custom designed for the Model 3, this tape 
fjQsed assembler has many of M-ZAL's most 

desired features. 

* 1 250-20 Mod 3 only S49.95 

XBUG: for machine language analysis and 
debugging— this tiny (2.5k] but powerful program 
lets you do it all! 

*1020-10 Mod 1 $19,95 

#1220-10 Mod 3 519.06 

FILEXFER: transfer any disk file between two TRS-80s. 
Use direct cable link or RS modems, Mod 1 and 
Mod 3 can be mixed, RS-232 and disk reqd, - 
*1040-10 Mod 1 and 3 $49.95 



'We've been using A/f-//, "eow'v' /n? 
over two months now. r* - -' it s oeen 
wortt) its weight in gain 



'!,.tve/,/ written sottware i"( ^ '. (l\ 
overdue." mm .- l <. 

''During the first 3 dn/s of Uot M /A', 
saved more money in progroi ? // / 'ors 
time than we tiad pai'i tor the 

'~"^" ■■■■\'v':!:.(j > r I II 

Mi-!) , I 





ja: 




"The editor has at least -jOi.i. '-- ' n ,- 
productive capacity.... Ha vin^^ ^c-or t a 
good deal of money on ^-o cui!L,d 
'utilities' that don't work it's a delight 
to find one that not only lives up to its 
-^atms but surpasses the aaveifislng.%.^ 



Our choice for the best TRS-80 DOS: 
DOSPLUS 3,4 Modi $149,00 

DOSPLUS 3,4 Mod3 S149.00 



Call or write for more information. 
All products require level II, 
Mail orders specify catalog *, 
Send check, money order, or MC/VISA 
numbers and expiration date to: 

Computer Applications Unlimited 

P.O. Box 214, Dept. ABM Rye, New York 10580 

(914) 937 6286 

N.Y, State residents add applicable sales tax. 
Outside USA and Canada add $7.00 shipping. 
Dealer Inquiries Invited. 




/?y. 



ci 



'JU APPLICAnONS 
UNLIMITED 



I div. of CAU, Inc. 



1^120 



TRS-80 is a TM of Tandy Corp. M-ZAL is a TM of CAU, Inc. 
Z-80 is a TM of Zilog, Inc. 



.-See List of AOverlisers on Page 455 
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V'Tc-ATcontinued 

look at the research, ii is clear lo us that 
there is a market, out there." 

Asked how long the Post will remain 
on CompuServe, Logan replied: 
"There's been no deadline set. I 
suspect we will continue with Compu- 
Serve for as long as we feel we're learn- 
ing something about how to present 
news in an electronic medium and for 
as long as CompuServe will have us." 



Leonard R. Harris, director of cor- 
porate relations for the New York 
Times, said the test "shows there is an 
interest in retrieval of specific informa- 
tion." However, he added, "It doesn't 
indicate people will necessarily find 
videotext or teletext a substitute for a 
newspaper in its traditional form." 

"At this point," he coniinued, "a 
newspaper is a far less expensive way to 
display information of all kinds. If you 
wanted to read current news, current 
advertising, and current lifestyle infor- 
mation, it's a great deal cheaper to buy 
it printed on paper than it is to buy it 
on a screen." 

The Poi'?'^ Logan added: "There are 
substantial differences between the 
way people use these things. The exam- 
ple people use all the time is you can't 
take your computer to the bathroom 
with you. You can't give the sports sec- 
tion to daddy and the style section to 
son and the I'rom page to someone 
else." 

In the experiment, the Associated 
Press was the most-accessed news 
source, the New York Times was sec- 
ond, the Post third, and ilie Los 
Angeles Times fourth. 

"If you look at the 12 news entities 
on the service, i hose four are by far the 
best known nationwide,'' the Post's 
Logan observed. "What's difficult for' 
us to ascertain at this point is whether 
we're looking at some kind of name- 
recognition phenomena, or what we're 
looking at is some reflection of !he 
quality of the product." 

Those access figures crosscut some 
popular ideas about the content of an 
e-paper since the AP provides hot, 
breaking news and the New York 
Times, Post and Los Angeles Times 
"dumped" their printed editions into 
the CompuServe system. 
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Harris of the New York Times main- 
tained: "Hot, breaking news is about 
the least useful thing you can put out in 
this kind of system. Hot, breaking 
news is available on radio and tv." 

"At this point," Minneapolis Star 
and Tribune editor Sieve Pouller 
argued, "people arc wilHng to adapt 
themselves to use the national papers^ 
the New York Times and Was/iington 
Post — in electronic form." 

"Economically, it's very easy to 
dump an entire newspaper into a data 
base," he continued. "You've got the 
keystrokes captured in your computer; 
you send it off and it sits there. If 
you've got a national newspaper with a 
national audience, you'll probably get 
someone to read it. In the long run, 
though, I don't think it's going lo 
make sense from a consumer's point of 
view." 

Logan agreed with Poulter: "Wc 
don't think there's a market for the full 
text of the paper. Wc think the cost 
considerations and the way people use 
the tubes mitigate against that." 

"You use your CRT retrospectively, 
in some respect," Harris added, "to 
get details you may have missed from 
other sources." 



Rather than dump their dailies into 
the system, two of the experimenters — 
Columbus and Minneapolis — slanted 
their electronic editions toward com- 
puphiles. Crowley, at Columbus, in- 
eiudcd a batch of the two-way features 
that enthuse chipsters: interactive 
crosswords, video games and CB-radio 
simulation. 

"You could get the same news from 
every one of those papers," Crowley 
said. "The reason we branched out in- 
to CB, games, and computer news was 
we wanted to be a cut above the other 



papers. 

He explained the Columbus e-paper 
began its message system and CB fea- 
tures in February. "We wanted to give 
people an alternative to the regular 
hee-hee, ha-ha of CB, where you just 
get a bunch of people with weird han- 
dles," he continued, "I'm not running 
that down, but I'm saying people need- 
ed something a little more serious." 

"The message system," he noted, 
"sparked a subslanlial amount of m- 
terest. 1 got more feedback about the 
paper than I ever got through electron- 
ic mail." 

"And," he atldcd, "since you could 
post messages to other users, I found 
the message system a good springboard 
to get people to read the paper." He 
cited one occasion when he warmed up 
his readers to a series on computer 
crime by having them "talk" on the 
e-paper's CB to a lawyer speciahzing in 
that subject. 

The CB feature increased interest in 
Crowley's e-paper, but its draw was 
small compared to systemwide figures. 
Since it began, the Columbus CB was 
accessed 8,000 times and 1,957 mes- 
sages were posted on it. By compari- 
son, CompuServe's CB-message setup 
was accessed 100,000 times and 33,000 
messages were posted on it. 

With the end of the CompuServe 
test, some of the newspapers have 
branched into other experiments. The 
New York Times is participating in the 
CBS Ridgeway, NJ, videotext experi- 
ment [seeSOMicro, April 1982, p. 362) 
and the Los Angeles Times in an 
Orange County, CA, test involving 300 
homes. 

While the market may not be there 
yd for a profitable videotext newspa- 
per, most of the experimenters seemed 
to share the sentiments of the L.A. 
r/me^' Phillips: **We feel there is still a 
great deal of experimentation to be 
done, a great deal to be learned." ■ 
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sweep 



By.IimCk()\vii:\ 

(.:()MK[IH IIN<. KDIHIU 



(Ed. Note: The following is the opinion of Jim 
Crowley, operator of the Columbus Dispatch on 
CompuServe since July 1, 1980. it does not repre- 
sent tfie views of the newspaper. It was written 
when the electronic D\spa\c\n was set to close shop 
in September. However, the e-paper continued 
publishing through October.) 



I sweep floors." 



That's much easier than trying to explain to 
most non-computer types what a videotext jour- 
nalist does. 

Most computer types don't give a rat's rear end 
about it anyway, so ! don't even try to tell them. 

Most newspaper people don't understand or 
want to. After all, you can't wrap fish in your termi- 
nal and I defy anyone to try and read one on the bus 
or the toilet. 

So why are we here and why did six other news- 
papers decide to bail out? It's the almighty dollar, 
but I can tell you, we ain't making it. Since July 1, 
1980, we made about $4,000 and that doesn't quite 
pay our rent. 

We are on here until September to gather data 
about this medium. Period. 

We are the victims of the HEEHEE, HUG and 
KISS of regular CB, turtle speed 300 baud, and gen- 
eral indifference. 

Most CIS users think menus are the most exas- 
perating thing since child-proof medicine bottles. 

Newspapers, or in CompuServe parlance, NIPs 
(for Newspaper Information Providers) have lost a 
computer war by trying to fight with Gutenberg 
technology. 

It makes me sad, personally, and leaves me emp- 
ty professionally. 

The papers that died, including the New York 
Times, didn't get the same press that a newspaper 
death would get in the real world, I guess that un- 
derscores the view that newspapers here are not 
viewed as real. 

Funny. Because we stilt publish every day. And 
we update our news hourly. And our production 
costs are minimal: one newsman a shift. 

Show me a real newspaper that can do that and I 
will eat my modem. 

When the Times quit, for example, avid readers 
w^ere greeted by a terse termination announce- 
ment. Can you imagine the hubub if the REAL 
Times put out a blank paper other than a few-graph 
story that just said they were closing down that 
day? 

It would give the D.T.sto bottle-in-the-drawercity 



editors everywhere! 

I have read a ton of stuff adulating the joys of 
"state-of-the-art" journalism and none of it says 
that this is a medium and technology without a 
market. But it is for at least 10 years. 

And if I had a nickel for every masters and doc- 
torate paper I have been interviewed for, I could buy 
CompuServe. 

There is one thing that has happened to me in 
this journey through never-never land that makes it 
all worthwhile. That is our SIG. 

SIG is more CompuServe alphabet soup for Spe- 
cial Interest Group. It Is an interactive message 
system that also has an open channel CB. 

When you combine NIP with SIG, it comes out 
NIPSIG, which sounds like some new oriental 
strain of herpes. 

NIPSIG can be found at CDP 100. There I go 
again. CDP is Columbus Dispatch Page. 

Anyway, if you come from CIS into CDP 100, you 
see "Request recorded. One moment, please." And 
in case you miss it the first time, the system does it 
again once you get there. 

Just what you need at $5 an hour, right? " 

If you survive and stumble into our conference 
mode, you will find it worth the trek. 

Since we started the SIQ in February, we have 
had several conferences. A compulawyer talked 
about computer crime and a local entrepreneur 
talked about electronic publishing. Atari, Apple 
and Tandy came on to answer questions. Handi- 
capped users have gathered to talk about their 
special needs on this system. 

More are planned, but I think what is more impor- 
tant are the people we try to serve. We have a hard- 
core group of devoted users who make it worth- 
while to be on here every night with my cohort, Jim 
Ferine. 

To name them would be a bit much. But they 
know who they are. 

So on long, lonely mundane shifts when I would 
rather throw this terminal out the window, I am re- 
freshed by a chance to talk to folks. 

Perhaps that is the true future of this medium. 
Let's have newspapers that talk to people. I will ad- 
mit, though, that I refuse to be a wrapper for fish or 
sit with you on the toilet. 

Other than that, I am negotiable. _ 

And until we die in September, I wouldn't trade it 
for the world. 

And to all you videotext experts, CB freaks, and 
neurotic computer monkeys who wonder what this 
law student and newsman does for a living: "I 
sweep floors." 

And if you're too narrow-minded to peer into this 
world, too bad. 

I don't do windows. ■ 
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Moursund: Like encyclopedias, micros might 
end up in the closet collecting dust 
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Public school education 
rapped at conference 



Home education software more sales pitch 
by micro firms than threat to school system 



By Tom Hager 

CO^ TRIBUTING RKPORTFR 



Public school education is joyless, uncreative, cruel, mean- 
spirited, and competitive. It teaches children to be cynical 
about hfe and makes them intellectually impotent." And it might 
some day be supplanted by microcomputers. 



That's the view of Jeremy Ross, a 
Radio Shack computing instructor, 
speaking at a national conference on 
the use of computers in education 
drawing 700 teachers, administrators, 
theorists and computer specialists to 
the University of Oregon in July. 
While most attendees were concerned 
with improving the situation by inte- 
grating computers into the classroom, 
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a few, Uke Ross, foresaw the day when 
microcomputers would eliminate the 
classroom entirely. 

' 'The home will become the primary 
site of education in the future," 
predicted Ross, who led a special- 
interest session on home computer- 
based learning systems. "You'll be 
able to learn what you want, when you 
want, at whatever depth you want." 



He believes the widespread use of 
micros for running computer-assisted 
drills, tests, and learner-interactive 
educational simulations, word pro- 
cessing, accessing outside data bases 
and communicating with other stu- 
dents around the country will decen- 
tralize schooling, create a new home- 
based learning environment and en- 
courage a cottage industry in educa- 
tional software. 

The result? With more and better 
learning taking place in the home, said 
Ross, "At some point, the current 
school system will just collapse." 

Will your child soon be able to grad- 
uate from high school without ever 
leaving the house? Is computer-assist- 
ed home education technologically 
feasible — or desirable? 

David Moursund thinks not. Mour- 
sund, keynote speaker at the confer- 
ence and editor of The Computing 
Teacher, said educational software 
that can teach a child an entire course 
of study is now far too costly for most 
home computer owners. He sees the 
idea of computer-based home educa- 
tion more as a selling point for micro- 
computer companies than a threat to 
our current school system. Education- 
al applications may soon be ranked 
with business and entertainment as the 
three biggest marketing areas for home 
computers. "But what they're used for 
after they get there is still a question," 
Moursund said. 

As an analogy, he brings up another 
learning aid once seen as a revolution- 
ary advance in home education: the en- 
cyclopedia. Tens of thousands of ex- 
pensive sets were — and are being — sold 
to parents as useful adjuncts to their 
child's schooling. In the same way, 
parents may be influenced to buy a 
micro because it will be "good for the 
children." But, Moursund said, pro- 
grams for education may, like encyclo- 
pedias, end up gathering dust while the 
youngsters use the micros to play the 
latest video game instead. 
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• Error Free 

• 1 year warranty 

• Hub ring installed 

• Write/Protect notch 

• Next day delivery 

$19.90/box of 10 

» No minimum order quantity 

® 8" or 5/4" 

« Plus 2 Free BONUS DISKS/Box* 

*5-" SPECIAL ONLY 

If you are a member of a user group or a school district please call for special 
terms on future offers. If^ is the largest specialty supplier of magnetic media 
in the Midwest. We have the products that you want when you need them. 
Please take advantage of this introductory offer and call us now. 




m^ sms nw snw i^a utm em «i* am mm . 




Transaction 
Storage Systems, Inc. 

^44 



CALL TOLL FREE 
1-800-521-5700 
1-800-482-4770 (Michigan) 
313-557-3036 (Detroit) 
312-922-0076 (Chicago) 
614-221-1788 (Columbus) 
513-621-1518 (Cincinnati) 
Telex 810-224-4646 



EXPECT A MIRACLE 



•^See List of Advertisers on Page 455 



YES, ins is the magnetic media supplier that I have always wanted 



Please send me 



.8"D 5!4"n, 



.ea. 



Price 



Box Quantity 

I am interested. Please send me more information 
or call me at ( )- . — 

For faster order entry call any of our toll-free or local numbers 

Company ^ 

Name — ^ 



Title. 



Address 
City 



State. 



Zip- 



Amex/Master Card/Visa orders are accepted 



Expiration Date 



mortth. 



\;ear_ 
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EDUCATIONconf/nued 



Conference speaker Alfred Bork 
agreed micro manufacturers will soon 
lalch on to the sales potential of home 
education. Bork, director of the Edu- 
cational Technology Center at the Uni- 
versity of California, Irvine, and 
author of Learning with Computers, 
said this is one way micros will gain the 
practical appeal necessary if they are to 
become true mass consumer items. Mi- 
crocomputers, he noted, will have to 
be seen as home appliances rather than 
hobby items before they will become as 
common as Ivs. One way to give them 
that appeal is to tell parents computers 
will help their children learn. 

Once the machines arc in the home, 
Bork thinks kids will become so fascin- 
ated with the technology that they will 
demand more computers in school. 
"Wc tend to think home use will drive 
school use," he said. "Once you start 
getting good education at home, kids 
will start going to school and demand- 
ing more quality." 

Although Bork sees home computers 
making schools better, not obsolete, he 
admitted some kinds of education may 





be better handled on a home computer . 
"There's a good possibility that impor- 
tant parts of the curriculum will mi- 
grate out of the schools and into the 
home," he said, especially as pubhsh- 
ing companies jump into the home 
software market^ — a trend already 
starting. But Bork cautions that a sim- 
ple fascination with the increasingly 
complex hardware available for home 
use also carries the danger of replacing 
true learning with technological game- 
playing. 



As micros grow more powerful, 
though, it may become possible to 
create learning environments falling 
somewhere between the schools and 
the home. Ramon Zamora, director of 
a National Science Foundation-funded 
community computer project called 
ComputerTown, told the conference 
micros can serve as tools to take educa- 
tion "to the streets." His ideas center 
on community learning centers where 
children and aduUs can learn program- 
ming, computer applications and 
"rent" time on microcomputers. His 
plan is to help the public — especially 
that segment unable to buy their own 
micros — become computer literate. 
Computer Towns have already been set 
up in a number of local libraries , senior 
citizen's centers, museums and youth 
clubs around the country. 

The centers may help deal with what 
some observers see as the major prob- 
lem facing home-computer-based 
learning: the growing gap between rich 



--^^ 



and poor. 

"People at the poverty level are not 
going to buy computers," Bork said. 
That limits the educational advances 
possible with home computers to those 
with enough money and technological 
orientation to invest in the hardware. 
"That would tend to increase the 
schism between the haves and have- 
nots," Moursund maintained. 

ComputerTowns, accessible to all 
economic classes, may be one way to 
counter this trend. Another is govern- 
ment subsidies targeted at computer 
education for the poor. 

Inequities caused by the cost of mi- 
crocomputers is only part of the prob- 
lem. What are the social costs involved 
if micros disrupt the traditional school 
system? Moursund stressed that school 
is more than learning. It is a place 
where children learn to deal with other 
children. Removing the child from the 
schoolroom and teaching him at home 
may result in faster transmission of 
facts, but as one conference speaker 
said, "As interesting as computers are, 
they can't replace your schoolmates." 

And there's another thing home 
computers will never do: get your child 
out of the house. Jeremy Ross's pro- 
posed home-based educational Utopia 
may be a better way to teach kids some 
things, but as Moursund argued, 
"Most parents don't want to have the 
kids around the house all day. Micros 
won't help get the children out of their 
parents' hair."H 
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DfSK DRIVE WOES? _ ^^^Pat #4,259/05 

PRINTER INTERACTION'? 

MEMORY LOSS? 

ERRATIC OPERATION? ^ '^^^^V^^B iso-i 

Don't 

Blame The --^^^ 

Softwarel ^^ 

Power Line Spikes, Surges & 

Hash could be the culprit! Floppies, printers, 

memory & processor often interact! Our patented ISOLATORS 

eliminate equipment interaction AND curb damaging Power Line 

Spikes, Surges and Hash. MONEY BACK GUARANTEE! 

• ISOLATOR (lSO-1) 3 filter isolated 3-prong sockets; Integral 
Surge/Splice Suppression; 1875 W Maximum load, 1 KW load 
any socket $69.95 

« ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $69.95 

• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double 
isolation & Suppression $104.95 

• SUPER ISOLATOR (ISO-11) similar to ISO-2 except double 
isolation & Suppression $104.95 

• MAGNUM ISOLATOR (ISO-17) 4 Quad Isolated sockets; For 
ULTRA-SENSITIVE Systems $181.95 

• CIRCUIT BREAKER, any model (Add-CB) Add $9.00 

- REMOTE SWITCH, any model (Add-RS) Add $16.00 

AT YOUR MasterCard, Visa, American Express 

DEALERS ORDER TOLL FREE 1-800-225-4876 

(except AK, HI, PR & Canada) 

■£ SPa 



Electronic Specialists, Inc^ 






(617) 655-1532 



M ■ _— u __ __ ^ ^_^ 
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' THOUSANDS OF SHAKES 

titilli,.i;,!.i,.ili,iAn..,i.ili 



STOCK MARKET COMPUTER 
SOFTWARE 

Now available — 34 prosrams from the book 
NEW USES FOR THE HOME COMPUTER IN THE STOCK MARKET 

The book has won praise through the world and has been pur- 
chased in over 40 countries. 

The author has had 20 years experience as a stock broker and con- 
ducted etght years of computer research developing these 34 
prot^rams. Especially valuable to stock or commodity traders. 

Available on disks or tapes for TRS-80. Model 1 Level II and 
Model III Price S49.95 

A,sG Available 
Market Average Package. Contains weekly prices going back over 
90 years. Also included are 5 utility programs. Price is S29.95. In- 
valuable for cycle research. Send check tO; 
Thomas V, Lenz, Dept. M 
596 W. Karval Ct. - Spring Creek 
Elko, Nevada 89801 
(overseas, U.S A, Dollar International Money Order or a Draft 
payable on a U.S.A Bank) 

State whether you want disk or cassette "^ '^^'^ 
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All our sonware now available 
at the lower American prices 



Some Examples 

■ Scarfmon 23.95 

a Defence Comm 19.95 

a Robot Attack 19.95 

1 Space Castle 19.95 

a Meteoroids 19.95 

■■m NewDos80 2.0 149.95 

^ Mod Hi 16K-10% Off 

m 5-1/4" Disks 34.95 

m 3M8" Disks 49.95 

9 Green Screens 37.95 

;a Cables from 39.95 



Other Products At 
Similar Sovings 

■ Cornsoft Group 

■ Big Five 

■ Apple Gomes 

■ Atari Comp Games 

■ Adventure Inter. 

■ Jnstarit Software 

■ Med Systems 
I Spectral Assoc. 

■ Sub Logic 

■ Modem 80 

■ Pr;riters 



MOST TRS-80 PROD 
AT 10% DISCOUNT 

Enclose cfieque or 

Money order 

with all orders. 

Add 5% for Visa orders 

Sorry no C.O.D.s 
No phone orders. 

ADD 1.50/ORDER 
FOR SHIPR/HAND. 
3/4 WEEKS DEL. 




-See L;sJ ol Advertisers on Page 455 
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Enter the electronic agora 

Network Nation 's writers create marketplace of ideas 




liether you're a budding software author or crusty vet of 
silicon publishing, be prepared for some lively interaction 

and vital information when you enter the Author's Special Interest 

Group on the CompuServe Information Service. 



The originators of the SIG, Charles 
Bowen and Stewart Schneider, set it up 
because there's "no neatly bound di- 
rectory of writers' markets" formicro- 
computer programmers and writers. 

Market analysis wasn't the sole in- 
spiration for the SIG. The allure and 
expense of being a member of the net- 
work nation also influenced Bowen. 

"I talked to a fellow who got a $700 
bill from CompuServe," Bowen 
noted. "$700! Did you have a good 
time? He said, 'yeah, 1 guess' I got 
scared and thought I'd better find a 
way to make a living on CompuServe 
or at least let it pay for itself." 

"1 had just sent off a couple of hun- 
dred dollar checks to CompuServe for 
all the talking I'd been doing," he con- 
tinued, "so i thought, maybe I should 
talk to them about starting a service." 

Bowen 's service offers authors a 
newsletter, market listings, bulletin 
board, and electronic conferencing. 

Electronic, conferencing is potential- 
ly the most- powerful service his SIG 
offers autjiomi' Bowen said. "What 
would take a week of notes to ac- 
complish can be done in an hour of 
*talk.' " 

The group also has a message system 
that's turned intq a kind of computer- 
ized marketojace for ideas, a sort of 
electronic Agora. Since the group's in- 
ception, members have discussed con- 
flict-of-interest problems related to 
product reviews, the best computer to 
write software for, computers creating 
new art forms, and the makeup of 
computer Utopia — The Micropolis. 

"The subjects are really up to the 
members," Bowen told 80 Micro. 
"We have 'threads,' You can respond 
to any message you want. Some 
threads, some topics, have gone on for 
470 • 80 Micro, November 1982 '' 



The electronic 
conference is 
potentially the most 
important service this 
SIG offers authors. 
What would take 
a week of notes can 
be done in an hour. 



a month or more." 

He explained software publish- 
ers— hke Bob Snapp of Snapp Soft- 
ware and Paul Grupp of Scott 
Adams's Business Division— often 
drop by to comment on messages. 

The group's first electronic confer- 
ence spun off a message system 
"thread." 

"Folks were talking about the prob- 
lem of piracy," Bowen explained, 
"and someone said, 'Did you hear 
about this dumb guy in California 
who's giving his programs away? ' That 
was discussed about a week, until a fel- 
low logged in and said, 'Well I'm the 
dumb guy doing that." 

The "dumb guy" was Andrew Fleu- 
gelman, who encourages people to pi- 
rate his IBM PC communications soft- 
ware. Iftheyhkeit, he requests them to 
make a contribution to him. 

Fleugclman told authors' SIG mem- 
bers 70 percent of the people making 
copies"of the program were sending 
him contributions. Can you say the 
same thing about programs you've 
protected in conventional ways? 
he asked. 



"The conversation was very interest- 
ing," Bowen noted. "It was scheduled 
for two hours and it went into a third 
hour on a Saturday night, which 1 since 
learned is not a good night to have con- 
ferences. People would rather go out 
and boogie." 

Information in the SIG's market re- 
ports is similar to its traditional coun- 
terparts — publisher, contact person, 
address, publisher's needs, what ma- 
chines he supports, royalty structure, 
time it takes to evaluate a program, 
tips for submitting software — but all 
of it can be electronically massaged. 
Key-word searches can be performed, 
allowing a writer to look for all 
pubhshers looking for TRS-80 pro- 
grams or find a specific software firm. 

Bowen explained he initially consid- 
ered writing a "Writer's Market"-style 
book for the software set, but 
"because of the delay time in getting 
out a book, it wouldn't be very useful 
to people. In the software markets you 
almost have to be electronic to stay 
current." 

He cited one case where he was in- 
formed oi a software opportunity 
through electronic mail on a Saturday 
and had a market report on the firm on 
line by Monday. "Even a newsletter 
couldn't do it quite that fast," he said. 

He added his members have found 
links between soft and hard publish- 
ing: "We're finding a great similarity 
between print and software markets. 
An awful lot of people, at least at this 
stage, are doing both. They're finding 
the best way to market the software is 
to do it in print fashion with an ar- 
ticle—the way it would be done in SO," 

As the operator of a SIG, Bowen got 
free access to CompuServe, a perqui- 
site that excited him: "I thought, 
'Great, now I can talk to my CB bud- 
dies all the time and not be charged for 
it.' But I don't have time to do it. 
There's a lot more work involved than 
I realized, but I'm enjoying every min- 
ute of it." ■ 
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Tandy 

chooses LDOS . . . 

Radio Shack 
took a giant 
step forward 
in product 
support 
when it de- 
cided to carry LDOS as an 
alternative disk operating 
system for its Models I and 
III computers. 

The DOS made by Log- 
ical Systems Inc. of Me- 
quon, WI, will be the 
only one from Radio Shack 
interfacing with the Fort 
Worth firm's hard disk 
drive. 

At press time, Radio 
Shack hadn't officially re- 
leased LDOS to its stores, 
so a retail price was not 
available, although it will 
probably be close to the cur- 
rent retail price for LDOS 
($129). 

It is considered one of the 
most powerful operating 
systems for the TRS-80. 
Its features include many 
absent from Tandy's oper- 
ating system, TRSDOS: 
automatic support of dou- 
ble-density and double- 
sided drives; drive track 
counts between 35 and 80; 
support of all drive-motor 
step-rates (3ms, 6ms, 12ms, 
etc.); hard drive support; 
type and size drive mixing 
(5-inch, 8-inch, hard drive) 
up to eight drives; compiled 
JCL; link, route, filter, and 



set device control support; 
and complete compatibility 
of data disks between the 
Models I and HI. 

All Microsoft language 
products for the TRS-80 are 
supported by LDOS and the 
DOS is compatible with 
TRSDOS 1.2 and 2.3. 

Ed Juge, Tandy's direc- 
tor of computer merchan- 
dising, said in a telephone 
interview with 80 Micro 
Radio Shack decided to add 
LDOS to its product line be- 
cause of previous business 
deals and coinmitments 
with Logical Systems. It did 
not compare LDOS with 
other operating systems 
before making its decision, 
he added. 

For new disk drive own- 
ers, TRSDOS will still be 
used as a "first DOS" and 
as the medium for new pro- 
gram development and dis- 
tribution. 

Terry Kepner 



. . . while coitiipetitor 
questions choice 

Before Tan- 
dy named 
LDOS as an 
alternative 
operating 
system for 
its Models I and III, Fort 
Worth observers specu- 
lated tiiere was more than 
one entry in the race to 
become Radio Shack's an- 




nointed DOS. 

Ed Juge discounted that 
speculation, but not with- 
out raising the eyebrows 
of one major operating sys- 
tem marketer, Apparat Inc. 
of Denver, CO. A program- 
mer with the maker of the 
highly touted NEWDOS80 
told 80 Micro: "Tandy 
didn't even approach us. 
They didn't even ask us, 
which 1 thought was rather 
funny." 

When asked by 80 Micro 
about Tandy's choice of his 
firm's operating system as 
an approved alternate, 
Logical System's Bill 
Schroeder refused to com- 
ment and said all queries 
would be answered by 
Tandy. 

"We think [LDOS] will 
be a good product," Juge 
said. "We don't intend to 
support it with software. 
We're putting it out there 
as a programmer's tool for 
the programmers who want 
something more powerful 
than TRSDOS." 



"1 really don't think 
Radio Shack 's going to 
LDOS was based on the 
technical aspects," the 
Apparat programmer 
noted. "I really couldn't 
see a whole lot of reasons 
for Tandy going to LDOS. 
Technically speaking, 
LDOS can't matc{|;igEW; 
DOS as far as we see and 
as far as the reviewers 
have seen." 

He speculated Radio 
Shack might have chosen 
LDOS because it wanted a 
system that supported a 
hard disk. NEWDOS80 2.0 
does not support one. 

But, he interjected, ver- 
sion 3.0, slated for release 
in early 1983, will support 
four kinds of hard disks, 
eight floppy drives, and 
combinations of the two 




drive types. He added, 
"When NEWDOS version 
three connies out, it's going 

to be more powerful than 
even quite a few people 
around here can under- 
stand." 

New currency at 
Tandy is plastic 

It will be 
tougher than 
ever resisting 
the urge to 
upgrade your 
system when 
Tandy begins flashing its 
latest offering in your face: a 
Radio Shack credit card. 

Tandy has teamed up 
with Citibank of New York 
and created a Citiline card 
for' it^dio Shack customers 
who vtanl to drop a bundle 
of money in a hurry. The 
card is patterned after others 
of its kind, but requires an 
initial minimum purchase of 
$225 . The minimum for sub- 
sequent purchases is $100. 
■'The card's repayment 
schedule is worked out on a 
24 percent annual interest 
rate . According to Info- 
World, the high er-than -av- 
erage bank-card interest rate 
is a tradeoff for no ser- 
vice charge on card-holding 
privileges. The newspaper 
added users with an average 
balance of $500 would pay 
less than credit-card users 
with the same balance who 
paid a $20 membership fee 
for the card and 20 percent 
interest. 

Purchases made with the 
Citiline card will be analyzed 
for direct-mail advertising 
purposes, Tandy said. Citi- 
hne credit statements will in- 
clude advertising stuffers for 
Tandy products and for fi- 
nancial services offered by 
Citibank and other institu- 
tions. 

The credit card service 
was expected to go into ef- 
fect this fall. 

continued 
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Hardware protects 
this software 

So f t b u cs 
with a mind 
to pirate Sim- 
utek prod- 
ucts, beware! 
The Tucson, 
AZ, firm protects its soft- 
ware with hardware. 

"We got the idea from 

seeing some of the products 
for Apple computers that 
plug into the joy port con- 
nector to prevent piracy," 
said Simutek President 
Mike Gariepy. "We 
thought it was possible to 
do that with the cassette 
port on the TRS-80, and it 
was." 

Simutek first used its 
software "key" — which is 
about the size of a 5-pin 
DIP jack — with its Copy- 
art word-processing pro- 
gram. The program or cop- 
ies of it will not run unless 
the key is in the machine's 
cassette port. 

"The software scans the 
port to make sure our key is 
plugged in correctly," Gar- 
iepy said. "If it's not, the 
program crashes and goes 
into Never Never Land." 

He explained schools or 
businesses may buy extra 
keys from Simutek for 
multiple uses of a program. 

Can the code to the key 
be broken? "Some friends 
of ours at a tv station in 
Tucson broke it," Gariepy 
said. "It took them two and 
a half weeks and they're ail 
certified engineers. 

"if someone has a 
knowledge of microelec- 
tronics, they could make 
copies of a particular key," 
he said. But since the codes 
are changed from key to 
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key, he added, the copy 
would work only with cop- 
ies of the program issued 

with the original key. 



The subject 
is privacy 

How emerg- 
ing technol- 
ogy affects 
privacy is 
the focus of 
a newsletter 
published by Washington, 
DC, attorney Robert Ellis 
Smith. 

He told 80 Micro he 
started his newsletter in 
1974 to address press-pri- 
vacy issues. But in a short 
time, he discovered his sub- 
scribers "were concerned 
more about computer data 
banks than they were about 
the press." 

Hence evolved Privacy 
Journal: An Independent 
Monthly on Privacy in a 
Computer Age with about 
2,000 subscribers. 

"I have become con- 
cerned about the impact of 
computer technology on 
individual rights,'- Smith 
said. "It threatens them 
a good deal in a lot of dif- 
ferent ways that people 
haven't looked at." 

"I try to advise people 
how new technology will 
affect their rights," he con- 
tinued. "That involves 
mainly computer data 
banks and new communi- 
cations." 

Recent stories in Smith's 
newsletter concerned how 
computer matching is used 
to catch people working 
and collecting welfare, how 
data banks are used to 
catch student loan delin- 
quents, and how a ban on 
credit transactions was 
used to curb travel to 
Cuba. 

' 'The newsletter has a 
point of view," Smith said. 
"It's pro-privacy. But by 



and large, I try to be fac- 
tual in the newsletter be- 
cause I'm providing an 

information service to 
people. And a lot of them 
don't agree with me." 



New publications 
take aim at lawyers, 
Sinclairs, CP/M, 
and kids 



SAtt^MIU. 
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Attorneys, 
Sinclair us- 
ers, CP/M 
users, com- 
puter market 
observers, 
and kids are the targets of 
some new electronic 
publications. 

A ttorneys Computer Re- 
port was launched in Au- 
gust and claims to be the 
first newlsetter about com- 
puter use written for 
lawyers. The report is pub- 
lished every two weeks. It 
includes information on 
hardware and software for 
attorneys: experiences of 
users with law-firm orient- 
ed microwares; and tips for 
cutting costs, managing a 
practice, and expanding 
client services. 

The report is available 
from Professional Publica- 
tions Inc., P.O. Box 80280, 
Atlanta, GA, and costs 
$229 a year. 



The maiden issue of a 
quarterly magazine for 
Timex-Sinclair users was 
expected to be released this 
month. Called SQ, the 
publication will feature 
programs, reviews, and 
projects for Timex-Sinclair 
machines. 

Editor Ann Zevnik said 
in a statement: "5Q will be 
the biggest source of infor- 
mation about Timex-Sin- 
clair machines in the US. It 



will be written for intelli- 
gent users who don't neces- 
sarily have any computer 
background, but who wish 
to learn." 

The new magazine will 
be published by the 
Harvard Group, based in 
Harvard, MA, which also 
publishes SYNTAX, a 
newsletter for Timex-Sin- 
clair users. Selected com- 
puter stores will carry SQ. 
Subscriptions cost $15. A 
package offer is also avail- 
able: four issues of SQ and 
12of 5r/V7>lA'for $39. 



A six-times-a-year maga- 
zine devoted to the CP/M 

operating system has been 
launched on Mercer Island, 
WA. The first issue, re- 
leased in September, fea- 
tured a buyer's guide cov- 
ering more than 50 single 
source CP/M systems. 
Other features include ab- 
stracts of CP/M related ar- 
ticles, listings of hardware 
and software products, 
user groups, and club 
news. Subscriptions are 
$16 a year. 



A newsletter that prom- 
ises to be controversial has 
been announced by Ron 
Jeffries. 

"My newsletter will give 
you a personal view of 
computing,''' Jeffries said 
in a statement. "Each issue 
will bring you up-to-date 
information about the fast- 
changing personal comput- 
er field. The Jeffries Re- 
port will be controversial. 
The style will be informal, 
chatty, and fun to read." 

Jeffries also claims his 
publication will avoid the 

continued 
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biases of other silicon 
media: 

"Have you noticed that 
mass-market computer 
magazines never seem to 
find anything wrong with 
the computers they evalu- 
ate? Don't get me wrong: 
Those magazines are pro- 
duced by good people. But 
they have a problem: Ad- 
vertisements placed by 
computer manufacturers 
are an important source of 
their income. Since The 
Jeffries Report carries no 
advertising, our editorial 
content is not affected by 
those factors." 

Here are some samples 
from Jeffries' first effort; 

• "[I]t is my opinion that 
the VIC can't possibly sur- 
vive in the marketplace sur- 
rounded by the $179 MAX 
machine on one side and 
the $595 C64 on the other. 
The much cheaper MAX 
has far better graphics, and 
has a 40-column display! 
And don't forget the new 
Sinclair Spectrum that will 
be selling for about $225. 

• "In less than a year, 
IBM has sold close to 
250,000 personal comput- 
ers. That means that IBM 
has more than half as many 
personal computers in- 
stalled as Apple has sold to 
date. The main reason that 
the IBM PC has an 'open 
design' is that IBM careful- 
ly studied the Apple, and 
copied it in many ways. 
(They even copied some of 
the mistakes: Those 160K 
5-inch disks that were on 
the early IBM PCs held on- 
ly slightly more data than 
Apple disks. IBM has since 
gone to double-sided 320K 
disks, but it took them sev- 
eral months to correct the 
mistake.)" 



• "I do have reserva- 
tions about how well Com- 
modore can compete in the 
Atari game arena. For one 
thing, the MAX package is 
rather unsophisticated. For 
example, if the consumer 
changes cartridges without 
turning the unit off, they 
run some risk of damaging 
the cartridge. (The current 
Atari VCS has the same 
problem. However, the 
Atari 400/800 and the new 
5200 game do not have the 
problem.) I do not consider 
the physical packaging of 
the MAX to be outstand- 
ing. My reaction was that it 
looked like they had it de- 
signed by Radio Shack . 
(It's even that same shade 
of battleship gray!)" 



And speaking of Radio 
Shack, it has released its 
third computer comic, star- 
ring — with the permission 
of Warner Communica- 
tions' DC Comics divi- 
sion—Superman, Wonder 
Woman, and Tandy's own 
dynamic tandem, the 
TRS-80 Computer Whiz 
Kids. The 36-page comic, 
"The ComputerMasters of 
Metropolis," is available 
free of charge from Tandy. 

Digest in red 
at Source 

When Read- 
ers Digest ac- 
quired The 
Source, it 
might have 
thought it 
was buying a piece of the in- 
formation revolution, but 
according to the New York 
Times, it appears to have 
bought a headache. 

Despite heavy investment 
in The Source, the informa- 
tion utility hasn't reached 
the goals Digest has set for 
it, the Times reported. 




It said The Source is at a 

crossroads and there is spec- 
ulation in the industry Di- 
gest might be disillusioned 
with the business and seek 
to sell it. That was denied by 
The Source's new chief ex- 
ecutive, George V. Grune. 
"We are not looking for a 
bailout and we are not sell- 
ing," he told the Times. 

Digest would not disclose 
the financial results for the 
venture, the New York dai- 
ly said, but an unnamed 
source estimated the service 
lost $5 million to $7 million 
on revenue of $6 milUon to 
$8 miUion in the fiscal year 
ending July 31. So far, the 
Times said, Digest has sunk 
$15 million to $20 million 
into the project. 

The newspaper reported 
The Source's chief competi- 
tor, CompuServe, a divi- 
sion of H&R Block, expects 
to be $5 million to $7 mil- 
lion in the black by the end 
of its fiscal year, April 30, 
1983. 

The daily explained 
CompuServe has an ad- 
vantage over The Source 
because the meat of its busi- 
ness doesn't depend on pro- 
viding consumer informa- 
tion. That business is just an 
add-on to its commercial 
time-sharing concern. 

The Times added Digest 
has made many improve- 
ments since it acquired The 
Source. It increased its 
staff to more than 125 
from 50, purchased new 
computer hardware and 
software to make it easier 
for subscribers to access 
the system, and it is build- 
ing a new computer facility 
capable of handling up to 
250,000 subscribers. 

Meanwhile, The Source 
has launched a new publi- 
cation for its subscribers, 
SOURCEWORLD News- 
letter. The first issue 
contained notes from sub- 
scribers who have found 
productive uses for the ser- 
vice in their businesses, a 



profile of the "Subscriber 

of the Month," tips on 
how to create a private 
Source network, and an 
announcement an advisory 
panel was being formed to 
pre -test new services. 

The Source also an- 
nounced PARTICIPATE, 
"the first computer confer- 
encing service made com- 
mercially available to the 
general public." 

In a statement, creator 
of the service, Chandler 
Harrison Stevens, noted 
subscribers have been using 
PARTICIPATE for— 

• Project management (to 
monitor progress and share 
information despite geo- 
graphic separation); 

• Group authorship (to 
review new material and 
direct manuscript changes 
and consistency); 

• Executive decision mak- 
ing (to gather information 
to support timely decisions 
and actions); and 

• Market research (to sur- 
vey and poll other Source 
subscribers). 

Even robots 
sing the blues 

Ritz Miller 

has found a 
new use for 
those obnox- 
ious little ro- 
bots that ov- 
erpopulatc computer shows. 
He rented one to picket 
the San Mateo County 
Courthouse with a sign 
protesting: "Divorce 
Courts Unfair." 

According to United Press 
International, the 4 '/z-foot 
robot with a fishbowl head 
sang the blues to anyone 
who would listen: "She got 
the gold mine. 1 got the 
shaft." 

Miller used the robot to 
hand out fliers complaining 
about the high cost of 
divorce. Robot rental fees 
cost him $1,000 a day. ■ 
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Statistics are the most misused and 
misunderstood procedures in ap- 
plied mathematics. Many people think 
you can prove anything with statistics, 
implying that they have nothing to do 
with reality, while others accept any 
statistics without question. Neither at- 
titude is correct. 

Statistical methods provide a power- 
ful tool for looking at large amounts of 
data, and for shaping and testing hy- 
potheses. Every statistical measure 
makes some assumptions that may or 
may not be true. Therefore, no statis- 
tical procedure should be used without 
thought or consideration. Statistical 
validity does not come from using 
double precision, although that can 
minimize round-off error with large 
amounts of data. 

There are two main categories of sta- 
tistics: descriptive and inferential. The 
first describes a collection of data (a 
data set), while the second infers infor- 
mation about a data set. Descriptive 
statistical measures include central ten- 
dency, range, variability, skewness, 
and kurtosis. The inferential measures 
are used to infer from the data whether 
groups of data are from the same pop- 
ulation (their similarity or difference). 

Descriptive Statistics 

If you have a data set with a number 
of scores in it, what single representa- 
tive number can describe the data set? 
It depends on what you mean by repre- 
sentative. Three measures arc in com- 
mon use: 

• Mean — the sum of the scores divid- 
ed by the number of scores. 

• Median — the score that divides the 
data set into two sets with equal num- 
bers of points in each. 

• Mode — the scores that occur with 
the greatest frequency in the data set. 

Although the mean is used most 
often, the other two measures are 
easier to appreciate intuitively. The 
median is the 50th percentile in a group 
of scores — it is the middle score. The 
mode is the most frequently occurring 
score. The mode may not be unique. If 
all the scores in the data set occur with 
the same frequency, there is no mode. 
If there are two modes {that is, two 
scores occurring most often), the data 
set is said to be bimodal, or to have a 
bimodal distribution. 

All three methods are used; for dif- 
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ferent applications, only one may be 
appropriate. It all depends on the ques- 
tion you're asking of the data. 

Computation of these various mea- 
sures is shown in the Program Listing. 
This program finds the mean, median, 
and mode of a data set, either in 
grouped or ungrouped format. If you 
choose to group your data, you must 
enter the number of groups. You may 
use default limits on your groups 
(lowest and highest scores), or may in- 
put your own. The program will print 
data on the screen or line printer, plot 
it on the screen or make a histogram of 
your grouped data. 

A sample run of the program using 
the data set 1,3,3,5,6,7,8 gives a mean 
of 4.714286, a mode of 3, and a me- 
dian of 5. 

The mean is the most sensitive mea- 
sure in that it is affected by all scores. 
The median is affected the same amount 
by the presence of a score to the right 
of the center of the data set regardless 
of how far the score is to the right. The 
mode is indifferent to ail scores except 
the one of greatest frequency. The 
mode, then, is the least sensitive mea- 
sure of the center or central tendency 
of a set of data. 

The program is fine for many appli- 
cations, but often it is desirable to 
group data. This forces data (often 
from a continuous number system) in- 
to little packages (a discrete number 
system). An example is school grades. 
When it is time to decide who gets the 
As and the Bs, the fairly continuous 
scores are forced into discrete boxes 



marked A, B, C, D, or F. It would be 
useful to be able to apply the measures 
of central tendency to this grouped 
data as well. 

Calculation of the mode is as simple 
with grouped data as it is with 
ungrouped. You simply look for the 
box with the greatest number of scores. 
The median is somewhat less simple. 
As it turns out, this can be summarized 
in the equation below: 

MD = LLI + WMi *{N/2 - CO/lf 
wticrc: 

MD = median 

LLI = lower limil of the median interval 

WMI = width of median interval 

N = number of scores 

Cf = cumulative frequency up to the median 
interval 

if = frequency within the median interval 

The lower limit of the median inter- 
val and the width of the interval are 

real numbers. If the cutoff for the Bs is 
80 percent right, the LLI would be 80 
percent. The width of the median inter- 
val is the upper limit of the interval 
minus the lower limit of the interval. 
The cumulative frequency is the num- 
ber of scores that occur before the me- 
dian interval^the number of scores 
less than the cutoff for the median in- 
terval. It is the number of scores that 
occur within the median interval (the 
interval that holds the median). 

The method for finding the median 

is only a special case of finding a per- 
centile rank of the scores. This is sim- 
ple for grouped and ungrouped data. 
The xth percentile of a data set is that 
score that divides the data set into two 
groups with x percent of the scores 
below the point and (100-x) percent 
above the point. Thus, the 99th percen- 
tile means that 99 percent of the scores 
fell below the point and I percent of 
the scores fell above the point. The for- 
mula for calculating percentiles is: 

P(x) = L-l'W*{x*N-CtVlf 
where: 
X = percentile rank desired 
L = lower limit of interval containing the 

percentile score 
W = width of interval 
N = number of scores 
Cf = cumulative frequency up to the inter- 
vai containing the xth percentile 
score 
If = interval frequency 
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QUANTITIES 
LiMITED 
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HERE'S A CHANCE TO GET THE BEST PRICE ON DISK AND 
HARD DRIVES FOR YOUR COMPUTER 



te 



Tandon Floppy Drives 



gui-^^ 



Single Head 
Double Head 
Single Head 
Double Head 
8" Slim Line Si 

Tandon Hard 



40 Tk 5" 
40 Tk 5" 
80 Tk 5" 
80 Tk 
nqle Head 

13 '^ I MiP'C 



$189 
$299 
$219 
$299 
$409 



$249 
N/A 
$299 
N/A 



$249 
$349 
$275 
$359 

I complete 



5 Mb Fo 

7.5 Mb Fo 

1 1 Mb Fo 



rmatted 
rmatted 
rmatted 



$1099 
$1299 
$1599 



$1749 
$1949 
$2249 



CP/M 



$249 with CP/M2.2 

'si«s? Driwe Kits IncI 



..+ 



Single Head, 40 Track $429 
Double Head, 40 Track $529 
Double Head, 80 Track $629 



KIT INCLUDES 

The kit includes one disk drive, con- 
troller, power supply, cables, hard- 
ware, documentation and DOS+3.3. 

($100.00 VALUE) 



THE 



ENTRY 



-246 



MAIL ORDER DIVISION 

680 NORTH ARROWHEAD AVENUE 

RIALTO, CALIFORNIA 92376 (714) 874-2413 



PRICES F.O.B. FACTORY 

CALIFORNIA RESIDENTS 

ADD 6% SALES TAX 



r^See List of Ai:lvertiseis on Page 455 
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For example, to find the 60th per- 
centile, if the lower limit of the interval 
is 30.5, the number of scores is 125, the 
cumulative frequency up to this inter- 
val is 58, the width is 1, and the fre- 
quency within this interval is 23, the 
data point with a percentile rank of 60 
would be P(60) - 30.5 + 1 *(-60* 125-58) 
723 = 31.24. 

Measures of central tendency give a 
number that is somehow representative 
of the data set. It says little, if any- 
thing, about the distribution of the 
data points. 

One important aspect of the distri- 
bution of the data set is the variability 
of the data. Variance is a measure of 
how the scores deviate from the mean. 
If we merely added the differences of 
the scores from the mean, 5!(Xi-Xm), 
where X, is the ith score and X^ is the 
mean, we would get zero. This is a 
property of the mean. One measure of 
how the scores deviate from the mean 
is provided by the sum of the squares 
of the deviations, l(Xi-Xni)2- If we di- 
vide this sum by the number of scores 
minus one (to normahze the sum so 
that it is independent of the size of the 
data set), we get the variance. 

The standard deviation is the square 
root of the variance. It is more conven- 
ient to rewrite the equation for the 
variartce to be: 

V = (n*lX- - (IX)=)/(n*(n - 1)) 

If you are using grouped scores, it 
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would be better to use an alternative 
formula: 

V = {5:(f*X') - (i:{f*X))Vn)/(n - 1) 

The frequency of scores within each 
group is f, and the value used for Xj is 
the mean of the ith interval. If the data 
has a normal distribution, 67 percent 
of the data points will lie between mi- 
nus one and plus one standard devia- 
tion away from the mean. 

Another thing we need is a method 



of turning lists of data into a form 
more easily understood — a data plot. 
Histograms, frequency plots, pie 
charts and X,Y plots are all useful 
graphs. Since we are concerned only 
with one-dimensional data here, we 
will only create the histograms and fre- 
quency plots. The program allows you 
to enter a raw data set grouped as you 
will. You may then plot it using a histo- 
gram or frequency plot, and print out 
the median, mode and mean. 

The program is menu-driven. You 
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10 
20 
30 
40 
50 
60 
70 



******* 



******* 



9 

100 

110 

120 

130 

140 

150 



FREQl/BAS 

* BY * 

* BRUCE POWEL DOUGLASS * 

* DEPT. OF PHYSIOLOGY * 

* USD MEDICAL SCHOOL * 
******************************* 

GOTO 140:' INITIALIZATION IS A SUBROUTINE (BELOW) 
DEFINT I-K,N:F$=''BLANK":DIH I,J,A$,L 
DEF FN ODD(N) ^-(INT(N/2) ON/2) : ' RETURNS 
DEF FN EVEN(N)=-(INT(N/2)=N/2) : ' RETURNS 



IF ODD 
IF EVEN 



#-12 DIGITS-* 



US="% ^ 

' % 15 SPACES \ 

RETURN 

'DISPLAY MENU ROUTINE 

CLS:PRINT TAB(19) ;"**** FREQl/BAS ****" 
160 PRINT TAB(25) ; "OPTIONS: " 
170 PRINT"!. ENTER DATA 
180 PRINT"2. SAVE DATA TO DISK 
190 PRINT"3. LOAD DATA FROM DISK" 
200 PRINT"4. ANALYSE DATA" 
210 PRINT"5. PRINT/PLOT DATA" 
220 PRINT"6. END PROGRAM" 
230 PRINT"DATA SET IS ";FS 

240 AS=INKEY$:IF A5="" THEN 240 ELSE IA=VAL(A$) 
250 ON lA GOTO 280,370,440,530,1650,27 
260 GOTO 240 
270 END 

2 80 ' KEYBOARD DATA ENTRY 

290 CLEAR:GOSUB80:CLS:PRINT TAB ( 25) ; "KEYBOARD DATA ENTRY" 
300 INPUT"ENTER THE NUMBER OP SCORES";N 
310 DIM A(N) ,B(N) ,C(N) ,D(N) ,G(N) 
320 FOR 1=1 TO N 

330 PRINT"ENTER SCORE ";I;:INPUT A(I) 
340 NEXT I 

350 INPUT"ENTER NAME OF DATA SET";F$ 
360 GOTO 140 

370 ' SAVE DATA TO DISK 

380 OPt;N"0",l,FS 
390 PRINT#1,N 
400 FOR 1=1 TO N 
410 PRIKT#1,A(N) ; 
420 NEXT I 
43 GOTO 140 

440 ' LOAD DATA FROM DISK 

450 CLEAR:GOSUB80:CLS:INPUT"ENTER NAME OF FILE TO LOAD";FS 
460 0PEN"I",1,FS 
470 INPUT#1,N 

480 DIM A(N) ,B(N) ,C(N) ,D(N) ,G(H) 
490 FOR 1=1 TO N 
501 
51( 



INPUT#1,A(N) 
NEXT I 
5 20 GOTO 140 

530 ' ANALYSE THAT STUFFl 
540 "GROUPED OR UNGROUPED ANALYSIS?? 

550 CLS:PRINT"1. UNGROUPED, OR 2. GROUPED ANALYSIS" 
560 AS=INKEYS:IF AS="" THEN 560 ELSE A=VAL(AS) 
570 ON A GOTO 590,1130 
580 GOTO 560 
590 ■ UNGROUPED ANALYSIS 
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■ Bring us your problems! 

■ We have been servicing the TRS-80 community 

since its beginning in 1978. 

■ If there is a product that you think you might 
want, but don't know whether it's compatible, 
give us a call. 

■ We can help you get the best performance out of 
your machine. 

■ In addition to an exceptional level of service and 
an intense ongoing research effort to discover 
which products work and work best, we carry a 
large, well rounded inventory. What we don't 
stock, we can usually provide quickly, and with 
the modifications that you want. 

■ We have on-site repair and modification facil- 
ities and staff; and technicians that you can 

really talk to. 

■ And expanded capabilities don't stop at double- 
sided double-density disks and smoother 
operating systems. With Corvus hard disks and 
the Corvus Constellation 11 networking system, 
the limits we all thought we had are a thing 

of the past. 

■ Having supported, altered and literally conquered 
the TRS-80, we are approaching the IBM PC and 
the Corvus Concept with the same aggressive 
development and support. 

■ EBC— your ACCESS TO INFORMATION. 
FOR ORDERING ONLY: 800-621-2141 

STOP TN rOR A CUP OF COFFEE! 

EBC?i ^ ASSOCIATES 

203 Norili Wabash, Suite 2118 • Chicago, IL 60601 

We are a full service microcomputer store specializing in 
TRS-80'", IBM PC" and Corvus Concept systems. 

Gome in or call (312) 782-9750 ^271 

TRS-60,IM Tandy Corp. 
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600 ' THE MEAN 

610 FOR I-l TO N 

520 SUM=SUH+A(I) 

630 NEXT I 

640 MEAN=SUM/N 

650 PRINT USING US; "UNGROUPED MEAN", MEAN 

660 ' THE MEDIAN 

670 GOSUB 680:GOTO 800 

6 80 'FIRST, MOVE THE DATA INTO ANOTHER ARRAY 
690 PRINT "SORTING ..." 

700 FOR 1=1 TO N 
710 B(I)=A(I) 

7 20 NEXT I 

730 'THEN SORT IT INTO ASCENDING ORDER 

740 FLAG=0 

750 FOR 1=1 TO N-1 

760 IF B(I)>B{I+1) THEN B^B( I ) : B ( I) -B( I+l) : B( I+l ) =B: FLAG=1 

770 NEXT I 

780 IF FLAG=1 THEN 740 

790 RETURN 

800 'SORT DONE 

810 '** MEDIAN=MIDDLE SCORE IF N IS ODD 

820 '** MEDIAN-AVERAGE OF MIDDLE TWO SCORES IF N IS EVEN 

830 ' LEVEL II USERS JUST STICK IN THE DEFINITION FOUND 

840 ' IN LINES 90-100 INTO THE HD EQUATION BELOW - 

8b0 ' I JUST DID IT THIS WAY FOR READABILITY 

860 MD = FN 0DD[N)*B(INT(N/2)+l) + FN EVEN(N) * (B ( INT{N/2) ) +B ( INT 

(N/2)+l))/2 

870 PRINT USING U$; "UNGROUPED MEDIAN", MD 

880 'MODE 

890 FOR 1=1 TO N:C(I)=0 

900 FOR J=l TO N 

910 IF A(I)=A(J) THEN C[I)=C(I)+1 

920 NEXT J 

930 NEXT I:C-0 

Listing continues 
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may input the data from keyboard or 
disk file, and it may be saved to disk as 
well. Cassette users, merely delete the 
Open and CXbso. statements and ehange 
the PR1NT#I and 1NPUT#1 state- 
ments to PRINT#- and 1NPUT#- 1, 
respectively. 

Correlation and Regression 

A correlation is a measure of the re- 
lation between two or more variables. 
It can be thought of as an inferential 
statistic, but when we are only looking 
at the relationship between two vari- 
ables without inferring information, it 
is essentially descriptive. Karl Pearson 
created the Pearson r product-moment 
correlation in the early part of this cen- 
tury, although the idea of a product- 
moment correlation dates back to an 
1846 article by a Frenchman named 
Br avals. 

The standard deviation is denoted 
with a small sigma (o). The Pearson r 
correlation is defined to be: ■ 

or, more conveniently, 

' \y—- ~ 



xy_ 



nZ(XiY^)-l(X,)I(Yi) 



sA(nI(Xi)'-(IXm)') (nl(Yi)'-^(^Y,)') 



Correlation between two variables 
can be used to predict behavior; in this 
sense it is an inferential statistic. Let's 
consider two variables: X and Y. If you 
assume a linear relationship exists be- 
tween X and Y, simple matrix methods 
are sufficient lo determine the coeffi- 
cients of the equation Y'=a*X-Fb. 
The prime (') indicates that the result- 
ing Y value is predicted and not a real 
entry in your data set. The fitting pa- 
rameters are called a and b, and regres- 
sion is the method of finding a and b. 
In the end you have the equation for 
the best-fit line. 

Normally, a method called least 
squares is used in regression. The idea 
behind the method is this: A distance is 
normally thought of as a positive num- 
ber, regardless of direction. If you 
have a mile to walk, it doesn't matter if 
you go north or south— direction and 
distance are iriciepeudenl values. We 
would like to minimize the distance be- 
tween the regression line and the data 
points (since they will never all lie on 
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[THE MODE] 



IS IT A MODE? 

IF SO, IS IT ALREADY USED? 

IF SO, THEN GO .. . 

IF NOT, THEN INCLUDE IT 



Lisiipg continued 

940 'NOW FIND THE MAX OCCURkENCE OF A SCORE 

950 FOR I=i TO N 

960 IF C(I)>C THEN C=C(I) . 

970 NEXT I:L=0 

980 FOR 1=1 TO N 

990 IF C(I)<>C THEN 1040:' 

1000 FOR J-1 TO L: ' 

1010 IF D(J)=A(I) THEN 1040 

1020 NEXT J: ' 

1030 L=L+1:D(L)-A{I) : ' 

1040 NEXT I 

1050 'NOW DISPLAY ALL MODES IN DATA 

1060 IP L=0 THEN PRINT''NO MODE" : GOTO1110 

1070 FOR 1=1 TO L 

1080 M0DE=D(1) ;- I 

1090 PRINT USiNdi U$;''UNGROUPED MODE" , MODE 

1100 NEXT I 

1110 PRINT:PRINT''PRESg <ENTER> TO RETURN TO MENU" 

1120 IF INKEY$="" THEN 1120 ELSE 150 

1130 ' ****** GROUPED ANALYSIS ****** 

1140 CLS:INPUT"ENTER THE NUMBER OF GROUPS" ;NG 

1150 INPUT"USE DEFAULT LIMITS (Y/N)'';AS 

1160 IF A$-''N" THEN INPUT''ENTER UPPER AND LOWER LIMITS FOR GROUP 

ING";UP,LOW:GOTO 1190 

1170 GOSUB 680: 'HOVE INTO B() AND SORT 

1180 L0W=B(1) :UP=B(N) 

1190 SIZE={UP-LOW)/NG 

1200 'NOW GROUP THE DATA 

1210 FOR I-l TO NG 

LI, Ul ARE THE LOWER & UPPER LIMITS FOR INTERVAL I 

L1=L0W+SIZE*(I-1) :Ul-LOW+SIZE*I 

FOR J=l TO N 

IF ACJ)=>L1 AND A(J}<U1 THEN G(I)=G(I)+1 
IF I=NG AND A(J)=UP THEN G(I}=G(I)+1 

NEXT J 
1280 NEXT I 
1290 'GROUPED MEAN 
1300 SUM=0 
1310 FOR 1=1 TO NG 

MIDPNT=L0W+(I-l)*SIZE+SIZE/2 

SUM=SUM+G ( I ) *HIDPNT 
1340 NEXT I 
1350 MEAN=SUM/N 

1360 PRINT USING US; "GROUPED MEAN", MEAN 
1370 'GROUPED MEDIAN 
1380 'FIND MEDIAN INTERVAL 
1390 CF=0:MI=0 
1400 FOR 1=1 TO NG 

IF CF=>N/2 THEN MI=I:GOTO 1440 

CP=CF+G(I):' CUMULATIVE FREQUENCY 
1430 NEXT I 

14 40 MD=L0W+SIZE*(MI-1)+SIZE*( {N/2) -OF) /G (MI) 
1450 PRINT USING U$; "GROUPED MEDIAN", MD 
1460 'GROUPED MODE 
1470 L-0:C=0 
1480 FOR 1=1 TO NG 
1490 IF G(I)>C THEN C=G(I) 
1500 NEXT I 
1510 IF C<2 THEN 1580 
1520 FOR 1=1 TO NG 
1530 IF G(I)<>C THEN 1560:' 
L=L+1: ' 

D!L)=L0W+SIZE*{I-l}+SIZE/2: ' 
1560 NEXT I 

1570 'NOW DISPLAY ALL MODES IN DATA 
1580 IF L=0 THEN PRINT"NG HODE'iGOTO 1630 
1590 FOR 1=1 TO L 
1600 MODE-D(I) 

1610 PRINT USING US; "GROUPED MODE", MODE 
1620 NEXT I 

1630 PRINT:PRINT''PRESS <ENTER> TO RETURN TO MENU" 
1640 IF INKEY$="" THEN 1640 ELSE 150 
1650 'PRINT/PLOT DATA 
1660 CLS:PRINT"1. PRINT 
2. LPRINT 
3 . X-Y PLOT 

4. HISTOGRAM OF DATA 

5. RETURN TO MENU" '■-. 

1670 AS=INKEY$:IF A$="" THEN 1670 ELSE A=VAL(A$) 
1680 ON A GOTO 1700,1770,1850,1960,140 
1690 GOTO 1670 
1700 'PRINT DATA 
1710 J=l 



1220 
1230 

1240 
1250 
1260 
1270 



1320 
1330 



1410 
1420 



1540 
1550 



IS IT A MODE? 

IF SO, THEN INCLUDE IT 

MIDPOINT OF THE INTERVAL 



the line in real applications). 

Since we want to minimize this dis- 
tance, could we use Id, where d is 
(XL-XD), and XL is the point on the 
line and XD is the data point? No — 
some distances will be negative, effec- 
tively cancelling out those that are pos- 
itive. We need some way to turn all 
those distances into positive numbers. 

How about d^? That is why this 
method is called least squares; it finds 
the line that minimizes the sura of all 
the distances squared. 

The regression equations must be 
linear in the fitting parameters, but not 
necessarily in terms of the variables. 
Therefore, Y' = a^e'' is linear in a, al- 
though not in X, and meets our linear- 
ity requirement. However, Y'=a*Xb 
-I- c is not linear in the fitting parame- 
ters a, b, and c. For the general nonlin- 
ear case the problem is far more diffi- 
cult, and must be solved by iterative 
methods (such as a gradient method or 
the Marquardt optimal neighborhood 
method). 

In the simple linear case with two 
variables X and Y, the regression equa- 
tion is Y' = aX-i-b. The parameter b 
can be found using the equation b - 
(IXY-{2X) {SY)/N)/{IX^-(1X)VN). 
The other parameter, a, can then be 
easily found using a=Yni-b*Xin, 
where Y^ and X^ are the means of Y 
and X, respectively. 

Analysis of variance (ANOVA) is a 
special case of regression. In a simple 
ANOVA you have two or more groups 
of data, and want to know whether 
they come from the same population. 
Is there a difference between the two 
groups? There will almost always be 
some difference between the means of 
two groups of experimental data. Even 
when you purposefully collect data 
from the same source, some fluctua- 
tion is inevitable. So how different is 
different? 

The answer lies in significance tests. 
No matter how large the difference be- 
tween two data sets may be, there is 
always some finite chance that the dif- 
ference you are observing is due solely 
to chance, not to some real difference 
in the data source. In significance 
testing, you decide on some level of 
chance at which point you will con- 
clude that the two groups are different. 
This is normally called alpha (a). In 
scientific work, a is often chosen to be 
.10 or .05, meaning that if the proba- 
bility that the difference observed 
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Listing continued 

1720 FOR 1=1 TO N 

1730 PRINT "SCORE #";I;A(I) 

1740 j=j+l 

1750 IF J>14 THEN INPUT'CONTINUE" ; A$: J-=l 

1760 NEXT I 

1770 'LPRINT DATA 

1780 J=l 

1790 FOR 1=1 TO N 

1800 LPRINT "SCORE #";I;A(I) 

1810 J=J+1 

1820 IF J>60 THEN INPUT"CONTINUE";A$:POR K=l TO 6:LPRINT' 

XT K;J=1 

1830 ' FOR 60 LINES OF TEXT ON A PAGE OF 66 LINES 

1840 NEXT I 

1850 'X-y PLOT OF DATA 

1860 GOSUB 680: 'SORT IT IN B() 

1870 L0W=B(1) :UP=B(N) 

1880 Sy=47/(UP-LOW+l} :SX-127/N 

1890 CLS 

1900 FOR 1=1 TO N 

1910 PX=I*SX 

1920 PY=47-B(I)*SY 

1930 SET(PX,PY) 

1940 NEXT I:PKINT@0,''DONE"; 

1950 IF INKEY$="" THEN 1950 ELSE 140 

1960 'HISTOGRAM OF PRE-GROUPED DATA 

1970 IF NG-0 THEN 1670:' MUST BE GROUPED 

1980 IF NG>64 THEN 1670:' TOO MANY TO SEE ON SCREEN 

1990 UP=C: 'MAX NUMBER OF SCORES IN G() 

2000 CLS:FOR 1=1 TO NG 

2010 IF G(I)=0 THEN 2050 

2020 FOR J=47 TO 47-G(I) STEP -1 

2030 SET[I*2,J) 

2040 NEXT J 

2050 NEXT I:PRINT@0,"DONE"; 

2060 IF INKEY$="" THEN 2060 ELSE 140 



" : KE 



NEW PRODUCT RELEASE FROM WINN & HARRISON 

THE CHECH RECORDING SYSTEIV! 

HEOT DRIVEN PROGRAMS USE SELF-EXPLANATORY SCREEN DISPLAYS 

EASY DATA ENTRY AND FAST RECONCILIATION 

STORES OVER 3,000 CHECKS ON A SINGLE MODEL III DISKETTE 

CLASSIFY CHECKS WITH UP TO 150 CLASSIFICATION CODES 

COMPLETE USER AND PROGRAMMER DOCUMENTATION 

REQUIRES MODEL I OR MODEL III, A8K, ONE DISK, PRINTER 



$29.95 



VISA & MASTERCARD WELCOME 
ADD $2.00 SHIP & HANDLE 
WV RESIDENTS ADD 5% S.T. 
MONEY BACK GUARANTEE 



WINN 5. HARRISON 
241 N. HILLS DR. 
NORTH HILLS, W 26101 
(30M. ^23-7098 



BY MICROSOFT • EASY TO USE 

• INCLUDES M-BO, CREF-80 ft EDIT 80 

• AUGMENTED WITH OUR DOCUMENTATION 






f BASIC COMPILER 

T • TRSDOS- ^0 COMPATIBLE 

♦ • UP TO 30 TIMES FASTER 

^ DISK SORT • YOU DON'T HAVE TO BE A PROGRAMMER TO USE IT 

T • MENU DRIVEN • RANDOM FILES • EASY TO USE • SPEC'S SAVED ON DISK 

I • EASILY INSERTED INTO JOB STREAM FOR NON-STOP RUNNING • FULL DISK CAPACITY 

^ • I.OOO REC's SORTING 15 BYTES, INCLUDING ALL DISK I/O = 2 MIN, 45 SEC's 

♦ BASIC CROSS REFERENCE .savehoursi 

♦ • SEE USED LINEWs/NAMES AT A GLANCE • PRODUCES NICE PROG LISTING 

4 EPSON Mx-eo$460*= mx-ioo$700«'* huhrv-umited timei 

♦ PAPER 9''^"11 18lb WHITE STRIPS TO 8",x11 3,000/BOX 



$339.00- 



INDISPENSABLE 



MAILING LIST . high capacity • spans disk • no sorting 

• fast RETRIEVAL-UPDATE • R/S CONVERSION INCLUDED • LONG/SHORT FORMATS 

• ESTIMATED AVAILABILITY - DEC, 1962 

■PLUS POSTAGE S HANDLING. PRICES SUeJECT TO CHANGE WITHOUT NOTICE. 

GOOD-LYDDON DATA SYSTEMS 

5486 RIVERSIDE DR., CHINO, CA 91710 

(714)980-4563 



TRS-80 a TRSDOS ARE 
REGISTERED 

TRADEMARKS OF 

TANDY CORP 



NOW AVAILABLEI 

♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 

$25.00' ♦ 
$149.95'} 

DOC. ONLY $ia''' # 
DEO ON PURCH ♦ 



MASTER CARD 
VISA accepted. 



$69.99* 

DOC ONLY S10'- 

DEDUCTIBLE 

ON PURCHASES 

$59.99* 

DOC. ONLY S10" 
DED ON PURCH 



'^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦-^ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



between the groups is due to chance 

is less than .1 (1 chance In 10) or 
.05 (1 chance in 20), we assume the 
data sets are different. 

Statistically, the null hypothesis is 
the theory that there is no difference 
between the groups; it is denoted H^. 
The hypothesis lliat there is a differ- 
ence between the groups is called the 
akernativc hypothesis and is denoted 
H,;. To be more specific, if we let jji be 
the mean of group 1 , [i-, be the mean of 
group 2, and so on, the hypotheses 
may be summarized with: 

Hq: Ml = M^ = ■ ■ ■ = Mm 
Hg! ^^j <>Hj for some i, j 

This is a vital approach to inferential 
statistics. Notice that here, as well as in 
the regression statistics, no reference is 
made to cause and effect. Inferential 
statistics such as ANOVA and regres- 
sion are concerned only with the corre- 
spondence between variables or differ- 
ences between groups of variables. 

ANOVA use.s two independent mea- 
sures of variance to determine whether 
the experimental groups are different. 
One, between-groups variance, is the 
variance of the means between the 
groups. The other, wilhin-groups vari- 
ance, represents the variance within 
each group, if the null hypothesis is 
true, then these independent measures 
of variance should be about the same. 
The decision is made through an F test. 

If the groups are different, then you 
would expect the between variance to 
be larger than the within variance, 
right? The between variance is divided 
by ihc within variance. If this ratio is 
significantly greater than one, there is 
at least one pair of groups different. 
This F ratio is then looked up in tables 
with the within and between variance 
(or calculated with some approxima- 
tion), and the probability that this ratio 
could occur by chance is given. If it is 
less than your previously chosen level 
of alpha, then you reject the null 
hypothesis, otherwise you accept' the 
null hypothesis. 

Significance tests are used with all 
sorts of inferential statistics. They can 
be used to determine whether two or 
more groups of data are different (for 
example, the t test and ANOVA), if 
there is any improvement in a regression 
by including additional variables, or 
whether a model describes a set of data. 

We'll continue this discussion next 
month. ■ 



480 • 80 Micro, Novemben 982 




1. Find the LOAD 80 dealer nearest you. 

2. Visit his store. 

3. Buy LOAD 80. 



Once yon discover how much time and money you can save using LOAD 80— and just 
how easy it. is to use— you may never want to keyboard another program as long as 
you live. 



' LeoniliifilerNev.'i 
6 Meniam Ave 
Lpominster, MA0I453 
S17-534-8237 



462 Mliudv SI 
W.illhuin. MA 02154 
6n-HS9-354Q 



MIcrocini SitTlwarc Cir. 
25 Elm SI. 
Walenoivn, MA 02 1 72 



Vineyard Eleclronica 

Siaic Rd, 

Vlnejranl Haven, MA 02568 

6n-693-5600 



■ Tufl'a Radio 
61 LqwcII F)d 
Hudson. NH 03051 



Radio Shaizk 
148 Key Rd. 
Keene. WH0343i 
603-357 0100 



Comer r*Jews 
Rallroiid Square 
Keene. NH 03431 
603-357-4696 



' Wm. Hall Assoclallon 
31 Raynea Ave 
Ponamouin, NH 03801 
603-43 1-7438 



Compuler Dynamlca 
11 Portland Hill 
Oeorgetoivn.CTOS829 
303-236<«43 



Alban. Ine 

L 1 Portland Hill 

Gcorgelown- CT 06829 

203-5449236 



' Computer Servlce$/DANB 
1 Franklin St. 
Daiibury.CT 06810 
203-743-1299 

Software Mart 
352 Blnxunneld Ave. 
Caldwell. NJ0TOO6 
20 1 228 4949 

The Computer Noi^ 
Ptnc Brook Plaza, RIe. 46 
Pine Brook. NJ 07058 
201-575-1192 



Computer Dlmendlonn 
1 16 Elm St. 
Wcslflcld- NJ 07090 
20 1 232-8300 



Ctunputer Corner of NJ 

439 Route 33 

PoraplDii Plains. NJ 07M4 

201-835-7080 



Computer Dlacounl of A 
Weal Milfnrd Mali 
Weat Mllford, NJ 07480 
201-728 8080 



■ Soltware Clly 
147 N. Klnverkameik I'd. 
Monlvale NJ 07645 
201-391-0931 



' Soflivan- City 
161 Cedarland 
Teancck, NJ 07666 



Computer Madness 
Summerton Shopping Ctr. 
EngHalilowii, NJ 07726 
201 -462-9696 



Mr RkikBurdett 
94 Princeton Ave 
Dover. NJ 07801 



J & J Elcctionies R/S 
Pte. 57. James Way Syc 
Haeeltslown- NJ 07840 
201-652-6976 



E>apei-I>aek Booksmiih 
Ror-kaway Town Square 
Rofkaway.NJ 07866 
201 361 340O 



MT Elec ironies R^S 
8 Main Si reel 
Sparta, NJ 07871 

201-729-5719 



Happy Booker 
' Morns County Mall 
Cedar Knotla. NJ 07927 
201-5394240 



Morris County Statlone 
Chesler Springs Shop Clr 
Chester, NJ 07930 
301-879-5776 



Computer Workshop 
ISOOHaddenfieldHd 
Cherry Hill. N J 08002 
60&««54404 



Radio Shaek 
Cherry Hill Wall 
Cherry Hill, NJ 08034 



Radio Shaek 
Morrlstown Mall 
Morristown, NJ 08057 
609^779-8877 



Computer Ent:ounter 
Ptlneclotl N. Shop, Clr. 
Prhieeiun, NJ 06540 
509.924,8757 



Bargain Brothers 

2iaSeoteh Rd. 

W, Trenton, NJ 08628 

6098833050 



Crowley's 

Rt 22. Rd 3. Bin 670 

Whitehouse Station NJ C 

201-5342722 



Digibvlr 

31 E, 3l5l 

New York. NY 10016 

212-889-8130 



KD Intemalional Co, 
455 W 43rd St. 
New York, NV 10036 
212.307,0266 



Programs Unltd JWhue 
131 Mamaronerk Ave, 
White Plains. NY 10601 
914-761,9283 



Programs Unhd,, Ine. 
20A Jericho Turnpike 
Jentho. NY IL753 
516,997,9568 



The Computer Shoppe 
283Medford Ave.. Rte 112 
Pairhoquc, NV 11772 

5 16,758-6558 



Compulerland 
46-50 Main SI, 
Massena, NY 13652 
315-7599971 



Hed-Ten Radio Shaek 

129 E 4th Si. 

Wal kins Glen. NY 14891 

606-535-2233 



Aneo Electron lea 

Back MouniaJn Shopping Ctr 

Shavertowii, PA 18708 



■ The Carpenter 1^. 
330 Helntyre Rd, 
Plltsbutgli, F'A 15237 
412-4859085 



Personal Software 
Rie. 23 ® Rte. 345 
Elvetaon. PA 19520 
215 286-9664 



Wills Computer Store 
4410 Stamp Rd. 
Marlow Kgls., MD 20031 
301-433 4525 



Pentagon Bookstore 
The Coiicpurae 
Washington, DC 20301 
202-695-0870 



Bowes Etooks 
718 Great Mills Rd, 
Leifnglon, MD 20653 
301 863-6300 



The Comm Center, [ne 
9624 Fi. Meade Rd, 
Uurel,MD 30810 
30 L 953 9353 



B. Dallon Booksellera 
Rls, I-270SMDS5 
Freactict.. MD2i70l 



Hanirock Teehtronlca 
33 W. Mam Si. ■ 
Hancock, MD 21750 
301, 6786000 



Areade Electronics, IN 
7036-28 Columbia Pike 
Annandale, VA 22003 



' Community Electronlca 
258 Broadview Ave, 
Warrcnton. VA 33186 
703,347,1339 



Mr Robert G, Brooka 
9701 Meadow View Rd. 
Richmond, VA 23229 



K ^ S Newstand 

1249 Corporation Pkwy. 

Winston Salera, NC27107 

919-724-7537 



Kinj! Electronics 

Town * Country Shop. Clr. 

Aberdeen. NC28315 

919-944-3600 


American Software 1\t It 
2305 I'once dc Ltoii Blvd 
Coral Gables, FL 33134 
305-864,2305 


Sound Milt 

5ltH-um Shopping Cenler 

Havelock. NC 28533 

919-447-6988 


H « H Hobby Sales 
4121 S. Tamiaml Trail 
Sarasola. FL 33581 
813,922-7711 


Rayhurn Mirru-Eleclron 
27 E. Main SI. 
Sylva, NC 28779 
704-586-8133 


I'jjJrrlnck li-jokitmUli 
8201 S. Tiiinlami rrall 
Siirjaol.i, PI.335H3 
813-923-5264 


Aiidci5on Electronics 

29633 
803-225-S422 


Micro Computer Center 
14932 N Florida Hwv. 
Tampa. Fl. 336)2 
81,3-951-5269 


Megatron,Radlc Shiic'h D 
Heniage Plaza 
Hilton Hiiil I'la/a, SC 29928 
803- 785-9530 


■ Madison Bt»ka 
8006-5 Madison Pike 
Madison. AL 3575S 
205-772-9250 


Altanta Computer M.irl 
509|,BBulordHwy. 
AllaniB, OA 30362 
404-455-0647 


Hooper Elect roiiii Sopp 
495 Rodcnburfi Ave. 
Biliui. MS 39531 


Software To-Bool 
8514 Cindy Sl- 
Savannah-GA 31406 
912 927 2017 


Ell?abethIown Electron 
Ellzabelhtown Plaza 
Ellzabelhtown, KY 4270 1 
502-765-5070 


Clly Newsstand 
901 E, New Haven Ave 
Melbourne. FL 32901 
3057250330 


Jerry's Compoteis 
Euclid Arcade 
Cleveland, OH 44115 
216-57*0648 


Cape News Co. 
700 Clearlake Rd. 
Cocoa. FL 32922 
813-870-1970 


Data Ljjik Ctr. 
4920 Airway 
Dayton, OH 45431 
513252-1613 



Suppliers of I^oad 80 Disks 



Pamper yourself. 

Pamper your computer. 

Use LOAD 80 cassettes and disks. 



A subsidiary of Wayne Green Ine, 
Peterborough, N.H, 03458 USA 
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FEEDBACK LOOP 



by Terry Kepner 



/can' I make backups with my single- 
drive Model I. The system works fine 
in all other modes, even passing the RS 
Stress Test. But, it will only complete 
some of the Floppy Doctor tests. 

Radio Shack recommends I buy a 
head-cleaning kit. I don'! know if this 
will work since the reference manual 
doesn 't say anything on this. I've cleaned 
my disk drive's head using a cassette 
head cleaner, but (his didn't help. 

Radio Shack charges $30 to clean and 
align the head. If that doesn 't work, it 
will then cost another $120 to change 
the head. Should I spend this kind of 
money when I can buy a non-Radio 
Shack disk drive for about $260? 

A.M. 
Egg Harbor, NJ 

Unfortunately, you don't mention 

which Floppy Doctor tests your drive 
failed. (Please, if you have a question 
for Feedback Loop, tell me what your 
system has on iL, what modifications it 
has, what tests you've given it and how 
it fared on them, and your phone 
number so 1 can call you If I have ques- 
tions.) 

The first step is gelling a disk-drive 
head-eleaning kit. Even if it doesn't 
cure your problem, it docs prevent de- 
bris buildup on the drive head, which 
can damage both the head and any disks 
you put in the drive. 

The second step is lo have your drive 
aligned and tested. Spending $30 to 
have the drive checked is much cheaper 
than buying a new drive, no matter 
what the source. (One of my drives be- 
gan exhibiting the same symptoms you 
mention; the problem was a loose drive- 
head alignment screw.) 

Finally, if the drive needs the head re- 
placed, the decision on whether to buy a 
new drive or repair ihe old one is up to 
you. I'd buy a new drive and repair the 
old one later. That way I'd have a two- 
drive system. If you can't afford both, 
keep the old unrepaired drive for 
emergency use. 

I've made several unsuccessful at- 
tempts to get a mailing list of Model I 
and UI users. I've talked lo different 
Radio Shack Computer Stores, and 
have even tried the head office in Texas. 

My reason for wanting the mailing 
list is to market a personnel accounting 
package I've written. I need about 1,000 
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Problems 

and 
Solutions 



names and addresses, and I 'm willing to 
pay for them. 

H.S 
Dun woody, GA 

You're not the only one who wants a 

list of TRS-80 owners! Practically every 
company markeling TRS-SO software 
would love lo get hold of the Tandy 
mailing list. Tandy regards its list as se- 
cret information and won't release any 
of the names they have. 

Your best sources for names are the 
magazines. Most magazines, this one 
included, have contracts with agencies 
to sell sections of their subscription lists 
at reasonable prices, generally around 
four to six cents an address in batches of 
5,000. For more information, coniacl 
Qualified Lists Inc., 20 Maple Avenue, 
Armonk, NY 10504, (914) 273-3353. 
They handle all the Wayne Green Inc. 
mailing lists. 

/ have a TRS-HO Model 11, an Epson 
MX~80 primer, and Scripsit. I can 7 
get the printer to prim in the enipha- 
sized mode. 

I've sent letters to both Radio Shack 
and Epson America, and il seems that 
ihey can 7 help me. 

H.J. 

Skokie, IL 

Your main problem is the word pro- 
cessor. The Epson can be made lo print 
in the emphasized mode by sending il 
the escape code, followed by the code 
for emphasized printing. While the 
TRS-80 Model 11 can easily transmit 
any code generated by Scripsit, Scripsit 



itself cannot generate the code required, 
in Basic, you could use the CHR$(x) 
command to send the proper codes to 
(he printer via the LPRINT command. 
Any subsequent information sent to the 
primer would be printed in the empha- 
sized mode, until the printer is turned 
off or the escape code is sent again 
followed by the code to turn off the em- 
phasized mode. 

My best suggestion is to boot the 
Model II into Basic, send the escape 
code and emphasized print code using 
LPRINTCHR$(27"E"), then reboot 
the Model II with Scripsit. You should 
get the emphasized print mode. 



/ have a TRS-80 Color Computer. 
This computer has a facility built in for 
renumbering, but no merge. Can you 
persuade one of your readers to pro- 
duce a merge program? To my knowl- 
edge, no one has produced one over 
here. 

E.S. 

Largs, Ayshire, Scotland 

You chaps overseas are in a rather 

difficult position. Normally I'd refer 
you to the ads in the magazine, but try- 
ing from America for shipment over- 
seas can be a real bear. Customs messes 
things up, and packages sent surface 
mail take months to arrive (if ever). 
Since most American companies aren't 
familiar with these procedures, overseas 
customers end up the losers. This being 
the case, is there someone who knows 
of a Scottish or English source we could 
refer E.S. to? (A Color Computer 
merge program will be published in HO 
Micro soon. — Eds.) 



In September I incorrectly stated 
that Weather Forecaster in Instant 
Software's Climate Comp package 
(/ro3 1 6RD) can be used on a cassette 
system. When originally released by 
Instant Software, the program was 
cassette based and didn't use data 
files. But when it was converted to 
disk, it was rewritten to use the same 
data files as its sister program, 
Weather Plot. Because of this it can 
no longer be used on a cassette- 
based computer system. 



SOFTWARE 


MICROPRO 




Wordstar 


S239.00 


Mail merge 


89,00 


Cuslomjzation Notes 


$359.00 


Spellstar 


$239,00 


Da t as tar 


$199.00 


Calcstar 


$199.00 


MICROSOFT 




Basic Interpreter 


$349 00 


Basic Compiler 


$389.00 


Fortran 80 


$499.00 


Cobol 80 


$695.00 


DATA BASE 




FMS80 


$595.00 


dBase 11 


$599.00 


NEW! IBM PC SOFTWARE 


NEW! 


INFORMATION UNLIMITED 




Easy Writer 


$289,00 


Easy Speller 


$149.00 


Easy Filer 


$319.00 


VISIOORP 




Visicalc 256K 


$199.00 


VisiDex 


$199.00 


VisiFile 


$229.00 


VisiTfend/VisiPlot 


$229.00 


MICROPRO 




Wordstar 


$239.00 


MISCELLANEOUS 




Supercalc by Sorcim 


$229 00 


Superwriter by Sorcim 


$289 00 


Home Accountant Plus 


$139.00 


ENTERTAINMENT 




Deadline 


$39,00 


Temple of Apsfiai 


$29.00 


Curse ot Ra 


$15.99 


Call For More IBM Software And Accessories 


DISK DRIVES 


CCI 1 00 for the TRS-80 Model 1 




5'/4 40 track 


S299.00 


CCI 189fortheZenltln Z-89 




5% 40 track 


$379 00 


CORVUS 5M with Mirror 


$3089.00 


CORVUS lOM witti Mirror 


$4469 00 


CORVUS 20M witti Mirror 


$5389.00 


CORVUS Interfaces 


CALL 


RANA SYSTEMS add-on Disc Drive for the Apple II 


Elite One 40 Track 


CALL 


Bite Controller 


CALL 


Elite Two 80 Track 


CALL 


Elite Three 80 Track double-sided 


CALL 


DISKETTES 


Maxell S'A single side 


$39.00 


Maxell 8 single side 


$49 00 


Maxell 5'A double side 


$45.00 


Maxell 8 double side 


$55 00 


BASF 5V4 


$26.95 


BASF 8 


$36 00 


Verbatim SVi 


$26.95 


Verbatim 8 


$36.00 


Wabash 5 'a 


$24.95 


Wabash 8 


$29.95 


IBM PC ACCESSORIES 



64K Card tjy Microsoft 

Joystick by T 8 G 

128KCard 

192K Card 

256K Card 

Combo Card by Apparat 

Call for more IBM PC add-ons 



S435 00 
$49.00 
$579 00 
$629 00 
$699.00 
$249.00 



Forfast delivery, send certified checks, money 
orders, or call to arrange direct bank .wire 
transfers. Personal or company checks require 
one to three weeks to clear. All prices are 
mail order only and are subject to change 
without notice Call for shipping cttarges. 




APPLE SOFTWAEtE 


MICROPRO 




Wordstar 


SI 99.00 


MailMerge 


$69,00 


Spellstar 


$149.00 


DalaStar 


$199,00 


Calcstar 


$189.00 


Supersort 1 


$159,00 


VISICORP 




VisiCalc 


$199.00 


Vi SI Term 


$79 00 


VisiDex 


$199.00 


VisiPlot 


$169 00 


VisiFile 


$199.00 


VisiSchedule 


$259.00 


VisiTrend/Plot 


$239.00 


VisiPac 


$539 00 


MISCELLANEOUS 




Micro Courier 


$219 00 


Screen Director 


$129.00 


Executive Briefing System 


$169.00 


Supercalc 


$!99.00 


Personal Rling System 


$11500 


PFS Report Writer 


$75 00 


Word Handler 


$169.00 


CP/M Power 


$59 00 


ENTERTAINMENT 




Wizard and Princess 


$29.00 


Twerps 


$28 00 


Beer Run 


$28 00 


ZorkI, II 


$26.95 


Deadline 


$39 


Chop Lifter 


$24.95 


Pinball 


$24.95 


Cannonball Blitz 


$29 95 


Knights of Diamonds 


$29.95 


Midnight Magic 


$32.00 


Wizardry 


$45.00 


Time Zone 


$79.00 


Tuesday Morning Quarterback 


$24 95 


Crush, Crumble & Chomp 


$24.95 


Datestones of Ryn 


$15.99 


Morloc's Tower 


$15.99 


Star Warrior 


$31.99 


Snack Attack 


$23,95 


Star Blazer 


$24.95 


Kabul Spy 


$29.95 


Cyclod 


$23.95 


APPLE ACCESORIES 


ADVANCED LOGIC 




Add-Ram 16K Card 


$99.00 


Z-Card CP/M for the Apple II 


$225.00 


Smarterm 80 Column Board w/Softswilch 


$249,00 


The Synergizer 




All of the above plus The CP/M Handbook" 


$545 00 


Z-SO Card by Microsoft 


$319 00 


16K Card by Microsoft 


$159,00 


32K Card by Saturn 


$199.00 


Keyboard Enhancer II by Videx 


$125.00 


Videoterm by Videx 


$259,00 


Game Paddles by TG 


$49.00 


Joystick by TG 


$49 00 


Numeric Keypad by Keyboard Co, 


$139.00 


ALF 9 Voice Board 


$159.00 


ALF 3 Voice Board 


$229.00 


System Saver by Kensington 


$75,00 


Versacard by Prometheus 


$229,00 


8088 Card by Coprocessor 


$789,00 


Microbuffer II 16K w/graphics 


$259.00 


Microbuffer II 32K w/graphics 


$299,00 


APPLE INTERFACE CARDS BY CCS 




Serial Asynch. #7710 


$139.00 


Serial Synch #7712 


$149.00 


Call for other CCS cards 




RAM 



COMPUTERS 



16K Ram Kit for Apple II, TRS80 
200 nano seconds, 4116 chips 



$17.50 



CALIFORNIA COMPUTER SYSTEM 
Mainframe 2200a $485,00 

Z-80 CPU 2810a $265 00 

64K RAM 2065 $569.00 

Roppy Controller 2422a $359 00 

ZENITH 

Z-89 48 K CALL 

Z-90 64K CALL 

Call For Prices On The Complete Zenith Line 
CASIO FX702P Pocket Computer $179.00 

Sanyo MBC 1000 64K CALL 

Call For Prices On Complete Sanyo Computer Line 



PRINTERS 


NEC 7710 Serial 


$2395.00 


NEC 7720 KSR 


$2749 00 


NEC 7730 Parallel 


$2395.00 


NEC 3510Senal 


$1850 00 


NEC 3530 Parallel 


$1850.00 


NEC 8023 Dot Matnx lOOcps 


$539,00 


Olivetti DY211 Letter QuaUty 




Daisy Wheel Printer 


$1095.00 


Parallel Only 


$995.00 


Epson MX-80 


CALL 


Epson MX-80FT 


CALL 


Epson MX-100 


CALL 


IDS 560 


CALL 


IDS Prism 80 


CALL 


IDS Prism 132 


CALL 


Okidata Microline 80 


CALL 


Okidata Microline 82A 


CALL 


Okidata Microline 83A 


CALL 


Okidata Microline 84 


CALL 


Centronics 739 


$675.00 


Datasouth 180 cps 


CALL 


Zenith Z-25 150 cps 


CALL 


MONITORS 


Amdek 12" B & W 


$109,00 


Amdek 13" Color 


$329.00 


Sayno 9" B&W 


$135.00 


Sanyo 9" Green 


$140.00 


Sayno 12" BSW 


$179,00 


Sayno 12" Green 


$189.00 


Sanyo 13" Color 


$359.00 


Zenith 12" Green 


$95,00 


Zenith 13" Color 


$339,00 


Electrohome 13"H1-RES 




Color Monitor 


$829,00 


Electrohome 13" Color 


$349.00 


Electrohome 12" BSW 


$179.00 


Electrohome 12" Green 


$189.00 


Electrohome 9" B&W 


$149.00 


Electrohome 9" Green 


$159,00 



SPECIAL OF Tii^lfiMM 
RANA SYSTEB«i - ;, 
add-on disk dxive ior Apple II 
Elite One 40 icack CALL 



ADDS Viewpoint 
Zenith Z-1 9 

Televideo 910 
Teievideo 925 
Teleyideo 950 



TER MINALS 

$495.00 
$679,00 
$595.00 
$779.00 
$969 00 



TELECOMMUNICATIONS 



Prentice Star Modem 
Novation Cat Modem 
Novation D-CAT 
Novation AUTO-CAT 
Novation APPLE CAT 
Hayes Smart Modem 
Hayes Micro-Modem 
Hayes Chronograph 



$129 00 
$139,00 
$149.00 
$199,00 
S299.00 
$249,00 
$295,00 
$225.00 




TO ORDER CALL TOLL FREE 1-800-343-6522 ■'^' 
420:438 Rutherford Ave,, Dept Mill, Charlestown, Massachusettes 02129 




Hours 9 AM - 9 PM (EST) Mon,-Fri. {Sat, till 6) 
Technical information call 617/242-3361 

J,- See List of Advertisers on Page 455 



TWX- 710-348-1796 



Massachusetts Residents call 617/242-3361 

Massachusetts Residents add 5-'d Sales Tax 
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FEEDBACK LOOP 



Fve jusl purchased a used Model I 
and I'm enjoying it tremendously, ex- 
cept for its infamous RFI problems. Is 
there any way lo reduce the hash this 
machine generates? 

P.S. 

Hammond, IN 

Just a few months ago I saw a letter 
from a computer user in the Nether- 
lands who described what he did to 
efiminate the RFI on his Model !. He 
buih a wire cage, using quarter-inch 
grid wire to fit around the expansion in- 
terface and the keyboard (leaving a gap 
for the actual keys of the keyboard). 

The cage is soldered together, with 
the top piece soldered only al the back 
(so he can remove the computer from 
the cage if he wants). All the cables thai 
leave the cage (power cords and video 
cable) are wrapped, several times, 
around fcrrilc core rings, while each in- 
terface cable (printer, disk drives, and 
so on) passes between two ferritc bars 
that are bolted together aiid grounded 
lo the cage. The cage itself is connected 
to ground. This contraption forms a 
Farraday cage that grounds out all RFI 
generated by the computer. The creator 
of this box says it eliminated all the RFI 
produced by his computer. If you try 
this, let me know how well il works. 

The Color File Program Pac for (he 
TRS-80 Color Computer is a powerful 
data-base manager. The only drawback 
to the program is its inability lo formal 
printed output. I tried to read the sorted 
data tape, but failed. Fort Worth told 
me that all tape output is in machine- 
language compacted form and cannot 
be accessed in Basic. Could you, or a 
reader, supply a machine-language pro- 
gram (to be POKEd in) that would read 
the Color file tape output into a Basic 
program ? 

R.L. 

Davenport, lA 



I don't have that particular Program 
Pac, so 1 can't help you. Is there anyone 
out there who can help? 

My first problem has to do with a 
specific commercial program. After the 
program loads once or twice that area 
on the tape seems to wear out. The next 
lime I load in that area, the tape loads 
perfectly until the very end, then beeps 
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and the memory size question appears. I 
have a Model I, but no amplifier so I 
listen to the sound with an earphone. 

My second problem involves my 
CR T Whether it 's on or off, plugged in 
or not, at times it emits a loud crack- 
ing noise. 

A.R. 
Chicago, IL 

There are two possible reasons for 
your CRT problem, one of which is 
known as Corona discharge, fhe insu- 
lation around your CRT's high voltage 
lines on the tube itself is allowing a 
slight voltage leakage. As you use your 
CRT it builds up a static charge. At in- 
tervals, depending on the humidity, this 
charge is released, much in the same 
way thai lightning discharges the static 
buildup in storm clouds. This discharge 
occurs only when the unit is on. It can 
be dangerous as it indicates the insula- 
tion inside the case is breaking down. 
Take your CRT to a tv repair shop and 
have a technician determine how serious 
the problem is. 

The other possible answer is that the 
cracking noise is caused by the expan- 
sion and contraction of the plastic case 
of ihe CRT as the unii warms up when 
you turn it on and cools down when you 
turn it off. This is most pronounced 
when you have heavy items sUch as 
books or hardware on top of the case. 
The noises can occur quite a while after 
you've turned the unit off. if you have 
items on top of your CRT, take them 
off and see if that stops the noise. If 
you're not sure, take the unit to the 
repair center and have a technician 
check it out. 

There are two possible sources of 
your problems with the commercial 
tape. The first is your tape recorder. As 

you use il, a slight magnetic charge 
builds up on the tape head. This charge 
acts like a tiny magnetic eraser, il isn't 
powerful enough to completely erase 
the signal on the tape, but each time a 
program is loaded, the charge degrades 
the signal quality. After several passes 
the computer "sees" a dirty, unread- 
able signal, even though il may sound 
okay to you. The only solution is to use 
a tape-head demagnetizer on your tape 
recorder at frequent intervals, once a 
month for example. If the disappearing 
program effect only shows up when you 
use that company's tapes, then this 
shouldn't be the problem, although 
regular tape-head cleaning and demag- 



netizing is still a good idea. 

The other possibility is that the tapes 
used by that company are of poor quali- 
ly. i know of a software house that once 
purchased 1 0,()(X) cassettes from an 
overseas source at a very nice price. Un- 
fortunately, the tape material was not as 
represented in the ads, and microscopic 
pieces of the magnetic material actually 
naked off the mylar tape base as the 
tape was used. The tape worked jusl 
fine when Quality Control tested it, but 
after the customer used it several dmes, 
the program failed to load. They had to 
throw away the tapes and find another 
source. 

If the company is having ihe same 
problem with their tapes, your best so- 
lution is to transfer the program to a 
tape of your own. If you can't do this, 
contact the company about the defec- 
tive tape. In any case, check your tape 
recorder first; that is the most likely 
trouble spot. 

/ use a Digital Equipment Corpora- 
tion Decwriter II (LA -36) on my 
TRS-80 Model I, Level II, via Electron- 
ic System 's Serial I/O Board. The prob- 
lem is with the ASCII character set used 
by this dot-matrix printer. I would like 
to convert it to print out Radio Shack's 
character set, including the graphics 
blocks. Can this be done by changing 
the character-generator chips? I am not 
electronically knowledgeable. 

D.M. 

La Grange, IL 

This question took many phone calls 
to several different branches of DEC 
across the country, but the answer is 
yes, it can be done, but probably not by 
you. The chief engineer in charge of the 
LA-36 project lab told me that all you 
need lo do is replace the present charac- 
ter generator chip in the LA-36 with one 
containing the characters you want. 

Unfortunately, neither he nor I know 
of a source of EPROM chips that al- 
ready contain the TRS-80 characters. 
He says the ROM chip used in the 
l-A-36 is a standard chip (although by 
today's standards it's an old chip de- 
sign), with many different manufactur- 
ers supplying a pin-compatible alterna- 
tive. To design your own character font 
requires an intimate knowledge of the 
working codes used by the LA-36 and 
the character-generator chip, which is 
not a job for a novice. He did say that if 
someone were to come up with a re- 
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placement EPROM for the LA-36, 

there would probably be a good market 
for it as the number of LA-36 printers in 
the used market is increasing rapidly. 

I asked him about the belt/pulley 
combination, and he said that changing 
the number of teeth on the pulley 
(which also means changing the belt) 
will affect the speed of the print head as 
it scans across the paper (and will also 
change the character spacing), but it 
isn't necessary if you only want to 
change the character font. If you want 
to change to a compressed character 
font, contact the nearest DEC office for 
information on their special projects 
lab, which should be able to help you 
for a reasonable cost. 

Do you know where we can purchase 
a Scrinput, as they are no longer avail- 
able from A CR ? 

E.S. 
S. Blue Hill, ME 

When writing about companies, 
please include their full name and ad- 
dress with your letter (the first ACR 1 
found in Florida and sells marine nav- 
igation equipment). If you're writing 
about a program that's no longer 
available or needs modifications, please 
tell me what the program docs and the 
computer for which it is designed. 
(There's no need to describe popular 
programs such as VisiCalc, Scripsit, 
Electric Pencil, and the like, but do tell 
me which machine it's for.) 

Scrinput, I cvcnlually discovered, 
was a Model I machine-language pro- 
gram that took information from the 
screen and put it into your Basic pro- 
gram. It was originally a product of 
ACR Consultants in Indiana. John 
Acres, the manager of ACR, decided to 
temporarily cease the marketing of 
Scrinput because of other business com- 
mitments. Scrinput Plus will have been 
released by the time this column ap- 
pears. It has a new 90-page manual and 
retails for $49. It is now sold by Elec- 
tronic Display fechnology, 3200 Polar- 
is, Suite 3, Las Vegas* NV 89102, (702) 
362-6877. 

Normally I he Model I power trans- 
formers produce a soft ac hum. Occa- 
sionally the hum becomes a loud buzz. 
What is causing this? Is there a poten- 
tial for damage to the circuitry? What is 
the cure? 

Also, how can I connect one of the 



stand-alone video monitors to the video 
socket on the keyboard? 

K.S. 
Anaheim, CA 

The power supply hum is caused by 

the laminations inside the transformer 
being vibrated by the 60 Hz power field 
coming from the electric company. Oc- 
casionally, the field will be depleted or 
increased by the turning on or off of a 
heavy power motor (such as a refriger- 
ator or air conditioner). This fluctua- 
tion causes the laminations inside the 
transformer to shift slightly, sometimes 
increasing the distance between the 
laminations, sometimes decreasing the 
distance. If the distance increases, the 
hum gets louder. This is most noticeable 
on the older units. It is completely 
harmless. There is no cure other than 
replacing the unit with a newer one that 
might not make as much noise. 

The answer to your second question 
can be found in the September 1980 is- 
sue of 80 Micro in Dennis Kitsz's col- 
umn 80 Apphcations. If you don't have 
that issue look on page 97 of Dennis 
Kitsz's book The Custom TRS-80, IJG 
Computer Services, 1260 W. Foothill 
Blvd., Upland, CA 91786, (714) 
946-5805. It retails for $29.95. 

/ have several questions. I've heard 
about a new type of mini-floppy disk 
drive that is about to be released that 
will increase the storage capacity of a 

5 14 -inch floppy to 5 Mb. It 's supposed to 
use some sort of vertical or depth read- 
ing and writing rather than the surface 
method now used. What's the story? 

I've also heard about a new dot-ma- 
trix printer due out early next year that's 
supposed to have a 2()-by-25 print head, 
operate at 1 60 cps, and cost under $700. 
Heard anything about it? 

There is a company called Irwin In- 
ternational that makes a Model 510, 
10-megabyte, hard-disk drive that uses 
a plug-in tape cartridge about the size of 
an audio cassette for hack-up. It 's sup- 
posed to take eight minutes to back up 
10 megabytes. The lack of cheap, reli- 
able hard drive backups has been a ma- 
jor drawback, so why haven 't we seen 
or heard about these drives? Is anyone 
working on an interface for the 
TRS-80? I'm surprised this drive wasn 't 
on the market long ago! 

Onpage22S of the TRS-80 Model III 
reference manual, there 's a page of spe- 
cial effects the Model III user is sup- 



posed to be able to gel by using the 
shift, down arrow, and another letter. 
With my computer (purchased March 
1981) none of these work. I tried them 
at the local computer center and they 
didn 7 work there either. They tele- 
phoned Tandy who told them it would 
be fixed in early 1 982, and I could get a 
cheap fix at that time. Still, the newer 
machines don 't seem to use them either. 
Do you know what the story is on these 
functions? 

When I turn up the brightness on the 
Model III monitor I get strange lines 
across the screen, sloping downhill to 
ihe left. They are close together at the 
lap of the display and about an inch 
apart at the bottom. What are these 
lines and what can be done to eliminate 
I hem? 

Last, but not least, my latest version 
of Scripsit (version 3.2) for TRSDOS 
1.3 does wierd things. Mostly, it works 
fine, but if I try to load a file that isn 't 
on the current data disk, Scripsit 
crashes. Tandy's customer service tells 
me that this isn't supposed to happen 
and that something is wrong with my 
copy of Scripsit. I've tried two other 
copies (not my backups) and they all did 
the same thing. A friend's Model HI, 
about the same age as mine, does the 
same thing, but the very same copy of 
Scripsit runs Just fine in a newer com- 
puter. If that's not enough, the 
TRSDOS 1.2 version of Scripsit runs 
Just fine.' Any ideas? 

R.T. 
Denver, NC 

1 can't answer your first two ques- 
tions. Several years ago Electronics 
magazine had a brief article on the pos- 
sibility of depth-reading disks. The arti- 
cle concluded that while il was possible, 
technology had not yet reached the 
point of making it economically feasi- 
ble. That is the last I've heard of the 
technique until you mentioned it. Does 
anyone else have an answer? 

The reason you haven't seen or heard 
about the Irwin hard drives is that they 
haven't been on the market very long. 
They were introduced to Original 
Equipment Manufacturers (OEMs) in 
November 1981, and the controller 
board for the drives was released in 
April 1982. The marketing represen- 
tative told me that there are several 
companies working on an adapter for 
TRS-80S. 

Irwin International, 2000 Green 
Road, Ann Arbor, Ml 48105, (313) 
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663-3600, actually has three hard-disk 
drives, the 510, the 516, and the 416. 
The 510 is a 10-megabyte (formatted) 
hard-disk drive that uses 3M DC-lOO 
tape cartridges for backup (it takes 
about eight minutes, as you mciuioned 
in your letter). The 516 is a 13.2 Mb 
(formatted) version of the 510. The 416 
is a 516 without the tape cartridge baek- 
up. The 510 costs $2,750, the 516 costs 
$2,990, and the 416 costs $1,900. The 
controllers for the drives are purchased 
separately and cost $975 for the 500 
series, and $695 for the 400 series. There 
are host adapters for the S-100-bus 
computers that cost $400. So, if you buy 
a 516 with controller, it'll cost you 
$3,965 plus shipping. And you'll have 
to build your own host computer 
adapter, since none of the companies 
involved in developing adapters for 
TRS-SOs have finished yet. 

I called the local Tandy Computer 
Center and talked with the leehnieian 
about your special effects problem. The 
shift, down arrow combination is sup- 
posed to be a substitute for Radio 
Shack's missing control key. Pressing 



and holding the shift, down arrow keys 
while pressing an alphabetic key results 
in the numerical sequence number of 
that key being returned lo the keyboard 
driver. 

Shift, down arrow A returns the 
value 1; shift, down arrow B returns 2, 
and so forth. Since the keyboard driver 
echoes your keystrokes lo the video, 
these values are sent to the video. And 
since the video interprets any values 
below 32 as control codes, furmy things 
can happen rather than the expected 
functions. 

Control M is a line feed, the cursor 
just moves down one hue, and control 
W converts the screen to 32-charaelers- 
per-line mode. To get most of these 
special functions to work, ihcy must be 
accessed from a program using the IN- 
KEY$ routine. The technician also told 
me that while there was a problem in 
early production with the ROM C, it 
has been fixed, and you can get a new 
ROM C installed for $20. 

The next problem is video idiosyncra- 
cy. The lines yOu describe are created by 
the video circuitry in the computer. 



They are present on Model 1, 11, 111, 
and 16 computers. The only way lo gel 
rid of them is to turii the brightness 
down until the lines just barely disap- 
pear, then adjust the contrast control 
for the best clarity. 

Your Scripsit problem sounds like a 
problem with your DOS, not Scripsit. 
Since several differenl copies of the pro- 
gram are involved, and several different 
computers, problems with the program 
or problems with the hardware should 
be eliminated. 

In March of 1981, TRSDOS 1.3 was 
released. Il had a few bugs. Because you 
bought your computer in March, you 
probably have a tlawed TRSDOS 1.3. 
If, when you boot up your DOS, you 
see a release dale earlier than J une 1 98 1 , 
DOS needs to be updated. Updated 
copies of TRSDOS 1 .3 are available at 
your local computer store. If the prob- 
lem isn't with your DOS, I'm 
slumped. ■ 

Send any questions or problems dealing 
with any area of TRS-80 microcom- 
puters lo Feedback Loop, 80 Micro, 80 
Pine Street, [Peterborough, NH 03458. 



TRS-80 Model I Is t 
We still have the exf 



Disk-80 
Expansion Interface 




As featured in Giarcia's Circutl Cellar 
Byte Magazine, March 1981 

Reviewed in March '82 "80 Microcomputing" 

DSK01 Disk-80 Expansion Interface 

with32kRAMA&T $330.00 

DSK02 Disk-80 Expansion Interface 
with 32k RAM & Printer Port 
AST 380.00 

0SK03 Disk-80 Complete Kit with 

32k RAM & Printer Port 275.00 

DSK04 Disk-80 Bare Printeij 

Circuit Board ", 48. QO 

DSK05 Printer/Power Supply 

Circuit Board 16.00 



The Disk-80 Expansion Interface Is the 
perfect peripheral for converting your TRS-80 
Model I into a professional computer system. 
The Disk-80 controls up to four 35 to 77 track 
mini-disk drives, and contains a fiardware data 
separator which substantially increases ttie 
reliability of data transfers. Attaches to the 
CPU/Keyboard connector and comes complete 
with mini-disk controller, 32K expansion 
memory, power supply, optional Centronics 
compatible printer port, real time clock and 
buffered bus expansion connector. 

"Reviewing Disk-80 is almost incongruous, 
because any comments can be summarized 
with the sentence, "It works." Dennis Bathory 
Kitsz, 80 Microcomputmg, March 1982. 

All interfaces are fiadio Shack hardware and 
software compatible and carry a 60 day war- 
rantee including parts and labor. 
All units include user's manjal, power sup- 
ply & auxiliary TRS-BUS connector for future 
expansion. 

Dealer Inquires Invited 

N.Y. State residents please add appropriate sales tav. 



To Order: CallToll Free: 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 

MICROMINTINC. 
917 Midway 
Woodmere, N.Y. 11598 




Comm-SO 




As featured m Ciarcia s Circuit Cellar 
Byte Magazine, May and June 1980 

The COMM-80 is the only interlace you 
need to turn your TRS-80 Model I into a 
time sharing terminal with provisions for a 
printer. The COMM-80 combines the most 
used features of the RS expansion inter- 
face in a low cost unit containing a built-in 
RS-232-C interface, a full 8-bit parallel port 
and a 40 pin bus connector for future 
expanstion. Terminal software Is included 
at no extra cost. 

« RS-232-C Serial output port (50-19200 baud) 
with standard DB25 connector 

• Cenltonics compatiEjie parallel printer port (34 
pin) 

• 40 pin card edge connector for bus expansion 
" Connecis direclly to CRT terminals, modems, 

printers, other computers. 

• Includes case, power supply & interconnecting 
cable. 

CM01 COMM-80 Serial /Parallel 

I/O Interface A&T . $150,00 

TRS-80 IS a trademark of Tandy Corp. t^ n ; 
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IT'S MORE FUN THAN A THREE-RING CIRCUS 





EDUCATIONAL 
j^ FEATURES 

EXPANDS CREATIVITY 

DEVELOPS KEYBOARD SKILLS 

GEOGRAPHICAL QUIZZES 

MATH AND WORD GAMES 



[OUR CHILD WILL BE CAPTIVATED 
for hours with your gift of the 60 programs in 
Computer Carnival. Tests of skill, haunted houses, 
mazes, wizards and dragons are all a part of this 
funhouse book. Written in TRS-80* Level II Basic. 
Author Richard Ramella creates many characters, from the 
mysterious Sugar Louie to the mystical Madam Zelda, as he 
takes your child through his arcade of games, graphics and 
quizzes. 

Carnival Companion™ is a 30-minute cassette 




LARGE READABLE TYPE 
SPIRAL BINDING 
^ SHORT EASY-TO-TYPE 

PROGRAMS ^ 

READYTO-LOAD CASSETTE 
OF THE LONGER LISTINGS 
AND 

^^ MORE K^ 



<;■- 



Toll Free 1-800-258-5473 for your credit 
cdrci order. Or mall your order with pay- 
ment or complete credit card informa- 
\ tion plus $2 shipping and handling to: 
\ Wayne Green Inc. 

\ Attn: Book Sales 

Peterborough, NH 03458 
Dealer inquiries Invited 



of the longer listings which eliminates the 
aggravation of typing and searching for errors, 
eaving more time to spend on the midway. Order now 
to receive Computer 
Carnival in time for v^^r-v-xry^— vAH^l 
the holidays. / '^S^UllJyJJ^ 




IKS-M) I- J 
tMclemjrk of Ihr 
R.kIio Sh.ick 
livision of 
Kindy Corp 



Q COMPUTER CARNIVAL and CARNIVAL 

COMPANION CC7389 $24.97 
COMPUTER CARNIVAL (book only) BK7389 $16.97 
(Include $2.00 per order tor shipping and handling ch arge s.) CC11 
I I P,iyment enclosed PH MC 1 I VISA I I AniEx 

rarfl# Ex])ires . MCB.inkff 



Package price: 
$24.97 
Book only: 

$16.97 



.'// 



Nannie 



Address & City 



St.itu 



Zip. 

All orders shipped UPS if 
complete street addre'5^ 

ijrovided. 






Photo- 
copied 
coupon is 
accept- 
dble for or- 
dering. 




Got your boots and flash- 
light? Got your wits about 
you? 

This may seem like an ordi- 
nary fun house, but there are lab- 
yrinths and excitement ahead. 
Wait here in the darkness as 1 tap 
three times on this panel and 
twist the raven's wooden head. 
Ah, it worked, the panel opened. 
Now for some adventure. 

The program listings ahead 
will run on the Color Computer 
and on the Model I, Level II 
computer. 

SERIAL 

Well, this isn't too dangerous 
unless you get close to the screen; 
it's a serial. 

Movie serials aren't made 
these days, though they are 
shown on television now and 
then. 

A movie serial is an adventure 
story told in 10-15 chapters, each 
running about 20 minutes. The 
idea is to show a chapter each 
week so people come back to see 
what happens. There is a lot of 
fighting, though no one ever 
seems to get hurt. At the end of 
each chapter the heroine or hero 



The Key Box 

Model I and Color Computer 

4KRAM 

Cassette, Disk or Color Basic 



r ."T "~r.~i 



HOUSE 

by Richard Ramella 

ADVENTURE 




Serial 



100 

110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3 80 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 



* SATURDAY SERIAL * 



REM 

CLS 

DATA THORDAL,DR. WISE , BRET, SUSAN , THE STENTORIAN 

DATA HkSTER hex, the RED BOMB, CAPTAIN BLAIR, JOHNNY 

DATA VERA VALIANT, EARS MALONE , MASCOT MUGGS 

DATA EARTH ORBIT, HEADQUARTERS, PLANET Q ,SIMOLEA, RANDOM RANCH 

DATA GROTTO OF GREED, DISTANT CITY, CLOUD REFUGE 

DATA THE NEWSPAPER OFFICE, THE HOSPITAL, MOUNT VESUVIUS 

DATA DINKEYVILLE, PRISON OF PRIDE, PERDITION PLAN 

DATA TOM'S RANCH, POISON CITY , ACCIDENT 

DATA FORMULA, STOLEN X-RAY, MISSING MICROCODE , PLANS 

DATA POPGON, MASK, JET GLIDER, INVISIBILITY BOOTS 

DATA FREEZE MACHINE , PASSWORD, CAMERA, PASSPORT 

CLKAR 300 

DIM AS(41) 

H=12 

J = 29 

FOR X=l TO 41 

READ AS(X) 

NEXT X 

PRINT A$(RND(H] ) ; '■ AND THE " ; A? (END ( J) +H) 

PRINT 

PRINT "A SERIAL IN LIMITLESS CHAPTERS" 

FOR X=l TO 1000 

NEXT X 

N-1 

CLS 

PRINT 

PRINT "CHAPTER" ;N 

FOR T=l TO 500 

NEXT T 

PRINT 

L=RND(7) +3 

FOR G=l TO L 

B=RND(5) 

ON B GOSUB 540,630,770,920,1000 

S=RND(5} 

IP S=5 THEN PRINT "THERE IS A BIG FIGHT" 

FOR T^l TO 1000 

NEXT T 

NEXT G 

N = N+1 

GOTO 370 

PRINT AS(RND(H) ) ; " "; 

R=RNDt5) 

IF R=l THEN PRINT "GOES TO "; 

IF R=2 THEN PRINT "SEES "; 

IF R=3 THEN PRINT "PLOTS AGAINST "; 

IF R=4 THEN PRINT "BATTLES "; 

IF R=5 THEN PRINT "EXPOSES THE PLOT OF "; 

PRINT AS(RND(H)+H) 

RETURN 

PRINT AS(RND(H) ) ; " "; 

R=RND(5) 

IF R=l THEN PRINT "HAS A SECRET MOTIVE: "; 

IF R=2 THEN PRINT "DISAPPEARS, CLAIMING NO ONE IS ' 

IF R=3 THEN PRINT "SAYS " ; AS (RND (12) ) ; " USED TO BE 

IF R=4 THEN PRINT "TAKES THE OATH OF "; 

IF R-5 THEN PRINT "IS SILENT ABOUT "; 




R=RND ( 5 ) 

IF R^l THEN PRINT 

IF R=2 THEN PRINT 



"A CIRCUS CLOWN" 
CONNIVING" 



IF R=3 THEN PRINT "A TRAITOR" 



Lisiine cuniinues 
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THE KING 

OF 

UTILITIES 

SUPER UTILITY PLUS 

"I believe 

SUPER UTILITY or 

SUPER UTILITY PLUS 

should be present at 

every TRS-SO disk 

installation." 

We didn't say I^ls; P^uI Wiener did in 80 
Microcomputing, Jan. '82. ..but we sure 
agree with him! 

You heard about it! You read about it {80 
AMcfocomputing). Mow get the "cadJilac" 
at a special price! 

CompaLble with MOD I, and MOD ill. and 
all the current operating systems! Copy 
files j^rom any DOS to any DOS, MOD I or 
III. without converting! 

Zap 

Purge 
Format 

Special Format 
Disk Repair 
Memory 

Rte (JtJlity 

Tape Copy 

Format without erase 

Disk Copy 

Special Disk Copy 

Configurable System 
•■^UCH MORE Mod I C Mod III on Same Dis* 

For MOD I/III... $74.95 



NEW 

Back up copy MOW included 



Also Available: 

Super UtlUty Plus Tech. Manual . . . »14.95 

"Inside Super GtlHty Plus" 919.95 




THE HOST POWERFGL. FLEXIBLE 

DISK MAlUrSG SYSTEM FOR THE TRS80 

■SUPPORTS 65,000 NAMES' 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod ! or 111. The program 
is written entirely in machine language for 
maximum operation speed, and occupies 
only 4K of the available RAM in your 
computer. There are no 'slow' periods 
when PowerMAIL is running. Mew 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 flags' that are incorporated 
into the PowerMAlL program. The 
PowerMAlL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will njn in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 1 68 files simultaneously 
during the process. Author Kim Watt 

For MOD I/I1I...$ 99.95 

Hundreds of Satisfied 
Gsers-.-ScripIus 3.0 

Scriplus is a modification to 
Scripsit*" which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

ch»n3» «> M i:^ «i r-xd ^ ct print 
chinqB no, ot ItvtltXI p»r 1 ncfl 

.'"cafures 

■ CoiTipaLblc wiih all currenl DOS's (I or III) 

• ,v\t>dine5 ALL versions of SCSiPSfT"- 

• Allows usage ot MOD I uersiofi on MOD III 

• MItw5 MOD IH vf FBionJ to b* BACKED UP (or your 
prolection 

• Tiles can be killed, loaded, merged, or chainwl liom 
the Scriplus directory 

• S<tip(us supplies an ALPHABETIZED direcloiv with 
FI^E 5pa';e shown 

« -EMD" returns 10 DOS READYlnilead of rebooting. 

• Printer can be slopped for iniertkJn of text or forms 
alignment Inserted text can be edited prioi to 
resumption o' printing. 

• Speciftcally written for Ihe MX -90 but wilt ^otk with, 
any pnnter that accipts CHRS codes for control 

• Optior%aIly select line feed after carnage relutn. 

For MOD I/ni... $39.95 




This Special Limited Edition Package will be in high 
demand as only WO copies will be made. They will be 
numbered I -500 and will be personalty signed by the 
author. Kim WatL YOUR name will be embedded in the 
program as the serial number. Thetoltowing is included 
with this SPECIAL UMJTED PACKAGE 

1) SUPER UTIUTY PLUS S/E in /CMD File Format 
Both .'^OD I arid 111 versions are mclDded, arxJ your" 
"HA^E wiU be the senal number This vJill MOT be a 
prolei:ted disk, and you msy make as mony BAC]".UPS 
as you wsh The serial numbei is HOT changeable 

2) TWO attractive SO'/SE binders. 
Binder 'I w.11 include; 

Three manuals in LARGE fomiat {8 1/2x11 ") 

(a) SOFtR UnLrrY+ Manual 

(b) IMSIDER SJPER UTlUTi' by Paul Wiener/ 
lorcward by Kim Watt 

(C) StlPER UTILITY TECH Manual by Kim Wan £, 
Pete Can 

3) Binder '2 will Include THE SOURCE CODE lor 
SUPER UTlLfTi' PLUS 

Yes the SOURCE CODE to ihis MAJOR program will 
be available lo 500 pfogrammers This is FULLY 
commented by the author. Kim Watl. and Is a machine 
language programmers dream come iruel After 
reading this, your niachlne language pfograr^iming skill 
should Increase l/emendously. All of Kims knowledge 
m OrSE book! All at your disposal and (or YOUR use ' 

4) The l"cense lo USE Kim Watfs sub-routines. 

will be granted to those &00 registered owners' Tfiese 
500 ONLY will be able to apply all of Kim's magic to 

T>tEIR programs. Mo loyotty fee necessary [n other 
words, IMPROVE YOUR PROGRAMS! Take Kims ideas 
and expand on them! Mever has anything EVER been 
done like this before. These 500 ONLY have the right to 
use our iub- routines. This information is MOT being put 
in the public domaia We ere alkiwing these 500 lo u»« 
our routines by buying our special paciia9e,.All copy- 
rights and trademarks are retained by Breeie/OSD. Inc. 

5) SU*/SE is MOT available from any dealer, but only 
difecUy through Breeie/QSD, inc. Customers will be 
handled on a one-on-one basis. Confirmed ordeis wW 
be prereglstercd and a matching card must be relumed 
bypurchoserfor full support from Breeie/QSO.Inc We 
will know who each and every owner Is, so full support 
can be given We DO want you lo sign and return our 
registration card for this support to commence 
however No exceptions will be made 

6) This is a very imf>Ortflnt step that we ore taking, and 
only a selecl group can apptcclale Ihe i/olue in a 
package like ihii. This is MOT loi the general mass 
markeL ll is a college education In machine language 
written by a lecogniied expeft It IS SU* in /CMD file 
form. It Is a license louse Kim Watt s subroulines. It is an 
opportunity to vaiUy improve your product It is a 
collector's item. also. Limited, indeed. La Jl bt« not least 
it is expensive On the surface oniy. however, as this 
product will make you on eiipett programmer If that Is 
what you want You can literally write o DOS from 
studying the code' It will also moke you a member of an 
elitegroupthat fias access to Kims knowledge andean 
USE that knowledge to YOUR benefit 

Source Code is FULLY Commented 

Price for the Super aUUty Plus- 
Special Edition is 
S500 

Available later this year 
Call or *Tlte (or more information 

'Credit lo Kim W«t md Br«ie/QSO muB br gtvtn in Uw 

Sagiam and in Die dooimentatloti (ot subrouonss used. 
lerr is NO royalty fe« to pay howrver 




A DIVISION OF BRiiEZF/QSO. INC 
ORDER TOLL-FREE 1-800-527-7432 



i^See List ol Ai:lverlisers on Page 45b 



11500STEMMONS FWY, 

SUITE 125 

DALLAS. TEXAS 75229 

(214) 484-2976 
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Listing conlitiUL'd 






740 


IP 8=4 THEN 


PRINT 


"THE ";AS(J) 


750 


IF R=5 THEN 


PRINT 


"A MUD WRESTLER" 


760 


RETURN 






770 


PRINT R$(RND(H) +12) ; " "; | 


78B 


R=^RKD(5) 






790 


IP R=l THEM 


PRINT 


'IS THE HIDING PLACE OF " ; 


800 


IF R=2 THEN 


PRINT 


"WILL BLOW UP IF ";ASCKND(12> ) ;" FINDS " ; 


810 


IF R=3 THEN 


PRINT 


'ALL ALONG HOUSED "; 


820 


IF R=4 THEH 


PRINT 


'IS A SECRET PASSAGE TO "; 


830 


IF R=5 THEN 


PRINT 


"WILL SLIDE INTO THE SEA SOON": RETURN 


840 


PRINT "THE 






850 


R=RND(5) 






860 


IF R=l THEN 


PRINT 


"CONTROL PANEL" 


87 


IF R=2 THEN 


PRINT 


'CURTAIN OF DOOM" 


880 


IF R=3 THEN 


PRINT 


"OMNERIAN RUBY" 


890 


IF R=4 THEN 


PRIEST 


•LASER LIGHT" 


900 


IF B-5 THEN 


PRINT 


"PIT OF NO RETURN" 


910 


RETURN 






920 


PRINT a${RND{H) ) ;" 


AND ";A5(RNDCH) ] ; " "; 


930 


R=RND(5) 






940 


IF R=l THEN 


PRINT 


'FIGHT" 


950 


IF R=2 THEN 


PRINT 


"DIVIDC SOME ";A$(RND(J)+H) 


960 


IF R=3 THEN 


PRINT 


'VISIT AN OLD FRIEND: ";AS(RNDCH)) 


970 


IF R=4 THEN 


PRINT 


"PLAN TO ATTACK AT DAWN" 


980 


IF R=5 THEN 


PRINT 


'JOIN FORCES AGAINST " ; AS (RND (H) +H) 


990 


RETURN 






1000 


PRINT AS(RfID(Il) ) ; 


' "; 


1010 


R=RND(5) 






1021 


IF R=l THEN PRINT 


"STEALS "; 


1030 


IF R=2 THEN PRINT 


"RECOVERS "; 


1B4{ 


IF R=3 THE^ 


PRINT 


"USES "; 


1050 


IF R=4 THE^ 


PRINT 


"DROPS "; 


1960 


IF B=5 THEt 


PRINT 


"FORGETS "; 


1070 


PRINT "THE 


'';A$(RND(H)+J) | 


1081 


RETURN 






1090 


END 







Subterra 



100 REM 
110 CLS 
120 DATA 
13 DATA 
140 DATA 
OF EVIL 

15 DATA 
WELL 

16 DATA 
AVERN 

17 DATA 
WAY 

180 DATA 
, ABYSMAL 
190 DATA 
TIGER 
200 DATA 
210 DATA 



* SUBTERRA * BY RICHARD RAMELLA 

NORTH, SOUTH, EAST, WEST, KEY, NOTE - I AM NOT ALWAYS EMPTY 
DESERT, HOME, LOCATION, DO YOU WALK INTO WALLS A LOT? 
WALL, CAVE ENTRANCE, TUNNEL OF MICA, CRAWL SPACE , VESTIBULE 

TRIANGLE TUNNEL, ENDLESS PASSAGE, GROTTO OF GRIEF , DRAGON , 

FOUR CORNERS, TROLL WAY, ROCK TUNNEL, THREE CORNERS, ECHO C 

RIVER, THREE DOORWAYS , SULPHUR LANE, WATERY ELBOW, DARKLING 

COBWEBBED HALLWAY, CIRCLE CHAMBER, WHITE WATER, RIVER ROCK 

WATERFALL 

SACRIFICIAL ALTAR, SHORT HALL, SNAKES, POISON FUMES, GIANT 

IT'S ENDLESS SO GO BACK NORTH BEFORE IT'S TOO LATE 
IT'S A DINNER INVITATION YOU JUST CAN'T REFUSE. THE END 



220 
230 
240 
250 
260 
270 
280 
290 
300 
310 

320 

330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 



DATA HER FIERY BREATH DRIVES YOU BACK, A DOORWAY, RIVER BANK 

DATA LIMBO JAUNT, CAVE-IN NOW BLOCKS ENTRANCE, A ROUND PORTAL 

CLEAR 500 

DIM AS(48) 

FOR B=I TO 48 

READ AS{B) 

NEXT B 

L=12: N=7: W=7 : S=8; E=13 

GOSUB 1740 

IF XS=^"N" OR X$ = "W" THEN PRINT "LOST... NEVER HEARD OF AGAIN 

END 

IF X;;i = "S" THEN PRINT "WENT HOME AND DIDN'T EVEN TRY.": END 

IF X5="E'' GOTO 340 

L=13: N-11: W=13! S=14: E=13 

GOSUB 17 40 

IF X$=''N" 

IF X5='W" 

IP X>^"S" 



GOTO 340 
GOTO 3 40 



THEN PRINT AS(10) : 

THEN PRINT AS{47) : 

GOTO 40 
IF XS="E" GOTO 470 
L^15: N=14: W=ll : S=ll: E=16 
S=RND{2) 

IF Z=2 GOSUB 1850 
GOSUB 1740 

IF XS=^"W" OR X$="S" THEN PRINT AS(10): GOTO 4 
IF XS = ''N" GOTO 340 
IF X$=''E" GOTO 570 
L=la: W=13: S=22: E=20 





Listing continues 



is left in danger. You must return 
the following week to see how 
this danger is avoided. 

The Fun House theater is 
showing a serial today. 1 don't 
know the name because it has a 
different name every time it runs, 
and it has an endless number of 
chapters. All I know is that 
there's going to be lots of hard- 
hitting action. Let's hope the 
good folks win. 

SUBTERRA 

A long and perilous journey 
into the underground is at hand. 
We round a curve and come to a 
mysterious opening in a cliff. 
There's a smaU sign on which is 
scrawled this verse: 

Enter no!, lat you not return. 

But if for an idol of ^old you yearn. 

Come in and wander through the Kloom. 

And, seeking riches, find your doom. 

We're not going to let t at 
scare us, are we? No sir! 

Look, I've got to tie my shoe- 
laces, so you go on in without 
me. ril tell you what 1 know 
about this adventure, however. 

At every location you'll be 
told what lies to the north, south, 
west and east. You travel by 
pressing N, S, W and E to go in 
each direction. 

You're looking for a golden 
idol. If you find it, I claim half 
because we're in this together 
even though I'm sea. . .1 mean. 
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provides you with more informaton on your TRS-80* than any other single source 
gives you 20-30 new programs to use in each of 12 monthly issues 

• reviews, equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80 — its good points and its limitations 
{80 Micro is not affiliated with Tandy) 

• lets you save money — lots of it — by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• lets you in on what is really happening in the industry 

• brings you Wayne Green's outspoken 
and often controversial editorials 
every month 

• and best of all it gives you a no risk 
subscription offer — 

Subscribe today — if you are not satisfied with 
the first issue— write "cancel" across your in- 
voice and send it back. The 80 Micro is yours 
to keep. 




I 
I 
I 



want 80 Micro 

r CheCK enclosed for $24.97 
Bill my D AE D MC D VISA 
D Bill me 



Name 



Address 



City. 



Card# 




State 



Expire Date 

Ipfprhpnk il 




Canada and Mexico $27.97, one year only, US lunds. Foreign S44.97. one year only, '.1:^ i . I '■'.-■'■■;■ n l>i\ Ub hainiv uinly 

80 Micro • PO Box 981 • Farmingdale, N.Y. 11737 
"TRS-BO is a trademark of Tandy 

Please allow 6-8 weeks for delivery 



■See List ol Adve'ti^^ers on Page 455 
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not quite ready to go into the 
strange cave. 

Watch out; You can fall vic- 
tim to various traps. To reach the 
idol you need a magic direction 
and a key. And when you find 
the idol you have to find your 
way back. I sure hope the en- 
trance doesn't cave in while 
you're in there! 

Subterra is tough, so tough 
you may wonder if there's really 
a way out; but you wouldn't be 
interested if it weren't difficult. 

However, if you get stuck, I'U 
rescue you. Send me a nickel and 
a stamped, self-addressed envel- 
ope, and ru send you a genuine, 
crudely-drawn map of Subterra. 
That's this month's Nickel 
Bargain Bin offer. Since it costs 
me a nickel to make the map, I'm 
not in this for profit. I just 
wonder how many of you will get 
lost. 

Read this carefully: For a map 
of Subterra, write to me: Rich- 
ard Ramella, 1493 Mountain 
View Ave., Chico, CA 95926. 
Include a stamped envelope with 
your name and full address on it. 
Without the nickel and the 
stamped, addressed envelope, I 
can't afford to write back. 

Hmm, the hoHdays are com- 
ing up, aren't they? TU try to 
have the Fun House looking fes- 
tive by next month. ■ 



Li'iing conlinued 

480 IP H=2 THEN N=14 ELSE N=19 

490 GOSUB 1740 

500 IF XS="N" AMD H<>2 THEN Z=RND(2) 

510 IF X5="N" AND H=2 THEN PRINT "YOU EXIT TO SUNLIGHT. THE IDOL 

IS YOURS": END 
520 IF Z^l THEN PRINT AS ( 42) : END 
530 IF Z=2 THEN PRINT AS{43}: Z=e: GOTO 470 
540 IP X5="W" GOTO 340 
550 IF XS="S" GOTO 570 

IF XS="E" GOTO 720 

L-21: N-22: K=16 : S=I7: E-23 

GOSUB 17 40 

IF XS="N" GOTO 470 

IF X$="W" GOTO 400 



560 
570 
580 
590 
600 
610 
620 
630 P-2 



IF XS="E" GOTO 10' 
IF Xt^^"S" GOTO 631 



;P;"MILES" 



'TRAPPED FOREVER ItJ THE ";AS(20): END 



GOTO 730 



L=17: W=ll: S=17: E-11 

GOSUB 1740 
660 IF P=2 AND X5="N" THEN PRINT "YOU LEAVE ";AS(17): P=0: GOTO 
570 

IF X5="S" THEN P=P+2 

IF XS="N" THEN V-V-2 

IF P=10 GOSUB 1850 

PRINT "DISTANCE INTO ";A$(17); 

GOTO 6 40 

L=20: N-11: W=ll: E=ll : E=ll 

Z=RND(5) 

IF Z=3 THEN PRINT 

Z = 

GOSUB 17 40 

IF X5 = "!^" OR XS="S' 

IF XS="W" GOTO 470 

IF Xg="E" GOTO 950 

N=ll: w^ll: S=25: E^ll 

IF Z=l THEN L=38 

IF Z=2 THEN L=39 
830 IF Z=3 THEN L=40t E=37 
840 M^RND(2) 

850 IF M=l THEN PRINT "YOU FIND A CHEST CONTANING A 
850 IF MOl GOTO 980 
870 M=RND{2) 
880 IF M=l THEN PRINT AS (5) ELSE PRINT AS (6) 

IF M=l THEN K=l 

GOSUB 1740 

IF XS^"N" OR XS=^"W" GOTO 900 

IF XS="E" AND Z=3 GOTO 1280 

IF XS="E" GOTO 900 

IF X5="S" GOTO 950 

t,=25: N=27: W=28! S=28: E=44 

GOSUB 17 40 

IF XS="W" GOTO 720 

IF XS="S" GOTO 1040 



640 
650 



670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 



890 
900 
910 

920 
930 

940 
950 
960 

970 



IF X$="E" AND KOI THEN PRINT "NO ";A$(5): GOTO 95C 
! IF X5="E" AND K=l THEN PRINT A$(5)f" DOESN'T WORK, 



GOTO 9 



1020 IP ZOl AND Z02 AND Z<>3 GOTO 1010 

1030 GOTO 800 

1040 L=45: N=28: W=23: S=I1: E^26 

1050 GOSUB 1740 

1060 IF XS=''N" GOTO 950 

1070 IF XS^-W" GOTO 570 

1080 IF X>="S" THEN PRINT "HURT YOUR HEAD?": GOTO 1040 

1090 L^29: N=26: W=26: S=46; E=ll 

1100 GOSUB 1740 

1110 IF XS-"N" GOTO 1230 

1120 IF XS="W" GOTO 1040 

1130 IF XS="E" THEN PRINT "OOPS, ANOTHER WALL EH?": GOTO 1090 

1140 L-46: N=29: W-11: S-46 i B=ll 

1150 PRINT "DISTANCE IN; "; P; "MILES" 

1160 GOSUB 1740 

1170 IF Xg="S" THEN P=P+2 

1180 IF XS="N" THEN P=P-2 

1190 IF P<2 THEN PRINT "YOU'RE OUT": GOTO 1090 

1200 IF P=10 THEN PRINT AS(41) 

1210 IP P=12 THEN PRINT "TOO LATE. LOST IN THE DARK. THAT'S ALL 

: END 

1220 GOTO 1140 

1230 L=34: N=33: W=44: S=26: E-31 

1240 GOSUB 1740 

1250 IF X5="W" GOTO 950 

1260 IF XS="S" GOTO 1090 

1270 IP XS="E" GOTO 1430 

1280 L=36: N-35: W=40: S=33: E=ll 

1290 GOSUB 1740 

1300 IF XS="W" THEN 2=3: GOTO 800 

1310 IF Xi^^'^S" GOTO 1230 

1320 IF X$='"E" THEN PRINT "ANOTHER BRUISE": GOTO 1280 

1330 IF Xii="N" THEN PRINT "YOU KNOW WHAT AN ";A$(35);" IS AND ST 

Lining continues 
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Circle 29 on ReaOef Service card.- 



■■"^«^^- I 




Z/TnS-80 aatC'Leva Wlodl /Mod3 Disketflte— 519.95 
/ Optional JoVstick for ModeM— / 539.95 

I discounlf for 2 items, TflOlo for 3 or mire. / 

Please add 91 .75 per orde/for postage Ev^andling, Calif, residents ad I 60|o 
sates tax. / / I \ 

Outside ySA (except Camada) please aUd 53.00 per order for posti ge £ 
handlina: III 



All Glmes^1980, ¥1981 by Bill Mogue & Jeff Vonyu. \ 

Programs are uuritcen in machinl^ language foMiigh quality graphics fit 
effects. V V \ V 

Voicelfi other sound effects are pXayable throum the cassette AUX pli 
High scores are automatically sav^d after each game on disk versions. 

Call on write for our Complete catald^. \ \ 

-"-Audiiivisual licensed from Atari. \ \ \ 



— Mcct% 
Con^puter $9.95 




'"^^ 



MEET THE 
COMPUTER 



Teach youngsters simple 
programming for TRS-80. 

A 77-page book by Marjorie Crabbe, an 
experienced elementary teacher. Easy lo 
understand language. Clear Instructions 
child can follow with minimal supervision 

Upon completion of suggested activities, ' — - 

child should be capable ot writing own programs. 

• Significant concepts set off in boxes *o aid learning. 

• Important ideas repeated throughout text. 

• 7-page glossary with concise definitions. 

• Cross-referenced index. 

• Illustrated. Bound with plastic binding fes flat 

To Order: Crabbe Associates ""^^ 

212 W. Giaham Ave . Lombard, IL 601J8 
.copies of Meet The Computer® $9.95. Add 



psend_ 

$1.50 for shipping per copy. Illinois residents add saies tax. 

Mame . ... 

Street . _... . . 

City Stste Zip. 



<XiV) CHURCH DONATIONS 



(\im[)utf'iPri)i;i-:imf(>r'n{S8()Mi)(ii'lsl. 11. .«^ III 



RECORDS. STORES & REPORTS 



Gives printout of coilections. lolals to date 

as weii as individual quarterly reports 

lo congregation members 



For information, Contact: 



CUSTOM DATA ■';;^;: ,;.:„:;;« 

505-434-1096 \Um:t^.„,u.. nm h«:!1(i 



/.mini; i:onlinued 



ILL 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17 90 
1800 
1810 
1820 
1830 
1840 
1850 
lii60 
1870 
1880 
1890 
1900 
1910 
1920 



WANT TO GO?" 

INPUT "ANSWER YES OR N0";X5 
I IF X5<>"YES" AND )tS<>"NO" GOTO 134 
I IF XI? = "KO" GOTO 1280 
I PRINT 

I PRINT "HOW YOU FALL FOREVER 

AND EVER "; 

200 



GOTO 14 2t 



PRINT 

FOR T^l TO 
NEXT T 
GOTO 13 90 
L=31: N-11: 



W=34; S=ll; E=48 



PRINT "YOU STAND AT ";flS(48) 

IF KOl THEN PRINT "NO '■;A$(5);" TO ENTER": GOTO 1230 

IF K=l THEN PRINT "YOUR ";AS(5)" WORKS!" 

GOSUB 17 40 

PRINT "YOU NOW ENTER THE ";A5{32) 

FOR T=l TO 1000 

NEXT T 

PRINT "DO YOU RECALL THE MAGIC DIRECTION?" 

PRINT "IF YOU DON'T KNOW, GUESS QUICKLY," 

PRINT "THE MASSIVE LIMESTONE CEILING WILL START TO LOWER. 

PRINT "PRESS ANY KEY IF YOU KNOW." 

PRINT 

FOR T=l TO 1000 

NEXT T 

FOR M=10 TO 1 STEP -1 

PRINT M; "SECONDS TO GO" 

CS^INKEYS 

IF CSO"" GOTO 1650 

FOR T=l TO 200 

NEXT T 

NEXT M 

INPUT "THE MAGIC DIRECTION" ;CS 

IF CS^KS GOTO 1680 

PRINT "BAD GUESSING. A CRUSHING DEFEAT, EH?": END 
"YOU FOUND THE GOLDEN IDOL IK TIME." 
"YOUR WORRIES ARE OVER..." 
"EXCEPT YOU HAVE TO FIND YOUR WAY OUT." 
"YOU EXIT THE ";AS{32);" WITH TREASURE IN HAND." 



AS(L) 

AS(N) 
AS(W) 
AS{S) 
AS{E) 



PRINT 

PRINT 

PRINT 

PRINT 

H=2 

GOTO 123 

PRINT A5(9) ;■ 

PRINT A5(i) ;' 

PRINT AS (4) ;' 

PRINT AS (2) ;' 

PRINT AS(3) ;' 

PRINT 

PRINT "DIRECTION - (N-W-S-E)"; 

INPUT XS 

IF X$<>"N" AND XS<>"W" AND XS<>"S" AND XS<>"G" GOTO 1) 

PRINT STRING$(32,"-") 

RETURN 

IF KSO"" THEN RETURN 

Z=RND(4) 

KS=AS(S) 

2 = 

PRINT "A WALL OPENS. 



A MESSAGE SCROLL APPEARS:" 



PRINT ' 
RETURN 
END 



'REMEMBER THE MAGIC DIRECTION: ";KS;" 



TRS-80 MODEL I 

CATALOG 48K, 1 Disk 

Indexes disks and files of any type or 
system. Very fast, 2500 file capacity, 
single and double density. 

$69.50 
EP-GRAPHtCS 48K, 1 Disk 

Epson 80 witfi GRAFTRAX, or 100 
becomes printer/plotter. 512 x 512 or 480 
resolution fills page. Macfiine language 
major software, call from short BASIC 
program. 

$79.50 



TRS-80 MODELS 

TUMBLE 48K, 1 Disk 

Control spin, speeds and tilts of moving 
3-D geometric sfiapes. Real-time, fast 
screen displays teacfi and entertain. 

$39.50 
GANTT-PACK 48K, 2 Disk 

Projected, elapsed and over-run project 
schedules charted on screen/132 column 
printer. Random entry, automatic organi- 
zation, fast update/edit. Play "what if..." 

$149.50 




LIBRA LABORATORIES 

495 MAIN STREET 

IVIETUCHEN, NEW JERSEY 08840 

(201)494-2224 .131 



TRS-80 MODEL II 

STATTO-PLOTTER 64K, 1 Disk 
Program merges into R.S. Statistical 
Analysis package. Puts statistical work 
directly to R.S. plotter or other HI-PLOT 
3-7. Publication quality charts. _„_ j.. 

FILE CARD 64K, 1 Disk 

Look up records by powerful database 
and immediately see/print the text. In- 
finitely long text area for any entry. 
Replaces file card system, er.^r^. m 

$i£24.50 

GANTT-PACK 64K, 2 Disk 

Enhanced version, early and late entries, 
expanded capacity. 

$224.50 



TRS-80 Trademark of Tandy Corporation 
HI-PLOT Trademark of Houston Instruments 
Epson Trademark of Shinshu Seiki Co., Ltd. 
Libra Laboratories' programs copyright 1981, 1982. 
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!EEXX£DIX 

complete 
wordproees^ng 
system in kit 









: EfKtronks Wfiili 
li«Mf«g Your f hvo 




'TRS-80 and TRSDOS are trademarks of the Radio Shack Di- 
vision of Tandy Corporalion. 



TEXTEDIT— A Complete Word Processing System in 
kit form 

by Irwin Rappaport 

TEXTEDIT IS an inexpensive word processor Ihat you can adapt to suit your needs, trom 

writing form letters to large texts. It is written in modules, so you can load and use only 

those portions that you need. Included are modules that pertorm: 

—right justification 

—ASCII upper/lowercase conversion 

—one-key phrase entering 

— Mmplete editorial tunctions 

— and much more! 

TEXTEDIT is written in TRS-80' Disk BASIC, and {he niodulos are dacjmented in ihu 
authors adniirably clear tutorial writing style. Not only does Irwin ftappapoM explain how to 
n^s TEXTEDIT; he also explains programming techniques implemented in the system. 
TEXTEDIT \s an inexpensive word processor tfial tieips you learn about BASIC program- 
ming It !■, written (oi TBS-80 Models I and 111 with TRSDOS 2 2IZ 3 and 22Y. 

BK7387 $9.97 Disk Available DS7387 $19.97 

0-88006-050-6 

Annotated BASIC— A New Technique for Neophytes. 

BASIC programming was supposed to be simple— a beginner's progfamming language 
wnlcn was so near to English that it could be easily understood. But, in recent years, BASIC 
hss become much more powerful and therefore much iriorediKicull to read and understand. 
BASIC simply isn't basic anymore. 

Annotated BASIC explains me complexities of modern BASIC. It Includes complete 
TRS-8Q' Level (I BASIC programs tnat you can use. Each program is annotated to explain in 
step.by-slep lashion Ihe workings of the program Programs are fjowchafled to assisted 
you in (ollowing the operational sequence. And— eacli chapter includes a description ot ttie 
new concepts which have been introduced. 

Anno/areflBAS'CdaaiS with the howsand whys of TRS-80 BASIC progiamminy Hoiv i^a 
prograrn put together? Why is it written that way? Q't observing the programs and lollowmg 
the anootaiion. you can develop new techniques to use in your own programs— oi modify 
commercial programs lot your specific use. 

Annotaled BASIC Vo/uma J contains Projecting Profits. Surveyor, Things to Do, Tax Shelter, 
Introduction to Digital Logic, Camelot, The Soundex Code, Deduction, Op Amp, Contractor 
Cost EslirTiating 
BK73S4S10.95 ISBN 38006028 X AVAILABLE NOW! 

Annolated BASIC Volume ? contains Rough Lumber List, Trip liflilaage. Flight Plan, OSCAR 

Data. SWRIAnlenna Design, Supermaze. Petals Around the Rose. Numeric Analysis, 

Demons. Air Raid, Geography Test, Plumbing Syslem Design 
BK7385 i10.95 ISBN 0-88006-03/ 9 

Order Both Volumes and Save! BK738402 $18.95 

KILOBAUD KLASSROOM — 

A practical course in digital eiectronics 

By George Young and Peter Stark 

Learning electronics theory without practice isn't easy. And it's no tun to build an elec- 
tronics project ttiat you can't use. Kilobaud Klassroom the popular series first published in 
Kilobaud Microcomputing, combines tlieory with practice. This is a piaclical course in 
digital electronics. It siarla out with very simple electronics projects, and by the end of the 
course you'll construct your own working microcomputer! • 

Authors 'I'oung and Starti are experienced teachers, and ttieir approach Is simple and direct. 
Wnethsr you're learning at home or in the ciassiooni, this book provides you with a solid 
background in electronics— and you'll own a computer that you tjuilt yourselfl 
Kilobaud Klassroom contains Gelling the Ball Rolling, Gates and Flip-Ftops Explained, J, K, 
Flip-FlopsanO Clocked Logic, PC Boards and Power Supplies, Hardware Logical Functions, 
Voltage, Current and Power Supplies, Transistors, Diodes and OP Amps. Pulses and More 
Pulses, Counlefs and Registers. Bus Trallic Control, ROM and PkM Memories. IfO Circuitry, 
Parallel and Serial I/O Ports, Computer l(0 III, Computer I/O IV. Computer 1(0 V, Processor 
Connections, Finally The Kilobaud Krescendo, Eproms and Troubleshooting, Expan- 
sions and Programming, Macliinc-Language Programming, Assembly-Language Program 
ming, Connecting to the Outside World. 

ISBN 38006 027 1 AVAILABLE NOW! BK7386 $14.95 

THE NEW WEATHER SATELLITE HANDBOOK- 

By Dr. Ralph E. Taggart WB8DQT— 

He:e is Itie completely uodateO ana revised edition ol the best-selling yvealher Satallile 
Handbooli— containing all the in formal ion on the most sophisticated spacecraft now in 
orbit Dr Taggarl has written this book to serve both the experienced amateur salellile 
enthusiasl and Ihe newcomer This book is an introduction to satellite walchmg, that 
tells you how to construct a complete and highly effective ground station Not |usl ideas, 
but solid hardware designs and all the instructions necessary to operate Ihe equipment 
are included An entire chapter is devoted to microcomputers and the Weather Satellite 
Station and for the thousands of experimenters who are operating stations. The New 
Wsalbei Satellite Handbook details all the procedures necessary to lollow the current 
Spacecraft. 

Weather Satellite contains Operational Satellite Systems, Antenna Systems, Weather 
Salellite Receivers. A Cathode Ray Tube (CRTi Monitor lor Satellite Picture Display, A 
Direct-Printing Facsimile System lor Weather Satellite Display, How to Find the Salellile, 
Test Equipment, Microcomputers and ihe Weather Satellite Station, Slalion Operations 

IS8N0 8800&015-8 available now! BK7383 $8.95 




FOR TOLL-FREE ORDERING CALL 1-800-258-5473 
WAYNE GREEN BOOKS • PETERBOROUGH NH 03458 

Use the order card or itemize your order on a separate piece of paper and mail to Wayne Green Books Att: Sales • Peterborough Nl-I 03458 
Be sure to include check or detailed credit card information, ('v'isa, tvlaster Charge or American Express accepted.) 

NoC O.D. orders accepted. Ail orders add $1.50 for the first book, postage and handling; $1.00 each additional book; $10.00 per book foreign airmail 
Please allow 4-6 weel<s alter publication tor delivery. Questions tegatding your order? Please write to Customer Service at the above address. 



80 Micro, November 1982 • 495 



AM4dventures 

V^^^^ROM THE COMPANY THAT STARTED IT ALL! 



CURSE OF 
CROWLEY 
MANOR 

A mysterious adventure 
into the depths of the 
occult. This program 
uses many unique plot- 
twists and strange 
devices to guide you 
either through to victory, or on a certain 
trip to the gates of hell. Will you be able 
to solve the CURSE OF CROWLEY 
MANOR? 

TRS-80 16K TAPE $19.95 

TRS-80 32K DISK $20.95 

Skill Level: Moderate. 





ESCAPE 
FROM TRAAM 

You survived the initial 
crash on a bizarre, 
distant world, but you 
may soon wish that you 
hadn't! You must 
escape this dangerous 
place — but be forewarned that if your 
decisions are not tempered with 
intelligence and caution, you may not 
see home again! 

TRS-80 16K TAPE $19.95 

TRS-80 32K DISK $20.95 

Skill Level: Advanced. 




DEATH 
PI-ANET: 
The Dog Star 

|^^2|BH ^^^ ^^'' General Doom 
and his Roche soldiers 
are gearing up for a 
galactic onslaught — 
will you be able to 
rescue the i<idnapped princess and save 
the royal treasury in time? An adventure 
from Lance Micklus, author of STAR 
FLITE. 

TRS-80 16KTAPE $19.95 

TRS-80 COLOR COMPUTER 16K TAPE 

$19.95 

Skill Level: Beginner. 



REIGN 
OF THE 
RED 
DRAOON 

First in the new DEMON 
VENTURE Series, 
REIGN OF THE RED 
DRAGON features dungeon-esque 
excitement laced with real time 
graphics. Brace yourself for the 
incredible! 

TRS-80 48K DISK $24.95 

Skill Level: Moderate. 







STONE OF 
SISYPHUS 

Hideous monsters or 
lavish treasures beyond 
all price? You may not 
have a choice in this 
rather unfriendly sub- 
terranean world where 
survival will depend 
largely upon hard intellect and a little luck. 
Sure to provide hours of frustrating enjoy- 
ment, STONE OF SISYPHUS features the 
kind of action you've come to expect from 
the incredible MACES & MAGIC Series! 

TRS-80 32K DISK (Mod 1 ) $29.95 

TRS-80 48K DISK (Mod 3) $29.95 

Skill Level: Moderate. 




BALROG 

This is the first chapter 
in our popular MACES & 
MAGIC Series. You 
equip a character of 
your own creation and 
journey into a weird 
world of dank dungeons 
and fiery dragons. This 
fantasy adventure features one of the 
largest data bases ever created for a 
microcomputer role-playing game. A real 
challenge! 

Requires two disk drives 

TRS-80 32K DISK (Mod 1) $29.95 

TRS-80 48K DISK (Mod 3) $29.95 

Skill Level: Moderate. 



MORTON'S 
FORK 

The MACES & MAGIC 
Series continues! 
Magical beings and 
strange creatures 
populate this mystical 
realm. Equip your war- 
rior with the necessary accouterments, 
then plunge into the awesome world of 
MORTON'S FORK! 

TRS-80 32K DISK (Mod 1) $29.95 

TRS-80 48K DISK (Mod 3) $29.95 

Skill Level: Moderate. 




SKILL LEVEL KEY 

BEGINNER 

Excellenl introductory adventure (or 
younger players. Minimal problem- 
solving skills required, 

MODERATE. 

Moderate problem-solving skills 
required, 

ADVANCED ■ 

Advanced problem-solving skills 
required. 




KID 
VENTURES 

These make-believe adven- 
lures are designed for little 
folk between the ages of 3 
and 7, and will allow the 
child to actually interact 
with the story. All three KID 
VENTURES are based upon 
popular children's stories, 
poems or songs. All feature graphics and 
sounds, too! 

Kid Venture #1 - Red Riding Hood 
TBS-80 16K TAPE (Specify Mod 1 or3) . $14.95 
Kid Venture #2 - Night Before Christmas 
TRS-80 16K TAPE (Specify Mod 1 or3) . $14.95 
Kid Venture #3 - Old McDonald's Farm 
TRS-80 16K TAPE (Both Mod 1 & 3 ) . . . $14.95 
Skill Level: Beginner. 




EARTHQUAKE - 
San Franclmco 
1906 

The title says it all! 
You're in the middle of 
one of the most violent 
earthquakes of modern 
times — and your sur- 
vival hinges on wits 
alone! EARTHQUAKE - SAN FRAN- 
CISCO 1906 features one of the most 
powerful data bases available for a 
game of this type. Hours of exciting fun 
guaranteed! 

TRS-80 16K TAPE $19.95 

TRS-80 32K DISK $20.95 

Skill Level: Moderate. 




HIDDEN 
VALLEY 

Sure, you're an exalted, 
courageous, robust war- 
rior — but can even 
your sturdy constitution 
save you from the 
terrors of HIDDEN 
VALLEY? This dungeon-type program 
features 99 separate levels of play. This 
is the second entry in the new DEMON 
VENTURE Series. 

TRS-80 16K TAPE $19.95 

TRS-80 32K DISK $24.95 

Skill Level: Moderate 



TO ORDER 

See your local dealer. If he does not 
have the program you want, then 
call 1-800-327-7172 (orders only) or 
write for our free catalog. 



Published by 




dventuT^ 

INTERNATIONAL 



a aut)3idiafy of Scolt Adams, Inc. 

BOX 3435 • LONGWOOD, FL 32750 

(305)830-8194 



t^rlces 8ub)sct to change without notice 
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??^BENEATH the KEYB* 



by Paul Wiener 



A superb programmer and good 
phone-friend died unexpectedly 
this year. I first became acquainted 
with U.S. Air Force Captain (soon to 
have been Major) David Forbes when I 
was editor-in-chief of Instant Soft- 
ware. David wrote the editor/assem- 
bler component of Instanr Software's 
Assem/Zsim package, perhaps the best 
Model I Assembly-language develop- 
ment system I've ever seen. 

More recently, David was at work 
on a Pascal implementation, a Basic 
compiler, and a word processor, all for 
the TRS-80. David had some unusual 
health problems, and seemed to have 
had them licked. Suddenly, late last 
April, he suffered an apparent heart 
attack and left the body he'd inhabited 
for 39 years. 

David leaves behind a wife and two 
daughters, who I am sure miss him 
very much. He will also be missed by 
those of us who use his software and 
were looking forward to more of it. 
I'm certain that whatever plane of ex- 
istence David now occupies, he is using 
the talents that made him such a fine 
programmer for the benefit of his 
fellow travelers. 

Counting Apples, et al. 

I have occasionally heard rumors of 
marketing surveys that indicate Apples 
and other micros are outselling TRS- 
80s— and that there may already be 
more Apples than Radio Shacks 
out there. 

I have also heard counterrumors 
saying that those marketing studies in- 
clude computer store sales only, not 
Radio Shack stores. These counter- 
rumors claim that if Radio Shack's 
sales figures were included in the 
count, TRS-80 numbers would exceed 
its competition's. 

I don't know what the real scoop is. 
I know a few local businesses using 
TRS-80s for their data processing, but 
haven't noticed any here using Apples, 
Ataris, Vies, or whatever. 

The Indian Head Resort, in Fran- 
conia Notch, NH, has been using a 
TRS-80 to keep track of its liquor in- 
ventory since the first days of the 
Model I disk system. 

I stumbled across a couple of 
TRS-80 installations in Keene, NH. 
One of those businesses. Audio Lab, 




a friend, 

TRS-80S £ 
work, anc 



soft 



has had a number of hardware diffi- 
culties which has hampered efforts to 
computerize its inventory. The great 
Dennis Kitsz himself helped make 
Audio Lab's printer operable. There 
are still a few little problems to solve 
before Audio Lab can fully use its 
TRS-80. 

I discovered a more successful and 
comprehensive TRS-80 installation in 
Keene when 1 went to Stevens Datsun 
to trade cars. I found three TRS-80s on 
the premises — two Model lis and a 
Pocket Computer (the old model). The 
owner, "Fordy" Stevens, uses the 
Pocket Computer to do calculations 
involving financing and the like, so he 
can quickly answer customers' ques- 
tions without consulting tables. Actu- 
ally, I didn't think the Pocket Com- 
puter's response was all that quick, but 
I'm sure it beats using a calculator. 

One of the Model lis handles stan- 
dard accounting functions. The second 
Model II is in the parts department and 
is used mainly for inventory. Fordy is a 
skilled programmer and has written 
almost all his company's software, 
though he has purchased one or two of 
Radio Shack's packages. 

Not long ago I visited the Jaffrey 
Municipal Airport to inquire about fly- 
ing lessons. I was surprised to find a 



Model III on a desk in the airport of- 
fice. The staff didn't have much time 
to discuss its uses with me, but it evi- 
dently handles normal small-business 
data processing, such as accounts re- 
ceivable. The pilots also have some 
aviation programs for it, but not 
very many. 

The system includes two 80-track, 
double-sided disk drives (about 1.5 
megs of on-line bulk storage), and a 
modem. Most of their custom pro- 
gramming is done by an out-of-state 
programmer via the phone link. One 
of these days, I'll bring my copy of 
the FSl Flight Simulator to the air- 
port and see what the flight instruc- 
tors think of it. 

More Local Observations 

All Software, a home computer soft- 
ware store in Merrimack, NH, sells 
programs for TRS-80 Models I and 111, 
Ataris, Apples, and IBM Personal 
Computers. Though Al! Software 
doesn't sell computers, they have Ap- 
ples and an IBM on the premises so 
that customers can try before they buy. 
At this writing, they don't yet have a 
TRS-80, but hope to get one. 

All Software has a policy which in- 
trigues and disturbs me a little. They 
take used games in trade. You can 
trade in an old game program, on its 
original magnetic medium and with the 
original documentation and packaging, 
in exchange for a discount on any new 
software package. All Software then 
offers the old program for resale at a 
reduced price. 

What disturbs me is the possibility 
of customers copying a program be- 
fore trading it in. I think the manage- 
ment of All Software would be protect- 
ing programmers, software publishers, 
and itself, if it required customers to 
sign a statement declaring that no copy 
of the traded software had been retained. 

1 think such a declaration would 
cover All Software if a publisher ever 
screamed copyright infringement. 
Also, it might help the publisher obtain 
compensation if a case ever went to 
court. Software copyright infringers 
have proven very difficult to prose- 
cute. But if a false no-backup declara- 
tion had been signed, the perpetrator 
would also be guilty of fraud or 
misrepresentation. ■ 
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pmmmBmmamimmmM i^OS^OPOLITAN EtECtl^OMICS COBPOr^&TIOi^ mmmmmmmm^^smm 



IsA 



Announcing 




igar and a $39.95 DOS! 



from the makers of WIULTIDOl 



Available for the Model I - Single/Double density and Model HI - Double Density Trie Mode! I version will 
AUTOMATICALLY detect the type of double density hardware and self-configures to accommodate. No 
patches or special version required to run with the RS double density board. 




• I • 




+ Shipping 

Handling 



IC II WITH: 

Cross-Reference • Renumber • Global Editing 
Single Keystroke Commands • 41K of Free Memory (Hot Damn!) 

TEST DOS IN TOWN! 



•••••••••••••••*•••••• 



You Got It! 



You Ask 



The time has come. E#%^ ¥ mm3\wr is here! 

Now part of the MULTIDOS fine utilty package. 

Included In the new utility package is TAPE/CMD - transfers machine language tape files to disk, and DDT/ 
CMD. Have you ever wondered what your disk drive speed is 'r' Wonder no more DDT/CMD will tell you 
instantly. All three utilities are now in MULTIDOS with en'-iancod BBASIC. 



The 'Single Step King' has expanded to allow you to save your BASIC 
program in RAM ! Save disk wear and tear when developing your BASIC 
Programs. 

While the mediocre BASIC got fair, the best got better. 
Get mto the world of the DOS FAN TAS 



DOS 



Model I or Model 



Only 599 



SI 



~ Shipping Handling 
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mMmsmmmsms^smmmm COSS^OPOLITAN ELECTRONICS CORlPORATiON mmmmk^mmmmm. 




the 



ounces a new 
MULTIDOS. 



ive state 



Having made the #1 BASIC and watching the competition squirm, we 
haven't stood still . . . 

E NOW COMPLETELY OUT OF REACH! 



EBASIC is an enhanced SUPERBASIC with Paul M. ^cLeod's super 
enhancements. Some of the commands available are: 



PLOTSET 

PLOTRESET 

BOXSET 

BLOCKSET 

INVERT 

PRINT(A,B) 

INPUT(A,B) 

INPUT@Q 

LINEINPUT@Q 

PRINT$ 

CALL 

SORT 

LABELING 



Draw a Line 

Erase a Line 

Draw a Box 

Draw a Box Filled In 

inverts All Screen Graphics 

Print at Line A, (0-15), Position B (0-63) 

Input at Line A, Position B 

Input at Position Q (0-1023) 

Line Input at Position Q (0-1023) 

Sent Print Target to Screen and Printer Simultaneously 

Call Machine Language Subroutine Outline Without DEFUSR 

Multi Key Sort of Unlimited Arrays 

GOTO, GOSUB, ON var GOTO, etc . . . 



Other Commands available are . . , 

Array Read, Array Let, Array Calculation, Sound, Shape, Circles, Cubes . . . 

All of the Commands are built into EBASIC, there are no high memory routines, and 
you still have over 38K for your BASIC Programs. 



95 



Requires MULTIDOS version 1,4 or 1,5 Model I', version 1.3 Model 



VISA & MasterCard 

WELCOMED 

Foreign Orders Add S10 00 
For Shipping & Handling 

* For Model I Orders Only * 
Please specify Single. DouOle 
or P Density 



— MAIL ORDERS 



Electronics Corporation 

PLYMOUTH MICHIGAN 48170 



Casftiiipimi 

P.O BOX 

***■*■**** 
— TECHNICAL INFORMATION — 

Cosmopolitan Electronics Corporation 



C C) VERMON HCSTFR 
42403 Old Bridge Road ■ Canton, Ml 48188 ■ 

NOW AVAILABLE FROM 



ABC SALES 

13349 Michigan Avenuw 

De.iiborn. Ml 43126 

|3t315SI-3896 



COMPUTER SHACK 

1691 Eiisoii 

Ponliac Ml 4805'1 

(3131 673-3231 

1-800-392-3881 



POWER SOFT 

! 1500 Slemmons ExprfSSv 
Dallas. TX 75229 

(?14) 484-2976 
1-yn0-52T-7432 



(313) 397-3126 



BYTES & NAILS 

51 10 61h AuenihP 

Sioux Cily lA 51 106 

(712) 274-2318 



S3. 00 For 
Shipping & Handling 

Michigan Residents 
AdC 4% Sales Tax 

COD Orders Add SI 50 



Personal Checks Take 
2 Weeks To Clear 



SIMUTEK Compule. P.od , 

4877 East Speedway 

Tucson. AZ 85712 

(602) 323-9391 

l-BOO-528-1 149 



^ See List of Advertisers on Page 455 
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CALENDAR 



November 

1-3 Online Inc., Weston, CT. Online '82: 
Conference for users of data bases At- 
lanta Hilton. 

3-5 IEEE Computer Society, Silver Spring, 
MD. Foundations of Computer Science 
Chicago, IL. 

4-5 IEEE Computer Society, Silver Spring, 
MD. Annual Workshop on Computing 
to Aid tlie Handicapped Charlottesville, 
VA. 

7-9 New York State Association for Educa- 
tional Data Systems, Ardsley, NY. 17th 
Annual Conference of the NYSAEDS 
Americana Hotel, Albany, NY. 

8-10 IEEE Computer Society, Silver Spring, 
MD. 16th Asilomar Conference on Cir- 
cuits, Systems and Computers Pacilic 
Grove, CA. 

8-12 Virginia Polytechnic Institute and State 
University, Blacksburg, VA. Workshop 
on Personal Microcomputer Interfacing 
and Scientific Instrumentation Auto- 
mation Virginia Tech Campus. 

8-12 IEEE Computer Society, Silver Spring, 
MD. COMPSAC '82 Palmer House, 
Chicago, IL. 

9-10 Saginaw Valley Chapter of Data Pro- 
cessing Management Association, Uni- 
versity Park, MI. Ninth Great Lakes 
Computer Expo '82 Civic Center, Sagi- 
naw, MI. 

11-12 University of South Alabama, College 
of Education, Mobile, AL. Microcom- 
puters in Education Biloxi, MS. 

U-14 National Computer Shows, Ciiesinul 
Hill, MA. The Fourth Annual North- 
east Computer Show and Office Equip- 
ment Exposition Hynes AudiLormin, 
Boston, MA. 

15-17 Virginia Polytechnic Institute and State 
University, Blacksburg, V.A. Workshop 
on Microcomputer Interfacing, Desijjn, 
and Profiramming Using the Z80/8085/ 
8080 Virginia Tech Campus. 

16-18 IEEE Computer Society, Silver Spring, 
MD. 1982 Test Conference Philadel- 
phia, PA. 

18-21 National Computer Shows, Chestnut 
Hill, MA. Applefest San Francisco 
Civic Center and Brooks Hall. 
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December 

6-8 IF'.KI-. Computer Society, Silver Spring, 
MD. Winter Simulation Conference 

Holiday inn at the Kmbarcadero, San 
Diego, CA, 

6-8 IEEE Cornpulcr Society, Silver Spring, 
MD, VLSI & Microcomputers: loday 
and Tomorrow (TENCON '82) Hong 
Kong. 

6-10 IEEE Computer Society, Silver Spring, 
MD, Tutorial Week West '82 San 
Diego, CA. 

7-9 IEEE Computer Society, Silver Spring, 
MD. 1982 Real Time Systems Symposi- 
um Los Angeles, CA. 



10 IEEE Computer Society, Silver Spring, 
MD. Computer Networking Gaithers- 
burg, MD. 

9-12 National Computer Shows, Chestnut 
Hill, MA. The Second Annual South- 
east Computer Show and Office Equip- 
ment Exposition Atlanta Civic Center. 

22 Motorola Inc., Phoenix, AZ. Seminar 
on 8-bit MFCs Sheraton-Lexington 
Motor Inn, Lexington, MA. 



January 

17-20 IbHE Computer Society, Silver Spring, 
MD. Optical Storage of Digital Data 

Lake Tahoc, CA. 



Coming 



December v^ 11 ^'inv ■' ' '-HptaiM t 
ofinteie'- n.- .n^^k. 'v\ii!!jn, 
Kaczorhali'i mp ,,> u \i-iiiiL 
After ha'v'iK !■ 'M .c uJiiiLi hi-, 
lobster po, , < i, , , ieti li< W\ \:'~> 
TRS-80keep i i .^ 'h ,ii, W'v.n 
he came up -' .i t an nh=t.. .i^iy 
gnd-mapping '■ lh im ^l 

Ever want u u-t Imp ,{ h- tci 
without liftUiLi 1 ifi'.i "^Mu i' 
you wete unable to litt a tmger? 
Mike Rigsby has built a mod to 



turn the TRS~80 into a voice-actu- 
ated typewriter. 

What do Basic, Fortran, Coboi, 
PasLal, and APL have or not have 
in common? Author Nicholas has 
written a piece that will answer 
that question. 

How about a light pen for the 
Color Computer? December will 
have the details. Merry Christmas. ■ 



PROOF NOTES 



Continued from page 12 



On the following pages, you'll read 
about a genius of the last century, a 
quest to build a mechanical computer. 
Tom Hager will lake you on a tour 
through the halls of academe to see 
how today's scientists are using micro- 
computers to discover tomorrow's 
truths. James Larsen of Nike Inc. pre- 
sents a detailed explanation of research 
being done by one of the world's lar- 
gest sporting goods manufacturers — 
with a micro at the forefront. 

Medicine, which is strongly tied to 



science, finds itself under our micro- 
scope as we look at how micros are be- 
ing used by the medical community in 
America and in Britain. Our Maine 
connection, Wynne Keller, writes 
about a TRS-80 in the lab in a rural 
down-east hospital. 

And since the Color Computer is 
rapidly evolving into the star of the 
TRS-80 clan, John Fowler offers you 
rainbow computerists a program to aid 
in your star gazing. ■ 



L/ 





w Catalo 





Best 

V / Software 
f \ Under The 

Prograrosv sun 



Instant Software's now catalog is free and it offers 150 of the finest 
progi'ams you can find. At reasonable prices. . .and a variety 
you've never seen before in one catalog. And they're all contained in 
the new 16 page 1983 Instant Software catalog. You'll find: 



ASSEM/ZSIM— 2 great utilities in 
one super package. Assembly lan- 
guage programmers, this package 
solves all vour programming prob- 
lems from'ASSEM to ZSIM. 

Super Utility Plus — the most 
powerful program of its kind. A 
must for every serious TRS-80* disk 
installation. 

Geography Explorer Series— the ex- 
citing, attention-holding serias that 
teaches your children essential geo- 
graphical facts. 

Phaser Blast— phaser-armed 
robots, enemy Hovertanks. . .pre- 
pare for a journey into the war of 
the future. 



Columbia through launch, orbit, 
re-entry and landing. 



other practical, 
spine-tingling 



Plus dozens of 
mind-boggling or 
programs. 

And now you can get the new 1983 
Instant Software Catalog absolutel>' 
free. You don't even have to pay for 
the phone call. Just dial toll free: 



1-800-258-5473 

and ask for your free copy of Instant 
Software s 1983 Catalog. 
It could be the smartest call you'll 
make all vear. 





Space Shuttle— experience the ulti-^ Instant Software. The best software 
mate flight as you pilot America s under the sun. 

ris tant Software 

Ja subsidiary of Wayne Green Inc.) Route 101 & Elm St. Peterborough, NH 03458 

•TRS-80 is a refji^tered trademark i)f the Hadio Shack division of Tand> Corp. 



Yes, I want a free catalog! Name 
Please send my free copy to: 



Address 
City 



.State. 



Zip. 



PatBrtioroiigh, N.K. 03458 USA A subsidiary ot Wayne Green Inc 



The best software under the sun. 



I have a 



computer 



V- 414 



80UNC 
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YDOS 



by J.M. Keynes 



Whew! I need a double scotch. As I 
write this, it is 6 p.m. on Mon- 
day, August 3. The September issue 
just hit the streets. MONEY DOS dis- 
cussed commodity trading and pre- 
sented a system of trading that has 
been successful for 10 years. 

When I wrote the column, I thought 
perhaps 50-100 people would be inter- 
ested enough in commodities to call for 
the free booklet I offered. I thought 
computer nuts were basically a conser- 
vative lot, few of whom would have in- 
terest in such a risky undertaking. Give 



"SCOREIT" TAKES THE 
GREMLINS OUT OF GRADING 

A COMPUTER PROGRAM FOR THE 
RADfO SHACK (TM) TRS-SO 
MODEL III WHICH SCORES MULTIPLE 
CHOICE TESTS AND GENER^iTES' 
■ Test Statistics 

* Score Roster 

* Histogram of Scores 

* Item Statistics 

* Map of Item Responses 

UNIQUE FEATURES 

" Built-in error detection 
' Special diagnostics to guide test 
revision 

* Interface with answer sheet sc^^ 
nets 

(optional at additional cost) 
Include printer model and type when or- 
dering. License for use of the cornpiled 
version of the program may be obtained 
by remitting $195.00 to: 

J. Eli S( Associates 
635 South Hennessey St. 
New Orleans, LA 70119 

Sample Output Free on Request 

Please send SASE -^^lai 




JONELL SYSTEMS 

TRS 80* MOD I 



SEABATTLE: In asiembler - fdit, live-aLlion, graphics oriented 
game. Play against anothtv opponent or agjmsl computer. 
Hours of Fun. Req. Min16K Level II $15.95 

BIORYTHU GENERATOR: Gtnerare anyone's biorylhm chart 
for 6 mos. W/16K, 1 yr W/32K. Video or L/P output with 
simultaneous ((raphir sine-wave presentation of all 3 functions. 
Flags rriliral days and much more Rpq. min 16K Level ll$19.95 
)OB ACCOUNTING: Run your system like the big Kuys! Menu 
dnven program records and files start and stop tun times from 
system clock, elapsed time, dollar value of time, user code, 
date, and job name. Prints user amount statements, credits 
payments and more, in disk basic lor J2K system tl4.95 

CMD 2 TAPE; Make level II baSFC system tapes Irom CMD Disk 
Files. Shows load and entry addfe5i«, Req. 32K disk 
system. -(14.95 

TAPE 2 CMD: Make disk CMD files from level II syaem tapes. 
Shows load and enlry addresses. Identtlies non-syslem tapes. 
Much simpler than tapedisk utility, Req. 32K Disk 
System ^ S^A.95 

All progrsms supplied on tape. Add SS.00 lo price for rfjst. 
Prin/eif ifislrutlions Iwnhhca for each program, Cive system 

fonli^u rat mil when ordering. 



JONELL SYSTEMS 

130 4th Street Altizer 
Huntington, WV 25705 
ademark of Tandy Corporation 




Platinum 

and 

risk capital 



old J.M. a C- in perspicacity. 

Last weekend over 800 of you called 
the toll-free MONEY DOS hotline, 
and today the phone rang off the wall 
with requests for more information on 
commodities. Before you become the 
"killcc" rather than the "killer" in 
your quest for riches, pay close atten- 
tion to these words of wisdom. 

To trade the System effectively re- 
quires a minimum of $10,000 of genu- 
ine risk capital. I define risk capital as 
the amount of money you could throw 
in the ocean and not change your long- 
term financial security. The System has 
averaged over 50-percent net profit for 
10 consecutive years, but it doesn't win 
every month. Your bankroll must be 
large enough to withstand the loss of 
some battles. Remember, if you're in 
doubt, stay out! The primary reason 
that nine out of ten new businesses fail 
is that they are undercapitalized. 

If you are determined to try the Sys- 
tem with real money {I suggested you 
try it for six months with Monopoly 
money), here are several dos and 
don'ts. 

• Trade with a discount broker. 
There are several rehable firms that 
give a 50-70 percent discount from 
what you would pay Merrill-Lynch, 
Dean Witter, or E.F. Hutton. Make 
sure whoever you trade with is a 
clearing member of at least one of the 
major exchanges. 

• Put up Treasury bills in Heu of cash 
for margin money. Why not earn 12 
percent on your funds? 

• Do not tell the broker about the Sys- 



tem. Just say, "I make my own deci- 
sions." Give him your orders (before 
the market opens) exactly as the Sys- 
tem dictates, and go fishing. Resist the 
urge to call several times each day for 
quotes. 

• Never second guess the System. If 
you do, you no longer have a system. 

Also, there was one mistake in the 
program listings. One of the gnomes of 
Peterborough managed to place the 
last few lines of the data-base program 
at the end of the main program. 

As this is written there is a commodi- 
ty trade available that, if you make it, 
is quite a deal. Today gold for delivery 
in April closed at $381.80 per ounce 
while April platinum closed at $314.10 
per ounce. Historically, platinum has 
almost always sold for more than gold. 
When gold hit $885 per ounce in 1980, 
platinum was at $1,025 per ounce. A 
few years before then, when gold was 
$100, platinum sold for $I25-$150. 

I expect this spread to return to 
normal in the coming months. Today 
I bought April platinum for $310.50 
per ounce and concurrently, sold 
April gold at $381.50 per ounce, 1 ex- 
pect platinum to reach parity with 
gold, and perhaps go to a $50-per- 
ouncc premium — no matter which 
way the markets go. 

When you read this, check the prices 
of the spread and see if platinum hasn't 
gained on gold. The opportunity may 
still be there. Each spread involves 
buying two platinum contracts for 
each gold contract sold (platinum con- 
tracts are 50 ounces and gold 100 
ounces). The profit potential per 
spread is about $12, OCX). I will risk no 
more than $1,500. I like those odds. 

Last month 1 predicted an awesome 
bull market. I suggest you reread past 
MONEY DOS articles on covered op- 
tion writing and convertible securities. 
Both strategies are more conservative 
than owning common stock, and in 
many cases, more profitable. 

Next month PI! deal with some ad- 
vanced strategies in the options mar- 
ket, some that require only a modest 
bankroll. 

1 give my comments on stocks, op- 
tions, and commodities on the MON- 
EY DOS hotline, 800-327-3389 or in 
Florida (305) 665-3389. It operates 
from 9 a.m. Saturday to 7:30 a.m. 
Monday (EST). ■ 
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LYNN'S A/R 



■-'■—"—^"'■^^'-'a 



V^ 



12 Intergraded Account Receivddie Programs 
Tested In Service For Over 3 Years 



% 



Us6r's Comments: • menu driven* increased cash flow* saved over 50 hours a month m secretarial hours* almost completely 
eliminated billing errors • phone supported-ask for Ron 

LYNN'S A/R SYSTEM WILL 



• print invoices 

• tell you your a/r total, number of invoices outstandtng, 
average per invoice 

• tell you at any time how many invoices an individual 
account has open, the total amount owed, the average per 
invoice, the invoice date, and then invoice amount 

• total sales on account for a given month, number of invoices 
sent, average sale per invoice 

• how much an account purchased during month, how many 
invoices were sent, average invoice for month 



Aging Report 01/31/82 Page 1 
Account Current 

ABC Inc. $249.00 

Old Co. Inc. 00.00 

New Co. Inc. 97.75 

Deadbeat Inc. 00.00 



• tell you what percent of sales an account is to total sales 
by month 

• tell you what percent of a/r an account is 

• print mailing labels for your accounts 

• print statements at any time you want them (either individual 
or all accounts) 

• print alphabetical hardcopy of accounts and account numbers 

• print all items sold for month 

• alphabetical sort of items sold by month 

• this set of programs can be custom modified by you or us 

• AND MUCH MORE!! 



Totals $346.75 

Aging reports can be compiled on a daily, weekly or monthly bases 



30-60 Days 


60-90 Days 


90* Days 


Total 


$65 20 


$ 00.00 


$ 00.00 


$314 20 


84,40 


165.20 


00.00 


249.60 


00,00 


00.00 


00.00 


97,75 


00.00 


00.00 


345.00 


345,00 


$ 149.60 


165 20 


345,00 


$1,006.55 



•Phone Supported Ask For Ron* 
* saves hours of posting to general ledger 



almost 
riven * 



completely eliminates mathematical errors* menu 
200 expense fields* will handle 1 ,000 checks a month* will 
print checks with option to enter handwritten checks * will 
do reconciliation statement with hardcopy • will print 
hardcopy of field totals both by month, year to date and end 
of year • automatic account numbering * automatic field 
entry * will print hardcopy of checkbook register* debit and 
credit memo entry • alphabetical hardcopy of accounts 
payable and account numbers (machine language sort, ver\ 
fast)* AND MUCH MORE! * 



perfect tool for storing and maintaining mailing list, 
inventories, menus, collection records, article references, 
important dates, client records * all functions menu driven* 
easy to interface to word processors and communication 
programs * sort in ascending or descending order (fast 
machine language sort) * compact storage with minimum 
overhead * go from data base to visicalcand return* sort and 
select visicalc lines!!* interface to Radio Shack's "advanced 
statistical package" 



LYNN'S 




$69^5 
$3995 



^^TRsac 



Account Hecelvable System 
Account Receivable Aging Report 
Checkbook Ledger System 
Well's Data Base Manager 

Add $2.00 Freight and Handling. 

Illinois Residents Add 6% S.itfs Tax 

Send S1000 Per System 

For Printouts and Documentation. 

Credit Given on Order 



Equipment Needed: 48K Model I or III, 
Lineprinter, 2 Disk Drives. 
The above programs will work on TRS DOS 1 .2 and 
1.3 for the Model III. NEWDOS, NEWDOS80, 
NEWDOS80 V2.0, LDOS and MULTIDOS for the 
rvlodei I and III. 



TRS80 and TRSDOS are irademarks of TANDY CORP NEWDOS and NEWDOS80 aro Trademaik^ ol APPARAt INC LDOS is a trademark o( LOGICAL SYSTEMS 




LYNN COMPUTER SERVICE 

6831 W. 157 St. 

Tlnley Park, Illinois 60477 

(312)429-1915 



^115 



i^See Lis/ ol Advertisers on Page 455 
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\L OPINION 



by Philip R. Mills, M.D. 



Word processing is essential in 
most medical practices. It can 

make a mediocre secretary good and a 
good secretary great. 

Uiirorlunatety, most word-process- 
ing articles discuss only software. Of 
course software is important, but in a 

medical practice, the hardware, partic- 
ularly the printer, is equally important. 

Like a stereo, there are two ways to 
purchase word processors: either as 
separate components (computer plus 
printer plus software) or as a complete 
system (Wang, Lanier, and so on). The 
system word processor's major advan- 
tage is convenience in packaging and 
training. Its major drawback is its ex- 
pense, decreased versatility, and little 
room for customization. Software up- 
dates are few and hardware updates 
arc slow in coming and expensive. At 
this writing, system software diction- 
aries and grammar checkers, if avail- 
able, are clearly inferior to state-of- 
the-art micro programs available. 

A special case of the system word 
processor is the memory typewriter. It 
has excellent secretarial acceptance 
since it looks like a typewriter. Our 
clinic has an IBM Memory typewriter. 
It has been a disappointment, how- 
ever. Every secretary we send to IBM 
for training costs nearly $300. Service 
has been good. (It better be— break- 
downs have been distressingly frequent 
and service contracts are expensive.) 

The printout from memory is slow: 
there is no continuous feed for printing 
of rough drafts. Editing is very slow. It 
is often faster for our secretary to re- 
type a one or two-page document and 
then edit it with the memory feature. 
Since using the Model I with its video 
editing, our secretary now prefers the 
computer to the memory typewriter. 

The big advantage of the component 
word-processing system is the far lower 
cost and the customization it provides 
for the medical clinic. The cornerstone 
of the component system is the com- 
puter itself. Serious business use pre- 
cludes the inexpensive color game-type 
computers, since the keyboard and vid- 
eo are inferior for secretarial use. Even 
the Apple II requires a keyboard en- 
hancer, video card, and, in my opin- 
ion, a Z80 card with CP/M. This be- 
comes expensive. 

My first choice of a word-processing 
504 • 80 Micro, November 1982 
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computer is the Model 11. Us present 
reduced price makes it very competi- 
tive. It has an 80-characier-per-line 
screen, reverse video, a 4.0 MHz clock, 
and a keyboard that includes a com- 
mand key. It also has good word-pro- 
cessing software available for TRSDOS 
2.0a as well as CIVM. 

If you purchase the Model II, an ex- 
ternal disk drive is a necessity for back- 
ups. While Tandy has used reasonably 
good disk drives for the computer it- 
self, they skimped on the external 
drives and used cheap, inferior units. 
Nearly everyone recommends non- 
Radio Shack external disk drives. 

Another good choice of computer is 
the LNW. It has a command key, 
80-character-per-line video with 
reverse video, and 4.0+ MHz clock 
speed. It has Model T compatibility, as 
well as CP/M compatibility. 

The Model III is also a reasonable 
choice. It lacks a command key, but 
other keys can be substituted. When 
modified by Holmes Engineering, 
MTI, and others, it comes with reliable 
speedups, 80-character-per-line video, 
and other enhancements. Radio Shack 
is also releasing an 80-character-per- 
line enhancement for this computer. 

What about the Model 1? That is 
what our clinic uses. An inexpensive 
high-resolution green phosphorous 
screen, Holmes Engineering speedup, 
memory, and expansion interface 
greatly improve its performance. We 



are awaiting the 80-character-per-line 
enhancement. Even so, it serves our 
word-processing needs, though not 
elegantly. 

That brings us to printers. At this 
point we should acknowledge that a 
word-processing system will not elimi- 
nate a good correcting electronic type- 
writer. Our secretaries use Select ric 
typewriters for small jobs such as typ- 
ing cards or filling out questionnaire 
forms. To use a word processor for 
jobs such as these is like using a bull- 
dozer to hoc a garden. 

Since a typewriter is needed anyway, 
some clinics have purchased a device 
that sits on top of the typewriter keys 
and "types" with finger-Uke projec- 
tions. Originally these units were devel- 
oped to test and burn in new typewriters 
at the factory. PMC has been marketing 
one such unit for under $500. 

The greatest weakness is the slow 
print speed (usually around 100 wpm). 
Most units of this type use an RS-232C 
connection, so a faster dot-matrix 
printer could be connected to the serial 
output. The dot-matrix printer could 
be used for billing, while the "type- 
writer" can be used for professional 
letters and reports. This arrangement 
would not be satisfactory for most 
businesses, however. 

A far better solution is the Radio 
Shack Daisy Wheel IL The print is very 
high quality; the printer also has the 
advantage of Radio Shack's service 
and availability. It is very easy to feed 
single sheets by hand, and there is even 
an automatic single-sheet feeder (but 
what a cost). The quieting cover is a 
helpful option. 

It does have drawbacks, however. 
Early printers arc different than later 
printers. If your clinic purchases the 
Daisy Wheel II, make certain it has a 
current serial number. Ribbons are 
available only from Radio Shack. 
Print fonts are available only from 
Radio Shack and are $30 each. Propor- 
tional font-style selection is very lim- 
ited (they all look the same to me). 
There is also a more serious flaw with 
the inability to underline blanks. 

Our clinic has a NEC 5530 Spinwrit- 
er. It is faster than the Diablo or daisy- 
wheel type printers (55 cps versus 45 
cps). Thimble fonts can be obtained 
for $10-$15. It is slightly more expen- 
sive than the Daisy Wheel II, but it is 



more reliable and a real workhorse. 
We are very happy with it. In fact, our 
only complaint is its inability to pre- 
pare mimeographic stencils. 

If I were purchasing a new printer 
today, I would buy the C.Itoh. It is a 
best buy. The mechanics are so precise 
that overstrjking even three times fails 
to produce a significantly darker print, 
since it is hitting the same identical spot 
on the page with each strike. No other 
printer that I have seen can duplicate 
this kind of print-strike accuracy. 

Medical clinics must have a Selectric- 
quality printer for business letters and 
reports. Correspondence quality is use- 
ful for billing and rough drafts where 
speed is essential. I used to believe that 
dot matrix could never produce Selec- 
tric quality print, but technology is 
rapidly changing my ideas. 

Anadex is trying to break open the 
high-quality, dot-matrix market for 
the microcomputer. The WP60(X) will 
be fast (reportedly 300-plus characters 
per second) and able to produce Selec- 
tric-quality print. If it turns out to be as 
good as the prerelease publicity, it will 



be an exciting printer. 

Epson is also "expecting," and sec- 
ond-hand sources have sliown me the 
actual print at 80 characters per sec- 
ond. It is impressive; it looks typeset. 

Our clinic also has a dot-matrix 
printer, the MX-100. This Epson is a 
good printer in many respects, but for 
the cUnic it is too slow for speedy bill- 
ing and it is not Selectric- quality print. 

Proportional Printing 

Proportional printing can make doc- 
uments look superb. It can dramatical- 
ly improve the appearance of the in- 
house handouts designed for patient 
education. One of the problems with 
patient education is compliance. But 
often this poor compliance is merely 
due to our patients forgetting our in- 
structions. Standard instruction sheets 
on back care or diet, printed up nicely 
with proportional print, can make a pa- 
tient want to read them. I believe pa- 
tients will read these instructions more 
readily than a hard-to-read, poorly 
formatted sheet of instructions. 

But obtaining proportional printing 



is a problem. None of Radio Shack's 

word-processing programs have very 
sophisticated print possibilities. (They 
keep telling me improvements are com- 
ing, but right now they aren't here). 
Most so-called proportional-print soft- 
ware for the TRS-80 has spacing that is 
wider on the left part of the line, in- 
stead of equal apportioning through- 
out the line. 

While I was giving a talk to the New 
England Medical Computer Club, I 
mentioned my frustration with the lim- 
itations of Scripsit and the continued 
delays in Radio Shack's production of 
SuperScripsit. I was tired of Word- 
Star's slowness on the Mode! I as well 
as its marginal usefulness with the vid- 
eo restrictions of this computer. My 
secretary was frightened of the Word- 
Star's complexity and didn't want to 
learn it. 

Several physicians mentioned their 
satisfaction with Chuck Tesler's pro- 
gram, Newscript (Prosoft, Box 560, 
North Hollywood, CA 91603-0560, 
(213) 764-3131), and mentioned their 
understanding that Tandy's Super- 
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M ic FAST=EFFlCIENT=MACHiNt LANGUAGE • 



—ARCADE GAMES' 




coi.qR_ ^ ^ f%i^ 



"liiiitBnimM'rrfiniftflririi 



A new super hi-res 
space game. Wave after 5 
wave of alien attackers. . . 
each one a different and unique challenge 
toyourskills. CASSETTE (16K) . . . $24.95. 
DISC (32K) . . . $29.95 

"Finally solf^ate worltty ol the Colo' Compuler " K.C. Westerly. Rl 
"The ads and reviews were iignt Great slull'" R S Los Angeles. CA 




They're calling 

this one a "classic". You'll ~^ 
have hours of fast-paced fun -M. 
zapping robots. Super hi-res action! 
CASSETTE (16K) . . . $24.95 
DISC (32K) . . .$29.95 -^ 




Outsmart the 
creatures that pursue 
you as you hu.nt for 
treasure in a maze of 
cave passages. Lots of 
') colors and sounds! 
'cassette (16K) . . . $24.95 
DISC (32K) , , . $29.96 



^^ 



SEND FOR OUR LATEST FLYER, 

GET ON OUR 
MAILING LIST 

\:>rBUY DIRECT^ 

We pay shipping on all orders in the 
continental U.S. and Canada. Over- 
seas add $3.00. Calilornia residents 
please add 6% sales tax. 

We are always looking tor quality 
machine language programs. Contact 
us tor details. 



ADVENTURE GAIVIES- 



K^aV^^\sV^^^ mt Hack Sanctum 

<■ I i"^ ^ac •^^ A challenqrnq puzzle ' ^ 




enging puzzle 

with an occasional tv^^ist of humor. 

There's a treasure v^faiting 

v^-s^- to be discovered! 

^CASSETTE (16K). . .$19.95 



For the player who enjoys suspense 
You'll encounter the forces of black 
magic in this spooky adventure 

CASSETTE (16K) . -. . $19.95 



MARK DATA PRODUCTS 



23 02 BARQUILLA, MISSION VIEJO, CA 92691 • (714) 768-1551 




^-241 



v-See List of Advertisers on Page 455 
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Scripsit was being held up because it is 

abysmally slow. 

Newscript 

Skeptically, 1 obtained a manual 
from Prosoft and studied it. It was out- 
standing, and so I got the program. I 
have used many word-processing pro- 
grams, but this is the finest I have seen 
on the Model I/III. It isn't necessary to 
review it in depth since it has received 
excellent reviews, but some of its fea- 
tures are particularly valuable in a 
clinic setting. 

It is the only program supporting 
true proportional print. (WordStar, in- 
cidentally, supports only a pseudo- 
proportional print. Magic Wand also 
supports pseudo-proportional print. 
While it has commands for true pro- 
portional, the print is poorly spaced, 
and is not fully implemented. Two 
years ago I attempted to improve the 
source code without success.) 

The author of Newscript under- 
stands the needs of medical chnics. His 
father was an anesthesiologist. His 
brother is a physician. He intended to 



be a physician until he discovered com- 
puters! The new manual, which is very 
complete, even contains suggestions 

for use in a clinic. 

The program, older than Scripsit 
and based on IBM's Script, is very user 
friendly. Mailing lists can be created 
and used to provide the basis for form 
letters. More importantly for the 
clinic, boilerplating is possible. This 
boilerplate can significantly reduce sec- 
retarial time. 

The Electric Webster spelling check- 
er from Cornucopia Software is fully 
compatible and selectable from the 
menu. We originally purchased the 
earher Microproof, but the Electric 
Webster is vastly superior. It is now 
completely accurate, expandable for 
medical words, and the speed has in- 
creased. The browse feature is less 
helpful for our secretary (she is a good 
speller), but is a real time saver and 
convenience when I write. 

Newscript also supports JF Consult- 
ing's Inkslinger from the menu. This 
can be useful in preparing clever titles 
for patient-education handouts on the 



Epson MX printers and Okidata's 
Microiine series. Although I have not 
yet tried it, it can even make large print 
for overhead masters. 

For those who are Dvorak keyboard 
enthusiasts (see 80 Micro, December 
1980), there is full support (even- a 
Dvorak typing tutor and keyboard la- 
bels that won't interfere with the 
Qwerty labels). 

For owners of LNW computers, or 
80-character-per-line enhanced 
screens, there is full support as well. 

Newscript has a very important 
modification for your one-handed pa- 
tients. It was first suggested by a handi- 
capped Newscript user, Walt Crede. 
This modification makes it quite sim- 
ple to type manuscripts with only one 
hand. (Most word-processing pro- 
grams are difficult to do with one hand 
because of the way the control ke^' 
functions.) 

Next month we'll look at a printer 
peripheral, the spooler. I was going to 
include it with this article, but it should 
be discussed with accounting, since this 
is where it shines. Until then. . . ■ 




For Q limited time, Data Services Inc w 
give you q FREE Epson MX-80 Printer ($645 
value), when you buy q TR5 80 Model III, 48k, 
v/ith 2 PER,COM 40 trock drives, ot our new low 
prices of $2,395,00. 

(includes R5-202, Printer Cable, TR5DOS.)' 

The perfect system, the perfect price! 

TR5 60 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPAR,AT'5 
NEWD05 80, version VEP. 2.0, regularly $ 1 49.95 
— now only $129.95 (Model III units only.) 

Up to 20% sovings on TRS computers — ac- 
cessories — programs, Plus: EPSON / PERCOM / 
APPARAT / HAYES SAAARTMODEM / VERBATIM 
DISKETTES / MEMOREX DISKS. 

*TR5-60 is a trodemork of Tandy Corporotion, 
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■ FREE SHIPPING in 48 contiguous states. 

■ No Sol es Tax on out-of-state orders. 

■ Viso/ Moster Card welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders, freight F.O.D. Wichita, 
Konsos) 

CALL TOLL FREE: 1-800-835-1129 
or order by moil from: 

UBJB SrailJCES, Ml, 

COMPUTER 5ERVICE5 5INCI- 1970 ^11 

P.O. Box 1 1 57 Wichita, Kansas 67201 -1 1 57 
(In Kansas, coll 1-316-83S-9021 ) 



THE BIGGEST NAME IN LtTTLE COMPUTERS^^ 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




TRS-80 computers, 
software and periphera 



Similar values on all 



rchandise 



^^^^Rl 



CALL COLLECT: 

800-351-1580 

Texas Residents call: 915-283-2920 

Van Horn Office Supply 

701 W. Broadway - P O Box 1060 
Von Horn, Texas 79855 

DEALER G055 "^ 



Form F48 Provided 

Standard Warranty in Effect 

THE NATIONWIDE SUPERMARKET OF SOUND" 



I 953A EPRC 
MMER 




Proyrarns ?SU8 2"S(i f^lf ^71R 2532 and 2732 five volt EPROMS. 

Complete ■ no personality modules to buy. 

tntelligent - microprocessor based, programs and verities any or all byifis 

RS-232 serial interface - use with computer or terminal. 

Verify erasure command - verifies that EPROM is erased. 

Extended diagnostics - error output distinguishes betwuen a bad EPROM 
and one which needs erasing. 

lyay be used for extremely reliablf! rinta or program sicrage 

All power on programming socket under processor control, LED warninq 
light indicates when power is applied. 

Complete with Textool zero insertion force socket 

High performance/cost ratio. 

Standard DB-25 I/O connector. 

PRICE S289 



BAY TECHNICAL ASSOCIATES, mc. 




HWY 603, P BOX 387 

BAY ST LOUIS, MISSISSIPPI 39520 

(601)467-8231 



INNGUOTION QUAl ITY 

SUPPORT 

PIONEER SOFTWAHfc 

[74(> HOHTH WEST 55TH. AVE. 11704 
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i.LJMPLETE W-P SVSTEM 
IHIS MllNIH t GET %\^ OFF 



NEW 
NEM' 
1 > . 
2). 

3) . 

4) . 



1^> . 
11). 
MEM' 
Nt W ' 
NEW ' 
■■•EU' 



fiRAPHTRAl ■ -ITAt ICS 1)M>I. PL 1 NE -DOUBl E EHP-JllStUV Tfcxr. 
DIAL -f-PHlMr - GET LETIfR OIIAI ITV BV REPRINTING I INES 
ENTER/EXIT SCRIPSIT AT WILL WIIHnui lUSTMi; TEST BUF . 
OUTPUT ANY CODE'(S> <»-255), DIRECT FRIIM THE TEST. 
SIMPLE L.n rER CUMHANDS CUNIRIJL 'tVERV^ MX-Btl • iiii/i 
PftOGRAMHABL E ftnrnHk INCt . V«R LINESPArjNG AND Kll-MS. 
WRITE FURM LETTERS AND INPUT [lA I A INTO REPORI MJHMS. 
DlSn AV ONI V MODE HELPS r^HOW UHERE PAGES STAHl/f-NI>. 
FIllT HODE FOR ERRiJt.;; , l.HANiiES . GRAPH i l,S OR PAUSING. 
SELECTED PATiL ;. PRINTED D I RE C 1 /i:URHEL" T HEADERS, PAGE# '-■ 
PRINT IHjr f III 1 SCREEN Pll.Ufrll FILES MADE BY CRAYON'' 
/ SiAMPl. E TEACHING PROIiRAMS; TAI-E VDU STEP BY STEP. 
(jf, PAIil MANUAL, BOUND, INDEXLD, LIIMPLETELY REVISED, 
CUSTOM VERSIONS AVA 11 ABI h FDR THE fOLLOUINS PRINTERS; 
M1CHOLINE-B0 + B2n, t'HIIWHIItR • LP IV. » VIII. • F-IH 
DAISY WHFFL '.' UFR, ALLOWS SUB/SUPER SCRIPTING I0",1,>' 
• PROPORT lONAL- UNDEIJl I N I NL; 1 • I / ,? lEGAL IINF ijrOiINl,^ 
EMPHA:; Wl- I), DI A1 a - PR I N I , PFfOtiHAMnABI E OVERS IRIk £ M(II>L . 



Mt-aiil/J^lS VEFl. UORI- b WIIH/WJIHOUI lihAPHIRAJ 80 OR Pi US 
D1S>. SCRIPTR MOD 1/3 = «1».00 MOD I*II!. VERSIONS BOTH 
WORK WITH MODEL !. SCRIPSIT/LC NO PATCHiNG REQUIRED. 
CASSETTE SCRIPTR MOD 1/3 "^ •40.00 WORKS WITH REG. SCRIPS. 
l.*l FOR MOD 1/5 RE0.32K.+ LC/MOD SCRIPTR IS A S.^*, PROG. 
SEND FOR OUR FREE BROCHURE THAI DFMnNHTRATES ALL FEATURFS 
SLRTPTR IS Wrt I DnniMFNTFD AND BUG FREE' niSTOMER fTUPPORT 
SATURDAYS • FVfNINl.S tUR YIIIIK rONVE N 1 E NLI , FRtf IiHLIIMIll<[ ' 

■.■<■ Pl.tASt INCIIIDE THIS INFORMATION WHEN ORDERING ■». 
NAME Baa_____| MODEL 1 OR 3 _ I CASSETTE /D I SK 
ADDRESS ..._„_ I TYPE PRINTER _ I SCRIPSIT WER II - 
ri Ty/STATE/Z IF/PHONF I MFhORV r>I7E . | PAvMt Ml MM HUD 

^ U' ■ I MONEY ORDERS l.QD" S ALLS PTI D 



-------■» -^ 



C: R R 5^ OM 



'•.■■• I'- ■-, A ORftPHlCS DESIGN IJTIl III THAI NU TRS Bt> 
nWNF.R iiHOUI.D BE WITHOUT. CRAi-UN DUl. ij IT AL I ' ' 

VUU"V1 ;iM N IHE ADS E OR OTHER DRAWING PHt>[ii<AM;i . i.UMl 

CHARGE AS HUGH AS » 1 5^1 . 00 FOR THE ABILITY TO ADD GRAPHICS 
ril YOUR PRINlflUTS. CRAYON ISN'T A CONVERTED TEXT PROCESSOR 
CRAYON WAS DESIGNED FROM THE GROUND UP TO GIVE YOU IHF 
VERV FINEST GRAPHIC'S EDITOR POSSIBLE. . COMPLEX GRAPri^ 
RKJUIRE ROUTINES TO MOVE AND MANIPULATE GRAPHICS IH., . m 
(FUT PROCESSOR CONTAINS. ALSO CRAYON PRODUCES SUPER HiL.r 

SPEED GRAPHICS THAT YOU CAN ACCESS FROM YOUR ASSEMBL Y ANT) 
BASIC PROGRAMS. ALSO WITH A BLOCK GRAPHICS PRINTER AND 

SCRIPTR YOU CAN PRINT OUT YOUR CRAYON FILES FROM SCRIPSI1. 
BEFORE YOU WASTE YOUR MONEY ON HALF A PROGRAM CHECK OUT 
CRAYON'S MANY FEATURES. CRAYON DOES IT ALL''' 

n. TYPESET LOGO'S - LETTERHEADS - ENVELOPES - BUSINESS 
CARDS AND OTHER OFFICE FORMS. THIS AD WAS TYPESET 

FROM AN M/-ea PRINTOUT THEN SHRUNk . COST = »4.5« 

IF AD WAS r/PESET AT A PRINTSHOP THE COST - •200 » 
2), CREATE AND RUN Kl Ai i.ahiuun;, WMH LRAVON AND THEN 
RUN YOUR CARIUONS f RUM BASH AI ASSEMBLY LANGUAGE 
SPEEDS. SPEEDS OF 35 FRAMES/SECOND POSSIBLE. USE IT 
lU DEbiTiN DISPLAYS FOR USE IN BASIC 8. ASSEMBLY PROIiij 
■•! . MANA[,f I)i;.l-i ITE DIRECTORIES, PRINT THEM, SEARCH THEM, 
rOMMENT THEM. MOD 3 DIR. WORKS ON A TRSDDS SYS. ONI Y. 
41. DRAW ANYTHING YOU DESIRE ONTO THE SCREEN AND PRINT IT 

OUT OR SAVE IT TO DISK/TAPE - UP TO 30 SCREENS/FILE. 
■51. MANAGE AN APPOINTMENT SCHEDULE, KEEP RECORDS. L ISTS 01^ 

MENU i>. SAVE /RFI.ALi INFORMATION UU n h AND iAiiY. 

6j, per* 1.}RM All VIDEO WORI-SHttI EUNriEUN'; RIl.HI UN HI Ht E N 

1). USER FRIENDLY / 42 PAGE DOC'S. OFFSET PRIN IF D, I N[)l- *f r> 

21. NINE CHARACTER USER DEFINED CURSOR. 

.1. 16 LETTER COMMANDS FDR GRAPHICS ENTRY. 
41. COPY CHARACTERS IN ANY DIRECTION FAST. 
^,1. UPPER/LOWER CASE SUPPORT WITHOUT DRIVERS. 
Bl. DO ALL OF THE FOLLOWING ON VARIABLE LENGTH LINES-> 
COPV-FILL-DELETE-EXCHAN6E-M0VE-PULL-UC/LC- INVERT 
GRAPHICS-PRINT-JUSTIFY TE X T -BUFFER /RE STORE TO SCREEN. 
71. UTILITIES INCLUDE — > MAS*. - AUTOMATIC PRINTS NUMBERS 
CURSOR LOCATION AND VALUE-3 SELECTIVE CL S' S-PATTERN- 
EXTRA BUFFERS-SCREEN OVERWRI TE-HEXDUMP-SEARCHES. MOHt 
Bl . FULL DISK / CASS I/O DIR-WRlTE-LDAD-APPEND-COPV-k li I 
SCREENPRINT- OUTPUTS CODES TO DRIVE ANY PARALLEL PRINUH 
PROFESSIONALLY WRITTEN *, SUPPORTED-NO BUGS-2 YRS.IN DESIGN 
OVER •V0 COMMANDS -V FAST / EASY / FUN f- ALL MACHINE I ANG, 
CASS MOD I<-3=»35.00 / DISK MOD I OR 3=«45.00 10k PROGRAM 
WORf,S IN lb*. Oft MORE AND ADJUSTS TO MEMORY B12E CHANGES, 
ESPECIAII.Y FOR Mi<-fi0. MICROLINEB0 AND OTHER BLOCK GRAPH I L 
PRINTERS, PRINIff' NU I RED. FOR (- I I E UANIll iNi, . (AkIiIONS. 

hi lEtLKAL DEAI ER Tt I'MS AVAILABLE - INQUIRIES INVilFD 
■■■■-» 
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-See List of Advertisers on Page 4bb 
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RELOAD BD 



by Art Huston 



We have big Load 80 news ihis 
month— COLOR ! ! ! Due to read- 
er enthusiasm, ihc niajor Color Com- 
puter listings from each month's 80 
Micro will be available on cassettes. The 
Model I/IIi Load 80 will continue 
monthly on tape and disk. 

Color Load 80 will start with the De- 
cember 1982 issue. U will contain the 
best Color Computer programs from 80 
Micro's 1982 issues. This cassette will 
sell for only $14.97 plus postage. 

Subsequent Color Load 80s will be is- 
sued every three months for $9.97 plus 
postage. The first will be available with 
the March 1983 issue of 80 Micro, and 
will include Color Computer programs 
from January, February and March. 

Load 80 Gripes 

We are proud of the high-quality cus- 
tomer service we provide. Sometimes 




Load 80 
goes color 



Program Name Disk Status 

CUBE80 Works unchanged, hut requires 32K 

KALAH/SRC Must be assemliled 

SLOTMACH Will not work witti disk 

CRAM Works with changes in lines 960, 970 

RAMMER Works with changes in line 100 

TREKl Works unchanged, but not on Model III 

TREK2 Works unchanged, but not on Mode! Ill 

SUBCHOP2 Works with changes in lines 60, 65 

THRUASTR Works with changes in line 15 

Table I 



Program 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 



Title Page 

COPYRGHT/BAS — 

MEDHIST/BAS 90 

REGRESS/RAS 96 

HEATSTRS/BAS 148 

EINSTEIN/BAS 222 

DRAWPOKR/BAS 246 

BABYCASS/BAS 282 

KWIKMAZE/BAS 318 

PIXLPRN17BAS 364 

GENEALGY/BAS 398 

ANCESTRY/BAS 398 

FAMILY/BAS 398 

TRON/SRC 406 

QUIKSORT/SRC 414 

BKINVTRY/BAS 436 

KTAABA/BAS 450 

November Load 80 Directory 



Comments 

None 
None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

None 

Needs EDTASM 

Needs EDTASM 

None 

None 



the correspondence is frustrating. One 
person complained that the EDTASM 
source code files on the Tune/July 1982 
Load 80 tape would not work on his 
machine. His local Radio Shack store 
advised him to buy their Series 1 Edi- 
tor/Assembler, upgrade to 48K, and 
add a second disk drive. Many dollars 
later Ihe EDTASM files would still not 
work. 

The three RDTAS.M source code files 
on Ihe June/July tape were SMPL- 
ZAPl, SMPLZAP2 and SMPLZAP3. 

These were three parts of one disk zap- 
per which the author split to prevent the 
source code from ovcrnowing the mem- 
ory of a 32K machine. Lhe accompany- 
ing article ("Stepwise Refinement," 
page 232) contained a Table (page 234) 
which clearly staled the steps necessary 
to assemble each part separately before 
dumping the object code to disk as one 
unit. The person obviously did not read 
Table 1 . 

What is the moral of all this? Each 
article serves as the documentation for 
each Load 80 program. Read each arti- 
cle carefully. Also read the Key Box. It 

tells which systems the program will run 
properly on. If you still have problems, 
call me at (603) 924-9471 ext. 233. 

Finally, if you write, describe your 
exact system. I must know if you have a 
Model 1, Til, or Color Computer, how 
much RAM, and how many disk drives. 

If you have non-standard equipment let 
me know. Describe, as completely as 
possible, the symptoms of the program 
failure. 

Auf;ust Zaps 

Many people had trouble converting 
August 1982 Load 80 programs to run 
on disk. Table 1 lists which programs 
will run after implementing the changes 
described in remark statements, and 
which will not run at all. 

The disk documentation incorrectly 
listed Kalah/SRC as being in Basic; it is 
an Assembly-language program requir- 
ing an editor /assembler. The first pro- 
gram on side B was listed on the disk 
documentation as LUCK13. The cor- 
rect file name is LUCKY13. 

If you modify a Load 80 program to 
run on a different system, drop a short 
note to "80 Input" so others can benefit 
too.a 
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It's Here! The computer Strategy 
Came with Bounce! 




For: 

Apple 
Atari 

TRS-80 



Have you ever seen a fast action 
game combined with the intense 
strategy of chess, bacl<gammon or 
Othello? Ricochet...the first abstract 
strategy game designed exclusively 
for the computer owner... is both. 
And loads of fun! 

YOU and your opponent each have 
six opposing blocks to maneuver and 
two launchers to fire. Your shots rico- 
chet off the biocl<s, changing their 
position with every hit, while earning 
you points on the way to their targets. 
The longer your shot ricochets, the 
more points you get. 

You don't have to play alone, either. 
Play against any of four different com- 
puter opponents, (each a different 
personality), or another human. Five 
game variants to choose from— each 
requires a different strategy. 

Ricochet is truly competitive. . . if you 
want it to be. A "smart clocl<" lets you 



put more pressure on your opponent 
by forcing him to play faster than 
you. But you've got to win two out of 
three (or three out of five) games to 
claim victory. 

Your computer rates you after each 
match, so you can compare your mas- 
tery of the game with that of other 
players. In the long run, you're trying 
to rack up points for your personal 
Ricochet Rating. 

Get Ricochet now at your local 
dealer for your Atari, Apple or trs-80. 
Suggested retail price: $19.95. 




Another Mind Toy 
frommyX 

m M coMPUT. 

9 ^ Thurjta^f?'^ 



COMFKJTBF? GAMES 
Th/iNKERS RLA Y 




'APPLE, ATARI and TRS-80 3re trademarks of Apple 
Computer, Inc., Atari, Inc. and Tandy Corp., respecciueiv. 



y 1981, AUTOMATED SIMULATIONS, INC. 

P.O. Box 4247, Mountain View, CA 94040. 
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ODUCTS 



edited by Steven Frann 



Keep X-rays Away 

A leaded screen shield protects video 
display terminal or computer terminal 
users from the X-rays emitted by these 
screens. 

The I-Protect leaded acrylic screen 
shield is a 3 mm thick piece of transpar- 
ent acrylic pl^tic impregnated with 
enough lead to stop any X-rays from 
reaching your body. 

This product affixes to the front of 
the monitor screen with four velero 
tabs. Anti-glare devices can be attached 
to the front of the I-Proiect screen 
shield. 

I-Protect is available in two sizes, 8 
by 10 inches ($49.95) and 10 by 12 
inches ($59.95), to fit most monitors. 
For more information contact LSI 
Systems, 132 W. 24th St., New York, 
NYIOOn, 800-221-7070. 

Reader Service ^519 

Meet the Computer 

Meet the Computer helps young chil- 
dren learn simple programming for a 
TRS-80 home computer. 

The 77-page text, written by Marjorie 

Crabbc, features easy-to-understand 
language and clear-cut instructions 
children can follow with a minimum of 
supervision. By the time the child com- 
pletes the suggested activities sections, 
he should be capable of writing simple 
programs on his own. 




I 



MEET THE 
COMPUTER 



TRS-80 




Mi-cl the Computer by Marjorie Crahhe 
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The MTI Bu'iiiic-'is Computer 



Significant concepts are set off in 
bold boxes at the bottom of pages to 

simplify learning. Important ideas are 
repeated throughout the publication, 
and illustrations supplement the text 
and add visual interest. 

A seven-page glossary with concise 
definitions and a cross-referenced in- 
dex provide additional teaching aids for 
the child. The plastic binding permits 
the book to lie flat when opened to 
any page. 

Priced at $9.95, the book is available 
from Crabbe Associates, 212 W. Gra- 
ham Ave., Lombard, IL 60148. 

Reader Service v^577 



Business Computer 

Microcomputer Technology Inc. 
(MTI) is offering a new personal com- 
puter line designed especially for busi- 
ness use. The new line, known as the 
MTI MOD HI PLUS B scries, begins 
with a 48K memory and double-density 
duai-drive system. In addition, the 
Business line features 4MHz operation 
for rapid processing, an RS-232 inter- 
face for communication applications, 
and an anti-glare screen and cooling 
unit. MTI will include a complete ac- 
counting package with each business 
computer for prices from $2,495. 

As an added enhancement for those 
looking for word processing capability, 



arrangements have been made with 
ProSoft to allow buyers of the MTI 

business computers to receive Newscript 
at a substantial discount. With New- 
script, the computers have complete 
word processing capability. 

For more information, contact Mi- 
crocomputer Technology Inc., 3304 
West MacArthiir Blvd., Santa Ana, CA 
92704, (714)979-9923. 

Reader Service i^592 



VisiCalc Surrogate 

Aton International Inc. has an- 
nounced two programs, Basic Sur- 
rogate and VisiCalc Surrogate, for use 
with their JobStream CP/M 2.2 
operating system. These programs pro- 
vide the interfaces which allow Radio 
Shack Basic and Radio Shack VisiCalc 
to operate in the JobStream CP/M en- 
vironment on the Models II and 16. 
This creates a less expensive alternative 
for TRSDOS users who wish to upgrade 
to CP/M and improve performance 
without buying new applications 
packages. 

VisiCalc Surrogate ($99) allows ac- 
cess to the VisiCalc program (not gener- 
ally available in the CP/M environ- 
ment). VisiCalc Surrogate also offers an 
additional 4K to 12K bytes of memory 
space over what is available under TRS- 
DOS. Basic Surrogate ($99) increases 



TRS-80 
MOD III 

48K — 2 Drive 
— DISK III 
TRSDOS & 
Manuals 

$1882 




EXTERNAL FLOPPIES 

for MODI ^07R 
or III ^ A f %# 

Fully compatible, 120 day warranty 
80 TK or 2 sided $395 

80TK&2slded $515 



Winchester External Hard 
Disk III beginning at 



Optional HD III: 

9.5 meg $2099 

19 meg 2799 

2 X 6.3 meg 2899 

2 X 9.5 meg 3199 

2 X 19 meg 4399 



CHECK THESE GREAT BUYS ON OTHER PRODUCTS: 



Epson MX-80 w/grap 


htrax $475.00 


C.ITOH & Diablo Ribbons 


5.95 


Epson MX-80 U 


575.00 


DC Hayes Smart Modem 


259.00 


Epson MX- 100 


750,00 


DC Hayes Micro Model II 


339.00 


MX-80 Ribbons 


12.50 


OKIDATA Microline 80 


359,00 


MX-100 Ribbons 


X.OO 


OKIDATA Microline 82A 


529.00 


Epson Graphtrax 


75.00 


OKIDATA Microline 83A 


799.00 


C.ITOH F-10 40cps 


1 ,695.00 


OKIDATA Tractor 


75.00 


Tractor 


200.00 


Lexicon Modem 


125.00 


NOW OPEN 


— VR DATA COMPUTER CENTER 


616 



Novation Cat Modem 175.00 

Novation D Cat Modem 199.00 

Percom Doubler II 169.00 

Percom Data Separator 29.95 

Paper 9V, x 11 (Fantold) 29.95 

Paper 14% x 11 (Green Bar) 34.95 

Verbatim 5V," Diskettes 26.90 

Maxell 5Va" Diskettes 39,00 

Nastiua 8" Diskettes 42.95 



Drive Extender Cable 12.00 

Head Cleaning Kit S'-'a" 14.95 
Disk & Other Mysteries Book 19.95 
Basic & Other Mysteries 

Book 27.50 

NEC Ribbons (Min. 6) 5.95 

Printer Cable 25.00 

LDOS Operating Sys. 129,00 

DOSPLUS Operating Sys. 149,00 



Baltimore Pike, Springfield. Pa. (Delaware County) 



DISK III 

SINGLE DRIVE $599 



Disk III Dual Drives 
Disk HI No Drives 
TRSDOS & Manual 
DOS PLUS & Manual 
LDOS & Manual 



$864.00 

435.00 

21.90 

149.00 

129.00 



MODEL III 
COMMUNICATIONS 



2 Sided or 80 Track Drives add $120. ea. 
2 Sided & 80 Track Drives add S240. ea. 



VR-RS232 
$80 

Direct Replacement For 
R.S. RS232, Fully Tested 
& Burned-ln, Easy 
Installation, 120 Day 
Warranty, Programmable 
Pinout, Prototype Area 



D-CON 
$299 

Integral Modem, NEEDS 
NO RS232 — Direct 
Connect, Programmable 
Dialing, AUTO ANSWER/ 
ORIGINATE, Easy 
Installation 



VR 



IF YOU DONT SEE IT ADVERTISED 
CALL US AND ASK FOR IT 



data 



MasterCard 




VfSA 



777 Henderson Boulevard N-6 

FolcroFt PA 19032 1215)461-5300 

^See Lisl ot Adverlisers on Page 455 



Call Toll-Free 

800-345-8102 

ALU VR DATA PRODUCTS CARRY A 120-DAY 
WARRANTY INCLUDING PARTS & LABOR 

Published prices reflect casti discount All prices are subject 
\o change without notice TRS-80 and TRSDOS ate iraaematKs 
of Tandy Corp DISK II! is a Irademark ot VR Data Corp 
8'30AM-7PM EST Mon Fti . Sal 10AM-3PM 
CABLE -VRDATA- TELEX 845-124 
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tl FORBIDDEN PLfiNET U 
THE FIRST TftLKmS ADVENTURE 
ITAUS THR0U6H CASSETTE PORT 
NODEL I k III m DISK ONLY 
$39.95 (BY MILLIAH DEHAS) 

U HYPERLISHT PATROL U 
SPACE SlflULATION SAME 
GRAPHICS AND SOUND 
RODEL I i III 48K DISK ONLY 
119.95 (BY MARREN GREEN) 

DEFIANCE 
THE FIRST TALKING SPACE SIMULATION 
I TALKS THROUGH CASSETTE PORT! 
NODEL I i HI 48K DISK ONLY 
(24.95 (BY NARREN GREEN) 




U FORBIDDEN CITY II 
THE SECOND TALKING ADVENTURE 
NITH 3 DIFFERENT VOICES 
nODEL I i III 48K DISK ONLY 
f39.95 (BY WILLIAM DEHAS) 



PANIK 
THE ARCADE GANE OF THE CENTURY 
[T HAS A LITTLE OF THEN ALL 
SOUND AND VOICE THROUGH THE CASSETTE PORT 
HODEL I i III (32K DISK) 124.95 
(16K TAPE) «19.95 (BY MILLIAK DENAS) 





YOUR LOCAL DEALER 

DEALERS INQUIRIES INVITED 



I^SPI 



FANTASTIC SOFTWARE 

P.O. BOX 27734 

LAS VEGAS. NEVADA 891 26 

(702)362-1457 



^^n^^3 



,--36 



NEW PRODUCTS 



program storage space 2K bytes over 
TRSDOS. 

For more information contact Aton 
International Inc., 260 Brooklyn Ave., 
San Jose, CA 95128. 

Reader Service «>567 

Hard Disk for the Model III 

The JHD-III is a hard-disk system 
for use with the Model III. It utilizes a 
5'/^-inch Winchester drive with either 5 
or 10 megabytes of storage. An LDOS 
driver allows the storage to be divided 
into individual logical units. 

The system comes with the control- 
ler, host adapter, hard disk drive, all ca- 
bles, LDOS driver disk, and an opera- 
tor's manual. 

Priced at $1,895 for the 5-megabyte 
system and $2,095 for the 10-megabyte 
system, JHD-III is available from J&M 
Systems, Ltd., 137 Utali NE, Albu- 
querque, NM 87108, (505) 265-5072. 

Reader Service «^559 



Color Computer Index 

Color Computer Index indexes arti- 
cles, programs, letters, reviews and 
news releases from seven magazines in- 
cluding 68 Micro Journal, SO Micro, 80 
U.S. Journal, Byte, Color Computer 
News, The Rainbow and TRS-80 Mi- 
crocomputer News. 

The two magazines wholly dedicated 
to the Color Computer are completely 
indexed, but only materials on the Col- 
or Computer are seleaed from the other 
magazines. This index, published on a 
quarterly basis, is available for $16 per 
year. A separate index covering 1 980-8 1 
is also available for $5. 

Color Computer Catalog is a com- 
panion publication available two times 
a year for $20 per year. It lists software, 
hardware, books and other accessories 
for your Color Computer. 

For more information contact 
Robert T. Divett, 3705 Mary Ellen NE, 
Albuquerque, NM 87111, (505) 
298-7164. 

Reader Service (^564 

Investor's Computer Handbook 

The Investor's Computer Handbook 
helps you manage investments better 
with the use of your personal computer. 
It requires no previous microcomputer 
or investment experience. 

The first section of the book provides 



information on choosing the micro- 
computer system best suited for your 
particular invcslment applications, In- 
cluding information on hardware, soft- 
ware, peripherals and a list of required 
and recommended components. 

The remainder of the text explains 
how the system can be used for invest- 
ment applications. The programs and 
principles — primarily in terms of the 
stock market — transfer easily to other 
dynamic markets and portfolios, such 
as commodity futures and options, 
bonds and treasury bills. The four gen- 
eral types of investment programs are 
explained: portfolio management and 
trading; portfolio maintenance; re- 
search filing and retrieval; and chart 
generation and analysis. Included are 
four demonstration programs in Micro- 
soft Basic, one for each type of invest- 
ment application with a step-by-stcp 
analysis of each module. Several case 
histories of actual investors, their sys- 
tems and how they use them are also 
presented in this book. 

Priced at $10.95, it is available from 
Haydcn Book Company Inc., 50 Essex 
St., Rochelle Park, NJ 07662, 
800-631-0856. 

Reader Service i^576 



DOSPLUS II 

DOSPLUS II for the Model II 

features complete device independence 
and a high level of user friendliness cou- 
pled with a speed increase of 5-10 times 
over TRSDOS. More reliable disk I/O 
is present even though the system stores 
more data on each disk than TRSDOS. 

A full line of support software, at no 
extra charge, includes a terminal/liosi 
package and full disk editing/repair 
programs. The system uses Microsoft 
Basic. 

This product is available in a stan- 
dard floppy-disk version and versions 
for most popular Model II hard-disk 
subsystems. Priced at $249.95, it is 
available from Micro-Systerns Software 
Inc., 4301-18 Oak Circle, Boca Raton, 
FL 33431, (305) 983-3390. 

Reader Service ^'575 

Football Compu-Stat 

Football Compu-Stat analyzes the 

performance of teams in the National 
Football League. Compu-Stat provides 
information on won-loss records and 
margin of victory both in "on field" 




and point-spread performance. 

Displays are presented in graphic or 
printed form. Breakdowns of perfor- 
mance arc further classified by division, 
by conference and by inlerconferencc 
opponents. Statistical data is available 
and comparable on a team versus team 
basis. All box-score statistics are con- 
sidered. 

This product runs on a Model 111 
with one disk drive. It is available on 
disk complete with manual for $150 and 
can be updated by the user or by 
statistical disk ($25/week). For more in- 
formation contact Interactive Sports 
Systems, 1022 Harmony St., P.O. Box 
15952, New Orleans, LA 70175, (504) 
895-1481. 

Reader Service ^^553 



Till- Snmii modem I2(X) 

High Speed Modem 

The Hayes Stack Smartmodem 1200 

is a Bell 212A compatible modem that 
lets RS-232C compatible computers or 
terminals communicate over telephone 
lines at 1200 bps. 

This product Is actually two modems 
in one: It operates at cither 0-300 bps or 
1200 bps. Smartmodem features auto=p. 
answer and auto-dial and can be con- : 
trolled by any programming language. 
It executes user commands and re- 
sponds with either decimal di^ dr Eng- 
lish word result codes. Indicator lights 
on the modem's front panel allow a 
visual check of operational status. 

Priced at $699, the modem is avail- 
able from Hayes Microcomputer Prod- 
ucts, 5835 Peachtree Corners East, 
Norcross, GA 3^92, (404) 449-8791. 

Reader Service »^563 

CP/M File Indexer 

Synopsis automatically creates, up- 
dates, searches and displays an index 
containing the file names, disk ID, and 
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four lines of information about any 
CP/M file. When the four lines of in- 
formation (e.g., date, writer, addressee, 
subject) are included as nonprinting 
comments in a document file. Synopsis 
automatically reads the information in- 
to its index. Information describing 
nondocument flies, such as those creat- 
ed by spreadsheet and data-base pro- 
grams, is easily entered into the index 
directly. Synopsis treats the file names, 
disk ID, and each comment line as a 
separate field and lets you search the in- 
dex by any part of a field or combina- 
tion of field. 

This product requires 48K RAM, 
CP/M or MP/M, and either WordStar, 
Spellbinder, SuperWriter, Magic 
Wand, or a similar text editor. Priced at 
$125, it is available from Digital Mar- 
keting Corp., 2670 Cherry Lane, Wal- 
nut Creek, CA 94596, (415) 938-2880. 

Reader Service i^552 



Color Computer Auto Hun 

Auto Run 

Auto Run is a utility program for the 
Color Computer that lets your ma- 
chine-language or Basic programs start 
automatically. It creates a machine- 
language loader program and stores it 
on tape. Following the loader you store 
your program. Your program can now 
be started by entering the CLOADM 
Basic command. 

The Auto Run graphics editor lets 
you design and create a graphics title 
screen that will display as your program 
loads. An audio feature enables you to 
record a musical or vocal introduction 
to your program. 

This product requires a 16K Color 
Computer with Extended Color Basic 
and sells for $14.95. For more informa- 
tion contact Sugar Software, 2153 Leah 
Lane, Reynoldsburg, OH 43068, (614) 
861-0565. 

Reader Service ^^585 
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''The Auto Run graphics 

editor lets you design 

and create a graphics 

title screen that will display 

as your program loads. '' 




Bowling League Secretary 

A time-saving bowling league secre- 
tarial system called LEAGUEBOWL- 
24 is now available for the TRS-80 
Model III. 

An extensive editing feature gives the 
secretary complete control of the data. 
Provisions are included for forfeits, 
blinds, partial absences, snapout errors, 
postponements, team ties, individual 
ties, substitute bowlers, name changes, 
drops, ineligibles, messages, display of 
secretary's lane, and lane assignments 
anywhere in a 98-lane house. 

Handicapping is selectable and ac- 
curate at 21 games or whenever the sec- 
retary desires. Printed output does not 
need special forms and uses any printer 
that gives an ASCII program Hsling. 
Designed for the non-computer-orient- 
ed secretary, the program handles 
handicap learn, sum of individual hand- 
icap, scratch, mixed, men's, and wom- 
en's leagues per ABC rules. It accepts 3, 
4, or 7-point scoring systems. 

This product runs on a 48K Model III 
and sells for $145 for the dual disk drive 
version and $160 for the single drive 
version. 

For more information contact Briley 
Software, P.O. Box 2913, Livermore, 
CA 94550, (415)455-9139. 

Reader Service i^554 

Software for Real 
Estate Professionals 

Investor III, a program developed by 
real estate professionals for real estate 
professionals, performs the detailed, 
comprehensive financial analysis neces- 
sary to evaluate a potential real estate 
investment. 

Based on the user's assumptions, this 
program provides projections of key 
evaluation criteria for each of up to 20 
years, including: annual depreciation 
shelter, either straight line or accelerat- 
ed; cash flow benefits, both before and 
after taxes; future property values; loan 
balances at the end of each year; net 



equity build-up; capital gain and recap- 
ture taxes; net proceeds from resale; 
and more. 

Investor Ill's output is formatted to 

print on standard letter-size paper ready 
for distribution to clients or inclusion in 
the user's investment package. 

This product runs on the Models I, 
II, III and 16 and is available for $595. 
For more information contact Good 
Software Corp., 12900 Preston Road, 
Dallas, TX 75230, (214) 387-2327. 

Reader Service i^555 

Model II Marriage 

MERGIT-GLII turns Radio Shack's 
Model II Scripsit 2.0 and their single- 
disk general ledger system (cat. no. 
26-5401) into a flexible report wrhing 
package. 

MERGIT-GLll creates a merge file 
formatted to Scripsit requirements and 
limitations. It allows user selection of 
accounts to be included in the merge file 
by general ledger classification or ac- 
count range. It also allows expense ac- 
counts to be chosen by category. It au- 
tomatically creates variable code names 
and formats variable amounts based on 
the user's chart of accounts for current 
month and year to date account 
balances. 

Priced at $89.95, MERGIT-GLII is 
available from Independent Software, 
P.O. Box 3126, Federal Way, WA 
98003, (206) 941-6022. 

Reader Service i^556 

Municipal Billing System 

The Municipal Billing System, MBS, 
from Foy Inc. handles the billing of wa- 
ter, electricity, sewer, garbage, and 
other utilities for municipal govern- 
ments. Designed for the Model II, it is 
available in versions to handle from 
2,000 to 30,000 customers. 

MBS is currently in use by the cities 
of Farniersvillc, Murphy, and Van 
Horn in Texas; Avenal, CA; and Crys- 
tal Springs, MS. These cities use MBS to 
generate a meter-reading list, print a 
high/low audit of unusual usages, print 
an account status report, calculate and 
print postcard bills ready for mailing, 
generate a daily cash receipts listing, 
and print a deUnquent account report. 
MBS handles a wide range of rate struc- 
tures, making it suitable for virtually all 
cities with populations between 1,000 
and 50,000. 

For additional information contact 



DOES STRING COMPRESSION HAVE YOU 
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TRASHMAN is a machine language utility for the TRS-80 Models i and III. It was written by Glenn 

Tesler, the author of FASTER, and can reduce BASIC'S string compression time by 95% (see table below}. 

WHAT'S STRING COMPRESSION? 

When a BASIC program changes a string (words names, 
descnplions], it moves it to a new place in memory, and leaves a hole in 
the old place. Eventually, all available memory gets used up and BASIC 
tias to push the strings together to free up some space. This takes 
time. Lots of time. The computer stops running for seconds or minutes, 
and you may even think it's "crashed". The keyboard won't work, and 
until all the strings have been collected, you just have to sit and wait. 
Then Ihmgs run for a while, until string compression is needed again. 
And again. 

If yoLi're using your computer for business, that wastes your money. If 
you're using it personally, it wastes your tine. 

WHAT'S THE SOLUTION? 

As soon as you start using TRASHMAN. those delays almost 
disappear. It uses less than 600 bytes of memory, plus 2 bytes for each 
active string. It works with other machine language programs and with all 

major operatmg systems, It's easy to use, comes with complete 
'nstructions, and can be copied to your own disks. 

WHAFS THE CATCH? 

If a BASIC program uses only a few stiings. very little lime is wasted 
n string compression, and TRASHMAN won't be helpful. But, if 
hundreds of strings, including large string arrays, are used, TRASHMAN 

IS |ust what you need. 

Ask your software dealer for TRASHMAN, or order 
directly on our toll-free number. The price is just $39.95 
(plus sales tax in California). 

(All timings done on TRS-80 Model I. Model III 15°o faster, but pet. improvements identical. Listing of timing program available on request.) 



# 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11.8 


0.7 


94 


500 


45.8 


1.6 


96 5 


1000 


179.6 


3,5 


98 


2000 


713.2 


7 8 


98.9 




AMAZING PROGRAM SPEEDS UP BASIC 



Your time is valuable, so why 
waste it on slow-running BASIC 
programs? PROSOFT's 

"FASTER" will analyze those 
programs while they run, then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times by up to 50%. 

Accounting systems, financial models, engineering and scien- 
tific programs all run faster; so do games. Large, complex pro- 
grams improve the most, and "FASTER" is easy to use, 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run, 
"FASTER" counts how often each "variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yes! Persona! Computing said so in their 
May 1981 issue (p, 116); we've received many letters from cus- 
tomers who've gotten 20-50% improvements; and we will make 
you this offer: 

Order "FASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction of at least 
20%, return it within 30 days for a prompt and cheerful refund. 
"FASTER runs on TRS-80 Models I and UI, 16-48K, tape or disk 

$29.95 



QWiCK COMFEESB 

Small (27b bytes), tast (processes 800 
lines in under 3 seconds) utility removes blanks and remarks from 
your BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 

S19.95 



RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause of unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models I 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Modef I or HI disk:S24.95 




TO ORDER, CALL NOW, TOLL FREE 

(800) 824-7888, Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 




16-48K Model I or m, tape or disk. 
SPECIAL FASTER + QUICK Compress: 



Dept. G Box 560 " 
$39.95 North Hollywood, CA 91603 



TERMS: We accept VISA, Mastercard, checks, Money Orders, C.O.D. and ev&n cash. We pay shipping via 

surface UPS inside U.S.A. Please add $3.00 (or Blue Label 6% tax in Cahiornia, and 15% outside North America (air shipment). 
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Foy Inc., 100 McKinney St., Farmers- 
viUe, TX 75031, (214) 782-7282. 
Reader Service »^557 

PocketCalc I 

PockctCalc I is a spreadsheet pro- 
gram for the Sharp PC 1211, Radio 
Shack PC-1 and Casio FX-702P 
computers. 

The program makes available three 
rows of up to 13 columns each. Each 
row may be added, subtracted, multi- 
plied or divided by another row or by a 
single number. Features include com- 
mands for: clearing rows to zero; dupli- 
cating the value of one cell into other 
cells; fmding the sum, cumulative value 
and average value of a row; and saving 
the results on cassette. 

Because the memory of these pocket 
computers is limited (about 1.5K bytes), 
the calculations and numerical results 
are printed sequentially. This printed 
log becomes a review of the problem 
solution and enables replication of the 
numerical solution with new data. 

Priced at $30, this spreadsheet is 
available from Pocketlnfo Corp., P.O. 
Box 152, Beaverton, OR 97075, (503) 
649-8145. 

Reader Service (>560 

Dollar Sense 

Dollar Sense is a budget management 
aid for home use. It is not a checkbook 
balancer, but an electronic worksheet 
used in preparing and sticking to a new 
budget. 

Income records allow the user to 
enter a description field, the amount, 
and the date expected. Expenses in- 
clude all of the above, plus a planned 
date payment and the actual date 
paid. Once the budgeting information 
has been entered, the file is sorted by 
date and displayed, with a current 
balance always in view. 

This product runs on a Model I or III 
and is available for $12.95 on cassette 
from KENSOFT, 2102-50th St., Keno- 
sha, WI 53140, (414) 654-2722. 

Reader Service i^SlA. 

Sea Dragon 

Sea Dragon, a real-time machine-lan- 
guage simulation, challenges the player 
to successfully maneuver a submarine 
past underwater mountains and 
through labyrinthian passages while 
avoiding webs of rising, explosive 
mines. Additional dangers include 
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The Comrex CR-1 ComRiter 



depth charges dropped from battle- 
ships, laser cannons, enemy attack 
bases and falling stalactites. 

This game features a horizontally 
scrolling seascape that extends the 
equivalent length of more than two doz- 
en screens placed end-to-end. There are 
a full range of features and options, in- 
cluding multiple skill levels, high score 
save, joystick compatibility, and one or 
two-player capability. 

The disk version of this product fea- 
tures Adventure International's exclu- 
sive Duo Loader, loading on either 
Model I or 111 systems with 32K of 
memory. This version sells for $24.95. 
The cassette version for the Models I 
and 111 sells for $19.95. For more infor- 
mation contact Adventure Internation- 
al, P.O. Box 3435, Longwood, PL 
32750, (305) 862-6917. 

Reader Service »^570 

Copyart II 

The Copyart II word processor for 
48K, one disk-drive Model I and III 
computers supports underlining, bold- 
facing, double strike, justification, 
headers-footers, and offers graphics, 
math, sorting and mailmerge capa- 
bilities. 

You can insert graphics within text 
and do calculations within the text. The 
sort function allows you to sort up to 
650 names, indices, mail lists, and so 
on, in seven seconds or less. The mail- 
merge utility and mail list programs al- 
low you to merge up to 2000 names and 
addresses with a Copyart form letter. 
The mail Hst can be sorted by name, 
state, zip code, city or special code. 



/k 



Priced at $149.95, Copyart II is avail- 
able from Simutek Computer Products 
Inc., 4897 E. Speedway Blvd., Tucson, 
AZ 85712, (602)323-9391. 

Reader Service *^566 

ComRiter 

The ComRiter daisy-wheel printer is 
especially designed for word processing. 
Its bidirectional carriage increases 
throughput. Print speed is 17 cps. It fea- 
tures one-touch, dust-free interchange- 
able daisy wheels with a wide range of 
available fonts. 

The ComRiter is available with three 
separate interfaces built in: Qimie 
Sprint 3 ($1,099), RS-232C serial 
($1,199), and Centronics-style parallel 
($1,115). For more information contact 
Comrex International Inc., 3701 Sky- 
park Drive, Suite 120, Torrance, CA 
90505, (213) 373-0280. 

Reader Service *^ 584 

Port Doubler 

The wYe interface doubles the exten- 
sions available at an existing port of 
your computer, eliminating connecting 
and disconnecting cables. This saves 
time and prevents possible damage to 
connectors and cables. Signal direction 
is easily changed with a light touch of 
the selector button. 

This product is available for $99 for 
the Models I or III and for $189 for the 
Models II or 16. For more information 
contact Lords Systems Design, 11421 
81st Ave. NE, Kirkland, WA 98033, 
(206) 823-8849. 

Reader Service *^561 
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Basic Aid 

Basic Aid, a utility program for the 
Color Computer, reduces the number 
of keystrokes necessary to enter a pro- 
gram. Il features automatic line num- 
bering and single key entry of most Ba- 
sic commands. The user may redefine 
any or all keys lo his own commands. 

Basic Aid's Merge command allows 
merging of Basic routines stored on cas- 
sette with the program in memory. 
Since Basic Aid renumbers the routine 
being merged, you can build tape librar- 
ies of Basic routines without regard to 
line number. The Move Line command 
allows you to move and renumber any 
program line. It automatically changes 
GOTOs and GOSUBs which reference 
the section moved. 

This product comes in a ROM car- 
tridge and includes a keyboard overlay. 
Priced at $35.95, it is available from 
Eigen Systems, Box 10234, Austin, TX 
78766, (512) 837-4665. 

Reader Service »^569 



6809 Disassembler/ Assembler 

DISASM allows disassembling and 
assembling of machine-language pro- 
grams for the Color Computer. F.spe- 
cially designed for the inexperienced 
Assembly-language programmer, DIS- 
ASM uses only easy-to-iearn com- 
mands and lakes data in decimal rather 
than hex format. The disassembler gives 
the memory location, instructions, ma- 
chine code, and branch locations in dec- 
imal for ease in tracing program steps. 
Learn how the Color Computer works 
by disassembling the Basic and extend- 
ed ROMs. Use the assembler to write 
USR subroutines or complete machine- 
language programs. 

DISASM is available on cassette for 
$19.95 and on LPROM for $49.95. For 
more information contact Dynamic 
Electronics Inc., P.O. Box 896, Hart- 
selle, AL 35640, (205) 773-2758. 

Reader Service (^590 



Words for the Wise 

Words for the Wise is a complete 
spelling tutor system for elementary 
school students. U features five spelling 
activities; missing letters, scrambled 
words, match the letters, alphabetizing, 
and hangman. Students are rewarded 
and corrected through animated graph- 
ics and sound. 



An additional feature of this product 
is the unlimited flexibility in choosing 
words to be studied. The teacher pre- 
pares and stores word lists on disk or 
tape aliead of lime. The package comes 
with a program to prepare or update 
these word lists. In addition, TYC SotV 
ware supplies a prerecorded list of 10(X) 
specially selected spelling words for 
grades 1-6. These words are a represen- 
tative sample of words used throughout 
the country in these grades. 

The disk version of this program for 
use on a two-disk Model III sells for 
S34.95. The Model I or HI cassette ver- 



sion sells for $24.95. For more informa- 
tion contact TYC Software, 40 Sluyve- 
sanl Manor, Gcneseo, NY 14454, (716) 
243-3005. 

Reader Service ^--578 



COCO Drawer 

COCO Drawer is a joyslick-driven 
graphics editor for quick and easy pic- 
tures on the Color Computer. 

The joystick selects and controls over 
40 commands on two menus to draw 
lines, rectangles, circles, dots, and paint 




S-100 
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IBM Personal Computer 



Do you use your computer? Or does your computer "use" you? Face it, if you're using floppies, your time is being wasted. 
Because a floppy is an inefficient random access storage device. Eacfi time the processor wants to transfer data, it has to wait 
.jn eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisl(, quicl<. It's a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive. Without all the waiting. Do everything you'd do on a floppy or hard disk, with no modifications to your 
software or hardware. Two board sizes are available; 5!2K and 1 Megabyte, (the highest density microcomputer mcmiiry 
board in the world) And you can put up to 8 megabytes in a system by adding more storage boards. 

What do you need to use it? Just an S-100 system with CP/M 2,2. Or a TRS-80 Model 2 system with 
CP/M 2.2. Or an IBM Personal Computer. That's it. Mo special processors, DMA, I/O, or disk controllers are required. Plug it in 
iind runtheinstallationprogram, and you're on your way. Fast! Even better, we supply full source code to the driver software, in 
case you'd like to do your own interfacing. 

Best of all, the SemiDisk's price won't warp your wallet. Compare specs, cost/megabyte, storage capacity, and 
compatibility with the competition. You'll see that the SemiDisk is a disk emulator truly worthy of the name, SemiDisk has 
battery- backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor. Consider our liberal 15 day return policy. Price? 
■5 ! 995 for 51 2K byte SemiDisk, $2995 for 1 Megabyte SemiDisk. Both from stock. 5 1 0.00 for manual, VISA, Mastercard. COD 
orders accepted. Dealer and OEM inquiries welcomed. (Specify system type and disk format when ordering.) 



Someday, you'll get a SemiDisk. 

Until then, you'll just have to wait. 



SemiDisk 
SYSTEMS 



P.O. Box GG 
Beaverton. OR 97075 



(503)-642-3100 



C3H (503)-646-55 10 for CBBS' 'NW, a Semi -Disk-equipped compuler biiiietin board. 
SemiDisli Irademark of SemiDisk Systems; TR5-80lrademarkof Radio Sliack 



1^372 





NO WAITING 



•See List of Advertisers on Page 455 
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with Extended Basic's resolutions and 
colors. Other commands are merge, 
change colors, copy, .store, restore, and 
many more. 

COCO Drawer comes with two com- 
plete character sets for typing messages 
on pictures. Also included are outlines 
of Texas and Australia digitized with 
this program. 

COCO Drawer is available for $19.95 
from Greathouse and Company, P.O. 
Box 27051, Rancho Bernardo, CA 
92127. Extended Basic and 32K are re- 
quired. 

Reader Service ^588 




■-; ; The Last One 

The Last One 

Using simple English terms in menu 
form, The Last One helps the user de- 
sign original programs for home, office 
or hobby without knowing complex 
computer language. The program's dis- 
play shows the items that can be chosen 
to construct the order of an original 
program. After the program design (or 
flowchart) is completed, The Last One 
Writes the Basic computer code required 
to make the program work. 

Priced at $600 for Model II and III 
versions, it is available from Southwest 
Microcomputer Systems, 16885 West 
Bernardo Drive, Suite 220, San Diego, 
CA 92127, 800-854-2099. 

Reader Service »^583 

Financial Management System 

Pius Accounting Software is a finan- 
cial management system consisting of 
individual software packages for gener- 
al ledger, accounts receivable, accounts 
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payable, fixed assets, payroll, plus the 
versiUile Easytrak, an all-purpose track- 
ing system to monitor sales activity. 

All Plus packages are menu-driven 
for easy operation. Prompts and built- 
in disciplines aid training and improve 
accuracy. Complete, easy-to-follow 
documentation provides detailed infor- 
mation on installation, start-up, opera- 
tions guide including screen and sample 
report explanations, glossary, and a ba- 
sic accounting theory refresher. 

This product is available in 5 Y^ and 
8-ineh disks for the Models I and 11. All 
packages are available as stand-alone, 
or can automatically post to general led- 
ger. For more information, contact 
Tom Turkot, vice president, marketing. 
Plus Computer Technology Inc., 6900 
N. Austin Ave., Chicago, IL 60640, 
(312) 647-0988, 1-800-323-4240. 

Reader Service (^589 

Footmath 

Footmath allows mathematical 
manipulation of feet, inches, and frac- 
tions of inches in their written form 
without converting them to decimal 
form. Designed for use by architects 
and contractors, this program prompts 
for input of dimensional data in the 
same format as shown on blueprints. 
The computer interprets the English 
measure, performs the calculations, and 
then provides output in the same foot, 
inch, and fraction format as the input. 

The output may be displayed on the 
screen or listed on an 80-column line 
printer. The user may also store the out- 
put on disk and recall it later and make 
changes if needed. 

Footmath runs on the Models 1 and 
III and sells for $99.95. For more infor- 
mation contact Cheever Microwave, 
P.O. Box 3834, Wake Village, TX 
75501,(214)832-4211. 

■Reader Service p^56S 

Astro-Blast 

Astro-Blast is a space shoot-em-up 
game for the Color Computer featuring 

high-resolution graphics, color and 
sound effects. 

Wave after wave of alien attackers 
challenge your joystick and firc-button 
skills. Move quickly before your fuel 
runs low. Three selectable skill levels 
coupled with automatic game accelera- 
tion provide a challenge for novice and 
professional alike. 



Stereo Music Synthesizer 
with Percussion for Model li; 
Soeciol Co.T'poser's Edirton 



PGURE 3. 




Software Afjair's Orchestra-W 

This machine-language program is 
available on 16K cassette for $24.95 and 
32K disk for $29.95. For more informa- 
tion contact Mark Data Products, 
23802 Barquilla, Mission Viejo, CA 
92691. 

Reader Service ^^580 



Stereo Music Synthesis 

The Orchestra-90 Special Composer's 
Edition, a software/hardware product, 
synthesizes stereo music in four-part 
harmony using any combination of vio- 
lin, trumpet, organ, oboe, clarinet and 
percussion effects. 

This product includes thetape or disk 
version plus sample music, instruction 
manual, and fully assembled and tested 
PC board which plugs into the 50-pin 
connector on the Model III. The high- 
level stereo output may be connected to 
the aux/tape/tuner inputs of any stereo 
amplifier. 

The system is available from Soft- 
ware Affair, 858 Rubis Drive, Sunny- 
vale, CA 94087, (408) 295-9195, for 
$149.95. 

Reader Service i>586 



An incorrect price was quoted 
for Textedit (Wayne Green 
Books), featured in the Oct. 1982 
"New Products" section. The 

book alone costs $9.97, and the 
disk alone $19.97. 



A GALAXY of featutes jnakes th'e LN^stS' a 
remarkable, computer. As you explore the 
LNW80, yjou will find the most complete,' 
powerful, ready to run, feature-packed per- 
sonal and busin>tes computer ever made intp 
one compact' solid unit. ^ 




MODEL I COMPATIBILITY - The LNW&O is 

fully hardware and software compatible with 
the Model I. Select from a universeof hardware 
accessorie.s and software - from VisiCalC^"' to 
space games, your LNW80 will launch you 
in|(? a new world of computing. 

FULLY LOAQED- A full payloadlribrCrd^s" 
on-board single and double density disk 
controller for 5 W'_*nd 8" single, or double 
'sided disk drives. RS2'32C communications 
port, cassette and parallel printer interfaces 
are standard features and ready to go. All 
memory is fully installed - 48K RAM/ 16K 
graphics RAM and 12K ROM complete with 
Microsoft BASIC. 



QUALITY COIMSTRUCtiON -'Instrumenta- 
tion quality construction sets LNW80 com- 
^puters apart from all the rest. Integrated into 
, the sleek solid steel cage of the LNW80 is a 
'professional 74-key expanded keyboard that 
includes a twelvekey Qumeric keypad. 

HIG>^ RES9LUTION GRAPHICS& COLOR- 

The stunning 480 X 1 92 resolution gives you 
. total .display control - in color or black and 
white. The choice of display formats is yoursf 
80, 64, 40 and 32 columns by 24 or 1 6 lines in - 
any combination of eight colors. 

.PERFORMANCE- Lift-off with.a4MHzZ80A 
CPU for twice the performance. The LNW80 
™'*'*oerk)rms all computers in its class. 
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HOiar 10 USE YOUR EPSON 

WITHOUT WASTING 

COMPUTER 





Your computer is capable of sending data 
at thousands of characters per second but 
the Epson can oniy print 80 characters per 
second. 

This means your computer is forced to 
wart for the printer to finish one line before it 
can send the next, A waste of valuable time. 

THENEWMKROBUFFER'^ 
ACCEPTS DATA AS FAST AS 
YOUR COMPUTER CAN SEND IT. 

Microbuffer stores the data in its own 
memory buffer and then takes control of 
the printer. This frees your computer for 
more productive functions. 

PARALLEL OR SERIAL. 

Microbuffer model MBP-16K is a 
Centronics-compatible parallel interface 
with 16,384 bytes of on-board RAM for 
data buffering. 

The MBS-8K is a full-featured RS-232C 
serial interface with both hardware and 
software (X-On/X-Off) handshaking, baud 
rates from 300 to 19,000 and an 8,192 byte 
RAM buffer. 

SIMPLY PLUG IT IN. 

Either model fits the existing auxiliary 
interface connector inside the Epson MX-80, 
MX-80 F/T or MX-100 without modification, 
and is compatible with standard Epson 
cables and printer control software, 
including GRAFTRAX-80. 

JUST $159.00* 

When you think how much time Microbuffer 
will save, can you afford not to have one? 
Call us for your nearest dealer. 




PRACTICAL PERIPHERALS, INC. 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CA 91362 • (213) 991-8200 



'Suggested retail price for either model. 



